mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Setting toolbar button size.

Browse source
This commit is contained in:
cobines 2010-12-24 21:50:54 +00:00
commit 544f52cfa1
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
components/KASToolBar/kastoolbar.pas
View file

@ -330,12 +330,12 @@ end;
procedure TKASToolBar.SetButtonHeight(const AValue: Integer);
begin
SetButtonSize(AValue, ButtonHeight);
SetButtonSize(ButtonWidth, AValue);
end;
procedure TKASToolBar.SetButtonWidth(const AValue: Integer);
begin
SetButtonSize(ButtonWidth, AValue);
SetButtonSize(AValue, ButtonHeight);
end;
{
@ -436,9 +436,6 @@ begin
ChangeH := ButtonHeight <> NewButtonHeight;
if not (ChangeW or ChangeH) then Exit;
if FUpdateCount > 0 then Exit;
if [csLoading, csDestroying] * ComponentState <> [] then Exit;
// set all childs to ButtonWidth ButtonHeight
BeginUpdate;
try
@ -447,6 +444,12 @@ begin
// without real button size update
inherited SetButtonSize(NewButtonWidth, NewButtonHeight);
// After setting FButtonWidth and FButtonHeight we can exit
// if real resizing of controls is not needed.
// We're under influence of BeginUpdate, so it is at least 1.
if FUpdateCount > 1 then Exit;
if [csLoading, csDestroying] * ComponentState <> [] then Exit;
for I:= ControlCount - 1 downto 0 do
begin
CurControl := Controls[I];
@ -638,4 +641,4 @@ begin
ThemeServices.DrawElement(Canvas.GetUpdatedHandle([csBrushValid, csPenValid]), Details, DividerRect);
end;
end.
end.