paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 00:33:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* add a check for bug #2377

Browse Source
This commit is contained in:
pierre 2003-02-17 16:58:19 +00:00
parent 291f66991e
commit a1c066f3e8
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
tests/webtbs/tw2377.pp Normal file
View File

@ -0,0 +1,33 @@
{ Source provided for Free Pascal Bug Report 2377 }
{ Submitted by "Christian Keck" on 2003-02-12 }
{ e-mail: c.keck@gmx.net }
program testkey;
uses keyboard;
var Key : TkeyEvent;
i,j : longint;
begin
{ InitKeyBoard; }
i:=0;
j:=0;
repeat
begin
if PollKeyEvent <> 0 then
begin
Key:= GetKeyEvent;
Key:= TranslateKeyEvent(Key);
writeln (ord(GetKeyEventChar(Key)));
inc(j);
end;
inc(i);
end;
until i=50;
if j<>0 then
begin
Writeln('Keyboard unit generates events without being started');
halt(1);
end;
DoneKeyBoard;
end.