paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, CoolBar: Revert FControl.Align back to alNone. Set control width also when autosizing.

Browse Source 
git-svn-id: trunk@40497 -
This commit is contained in:
juha 2013-03-06 16:43:45 +00:00
parent a337e0c6f4
commit b7b1d42401
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/coolbar.inc
View File

@ -169,7 +169,6 @@ end;
procedure TCoolBand.SetControlWidth;
begin
if FControl is TCustomCheckBox then Exit;
if FCoolBar.AutoSize then Exit;
if FCoolBar.BiDiMode = bdLeftToRight then
FControl.Width := Width - FControl.Left - 6
else if Assigned(FTextLabel) then
@ -181,6 +180,7 @@ end;
procedure TCoolBand.UpdControl(aLabelWidth: integer);
begin
if FCoolBar = Nil then Exit;
Inc(FCoolBar.FUpdateCount);
if Assigned(FTextLabel) then
begin
if Assigned(FControl) then
@ -196,7 +196,7 @@ begin
if Assigned(FControl) then
begin
// Calculate left positions and anchoring for text label and control
FControl.Align := alCustom;
FControl.Align := alNone; // alCustom does not work here
FControl.Parent := FCoolBar;
FControl.FreeNotification(FCoolBar);
FControl.Top := FTop;
@ -225,6 +225,7 @@ begin
FControl.AnchorSide[akTop].Control := Nil;
SetControlWidth;
end;
Dec(FCoolBar.FUpdateCount);
end;
procedure TCoolBand.SetControl(aValue: TControl);