* Change Message function return type to be Win64 compatible

git-svn-id: trunk@17304 -

packages/graph/src/win32/wincrt.pp

@@ -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

packages/graph/src/win32/winmouse.pp

@@ -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, }