|
|
| Line 364: |
Line 364: |
| | {| class="wikitable" style="font-size: 14px; background: white;" | | {| class="wikitable" style="font-size: 14px; background: white;" |
| | |- | | |- |
| − | ! '''Note''' | + | ! Note |
| | | None documented | | | None documented |
| | |- | | |- |
| Line 379: |
Line 379: |
| | {| class="wikitable" style="font-size: 14px; background: white;" | | {| class="wikitable" style="font-size: 14px; background: white;" |
| | |- | | |- |
| − | ! '''Note''' | + | ! Note |
| | | None documented | | | None documented |
| | |- | | |- |
| Line 394: |
Line 394: |
| | {| class="wikitable" style="font-size: 14px; background: white;" | | {| class="wikitable" style="font-size: 14px; background: white;" |
| | |- | | |- |
| − | ! '''Note''' | + | ! Note |
| | | None documented | | | None documented |
| | |- | | |- |
| Line 406: |
Line 406: |
| | {| class="wikitable" style="font-size: 14px; background: white;" | | {| class="wikitable" style="font-size: 14px; background: white;" |
| | |- | | |- |
| − | ! '''Note''' | + | ! Note |
| | | None documented | | | None documented |
| | |- | | |- |
| Line 418: |
Line 418: |
| | {| class="wikitable" style="font-size: 14px; background: white;" | | {| class="wikitable" style="font-size: 14px; background: white;" |
| | |- | | |- |
| − | ! '''Note''' | + | ! Note |
| | | None documented | | | None documented |
| | |- | | |- |
| Line 430: |
Line 430: |
| | {| class="wikitable" style="font-size: 14px; background: white;" | | {| class="wikitable" style="font-size: 14px; background: white;" |
| | |- | | |- |
| − | ! '''Note''' | + | ! Note |
| | | None documented | | | None documented |
| | |- | | |- |
Revision as of 01:01, 25 April 2018
Return to Unit Reference
Description
Ultibo Console Shell unit
To be documented
Constants
[Expand]
Console shell specific constants CONSOLE_SHELL_*
CONSOLE_SHELL_DEFAULT_WELCOME = ' (Type HELP for a list of available commands)';
|
|
|
|
CONSOLE_SHELL_THREAD_NAME = 'Console Shell Keyboard';
|
Thread name for Console shell keyboard threads
|
[Expand]
Console shell constants CONSOLE_SHELL_NAME*
CONSOLE_SHELL_NAME = 'Console Shell';
|
|
[Expand]
Console shell command constants CONSOLE_SHELL_COMMAND_*
CONSOLE_SHELL_COMMAND_EXIT = 'EXIT';
|
|
Type definitions
None defined
Class definitions
Console shell
[Expand]
TConsoleShell = class(TShell)
public
|
constructor Create(AConsole:PConsoleDevice);
|
|
destructor Destroy; override;
|
|
private
|
FConsole:PConsoleDevice;
|
|
FThread:TConsoleShellThread;
|
|
FDefaultSession:TShellSession;
|
|
|
|
procedure Reset(ASession:TConsoleSession);
|
|
|
|
procedure MoveFirst(ASession:TConsoleSession);
|
|
procedure MoveLast(ASession:TConsoleSession);
|
|
procedure MoveLeft(ASession:TConsoleSession);
|
|
procedure MoveRight(ASession:TConsoleSession);
|
|
|
|
procedure EraseLine(ASession:TConsoleSession);
|
|
procedure OutputLine(ASession:TConsoleSession; const AValue:String);
|
|
function ExpandLine(ASession:TConsoleSession):Boolean;
|
|
|
|
procedure EraseCharacter(ASession:TConsoleSession);
|
|
procedure DeleteCharacter(ASession:TConsoleSession);
|
|
procedure InsertCharacter(ASession:TConsoleSession; ACh:Char);
|
|
procedure OverwriteCharacter(ASession:TConsoleSession; ACh:Char);
|
|
|
|
procedure PrevHistory(ASession:TConsoleSession);
|
|
procedure NextHistory(ASession:TConsoleSession);
|
|
procedure FirstHistory(ASession:TConsoleSession);
|
|
procedure LastHistory(ASession:TConsoleSession);
|
|
procedure CurrentHistory(ASession:TConsoleSession);
|
|
protected
|
function CreateWindow:TShellSession;
|
|
function DestroyWindow(ASession:TShellSession):Boolean;
|
|
public
|
property Console:PConsoleDevice read FConsole;
|
|
property DefaultSession:TShellSession read FDefaultSession;
|
|
|
|
function DoClear(ASession:TShellSession):Boolean; override;
|
|
|
|
function DoInput(ASession:TShellSession; var AInput:String):Boolean; override;
|
|
|
|
function DoOutputEx(ASession:TShellSession; const AOutput:String; AReturn:Boolean):Boolean; override;
|
|
|
|
function DoGetSize(ASession:TShellSession; var ARows,ACols:LongWord):Boolean; override;
|
|
function DoSetSize(ASession:TShellSession; ARows,ACols:LongWord):Boolean; override;
|
|
|
|
function DoGetCursor(ASession:TShellSession; var ARow,ACol:LongWord):Boolean; override;
|
|
function DoSetCursor(ASession:TShellSession; ARow,ACol:LongWord):Boolean; override;
|
|
|
|
function DoGetColors(ASession:TShellSession; var AForecolor,ABackcolor:LongWord):Boolean; override;
|
|
function DoSetColors(ASession:TShellSession; AForecolor,ABackcolor:LongWord):Boolean; override;
|
|
|
|
function DoGetCoordinates(ASession:TShellSession; var ARow,ACol:LongWord):Boolean; override;
|
|
function DoSetCoordinates(ASession:TShellSession; ARow,ACol:LongWord):Boolean; override;
|
|
|
|
function DoGetCursorMode(ASession:TShellSession; var AMode:LongWord):Boolean; override;
|
|
function DoSetCursorMode(ASession:TShellSession; AMode:LongWord):Boolean; override;
|
|
|
|
function DoGetCursorShape(ASession:TShellSession; var AShape:LongWord):Boolean; override;
|
|
function DoSetCursorShape(ASession:TShellSession; AShape:LongWord):Boolean; override;
|
|
|
|
function ConsoleChar(ASession:TShellSession; AChar:Char):Boolean;
|
|
function ConsoleExtended(ASession:TShellSession; AChar:Char):Boolean;
|
|
Console session
[Expand]
TConsoleSession = class(TShellSession)
public
|
constructor Create(AShell:TShell; AIdentifier:LongWord);
|
|
public
|
Command:String;
|
|
MaxX:LongWord;
|
|
MaxY:LongWord;
|
|
LastX:LongWord;
|
|
LastY:LongWord;
|
|
FirstX:LongWord;
|
|
FirstY:LongWord;
|
|
CurrentX:LongWord;
|
|
CurrentY:LongWord;
|
|
Mode:LongWord;
|
|
Shape:LongWord;
|
|
Window:TWindowHandle;
|
|
Console shell thread
[Expand]
TConsoleShellThread = class(TThread)
public
|
constructor Create(AShell:TConsoleShell);
|
|
protected
|
FShell:TConsoleShell;
|
|
|
|
procedure Execute; override;
|
|
Console shell exit
[Expand]
TConsoleShellExit = class(TShellCommand)
public
|
constructor Create;
|
|
public
|
function DoHelp(AShell:TShell; ASession:TShellSession):Boolean; override;
|
|
function DoInfo(AShell:TShell; ASession:TShellSession):Boolean; override;
|
|
function DoCommand(AShell:TShell; ASession:TShellSession; AParameters:TStrings):Boolean; override;
|
|
Public variables
None defined
Function declarations
Initialization functions
[Expand]
procedure ConsoleShellInit;
Description: To be documented
Console shell functions
[Expand]
function ConsoleShellFindByDevice(Console:PConsoleDevice):TConsoleShell;
Description: To be documented
Console shell helper functions
[Expand]
function ConsoleShellDeviceAdd(Console:PConsoleDevice; Force:Boolean):LongWord;
Description: To be documented
[Expand]
function ConsoleShellDeviceRemove(Console:PConsoleDevice):LongWord;
Description: To be documented
[Expand]
function ConsoleShellDeviceEnum(Console:PConsoleDevice; Data:Pointer):LongWord;
Description: To be documented
[Expand]
function ConsoleShellDeviceNotify(Device:PDevice; Data:Pointer; Notification:LongWord):LongWord;
Description: To be documented
Return to Unit Reference
