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

LCL: Delete TCustomSpeedButton.DoMouseUp. Part of merge request !21.

Browse Source
This commit is contained in:
Juha 2022-06-03 12:51:23 +03:00
parent c98fc1c368
commit 72fda31b81
2 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/buttons.pp
View File

@ -367,7 +367,6 @@ type
function DialogChar(var Message: TLMKey): boolean; override;
procedure CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer; WithThemeSpace: Boolean); override;
procedure DoMouseUp(var Message: TLMMouse; Button: TMouseButton); override;
procedure MeasureDraw(Draw: boolean; PaintRect: TRect;
out PreferredWidth, PreferredHeight: integer);
procedure MouseEnter; override;

11
lcl/include/speedbutton.inc
View File

@ -914,20 +914,9 @@ begin
Images := nil;
end;
{------------------------------------------------------------------------------
TCustomSpeedButton DoMouseUp "Event Handler"
------------------------------------------------------------------------------}
procedure TCustomSpeedButton.DoMouseUp(var Message: TLMMouse; Button: TMouseButton);
begin
if not (csNoStdEvents in ControlStyle) then
with Message do
MouseUp(Button, KeysToShiftState(Keys), XPos, YPos);
end;
procedure TCustomSpeedButton.WMLButtonDown(var Message: TLMLButtonDown);
begin
inherited;
// because csClickEvents is not set no csClicked is set in the inherited method
Include(FControlState, csClicked);
end;