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

CRT cursor function param/result types made compatible to Console.obj documentation

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

6
Lib/CRT.pas
View File

@@ -11,7 +11,7 @@ uses
type type
TCursorXY = record TCursorXY = record
X, Y: LongWord; X, Y: Integer;
end; end;
const const
@@ -97,10 +97,10 @@ var
ConsoleInit: procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord; Caption: PKolibriChar); stdcall; ConsoleInit: procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord; Caption: PKolibriChar); stdcall;
GetCursorHeight: function: Integer; stdcall; GetCursorHeight: function: Integer; stdcall;
GetFlags: function: LongWord; stdcall; GetFlags: function: LongWord; stdcall;
GotoXYProc: procedure(X, Y: LongWord); stdcall; GotoXYProc: procedure(X, Y: Integer); stdcall;
SetFlags: function(Flags: LongWord): LongWord; stdcall; SetFlags: function(Flags: LongWord): LongWord; stdcall;
SetCursorHeight: function(Height: Integer): Integer; stdcall; SetCursorHeight: function(Height: Integer): Integer; stdcall;
WhereXYProc: procedure(var X, Y: LongWord); stdcall; WhereXYProc: procedure(var X, Y: Integer); stdcall;
procedure InitConsole(Caption: PKolibriChar; CloseWindowOnExit: Boolean; procedure InitConsole(Caption: PKolibriChar; CloseWindowOnExit: Boolean;
WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord); WndWidth, WndHeight, ScrWidth, ScrHeight: LongWord);