paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 11:39:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: TSpeedButton: implemented AutoSize=true

Browse Source 
git-svn-id: trunk@34398 -
This commit is contained in:
mattias 2011-12-25 00:05:58 +00:00
parent b8da5fdca9
commit 774703c6a9
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/buttons.pp
View File

@ -301,6 +301,8 @@ type
function GetNumGlyphs: Integer; function GetNumGlyphs: Integer;
procedure GlyphChanged(Sender: TObject); procedure GlyphChanged(Sender: TObject);
function DialogChar(var Message: TLMKey): boolean; override; function DialogChar(var Message: TLMKey): boolean; override;
procedure CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer; WithThemeSpace: Boolean); override;
procedure MeasureDraw(Draw: boolean; PaintRect: TRect; procedure MeasureDraw(Draw: boolean; PaintRect: TRect;
out PreferredWidth, PreferredHeight: integer); out PreferredWidth, PreferredHeight: integer);
procedure MouseEnter; override; procedure MouseEnter; override;

9
lcl/include/speedbutton.inc
View File

@ -490,6 +490,15 @@ begin
Result := inherited DialogChar(Message); Result := inherited DialogChar(Message);
end; end;
procedure TCustomSpeedButton.CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer; WithThemeSpace: Boolean);
var
r: TRect;
begin
r:=Rect(0,0,0,0);
MeasureDraw(false,r,PreferredWidth,PreferredHeight);
end;
procedure TCustomSpeedButton.MeasureDraw(Draw: boolean; procedure TCustomSpeedButton.MeasureDraw(Draw: boolean;
PaintRect: TRect; out PreferredWidth, PreferredHeight: integer); PaintRect: TRect; out PreferredWidth, PreferredHeight: integer);
var var