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

lcl: protected TControl.DoMouseUp/Down

Browse Source
This commit is contained in:
mattias 2022-05-07 20:39:15 +02:00
parent 0716a2c3bd
commit ebc1ea2655
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/buttons.pp
View File

@ -349,7 +349,6 @@ type
procedure CMButtonPressed(var Message: TLMessage); message CM_BUTTONPRESSED;
procedure CMEnabledChanged(var Message: TLMessage); message CM_ENABLEDCHANGED;
private
procedure DoMouseUp(var Message: TLMMouse; Button: TMouseButton);
procedure WMLButtonDown(Var Message: TLMLButtonDown); message LM_LBUTTONDOWN;
procedure WMLButtonUp(var Message: TLMLButtonUp); message LM_LBUTTONUP;
procedure WMLButtonDBLCLK(Var Message: TLMLButtonDblClk); message LM_LBUTTONDBLCLK;
@ -368,6 +367,7 @@ 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;

5
lcl/controls.pp
View File

@ -1248,9 +1248,6 @@ type
function IsVisibleStored: Boolean;
procedure DoBeforeMouseMessage;
procedure DoConstrainedResize(var NewLeft, NewTop, NewWidth, NewHeight: Integer);
procedure DoMouseDown(var Message: TLMMouse; Button: TMouseButton;
Shift: TShiftState);
procedure DoMouseUp(var Message: TLMMouse; Button: TMouseButton);
procedure SetAccessibleName(AValue: TCaption);
procedure SetAccessibleDescription(AValue: TCaption);
procedure SetAccessibleValue(AValue: TCaption);
@ -1421,6 +1418,8 @@ type
procedure TripleClick; virtual;
procedure QuadClick; virtual;
function GetMousePosFromMessage(const MessageMousePos: TSmallPoint): TPoint;
procedure DoMouseDown(var Message: TLMMouse; Button: TMouseButton; Shift: TShiftState); virtual;
procedure DoMouseUp(var Message: TLMMouse; Button: TMouseButton); virtual;
procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); virtual;
procedure MouseMove(Shift: TShiftState; X,Y: Integer); virtual;
procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); virtual;