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

fix bug in TToolPanel on show ToolPanelSetupForm

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2350 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-03-17 17:16:29 +00:00
parent 625a4e0e99
commit f7ccd67805
4 changed files with 165 additions and 146 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/rxtoolbar.pas
View File

@ -902,7 +902,11 @@ begin
if not (csLoading in ComponentState) then
for i:=0 to FToolbarItems.Count - 1 do
FToolbarItems[i].FButton.Align:=BtnAl2Align[AValue];
begin
// if Assigned(FToolbarItems[i]) then
// if Assigned(FToolbarItems[i].FButton) then
FToolbarItems[i].FButton.Align:=BtnAl2Align[AValue];
end;
end;
procedure TToolPanel.SetImageList(const AValue: TImageList);