Class THistMenu (unit HistMenu)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

procedure Add(Caption:String; Tag: LongInt);


procedure RegRestore;


procedure RegSave;


procedure InsertSeparator;


procedure OnItemClick(Sender: TObject);


procedure SetAddSeparator(Value: boolean);


procedure SetMaxHistory(Value: integer);


procedure SetMenuItem(Value: TMenuItem);


Properties

property AddSeparator : boolean


property BaseKey : String


property ItemCount : integer


property MaxHistory : integer


property MenuItem : TMenuItem

Published declarations

Events

event OnClick : THistMenuEvent


Variables

FAddSeparator : boolean;


FBaseKey : String;


FFirstIndex : integer;


FItemCount : integer;


FMaxHistory : integer;


FMenuItem : TMenuItem;

Private declarations

FOnClick : THistMenuEvent;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


procedure Add(Caption:String; Tag: LongInt);


procedure RegRestore;


procedure RegSave;


procedure InsertSeparator;


procedure OnItemClick(Sender: TObject);


procedure SetAddSeparator(Value: boolean);


procedure SetMaxHistory(Value: integer);


procedure SetMenuItem(Value: TMenuItem);


Properties


property AddSeparator : boolean


property BaseKey : String


property ItemCount : integer


property MaxHistory : integer


property MenuItem : TMenuItem

Published declarations


Events


event OnClick : THistMenuEvent


Variables


FAddSeparator : boolean;


FBaseKey : String;


FFirstIndex : integer;


FItemCount : integer;


FMaxHistory : integer;


FMenuItem : TMenuItem;

Private declarations


FOnClick : THistMenuEvent;