Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2024-11-09 09:40:27 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

CRT.ClrScr procedure added

Browse Source
This commit is contained in:
Владислав Джавадов 2020-06-09 01:19:42 +03:00
parent 9868828cc2
commit fc1b62c43b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Lib/CRT.pas
View File

@ -56,6 +56,7 @@ function CursorOn: LongWord;
procedure Delay(Milliseconds: LongWord); // absolute Sleep(Milliseconds);
var
ClrScr: procedure; stdcall;
CursorHeight: function(Height: LongWord): LongWord; stdcall;
KeyPressed: function: Boolean;
ReadKey: function: KolibriChar; stdcall;
@ -158,6 +159,7 @@ procedure InitConsole(Caption: PKolibriChar; CloseWindowOnExit: Boolean;
WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord);
begin
hConsole := LoadLibrary('/sys/lib/console.obj');
ClrScr := GetProcAddress(hConsole, 'con_cls');
ConsoleExit := GetProcAddress(hConsole, 'con_exit');
ConsoleInit := GetProcAddress(hConsole, 'con_init');
CursorHeight := GetProcAddress(hConsole, 'con_set_cursor_height');