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

CRT.FontHeight function added

Browse Source
This commit is contained in:
Владислав Джавадов
2020-06-09 02:04:02 +03:00
parent 5b3e082e52
commit 023d565b81
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Lib/CRT.pas
View File

@@ -62,6 +62,7 @@ procedure Delay(Milliseconds: LongWord); // absolute Sleep(Milliseconds);
var var
ClrScr: procedure; stdcall; ClrScr: procedure; stdcall;
FontHeight: function: Integer; stdcall;
KeyPressed: function: Boolean; KeyPressed: function: Boolean;
ReadKey: function: KolibriChar; stdcall; ReadKey: function: KolibriChar; stdcall;
Write: function(const Text: PKolibriChar): LongInt; cdecl varargs; Write: function(const Text: PKolibriChar): LongInt; cdecl varargs;
@@ -109,6 +110,7 @@ begin
ClrScr := GetProcAddress(hConsole, 'con_cls'); ClrScr := GetProcAddress(hConsole, 'con_cls');
ConsoleExit := GetProcAddress(hConsole, 'con_exit'); ConsoleExit := GetProcAddress(hConsole, 'con_exit');
ConsoleInit := GetProcAddress(hConsole, 'con_init'); ConsoleInit := GetProcAddress(hConsole, 'con_init');
FontHeight := GetProcAddress(hConsole, 'con_get_font_height');
GetCursorHeight := GetProcAddress(hConsole, 'con_get_cursor_height'); GetCursorHeight := GetProcAddress(hConsole, 'con_get_cursor_height');
GetFlags := GetProcAddress(hConsole, 'con_get_flags'); GetFlags := GetProcAddress(hConsole, 'con_get_flags');
GotoXYProc := GetProcAddress(hConsole, 'con_set_cursor_pos'); GotoXYProc := GetProcAddress(hConsole, 'con_set_cursor_pos');