This delay appears to help
This commit is contained in:
parent
4444ebccbd
commit
107d9ca722
|
@ -215,7 +215,7 @@ Begin
|
||||||
CASE ch OF
|
CASE ch OF
|
||||||
#27: begin
|
#27: begin
|
||||||
State:=1;
|
State:=1;
|
||||||
//WaitMS(10);
|
WaitMS(10);
|
||||||
|
|
||||||
|
|
||||||
{ This has to be sysKeyPressed and not "keyPressed", since after }
|
{ This has to be sysKeyPressed and not "keyPressed", since after }
|
||||||
|
@ -383,7 +383,7 @@ Begin
|
||||||
255 : ;
|
255 : ;
|
||||||
end;
|
end;
|
||||||
if State<>0 then
|
if State<>0 then
|
||||||
{WaitMS(10)};
|
WaitMS(10);
|
||||||
end;
|
end;
|
||||||
if State=1 then
|
if State=1 then
|
||||||
PushKey(ch);
|
PushKey(ch);
|
||||||
|
|
|
@ -201,7 +201,7 @@ Begin
|
||||||
CASE ch OF
|
CASE ch OF
|
||||||
#27: begin
|
#27: begin
|
||||||
State:=1;
|
State:=1;
|
||||||
//WaitMS(10);
|
WaitMS(10);
|
||||||
|
|
||||||
|
|
||||||
{ This has to be sysKeyPressed and not "keyPressed", since after }
|
{ This has to be sysKeyPressed and not "keyPressed", since after }
|
||||||
|
@ -326,7 +326,7 @@ Begin
|
||||||
255 : ;
|
255 : ;
|
||||||
end;
|
end;
|
||||||
if State<>0 then
|
if State<>0 then
|
||||||
{WaitMS(10)};
|
WaitMS(10);
|
||||||
end;
|
end;
|
||||||
if State=1 then
|
if State=1 then
|
||||||
PushKey(ch);
|
PushKey(ch);
|
||||||
|
@ -337,4 +337,4 @@ Begin
|
||||||
ReadKey:=PopKey;
|
ReadKey:=PopKey;
|
||||||
End;
|
End;
|
||||||
|
|
||||||
End.
|
End.
|
||||||
|
|
Loading…
Reference in New Issue