| Class TCustomEmulVT (unit Emulvt) |
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
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
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);| Properties |
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| Events |
event OnClick :
event OnKeyBuffer : TKeyBufferEvent
event OnKeyPress :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
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;| Constructors |
constructor Create(AOwner: TComponent);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
| Functions |
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);* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
| Properties |
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| Events |
event OnClick :
event OnKeyBuffer : TKeyBufferEvent
event OnKeyPress :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
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;