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

Console interface made close to original one

Browse Source
This commit is contained in:
Владислав Джавадов
2020-06-24 16:38:03 +03:00
parent a6dcaf154c
commit 700e45b364
2 changed files with 57 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
RTL/System.pas
View File

@@ -126,23 +126,24 @@ type
PConsoleInterface = ^TConsoleInterface;
TConsoleInterface = record
ClrScr: procedure; stdcall;
Cls: procedure; stdcall;
ConsoleExit: procedure(CloseWindow: Boolean); stdcall;
ConsoleInit: procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord; Title: PKolibriChar); stdcall;
GetCh: function: Integer; stdcall;
GetCh2: function: Word; stdcall;
GetS: function(Str: PKolibriChar; Length: Integer): PKolibriChar; stdcall;
GetCursorPos: procedure(var X, Y: Integer); stdcall;
GetCursorHeight: function: Integer; stdcall;
GetFlags: function: LongWord; stdcall;
GetFontHeight: function: Integer; stdcall;
GotoXY: procedure(X, Y: Integer); stdcall;
KeyPressed: function: Boolean; stdcall;
GetS: function(Str: PKolibriChar; Length: Integer): PKolibriChar; stdcall;
KbdHit: function: Boolean; stdcall;
PrintF: function(Str: PKolibriChar): Integer; cdecl varargs;
ReadKey: function: KolibriChar; stdcall;
SetFlags: function(Flags: LongWord): LongWord; stdcall;
SetCursorHeight: function(Height: Integer): Integer; stdcall;
SetCursorPos: procedure(X, Y: Integer); stdcall;
SetTitle: procedure(Title: PKolibriChar); stdcall;
WhereXY: procedure(var X, Y: Integer); stdcall;
WritePChar: procedure(Str: PKolibriChar); stdcall;
WritePCharLen: procedure(Str: PKolibriChar; Length: LongWord); stdcall;
WriteASCIIZ: procedure(Str: PKolibriChar); stdcall;
WriteString: procedure(Str: PKolibriChar; Length: LongWord); stdcall;
end;
procedure _Halt0;