Changed: Group.SelectedItem is now public, allowing a default selection
This commit is contained in:
parent
5574566444
commit
432295bcb8
|
@ -319,13 +319,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;
|
||||||
|
|
Loading…
Reference in New Issue