Class TfrmMain (unit Unit1)

Inherits from

TForm

Constructors



Functions

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


Properties

Events

Variables

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;



Constructors


Functions


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


Properties


Events


Variables


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;