Class TEditForm (unit MDIEdit)

Inherits from

TForm

Constructors



Functions

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;


Properties

Events

Variables

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;



Constructors


Functions


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;


Properties


Events


Variables


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;