From bf11eec32ee09a804a00f997d8a484de497186ce Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Sat, 8 Mar 2014 13:29:52 +0000
Subject: 3rd side library updates

git-svn-id: http://svn.miranda-ng.org/main/trunk@8476 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Libs/visual_xp_styles.inc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'plugins/Libs/visual_xp_styles.inc')

diff --git a/plugins/Libs/visual_xp_styles.inc b/plugins/Libs/visual_xp_styles.inc
index 5db52144c1..f2bf826779 100644
--- a/plugins/Libs/visual_xp_styles.inc
+++ b/plugins/Libs/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;
 
-- 
cgit v1.2.3