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

LCL: make TCustomButton.Click public. Issue #25870.

Browse Source 
git-svn-id: trunk@44451 -
This commit is contained in:
juha 2014-03-16 22:45:52 +00:00
parent 434c770d67
commit e5758e1aea
3 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/rtticontrols/rttictrls.pas
View File

@ -835,10 +835,10 @@ Type
procedure SetLink(const AValue: TPropertyLink);
protected
function LinkTestEditor(const ATestEditor: TPropertyEditor): Boolean; virtual;
procedure Click; override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
procedure Click; override;
property Link: TPropertyLink read FLink write SetLink;
end;

11
lcl/include/buttons.inc
View File

@ -341,14 +341,3 @@ begin
TWSButtonClass(WidgetSetClass).SetDefault(Self, FActive);
end;
{ TButton }
procedure TButton.Click;
begin
inherited Click;
end;

4
lcl/stdctrls.pp
View File

@ -1104,7 +1104,6 @@ type
procedure UpdateFocus(AFocused: Boolean);
protected
class procedure WSRegisterClass; override;
procedure Click; override;
procedure CreateWnd; override;
procedure CreateParams(var Params: TCreateParams); override;
procedure ControlKeyDown(var Key: Word; Shift: TShiftState); override;
@ -1120,6 +1119,7 @@ type
procedure UpdateDefaultCancel;
public
constructor Create(TheOwner: TComponent); override;
procedure Click; override;
procedure ExecuteDefaultAction; override;
procedure ExecuteCancelAction; override;
procedure ActiveDefaultControlChanged(NewControl: TControl); override;
@ -1140,8 +1140,6 @@ type
{ TButton }
TButton = class(TCustomButton)
public
procedure Click; override;
published
property Action;
property Align;