From be31f78ae83ad04fff15d2a5ba1bd3f074359a2b Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 1 Nov 2012 14:11:48 +0000
Subject: [PATCH] RxViewsPanel - select first item on load

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2590 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxviewspanel.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/rx/rxviewspanel.pas b/components/rx/rxviewspanel.pas
index a50919f83..74aa79b31 100644
--- a/components/rx/rxviewspanel.pas
+++ b/components/rx/rxviewspanel.pas
@@ -240,6 +240,8 @@ begin
   inherited Loaded;
   FItems.Update(nil);
   FItems.UpdateImages;
+  if (FItems.Count>0) and (FItemIndex>-1) and (FItemIndex < FItems.Count) then
+    FItems[FItemIndex].FButton.Down:=true;
 end;
 
 constructor TRxViewsPanel.Create(AOwner: TComponent);