From cb7f42173754ea0408700563bc430d42131861f7 Mon Sep 17 00:00:00 2001
From: dkolmck <dkolmck@91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07>
Date: Wed, 3 Dec 2014 09:20:42 +0000
Subject: [PATCH] * fix some types

git-svn-id: https://svn.code.sf.net/p/kolmck/code@130 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
---
 visual_xp_styles.inc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/visual_xp_styles.inc b/visual_xp_styles.inc
index 5db5214..f2bf826 100644
--- a/visual_xp_styles.inc
+++ b/visual_xp_styles.inc
@@ -996,7 +996,7 @@ begin
 end;
 {$ENDIF}
 //*************************** Control Message event **************************//
-function WndXPMessage( Sender: PControl; var Msg: TMsg; var Rslt: Integer ): Boolean;
+function WndXPMessage( Sender: PControl; var Msg: TMsg; var Rslt: LRESULT ): Boolean;
 var
  pt : TPoint;
  Mouse: TMouseEventData;
@@ -1086,7 +1086,7 @@ begin
      if  Msg.wParam = VK_SPACE then
      begin
          if  Assigned(Sender.EV.fOnKeyDown) then
-             Sender.EV.fOnKeyDown(Sender, Msg.wParam, GetShiftState);
+             Sender.EV.fOnKeyDown(Sender, LongInt(Pointer(Msg.wParam)^), GetShiftState);
          {$IFDEF USE_FLAGS} Sender.fFlagsG4 := Sender.fFlagsG4 + [G4_Pressed];
          {$ELSE} Sender.fPressed := true; {$ENDIF}
          dDC := GetWindowDC(Msg.hWnd);
@@ -1100,7 +1100,7 @@ begin
      if Msg.wParam = VK_SPACE then
      begin
          if  Assigned(Sender.EV.fOnKeyUp) then
-             Sender.EV.fOnKeyUp(Sender, Msg.wParam, GetShiftState);
+             Sender.EV.fOnKeyUp(Sender, LongInt(Pointer(Msg.wParam)^), GetShiftState);
          {$IFDEF USE_FLAGS} Sender.fFlagsG4 := Sender.fFlagsG4 - [G4_Pressed];
          {$ELSE} Sender.fPressed := false; {$ENDIF}
          dDC := GetWindowDC(Msg.hWnd);
@@ -1216,7 +1216,7 @@ begin
      {$ENDIF}
 end;
 //********************* Handling of message WM_THEMECHANGED ******************//
-function WndXP_WM_THEMECHANGED( Sender: PControl; var Msg: TMsg; var Rslt: Integer ): Boolean;
+function WndXP_WM_THEMECHANGED( Sender: PControl; var Msg: TMsg; var Rslt: LRESULT ): Boolean;
 begin
  Result := false;