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

lcl: restore public TToolButton.Click method

Browse Source 
git-svn-id: trunk@35202 -
This commit is contained in:
paul 2012-02-07 07:35:50 +00:00
parent b34b546678
commit 7111abfa8d
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/comctrls.pp
View File

@ -1854,6 +1854,7 @@ type
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
function CheckMenuDropdown: Boolean; virtual; function CheckMenuDropdown: Boolean; virtual;
procedure Click; override;
procedure GetCurrentIcon(var ImageList: TCustomImageList; procedure GetCurrentIcon(var ImageList: TCustomImageList;
var TheIndex: integer); virtual; var TheIndex: integer); virtual;
procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer; procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer;

5
lcl/include/toolbutton.inc
View File

@ -758,6 +758,11 @@ begin
Result := FToolBar.CheckMenuDropdown(Self); Result := FToolBar.CheckMenuDropdown(Self);
end; end;
procedure TToolButton.Click;
begin
inherited Click;
end;
procedure TToolButton.GetCurrentIcon(var ImageList: TCustomImageList; procedure TToolButton.GetCurrentIcon(var ImageList: TCustomImageList;
var TheIndex: integer); var TheIndex: integer);
begin begin