Class TMainForm (unit Sis)

Inherits from

TForm

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


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