Class TCustomEmulVT (unit Emulvt) |
Inherits from
TCustomControl
TCustomEmulVT is an visual component wich does the actual display } { of a TScreen object wich is the virtual screen } { No property is published. See TEmulVT class
constructor Create(AOwner: TComponent);
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Clear;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
destructor Destroy;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DoKeyBuffer(Buffer : PChar; Len : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MouseToCell(X, Y: Integer; var ACol, ARow: Longint);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function PixelToCol(X : Integer) : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function PixelToRow(Y : Integer) : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function ReadStr : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetCursor(Row, Col : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ShowCursor;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function SnapPixelToCol(X : Integer) : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function SnapPixelToRow(Y : Integer) : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure UpdateScreen;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WriteBuffer(Buffer : Pointer; Len : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WriteChar(Ch : Char);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WriteStr(Str : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppMessageHandler(var Msg: TMsg; var Handled: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CursorVisibleEvent(Sender : TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function FindFKeys(ScanCode: Char; Shift: TShiftState;
Ext: Boolean) : PFuncKeyValue;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoCR : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoLF : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetCols : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetRows : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetXlat : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure KeyPress(var Key: Char);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PaintOneLine(DC: HDC; Y : Integer; const Line : TLine;
nColFrom : Integer; nColTo : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function ProcessFKeys(ScanCode: Char; Shift: TShiftState; Ext: Boolean) : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoCR(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoLF(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetCaret;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetCols(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetFont(Value : TFont);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetLineHeight(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetLog(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetRows(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetupFont;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetXlat(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure VScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WMKillFocus(var Message: TWMKillFocus);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WMLButtonDown(var Message: TWMLButtonDown);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WMPaint(var Message: TWMPaint);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WMPaletteChanged(var Message : TMessage);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WMSetFocus(var Message: TWMSetFocus);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property Align :
property AutoCR : Boolean
property AutoLF : Boolean
property AutoRepaint : Boolean
property BorderStyle : TBorderStyle
property CharWidth : Integer
property Cols : Integer
property Ctl3D :
property FKeys : Integer
property Font : TFont
property LineHeight : Integer
property LocalEcho : Boolean
property Log : Boolean
property MonoChrome : Boolean
property Rows : Integer
property SelectRect : TRect
property TabOrder :
property TabStop :
property Text : String
property Xlat : Boolean
event OnClick :
event OnKeyBuffer : TKeyBufferEvent
event OnKeyPress :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FAppOnMessage : TMessageEvent;
FAutoRepaint : Boolean;
FBorderStyle : TBorderStyle;
FBorderWidth : Integer;
FCaretCreated : Boolean;
FCaretShown : Boolean;
FCharWidth : Integer;
FCursorVisible : Boolean;
FFileHandle : TextFile;
FFKeys : Integer;
FFlagCirconflexe : Boolean;
FFlagTrema : Boolean;
FFont : TFont;
FInternalLeading : Integer;
FLineHeight : Integer;
FLocalEcho : Boolean;
FLog : Boolean;
FMonoChrome : Boolean;
FOnKeyBuffer : TKeyBufferEvent;
FPal : HPalette;
FPaletteEntries : array[0..NumPaletteEntries - 1] of TPaletteEntry;
FScreen : TScreen;
FSelectRect : TRect;
FTopLine : Integer;
FVScrollBar : TScrollBar;
constructor Create(AOwner: TComponent);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Clear;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
destructor Destroy;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DoKeyBuffer(Buffer : PChar; Len : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MouseToCell(X, Y: Integer; var ACol, ARow: Longint);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function PixelToCol(X : Integer) : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function PixelToRow(Y : Integer) : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function ReadStr : String;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetCursor(Row, Col : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ShowCursor;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function SnapPixelToCol(X : Integer) : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function SnapPixelToRow(Y : Integer) : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure UpdateScreen;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WriteBuffer(Buffer : Pointer; Len : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WriteChar(Ch : Char);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WriteStr(Str : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AppMessageHandler(var Msg: TMsg; var Handled: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CursorVisibleEvent(Sender : TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function FindFKeys(ScanCode: Char; Shift: TShiftState;
Ext: Boolean) : PFuncKeyValue;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoCR : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoLF : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetCols : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetRows : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetXlat : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure KeyPress(var Key: Char);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PaintOneLine(DC: HDC; Y : Integer; const Line : TLine;
nColFrom : Integer; nColTo : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function ProcessFKeys(ScanCode: Char; Shift: TShiftState; Ext: Boolean) : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoCR(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoLF(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetCaret;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetCols(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetFont(Value : TFont);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetLineHeight(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetLog(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetRows(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetupFont;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetXlat(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure VScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WMKillFocus(var Message: TWMKillFocus);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WMLButtonDown(var Message: TWMLButtonDown);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WMPaint(var Message: TWMPaint);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WMPaletteChanged(var Message : TMessage);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure WMSetFocus(var Message: TWMSetFocus);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property Align :
property AutoCR : Boolean
property AutoLF : Boolean
property AutoRepaint : Boolean
property BorderStyle : TBorderStyle
property CharWidth : Integer
property Cols : Integer
property Ctl3D :
property FKeys : Integer
property Font : TFont
property LineHeight : Integer
property LocalEcho : Boolean
property Log : Boolean
property MonoChrome : Boolean
property Rows : Integer
property SelectRect : TRect
property TabOrder :
property TabStop :
property Text : String
property Xlat : Boolean
event OnClick :
event OnKeyBuffer : TKeyBufferEvent
event OnKeyPress :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FAppOnMessage : TMessageEvent;
FAutoRepaint : Boolean;
FBorderStyle : TBorderStyle;
FBorderWidth : Integer;
FCaretCreated : Boolean;
FCaretShown : Boolean;
FCharWidth : Integer;
FCursorVisible : Boolean;
FFileHandle : TextFile;
FFKeys : Integer;
FFlagCirconflexe : Boolean;
FFlagTrema : Boolean;
FFont : TFont;
FInternalLeading : Integer;
FLineHeight : Integer;
FLocalEcho : Boolean;
FLog : Boolean;
FMonoChrome : Boolean;
FOnKeyBuffer : TKeyBufferEvent;
FPal : HPalette;
FPaletteEntries : array[0..NumPaletteEntries - 1] of TPaletteEntry;
FScreen : TScreen;
FSelectRect : TRect;
FTopLine : Integer;
FVScrollBar : TScrollBar;