paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 23:49:28 +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; function DialogChar(var Message: TLMKey): boolean; override;
procedure CalculatePreferredSize(var PreferredWidth, procedure CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer; WithThemeSpace: Boolean); override; PreferredHeight: integer; WithThemeSpace: Boolean); override;
procedure DoMouseUp(var Message: TLMMouse; Button: TMouseButton); override;
procedure MeasureDraw(Draw: boolean; PaintRect: TRect; procedure MeasureDraw(Draw: boolean; PaintRect: TRect;
out PreferredWidth, PreferredHeight: integer); out PreferredWidth, PreferredHeight: integer);
procedure MouseEnter; override; procedure MouseEnter; override;

11
lcl/include/speedbutton.inc
View File

@ -914,20 +914,9 @@ begin
Images := nil; Images := nil;
end; 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); procedure TCustomSpeedButton.WMLButtonDown(var Message: TLMLButtonDown);
begin begin
inherited; inherited;
// because csClickEvents is not set no csClicked is set in the inherited method // because csClickEvents is not set no csClicked is set in the inherited method
Include(FControlState, csClicked); Include(FControlState, csClicked);
end; end;