Class TEditForm (unit MDIEdit) |
Inherits from
TForm
procedure AlignClick(Sender: TObject);
procedure Close1Click(Sender: TObject);
procedure CopyToClipboard(Sender: TObject);
procedure CutToClipboard(Sender: TObject);
procedure Delete(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Delphi 1 handles closing differently than D2.
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure New1Click(Sender: TObject);
procedure Open(const AFilename: string);
procedure Open1Click(Sender: TObject);
procedure PasteFromClipboard(Sender: TObject);
procedure Print1Click(Sender: TObject);
the printing performed in this example either prints the entire buffer, } { or.
procedure PrintSetup1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure SelectAll(Sender: TObject);
procedure SetEditItems(Sender: TObject);
procedure SetFont(Sender: TObject);
procedure SetPopUpItems(Sender: TObject);
procedure SetWordWrap(Sender: TObject);
procedure SetEditRect;
procedure UpdateMenus;
Center1 : TMenuItem;
Character1 : TMenuItem;
Close1 : TMenuItem;
Copy1 : TMenuItem;
Copy2 : TMenuItem;
Cut1 : TMenuItem;
Cut2 : TMenuItem;
Delete1 : TMenuItem;
Edit1 : TMenuItem;
Exit1 : TMenuItem;
File1 : TMenuItem;
FileExitSeparator : TMenuItem;
Font1 : TMenuItem;
FontDialog1 : TFontDialog;
Left1 : TMenuItem;
MainMenu1 : TMainMenu;
Memo1 : TMemo;
MemoPopUp : TPopupMenu;
N1 : TMenuItem;
N2 : TMenuItem;
New1 : TMenuItem;
Open1 : TMenuItem;
Paste1 : TMenuItem;
Paste2 : TMenuItem;
Print1 : TMenuItem;
PrintDialog1 : TPrintDialog;
PrinterSetupDialog1 : TPrinterSetupDialog;
PrintSetup1 : TMenuItem;
Right1 : TMenuItem;
Save1 : TMenuItem;
SaveAs1 : TMenuItem;
SaveFileDialog : TSaveDialog;
SelectAll1 : TMenuItem;
WordWrap1 : TMenuItem;
Filename : string;
procedure AlignClick(Sender: TObject);
procedure Close1Click(Sender: TObject);
procedure CopyToClipboard(Sender: TObject);
procedure CutToClipboard(Sender: TObject);
procedure Delete(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Delphi 1 handles closing differently than D2. This form is destroyed when } { Screen.OnActiveFormChange is called. That means our MRU list's handle to } { the menu item on this form is invalid. We have to make sure and take care } { of that or it will GPF. You need not worry about this in Delphi 2.
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure New1Click(Sender: TObject);
procedure Open(const AFilename: string);
procedure Open1Click(Sender: TObject);
procedure PasteFromClipboard(Sender: TObject);
procedure Print1Click(Sender: TObject);
the printing performed in this example either prints the entire buffer, } { or...if a section of text is selected, will print the selected text; } { in addition, the first line of selected text will be printed left } { justified; no attempt is made to make the lines appear as they do on the } { monitor. WYSIWYG printing is beyond the scope of this demo program. } { The following features of printing are not demonstrated: } { Multiple Copies } { Collating Multiple Copies } { Page Ranges } { Multiple Fonts, Word Wrapping, etc.
procedure PrintSetup1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure SelectAll(Sender: TObject);
procedure SetEditItems(Sender: TObject);
procedure SetFont(Sender: TObject);
procedure SetPopUpItems(Sender: TObject);
procedure SetWordWrap(Sender: TObject);
procedure SetEditRect;
procedure UpdateMenus;
Center1 : TMenuItem;
Character1 : TMenuItem;
Close1 : TMenuItem;
Copy1 : TMenuItem;
Copy2 : TMenuItem;
Cut1 : TMenuItem;
Cut2 : TMenuItem;
Delete1 : TMenuItem;
Edit1 : TMenuItem;
Exit1 : TMenuItem;
File1 : TMenuItem;
FileExitSeparator : TMenuItem;
Font1 : TMenuItem;
FontDialog1 : TFontDialog;
Left1 : TMenuItem;
MainMenu1 : TMainMenu;
Memo1 : TMemo;
MemoPopUp : TPopupMenu;
N1 : TMenuItem;
N2 : TMenuItem;
New1 : TMenuItem;
Open1 : TMenuItem;
Paste1 : TMenuItem;
Paste2 : TMenuItem;
Print1 : TMenuItem;
PrintDialog1 : TPrintDialog;
PrinterSetupDialog1 : TPrinterSetupDialog;
PrintSetup1 : TMenuItem;
Right1 : TMenuItem;
Save1 : TMenuItem;
SaveAs1 : TMenuItem;
SaveFileDialog : TSaveDialog;
SelectAll1 : TMenuItem;
WordWrap1 : TMenuItem;
Filename : string;