pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxViewsPanel - select first item on load

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2590 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-11-01 14:11:48 +00:00
parent 683521530b
commit be31f78ae8
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/rxviewspanel.pas
View File

@ -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);