paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 13:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-fpgui: Implement TButton.Default behaviour. Issue #35478, patch from Graeme.

Browse Source 
git-svn-id: trunk@61121 -
This commit is contained in:
juha 2019-05-03 19:45:23 +00:00
parent 4566e63758
commit a29469dc6a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/fpgui/fpguiwsstdctrls.pp
View File

@ -187,6 +187,7 @@ type
class procedure Invalidate(const AWinControl: TWinControl); override;
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
class procedure SetText(const AWinControl: TWinControl; const AText: String); override;
class procedure SetDefault(const AButton: TCustomButton; ADefault: Boolean); override;
end;
{ TFpGuiWSCustomCheckBox }
@ -484,6 +485,11 @@ begin
TFPGUIPrivateButton(AWinControl.Handle).SetText(AText);
end;
class procedure TFpGuiWSButton.SetDefault(const AButton: TCustomButton; ADefault: Boolean);
begin
TFPGUIPrivateButton(AButton.Handle).Button.Default := ADefault;
end;
{------------------------------------------------------------------------------
Method: TFpGuiWSButton.CreateHandle
Params: None