paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Change Message function return type to be Win64 compatible

Browse Source 
git-svn-id: trunk@17304 -
This commit is contained in:
pierre 2011-04-11 10:19:04 +00:00
parent 5595aafa90
commit 9420a8ddf4
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/graph/src/win32/wincrt.pp
View File

@ -139,7 +139,7 @@ unit wincrt;
ctrlkey : boolean = false;
shiftkey : boolean = false;
function msghandler(Window: HWnd; AMessage:UInt; WParam : WParam; LParam: LParam): Longint; stdcall;
function msghandler(Window: HWnd; AMessage:UInt; WParam : WParam; LParam: LParam): LResult; stdcall;
begin
case amessage of

2
packages/graph/src/win32/winmouse.pp
View File

@ -125,7 +125,7 @@ unit winmouse;
Windows.ShowCursor(false);
end;
function msghandler(Window: HWnd; AMessage:UInt; WParam : WParam; LParam: LParam): Longint; stdcall;
function msghandler(Window: HWnd; AMessage:UInt; WParam : WParam; LParam: LParam): LResult; stdcall;
begin
{ we catch the double click messages here too, }