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

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;