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

fix TToolBar on frames

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1194 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2010-03-31 16:49:56 +00:00
parent cae5e5fac1
commit 6647116d53
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/rxtoolbar.pas
View File

@ -674,7 +674,7 @@ procedure TToolbarButton.UpdateSize;
var
AWidth:integer;
begin
if csLoading in TToolbarItems(FOwnerItem.Collection).FToolPanel.ComponentState then exit;
{ if csLoading in TToolbarItems(FOwnerItem.Collection).FToolPanel.ComponentState then exit;
if Assigned(TToolbarItems(FOwnerItem.Collection).FToolPanel.FImageList) then
begin
@ -683,9 +683,9 @@ begin
AWidth:= AWidth + Canvas.TextWidth(Caption) + Spacing;
end
else
AWidth:=Canvas.TextWidth(Caption);
AWidth:=Canvas.TextWidth(Caption);}
SetBounds(Left, Top, AWidth, Height);
SetBounds(Left, Top, Width, Height);
Invalidate;
end;