GitHub-Mirror/x2cl
1
0
Fork 0
mirror of synced 2024-11-22 01:53:50 +00:00
Code Issues Projects Releases Wiki Activity

Changed (again): Group.SelectedItem is now public, allowing a default selection

Browse Source
This commit is contained in:
Mark van Renswoude 2009-03-13 15:27:22 +00:00
parent c4efc9ca49
commit 5ff5d3e6ff
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/X2CLMenuBar.pas
View File

@ -370,13 +370,13 @@ type
procedure InternalSetExpanded(const Value: Boolean); procedure InternalSetExpanded(const Value: Boolean);
procedure ItemsNotify(Sender: TObject; Item: TCollectionItem; Action: TCollectionNotification); procedure ItemsNotify(Sender: TObject; Item: TCollectionItem; Action: TCollectionNotification);
procedure ItemsUpdate(Sender: TObject; Item: TCollectionItem); procedure ItemsUpdate(Sender: TObject; Item: TCollectionItem);
property SelectedItem: Integer read GetSelectedItem write FSelectedItem;
public public
constructor Create(Collection: TCollection); override; constructor Create(Collection: TCollection); override;
destructor Destroy(); override; destructor Destroy(); override;
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
property SelectedItem: Integer read GetSelectedItem write FSelectedItem;
published published
property Expanded: Boolean read FExpanded write SetExpanded; property Expanded: Boolean read FExpanded write SetExpanded;
property Items: TX2MenuBarItems read FItems write SetItems; property Items: TX2MenuBarItems read FItems write SetItems;