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

LCL/Toolbar: Remove redundant method TToolbar.ToolButtonDown, issue #40216

Browse Source
This commit is contained in:
wp_xyz 2023-04-18 13:56:58 +02:00
parent 3c8ad48f60
commit dc299031b7
3 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/comctrls.pp
View File

@ -2292,7 +2292,6 @@ type
procedure SetShowCaptions(const AValue: Boolean);
procedure SetTransparent(const AValue: Boolean);
procedure SetWrapable(const AValue: Boolean);
procedure ToolButtonDown(AButton: TToolButton; NewDown: Boolean);
procedure ImageListChange(Sender: TObject);
procedure DisabledImageListChange(Sender: TObject);
procedure HotImageListChange(Sender: TObject);

5
lcl/include/toolbar.inc
View File

@ -191,11 +191,6 @@ begin
SetButtonSize(AValue,ButtonHeight);
end;
procedure TToolBar.ToolButtonDown(AButton: TToolButton; NewDown: Boolean);
begin
AButton.Down:=NewDown;
end;
procedure TToolBar.ImageListChange(Sender: TObject);
begin
if (Sender = Images) then UpdateVisibleBar;

3
lcl/include/toolbutton.inc
View File

@ -646,9 +646,6 @@ begin
CurButton.Invalidate;
end;
end;
if Assigned(FToolBar) then
FToolBar.ToolButtonDown(Self, FDown);
end;
procedure TToolButton.SetDropdownMenu(Value: TPopupMenu);