paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 11:38:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

workaround for possible compiler bug (KEYSTATE), stoppok

Browse Source 
git-svn-id: trunk@12 -
This commit is contained in:
lazarus 2000-07-23 10:53:41 +00:00
parent ced2c525c7
commit 0fa9db6224
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -1203,7 +1203,7 @@ end;
------------------------------------------------------------------------------}
function TgtkObject.GetKeyState(nVirtKey: Integer): Smallint;
const
KEYSTATE: array[Boolean] of Smallint = (0, $8000);
KEYSTATE: array[Boolean] of Smallint = (0, -32768{$8000});
TOGGLESTATE: array[Boolean] of Smallint = (0, 1);
begin
case nVirtKey of
@ -1212,7 +1212,7 @@ begin
VK_LMENU: nVirtKey := VK_MENU;
end;
Result := KEYSTATE[FKeyStateList.IndexOf(Pointer(nVirtKey)) <> -1];
// try extended keys
if Result = 0
then begin
@ -2873,6 +2873,9 @@ end;
{ =============================================================================
$Log$
Revision 1.2 2000/07/23 10:53:41 lazarus
workaround for possible compiler bug (KEYSTATE), stoppok
Revision 1.1 2000/07/13 10:28:30 michael
+ Initial import