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

+ implemented crt.delay() for win16

Browse Source 
git-svn-id: trunk@37643 -
This commit is contained in:
nickysn 2017-12-01 16:01:39 +00:00
parent b6efaeb8fd
commit ac82fc3072
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/rtl-console/src/win16/crt.pp
View File

@ -27,7 +27,7 @@ Var
implementation
uses
video, keyboard;
video, keyboard, WinProcs, WinTypes;
{****************************************************************************
Low level Routines
@ -287,7 +287,18 @@ end;
*************************************************************************}
procedure Delay(MS: Word);
var
ticks: LongInt;
m: MSG;
begin
ticks:=GetTickCount;
repeat
if PeekMessage(FarAddr(m),0,0,0,1) then
begin
TranslateMessage(FarAddr(m));
DispatchMessage(FarAddr(m));
end;
until (GetTickCount-ticks)>=MS;
end;