paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Calculate CoolBand text size properly in TCoolbar. Issue #27211, patch from Vojtech Cihak.

Browse Source 
git-svn-id: trunk@47248 -
This commit is contained in:
juha 2014-12-26 10:09:25 +00:00
parent ff5adefc36
commit b419b6d234
2 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/comctrls.pp
View File

@ -2435,7 +2435,6 @@ type
procedure FontChanged(Sender: TObject); override;
function IsFirstAtRow(ABand: Integer): Boolean;
function IsRowEnd(ALeft, AVisibleIndex: Integer): Boolean;
procedure Loaded; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

8
lcl/include/coolbar.inc
View File

@ -706,6 +706,7 @@ begin
inherited CreateWnd;
FCursorBkgnd := Cursor;
DoFontChanged;
CalculateAndAlign;
end;
procedure TCustomCoolBar.DoFontChanged;
@ -818,13 +819,6 @@ begin
Result := (AVisibleIndex < length(FVisiBands)-1) and RowEndHelper(ALeft, AVisibleIndex);
end;
procedure TCustomCoolBar.Loaded;
begin
inherited Loaded;
//DebugLn('TCoolBar.Loaded');
FBands.Update(Nil);
end;
procedure TCustomCoolBar.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var aBand: Integer;
aGrabber: Boolean;