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

lcl: use TButtonActionLink for TButtonControl (issue #0024435)

Browse Source 
git-svn-id: trunk@41648 -
This commit is contained in:
paul 2013-06-10 06:44:07 +00:00
parent b7f6c0283e
commit 491eae637b
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/buttoncontrol.inc
View File

@ -26,6 +26,11 @@ begin
RegisterButtonControl; RegisterButtonControl;
end; end;
function TButtonControl.GetActionLinkClass: TControlActionLinkClass;
begin
Result := TButtonActionLink;
end;
function TButtonControl.GetChecked: Boolean; function TButtonControl.GetChecked: Boolean;
begin begin
GetChecked := False; GetChecked := False;
@ -73,7 +78,8 @@ end;
procedure TButtonActionLink.SetChecked(Value: Boolean); procedure TButtonActionLink.SetChecked(Value: Boolean);
begin begin
if IsCheckedLinked then begin if IsCheckedLinked then
begin
FClientButton.ClicksDisabled := True; FClientButton.ClicksDisabled := True;
try try
FClientButton.Checked := Value; FClientButton.Checked := Value;

1
lcl/stdctrls.pp
View File

@ -1049,6 +1049,7 @@ type
procedure WMDefaultClicked(var Message: TLMessage); message LM_CLICKED; procedure WMDefaultClicked(var Message: TLMessage); message LM_CLICKED;
protected protected
class procedure WSRegisterClass; override; class procedure WSRegisterClass; override;
function GetActionLinkClass: TControlActionLinkClass; override;
function GetChecked: Boolean; virtual; function GetChecked: Boolean; virtual;
procedure SetChecked(Value: Boolean); virtual; procedure SetChecked(Value: Boolean); virtual;
procedure DoOnChange; virtual; procedure DoOnChange; virtual;