Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2025-09-21 02:30:07 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

CRT.Delay bugfix © 0CodErr

Browse Source
This commit is contained in:
Владислав Джавадов
2020-06-09 22:35:08 +03:00
parent 76b727ae20
commit fe38ee81a1
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Lib/CRT.pas
View File

@@ -75,7 +75,7 @@ function ReadKey: KolibriChar;
function FontHeight: Integer; function FontHeight: Integer;
procedure Delay(Milliseconds: LongWord); // absolute Sleep(Milliseconds); procedure Delay(Milliseconds: LongWord);
implementation implementation
@@ -310,7 +310,7 @@ end;
procedure Delay(Milliseconds: LongWord); procedure Delay(Milliseconds: LongWord);
begin begin
Sleep(Milliseconds div 10); Sleep((Milliseconds + 10 div 2) div 10);
end; end;
initialization initialization