paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 10:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Delphi compat, TButton.Click is public

Browse Source 
git-svn-id: trunk@6978 -
This commit is contained in:
marc 2005-03-18 01:18:44 +00:00
parent b9a3f7efef
commit cc648ec617
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/buttons.pp
View File

@ -97,6 +97,8 @@ type
{ TButton }
TButton = class(TCustomButton)
public
procedure Click; override;
published
property Action;
property Align;
@ -397,6 +399,9 @@ end.
{ =============================================================================
$Log$
Revision 1.92 2005/03/18 01:18:44 marc
* Delphi compat, TButton.Click is public
Revision 1.91 2005/03/07 00:52:51 mattias
various Delphi compatibilities from C Western

12
lcl/include/buttons.inc
View File

@ -222,9 +222,21 @@ begin
Result:=false;
end;
{ TButton }
procedure TButton.Click;
begin
inherited Click;
end;
{ =============================================================================
$Log$
Revision 1.42 2005/03/18 01:18:44 marc
* Delphi compat, TButton.Click is public
Revision 1.41 2005/02/21 13:54:26 mattias
added navigation key check for up/down already handled