Class TOptionBox97 (unit OptionBox97)

Inherits from

TToolbarButton97

Constructors


constructor Create (AOwner : TComponent);



Functions

destructor Destroy;


procedure Initialize;


procedure Click;


procedure Loaded;


procedure AssignEvents;


procedure AssignMenus;


procedure ButtonClick (Sender : TObject);


function GetDropDownMenu : TPopupMenu;


procedure MenuItemClick (Sender : TObject);


procedure SetChangeCaptionOnSelect (value : boolean);


procedure SetDropDownMenu (AMenu : TPopupMenu);


procedure SetItemIndex (value : integer);


procedure SetItems (AItems : TStrings);


procedure StringListChanged (Sender : TObject);


Properties

property ChangeCaptionOnSelect : boolean


property DropDownMenu : TPopupMenu


property DropDownOnClick : boolean


property ItemIndex : integer


property Items : TStrings


Events

event OnItemSelected : TNotifyEvent


Variables

FChangeCaptionOnSelect : boolean;


FDropDownOnClick : boolean;


FItemIndex : integer;


FItems : TStrings;


FOldOnClicks : TList;


FOnItemSelected : TNotifyEvent;


OldOnClick : TNotifyEvent;


PopupMenu : TPopupMenu;



Constructors


constructor Create (AOwner : TComponent);


Functions


destructor Destroy;


procedure Initialize;


procedure Click;


procedure Loaded;


procedure AssignEvents;


procedure AssignMenus;


procedure ButtonClick (Sender : TObject);


function GetDropDownMenu : TPopupMenu;


procedure MenuItemClick (Sender : TObject);


procedure SetChangeCaptionOnSelect (value : boolean);


procedure SetDropDownMenu (AMenu : TPopupMenu);


procedure SetItemIndex (value : integer);


procedure SetItems (AItems : TStrings);


procedure StringListChanged (Sender : TObject);


Properties


property ChangeCaptionOnSelect : boolean


property DropDownMenu : TPopupMenu


property DropDownOnClick : boolean


property ItemIndex : integer


property Items : TStrings


Events


event OnItemSelected : TNotifyEvent


Variables


FChangeCaptionOnSelect : boolean;


FDropDownOnClick : boolean;


FItemIndex : integer;


FItems : TStrings;


FOldOnClicks : TList;


FOnItemSelected : TNotifyEvent;


OldOnClick : TNotifyEvent;


PopupMenu : TPopupMenu;