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

added LM_MOUSEWHEEL

Browse Source 
git-svn-id: trunk@10970 -
This commit is contained in:
andrew 2007-04-18 22:55:51 +00:00
parent 7de0398b2a
commit 5bb7426696
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lcl/lclmessageglue.pas
View File

@ -44,6 +44,7 @@ function LCLSendMoveMsg(const Target: TControl; XPos, YPos: SmallInt; MoveType:
function LCLSendMouseMoveMsg(const Target: TControl; XPos, YPos: SmallInt; ShiftState: TShiftState = []): PtrInt;
function LCLSendMouseDownMsg(const Target: TControl; XPos, YPos: SmallInt; Button: TMouseButton; ShiftState: TShiftState = []): PtrInt;
function LCLSendMouseUpMsg(const Target: TControl; XPos, YPos: SmallInt; Button: TMouseButton; ShiftState: TShiftState = []): PtrInt;
function LCLSendMouseWheelMsg(const Target: TControl; XPos, YPos, WheelDelta: SmallInt; ShiftState: TShiftState = []): PtrInt;
function LCLSendCaptureChangedMsg(const Target: TControl): PtrInt;
function LCLSendSelectionChangedMsg(const Target: TControl): PtrInt;
function LCLSendDestroyMsg(const Target: TControl): PtrInt;
@ -399,6 +400,36 @@ begin
Result := DeliverMessage(Target, Mess);
end;
{******************************************************************************
* *
* LCLSendMouseWheelMsg *
* *
* Returns : 0 to accept the message, non-zero to reject the message *
* *
* Params *
* *
* Target : The Control that will recieve the message LM_xBUTTONUP *
* XPos, YPos : The Mouses X and Y position relative to the control. *
* WheelDelta : -1 for Up, 1 for Down *
* ShiftState : Modifier keys that are pressed at the time of the event *
* *
******************************************************************************}
function LCLSendMouseWheelMsg(const Target: TControl; XPos, YPos,
WheelDelta: SmallInt; ShiftState: TShiftState): PtrInt;
var
Mess: TLMMouseEvent;
Keys: PtrInt;
begin
FillChar(Mess, SizeOf(Mess), 0);
Mess.Msg := LM_MOUSEWHEEL;
Mess.X := XPos;
Mess.Y := YPos;
Mess.WheelDelta := WheelDelta;
Result := DeliverMessage(Target, Mess);
end;
{******************************************************************************
* *
* LCLSendCaptureChangedMsg *