From 5ff5d3e6ff78d286a348e7969d8a6f7659838ab3 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Fri, 13 Mar 2009 15:27:22 +0000
Subject: [PATCH] Changed (again): Group.SelectedItem is now public, allowing a
 default selection

---
 Source/X2CLMenuBar.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Source/X2CLMenuBar.pas b/Source/X2CLMenuBar.pas
index 78427e4..40ae82e 100644
--- a/Source/X2CLMenuBar.pas
+++ b/Source/X2CLMenuBar.pas
@@ -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;