pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

* fix some types

Browse Source 
git-svn-id: https://svn.code.sf.net/p/kolmck/code@130 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck
2014-12-03 09:20:42 +00:00
parent 701041e47b
commit cb7f421737
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
visual_xp_styles.inc
View File

@@ -996,7 +996,7 @@ begin
end; end;
{$ENDIF} {$ENDIF}
//*************************** Control Message event **************************// //*************************** 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 var
pt : TPoint; pt : TPoint;
Mouse: TMouseEventData; Mouse: TMouseEventData;
@@ -1086,7 +1086,7 @@ begin
if Msg.wParam = VK_SPACE then if Msg.wParam = VK_SPACE then
begin begin
if Assigned(Sender.EV.fOnKeyDown) then 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]; {$IFDEF USE_FLAGS} Sender.fFlagsG4 := Sender.fFlagsG4 + [G4_Pressed];
{$ELSE} Sender.fPressed := true; {$ENDIF} {$ELSE} Sender.fPressed := true; {$ENDIF}
dDC := GetWindowDC(Msg.hWnd); dDC := GetWindowDC(Msg.hWnd);
@@ -1100,7 +1100,7 @@ begin
if Msg.wParam = VK_SPACE then if Msg.wParam = VK_SPACE then
begin begin
if Assigned(Sender.EV.fOnKeyUp) then 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]; {$IFDEF USE_FLAGS} Sender.fFlagsG4 := Sender.fFlagsG4 - [G4_Pressed];
{$ELSE} Sender.fPressed := false; {$ENDIF} {$ELSE} Sender.fPressed := false; {$ENDIF}
dDC := GetWindowDC(Msg.hWnd); dDC := GetWindowDC(Msg.hWnd);
@@ -1216,7 +1216,7 @@ begin
{$ENDIF} {$ENDIF}
end; end;
//********************* Handling of message WM_THEMECHANGED ******************// //********************* 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 begin
Result := false; Result := false;