Class TfrmMain (unit Unit1) |
Inherits from
TForm
procedure btnCheckGoToMenuItemClick(Sender: TObject);
procedure btnContentsClick(Sender: TObject);
procedure btnEnableEditMenuClick(Sender: TObject);
Create the menus
procedure btnInfoClick(Sender: TObject);
procedure btnIOpenClick(Sender: TObject);
procedure btnNewClick(Sender: TObject);
procedure btnOpenClick(Sender: TObject);
procedure btnSaveAsClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure Contents1Click(Sender: TObject);
procedure Copy1Click(Sender: TObject);
procedure Cut1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure Find1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure GoTo1Click(Sender: TObject);
procedure Info1Click(Sender: TObject);
procedure New1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Paste1Click(Sender: TObject);
procedure Print1Click(Sender: TObject);
procedure Printersetup1Click(sender :TObject);
procedure Redo1Click(Sender: TObject);
procedure Replace1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure SearchForhelp1Click(Sender: TObject);
procedure Undo1Click(Sender: TObject);
procedure CreateMenu;
procedure to create the ownerdrawn menusprocedure to create the wonderful menus
procedure WMCommand(Var Msg : TWMCommand);
procedure to catch the WM_COMMAND messageprocedure to catch the WM_COMMAND Message Itīs used to react on menuitemclicks
procedure WMDrawItem(Var Msg : TWMDrawItem);
procedure to catch the WM_DRAWITEM messageprocedure to catch the WM_DRAWITEM message Itīs used to draw the menuitemtexts and icons
procedure WMMeasureItem(Var Msg : TWMMeasureItem);
procedure to catch the WM_MEASUREITEM messageprocedure to catch the WM_MEASUREITEM Message Itīs used to measure the menuitems
procedure WMMenuChar(Var Msg : TWMMenuchar);
procedure to catch the WM_MENUCHAR messageprocedure to catch the WM_MENUCHAR Message Itīs used to react when a menu is open and the user presses a key Example : The itemtext "Printer-Setup" has a line under the "r" of "Printer-Setup" If the User presses the Character "r" an action will occur -> The printer setup dialog opens
Bevel1 : TBevel;
btnCheckGoToMenuItem : TSpeedButton;
btnContents : TSpeedButton;
btnEnableEditMenu : TSpeedButton;
btnInfo : TSpeedButton;
btnNew : TSpeedButton;
btnOpen : TSpeedButton;
btnSave : TSpeedButton;
btnSaveAs : TSpeedButton;
Contents1 : TMenuItem;
Copy1 : TMenuItem;
Cut1 : TMenuItem;
Edit1 : TMenuItem;
Exit1 : TMenuItem;
File1 : TMenuItem;
Find1 : TMenuItem;
GoTo1 : TMenuItem;
Help1 : TMenuItem;
Info1 : TMenuItem;
MainMenu : TMainMenu;
MenuBitmaps : TImageList;
MenuBitmapsChecked : TImageList;
N1 : TMenuItem;
N2 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
New1 : TMenuItem;
Open1 : TMenuItem;
OpenDialog1 : TOpenDialog;
Paste1 : TMenuItem;
Print1 : TMenuItem;
PrinterSetup1 : TMenuItem;
PrinterSetupDialog1 : TPrinterSetupDialog;
Redo1 : TMenuItem;
Replace1 : TMenuItem;
RichEdit : TRichEdit;
Save1 : TMenuItem;
SaveAs1 : TMenuItem;
SaveDialog1 : TSaveDialog;
SearchForhelp1 : TMenuItem;
StatusBar1 : TStatusBar;
ToolBar : TPanel;
Undo1 : TMenuItem;
procedure btnCheckGoToMenuItemClick(Sender: TObject);
procedure btnContentsClick(Sender: TObject);
procedure btnEnableEditMenuClick(Sender: TObject);
Create the menus
procedure btnInfoClick(Sender: TObject);
procedure btnIOpenClick(Sender: TObject);
procedure btnNewClick(Sender: TObject);
procedure btnOpenClick(Sender: TObject);
procedure btnSaveAsClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure Contents1Click(Sender: TObject);
procedure Copy1Click(Sender: TObject);
procedure Cut1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure Find1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure GoTo1Click(Sender: TObject);
procedure Info1Click(Sender: TObject);
procedure New1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Paste1Click(Sender: TObject);
procedure Print1Click(Sender: TObject);
procedure Printersetup1Click(sender :TObject);
procedure Redo1Click(Sender: TObject);
procedure Replace1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure SearchForhelp1Click(Sender: TObject);
procedure Undo1Click(Sender: TObject);
procedure CreateMenu;
procedure to create the ownerdrawn menus
procedure to create the wonderful menus
procedure WMCommand(Var Msg : TWMCommand);
procedure to catch the WM_COMMAND message
procedure to catch the WM_COMMAND Message Itīs used to react on menuitemclicks
procedure WMDrawItem(Var Msg : TWMDrawItem);
procedure to catch the WM_DRAWITEM message
procedure to catch the WM_DRAWITEM message Itīs used to draw the menuitemtexts and icons
procedure WMMeasureItem(Var Msg : TWMMeasureItem);
procedure to catch the WM_MEASUREITEM message
procedure to catch the WM_MEASUREITEM Message Itīs used to measure the menuitems
procedure WMMenuChar(Var Msg : TWMMenuchar);
procedure to catch the WM_MENUCHAR message
procedure to catch the WM_MENUCHAR Message Itīs used to react when a menu is open and the user presses a key Example : The itemtext "Printer-Setup" has a line under the "r" of "Printer-Setup" If the User presses the Character "r" an action will occur -> The printer setup dialog opens
Bevel1 : TBevel;
btnCheckGoToMenuItem : TSpeedButton;
btnContents : TSpeedButton;
btnEnableEditMenu : TSpeedButton;
btnInfo : TSpeedButton;
btnNew : TSpeedButton;
btnOpen : TSpeedButton;
btnSave : TSpeedButton;
btnSaveAs : TSpeedButton;
Contents1 : TMenuItem;
Copy1 : TMenuItem;
Cut1 : TMenuItem;
Edit1 : TMenuItem;
Exit1 : TMenuItem;
File1 : TMenuItem;
Find1 : TMenuItem;
GoTo1 : TMenuItem;
Help1 : TMenuItem;
Info1 : TMenuItem;
MainMenu : TMainMenu;
MenuBitmaps : TImageList;
MenuBitmapsChecked : TImageList;
N1 : TMenuItem;
N2 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
New1 : TMenuItem;
Open1 : TMenuItem;
OpenDialog1 : TOpenDialog;
Paste1 : TMenuItem;
Print1 : TMenuItem;
PrinterSetup1 : TMenuItem;
PrinterSetupDialog1 : TPrinterSetupDialog;
Redo1 : TMenuItem;
Replace1 : TMenuItem;
RichEdit : TRichEdit;
Save1 : TMenuItem;
SaveAs1 : TMenuItem;
SaveDialog1 : TSaveDialog;
SearchForhelp1 : TMenuItem;
StatusBar1 : TStatusBar;
ToolBar : TPanel;
Undo1 : TMenuItem;