| Class TDocEditForm (unit Docedit) |
TForm
| Constructors |
| Functions |
procedure CloseBtnClick(Sender: TObject);
procedure Copy1Click(Sender: TObject);
procedure Cut1Click(Sender: TObject);
procedure Delete1Click(Sender: TObject);
procedure DocumentKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure DocumentMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Exit1Click(Sender: TObject);
procedure Format2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure New1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Paste1Click(Sender: TObject);
procedure Print1Click(Sender: TObject);
procedure ReportPrinter1Print(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure SelectAll1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure TagBtnClick(Sender: TObject);
procedure LoadFile(PathName, FileName: String);
procedure UpdateMenus;
procedure WMCHANGECBCHAIN(var Message: TMessage);
procedure WMDESTROYCLIPBOARD(var Message: TMessage);
procedure WMDRAWCLIPBOARD(var Message: TMessage);| Properties |
| Events |
| Variables |
Close1 : TMenuItem;
CloseBtn : TSpeedButton;
Copy1 : TMenuItem;
CopyBtn : TSpeedButton;
Cut1 : TMenuItem;
CutBtn : TSpeedButton;
Document : TMemo;
Edit1 : TMenuItem;
Exit1 : TMenuItem;
File1 : TMenuItem;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
N4 : TMenuItem;
Open1 : TMenuItem;
OpenBtn : TSpeedButton;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
Paste1 : TMenuItem;
PasteBtn : TSpeedButton;
Print1 : TMenuItem;
PrintBtn : TSpeedButton;
PrintDialog1 : TPrintDialog;
Save1 : TMenuItem;
SaveAs1 : TMenuItem;
SaveBtn : TSpeedButton;
SaveDialog1 : TSaveDialog;
SelectAll1 : TMenuItem;
SpeedButton1 : TSpeedButton;
Ans : Word;
ClipBrdChain : HWnd;
DefCaption : String;
DocName : String;
FindString : String;| Constructors |
| Functions |
procedure CloseBtnClick(Sender: TObject);PrinterSetupDialog1.Execute; ReportPrinter1.PrinterIndex := -2; ver 1 ReportPrinter1.Execute; mik 08/09/97 ReportPrinter1.PrinterIndex := -1; ReportPrinter1.Execute;
procedure Copy1Click(Sender: TObject);
procedure Cut1Click(Sender: TObject);
procedure Delete1Click(Sender: TObject);
procedure DocumentKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure DocumentMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Exit1Click(Sender: TObject);
procedure Format2Click(Sender: TObject);if Document.Lines.count > 0 then n:= get_bin(Document.Lines[0]); IF NOT reportprinter1.SUPPORTBIN(N) THEN N:= 0;{CASE BIN IS NOT AVAILABLE MIK 9/7/97} if n > 0 then reportprinter1.selectbin(reportprinter1.bins[n]); if n >=0 then {skip first line [B1] mik 8/07/97} n:= 1 else n:= 0; With Sender as TbaseReport do begin SetFont('Courier New',10); for Line := n to Document.Lines.Count - 1 do begin if linesleft = 2 then newpage; Println(Document.Lines[Line]); end; end;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure New1Click(Sender: TObject);Delete1.Enabled := HasSelection;
procedure Open1Click(Sender: TObject);
procedure Paste1Click(Sender: TObject);
procedure Print1Click(Sender: TObject);
procedure ReportPrinter1Print(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure SelectAll1Click(Sender: TObject);Document.CLEAR;
procedure SpeedButton1Click(Sender: TObject);
procedure TagBtnClick(Sender: TObject);system.assign(f,'temp.$$$'); {$i-} erase(f); {$i+} if ioresult <> 0 then;
procedure LoadFile(PathName, FileName: String);
procedure UpdateMenus;
procedure WMCHANGECBCHAIN(var Message: TMessage);
procedure WMDESTROYCLIPBOARD(var Message: TMessage);
procedure WMDRAWCLIPBOARD(var Message: TMessage);| Properties |
| Events |
| Variables |
Close1 : TMenuItem;
CloseBtn : TSpeedButton;
Copy1 : TMenuItem;
CopyBtn : TSpeedButton;
Cut1 : TMenuItem;
CutBtn : TSpeedButton;
Document : TMemo;
Edit1 : TMenuItem;
Exit1 : TMenuItem;
File1 : TMenuItem;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
N4 : TMenuItem;
Open1 : TMenuItem;
OpenBtn : TSpeedButton;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
Paste1 : TMenuItem;
PasteBtn : TSpeedButton;
Print1 : TMenuItem;
PrintBtn : TSpeedButton;
PrintDialog1 : TPrintDialog;
Save1 : TMenuItem;
SaveAs1 : TMenuItem;
SaveBtn : TSpeedButton;
SaveDialog1 : TSaveDialog;
SelectAll1 : TMenuItem;
SpeedButton1 : TSpeedButton;
Ans : Word;
ClipBrdChain : HWnd;
DefCaption : String;
DocName : String;Public declarations
FindString : String;