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

Overloaded CRT.CursorHeight functions added

Browse Source
This commit is contained in:
Владислав Джавадов
2020-06-09 01:57:27 +03:00
parent 3ec3c581d2
commit 0529e3bc2d
1 changed files with 26 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
Lib/CRT.pas
View File

@@ -52,15 +52,16 @@ function TextColor(Color: Byte): LongWord; overload;
function WriteLn(LineBreaks: Integer = 1): LongInt; overload; function WriteLn(LineBreaks: Integer = 1): LongInt; overload;
function WriteLn(Text: PKolibriChar; LineBreaks: Integer = 1): LongInt; overload; function WriteLn(Text: PKolibriChar; LineBreaks: Integer = 1): LongInt; overload;
function CursorBig: LongWord; function CursorBig: Integer;
function CursorOff: LongWord; function CursorHeight: Integer; overload;
function CursorOn: LongWord; function CursorHeight(Height: Integer): Integer; overload;
function CursorOff: Integer;
function CursorOn: Integer;
procedure Delay(Milliseconds: LongWord); // absolute Sleep(Milliseconds); procedure Delay(Milliseconds: LongWord); // absolute Sleep(Milliseconds);
var var
ClrScr: procedure; stdcall; ClrScr: procedure; stdcall;
CursorHeight: function(Height: LongWord): LongWord; 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;
@@ -94,9 +95,11 @@ var
hConsole: Pointer; hConsole: Pointer;
ConsoleExit: procedure(CloseWindow: Boolean); stdcall; ConsoleExit: procedure(CloseWindow: Boolean); stdcall;
ConsoleInit: procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord; Caption: PKolibriChar); stdcall; ConsoleInit: procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord; Caption: PKolibriChar); stdcall;
GetCursorHeight: function: Integer; stdcall;
GetFlags: function: LongWord; stdcall; GetFlags: function: LongWord; stdcall;
GotoXYProc: procedure(X, Y: LongWord); stdcall; GotoXYProc: procedure(X, Y: LongWord); stdcall;
SetFlags: function(Flags: LongWord): LongWord; stdcall; SetFlags: function(Flags: LongWord): LongWord; stdcall;
SetCursorHeight: function(Height: Integer): Integer; stdcall;
WhereXYProc: procedure(var X, Y: LongWord); stdcall; WhereXYProc: procedure(var X, Y: LongWord); stdcall;
procedure InitConsole(Caption: PKolibriChar; CloseWindowOnExit: Boolean; procedure InitConsole(Caption: PKolibriChar; CloseWindowOnExit: Boolean;
@@ -106,11 +109,12 @@ 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');
CursorHeight := GetProcAddress(hConsole, 'con_set_cursor_height'); GetCursorHeight := GetProcAddress(hConsole, 'con_get_cursor_height');
GotoXYProc := GetProcAddress(hConsole, 'con_set_cursor_pos');
GetFlags := GetProcAddress(hConsole, 'con_get_flags'); GetFlags := GetProcAddress(hConsole, 'con_get_flags');
GotoXYProc := GetProcAddress(hConsole, 'con_set_cursor_pos');
KeyPressed := GetProcAddress(hConsole, 'con_kbhit'); KeyPressed := GetProcAddress(hConsole, 'con_kbhit');
ReadKey := GetProcAddress(hConsole, 'con_getch'); ReadKey := GetProcAddress(hConsole, 'con_getch');
SetCursorHeight := GetProcAddress(hConsole, 'con_set_cursor_height');
SetFlags := GetProcAddress(hConsole, 'con_set_flags'); SetFlags := GetProcAddress(hConsole, 'con_set_flags');
WhereXYProc := GetProcAddress(hConsole, 'con_get_cursor_pos'); WhereXYProc := GetProcAddress(hConsole, 'con_get_cursor_pos');
Write := GetProcAddress(hConsole, 'con_printf'); Write := GetProcAddress(hConsole, 'con_printf');
@@ -181,19 +185,29 @@ begin
WhereXYProc(Result.X, Result.Y); WhereXYProc(Result.X, Result.Y);
end; end;
function CursorBig: LongWord; function CursorBig: Integer;
begin begin
Result := CursorHeight(15); Result := SetCursorHeight(15);
end; end;
function CursorOff: LongWord; function CursorHeight: Integer;
begin begin
Result := CursorHeight(0); Result := GetCursorHeight;
end; end;
function CursorOn: LongWord; function CursorHeight(Height: Integer): Integer;
begin begin
Result := CursorHeight(2); Result := SetCursorHeight(Height);
end;
function CursorOff: Integer;
begin
Result := SetCursorHeight(0);
end;
function CursorOn: Integer;
begin
Result := SetCursorHeight(2);
end; end;
initialization initialization