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;
{$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;