Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added CursorOn and CursorOff

Browse Source
This commit is contained in:
Daniele Teti 2023-06-30 00:43:29 +02:00
parent c663cf8fb2
commit 4761809a06
1 changed files with 42 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
sources/MVCFramework.Console.pas
View File

@ -84,7 +84,8 @@ function TextAttr: Word;
procedure SetTextAttr(const TextAttr: Word);
function BackgroundAttr: Word;
procedure SetBackgroundAttr(const BackgroundAttr: Word);
procedure CursorOn;
procedure CursorOff;
function ColorName(const color: TConsoleColor): String;
@ -101,6 +102,8 @@ var
GBackGround, GSavedBackGround: Int16;
GOutHandle: THandle = INVALID_HANDLE_VALUE;
GInputHandle: THandle = INVALID_HANDLE_VALUE;
GSaveCursorSize: Longint;
GCursorInfo : TConsoleCursorInfo;
function ColorName(const color: TConsoleColor): String;
begin
@ -149,9 +152,41 @@ begin
raise EMVCConsole.Create('Not Implemented');
end;
procedure CursorOn;
begin
raise EMVCConsole.Create('Not Implemented');
end;
procedure CursorOff;
begin
raise EMVCConsole.Create('Not Implemented');
end;
{$ENDIF}
{$IFDEF MSWINDOWS}
procedure CursorOn;
var
CursorInfo: TConsoleCursorInfo;
begin
GetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), CursorInfo);
CursorInfo.dwSize := GSaveCursorSize;
CursorInfo.bVisible := true;
SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), CursorInfo);
end;
procedure CursorOff;
var
CursorInfo: TConsoleCursorInfo;
begin
GetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), CursorInfo);
CursorInfo.bVisible := false;
SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), CursorInfo);
end;
procedure WinCheck(const Value: LongBool);
begin
if not Value then
@ -244,6 +279,11 @@ begin
GOutHandle := GetStdHandle(STD_OUTPUT_HANDLE);
if GOutHandle = INVALID_HANDLE_VALUE then
raise EMVCConsole.CreateFmt('Cannot Get STD_OUTPUT_HANDLE - GetLastError() = %d', [GetLastError]);
{--------------------- Get the cursor size and such -----------------------}
FillChar(GCursorInfo, SizeOf(GCursorInfo), 00);
GetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), GCursorInfo);
GSaveCursorSize := GCursorInfo.dwSize;
end;
procedure UpdateMode;
@ -259,7 +299,7 @@ begin
lCoord.Y := Y;
if not SetConsoleCursorPosition(GOutHandle, lCoord) then
begin
raise EMVCConsole.Create('Invalid Coordinates');
raise EMVCConsole.CreateFmt('Invalid Coordinates X:%d, Y:%d', [X,Y]);
end;
end;