paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 00:40:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* patch from Florian

Browse Source 
git-svn-id: trunk@9973 -
This commit is contained in:
marc 2006-09-24 22:55:42 +00:00
parent cc71b7af9a
commit 4c9b63857c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/lmessages.pp
View File

@ -590,9 +590,15 @@ type
Msg: cardinal;
Button: Word; // 1=left, 2=right, 3=middle
WheelDelta: SmallInt; // -1 for up, 1 for down
{$ifdef cpu64}
Unused1 : Longint;
{$endif cpu64}
X: Smallint; // under gtk this is longint
Y: Smallint; // ditto
Result: Longint; // to fit std message size
{$ifdef cpu64}
Unused2 : Longint;
{$endif cpu64}
Result: LRESULT; // to fit std message size
UserData: pointer; // used under gtk
State: TShiftState; // in win is the equivalent of button
end;