| Class TMainForm (unit Sis) |
TForm
| Constructors |
| Functions |
procedure AlwaysontopClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure NormalClick(Sender: TObject);Get the file name and path from hint
procedure CreateNewMainMenu;
procedure CreateNewMenuItem;
procedure ExecuteFile(Command,Params,WorkDir: String);
procedure GenericSubMenuItemClick(Sender:TMenuItem);Generic MenuItem click Can either set up a new MenuItem toolbar or execute a file
procedure InitializeMenus;
procedure ParseExecutableAndCommandLine(var Command, Params: string);
function ParseMenuCaption(S: string): string;
function ParseMenuExe(S: string): string;
procedure ParseMenuInfo(S: string);| Properties |
| Events |
| Variables |
Alwaysontop : TMenuItem;
MainMenu : TMainMenu;
Normal : TMenuItem;
Style1 : TMenuItem;
AttachEventHandler : Boolean;
EnableIncMenuItem : Boolean;
MenuCaption : String;
MenuExecutable : String;
MenuNumber : array[0..6] of Integer;
NewMenuItem : TMenuItem;
NumMenusOnLevel2 : Integer;
NumMenusOnLevel3 : Integer;
NumMenusOnLevel4 : Integer;
NumMenusOnLevel5 : Integer;
SubMenuLevel : Integer;| Constructors |
| Functions |
procedure AlwaysontopClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure NormalClick(Sender: TObject);events
Get the file name and path from hint
procedure CreateNewMainMenu;if length
procedure CreateNewMenuItem;
procedure ExecuteFile(Command,Params,WorkDir: String);generic execute file routine
procedure GenericSubMenuItemClick(Sender:TMenuItem);generic event handler for handling menu clicks
Generic MenuItem click Can either set up a new MenuItem toolbar or execute a file
procedure InitializeMenus;Private function & procedure declarations
procedure ParseExecutableAndCommandLine(var Command, Params: string);
function ParseMenuCaption(S: string): string;
function ParseMenuExe(S: string): string;
procedure ParseMenuInfo(S: string);Read line out of the file
| Properties |
| Events |
| Variables |
Alwaysontop : TMenuItem;
MainMenu : TMainMenu;
Normal : TMenuItem;
Style1 : TMenuItem;
AttachEventHandler : Boolean;
EnableIncMenuItem : Boolean;
MenuCaption : String;
MenuExecutable : String;
MenuNumber : array[0..6] of Integer;
NewMenuItem : TMenuItem;
NumMenusOnLevel2 : Integer;
NumMenusOnLevel3 : Integer;
NumMenusOnLevel4 : Integer;
NumMenusOnLevel5 : Integer;
SubMenuLevel : Integer;Private variable declarations