1
0
mirror of synced 2024-11-21 17:43:51 +00:00

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

This commit is contained in:
Mark van Renswoude 2009-03-13 15:27:22 +00:00
parent c4efc9ca49
commit 5ff5d3e6ff

View File

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