paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed to compile with debug

Browse Source
This commit is contained in:
peter 2001-05-20 12:08:17 +00:00
parent b620a6c66d
commit 8f282730b9
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/win32/keyboard.pp
View File

@ -28,9 +28,7 @@ implementation
} }
uses uses
{$ifndef DEBUG}
Windows, Windows,
{$endif DEBUG}
Dos, Dos,
WinEvent; WinEvent;
@ -696,9 +694,6 @@ begin
if getKeyEventFromQueueWait (t) then if getKeyEventFromQueueWait (t) then
key := translateKey (t); key := translateKey (t);
until key <> 0; until key <> 0;
{$ifdef DEBUG}
last_ir.KeyEvent:=t;
{$endif DEBUG}
GetKeyEvent := key; GetKeyEvent := key;
end; end;
@ -786,7 +781,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.2 2001-01-14 22:20:00 peter Revision 1.3 2001-05-20 12:08:17 peter
* fixed to compile with debug
Revision 1.2 2001/01/14 22:20:00 peter
* slightly optimized event handling (merged) * slightly optimized event handling (merged)
Revision 1.1 2001/01/13 11:03:59 peter Revision 1.1 2001/01/13 11:03:59 peter