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

+ Added missing translatekeyevent after getkey, thanks to Pierre Pomes

Browse Source
This commit is contained in:
michael 2004-09-11 14:41:26 +00:00
parent c5c6a10a87
commit 215ed78e32
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
docs/kbdex/ex1.pp
View File

@ -12,6 +12,7 @@ begin
Writeln('Press keys, press "q" to end.'); Writeln('Press keys, press "q" to end.');
Repeat Repeat
K:=GetKeyEvent; K:=GetKeyEvent;
K:=TranslateKeyEvent(K);
Write('Got key event with '); Write('Got key event with ');
Case GetKeyEventFlags(K) of Case GetKeyEventFlags(K) of
kbASCII : Writeln('ASCII key'); kbASCII : Writeln('ASCII key');