Class TMainForm (unit Sis) |
Inherits from
TForm
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
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
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
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