Class TMBMenu (unit MBMenu)

Inherits from

TMainMenu

Constructors


constructor Create(AOwner:TComponent);

Public declarations


Functions

procedure AddRecentFile(FileName:String);

first item as default

procedure AddRMenuItem(Item:String);

separator

destructor Destroy;


function GetAppName:String;


procedure ShowRecent;

WORK - extending ListCount

procedure UstListCount(nListCount:integer);


procedure RIClick(Sender: TObject);


Properties

property ListCount : Integer

Published declarations

Events

event OnRecentClick : TNotifyEvent


Variables

FListCount : integer;


FOnRecentClick : TNotifyEvent;


FReg : TRegIniFile;

Protected declarations

FRegKey : String;



Constructors


constructor Create(AOwner:TComponent);

Public declarations


Functions


procedure AddRecentFile(FileName:String);

first item as default


procedure AddRMenuItem(Item:String);

separator


destructor Destroy;


function GetAppName:String;


procedure ShowRecent;

WORK - extending ListCount


procedure UstListCount(nListCount:integer);


procedure RIClick(Sender: TObject);


Properties


property ListCount : Integer

Published declarations


Events


event OnRecentClick : TNotifyEvent


Variables


FListCount : integer;


FOnRecentClick : TNotifyEvent;


FReg : TRegIniFile;

Protected declarations


FRegKey : String;