Class TTnEmulVT (unit TnEmulvt)

Inherits from

TEmulVT

Constructors


constructor Create(AOwner: TComponent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions

procedure Connect;

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *

destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Disconnect;

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *

procedure EditOptions;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetLocalEcho : Boolean;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetSelTextBuf(Buffer: PChar; BufSize: Integer): Integer;

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *

function IsConnected : Boolean;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure RequestLocalEcho(newValue : Boolean);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure RestoreOptions;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function Send(Data : Pointer; Len : Integer) : integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function SendStr(Data : String) : integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Display(Msg : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DoKeyBuffer(Buffer : PChar; Len : Integer);

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *

function GetLocation : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetOnEndOfRecord : TNotifyEvent;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure KeyPress(var Key: Char);

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure MouseMove(Shift: TShiftState; X, Y: Integer);

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *

procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *

procedure SetHostName(newValue : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetLocation(Value : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetOnEndOfRecord(Value : TNotifyEvent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TnCnxDataAvailable(Sender: TTnCnx; Buffer: PChar; Len : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TnCnxLocalEcho(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TnCnxSendLoc(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TnCnxSessionClosed(Sender: TTnCnx; Erc: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TnCnxSessionConnected(Sender: TTnCnx; Erc: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TnCnxTermType(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TriggerDataAvailable(Buffer: PChar; Len: Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

property Error : Word


property HostName : String


property IniFilename : String


property KeyName : String


property LocalEcho : Boolean


property Location : String


property Port : String


property SectionName : String


property Tag : LongInt


property UpperLock : Boolean


Events

event OnDataAvailable : TTnEmulVTDataAvailable


event OnEndOfRecord : TNotifyEvent


event OnLocalEcho : TNotifyEvent


event OnNamesClick : TNotifyEvent


event OnSendLoc : TNotifyEvent


event OnSessionClosed : TNotifyEvent


event OnSessionConnected : TNotifyEvent


event OnTermType : TNotifyEvent


Variables

TnCnx : TTnCnx;


FError : Word;


FFocusDrawn : Boolean;


FFocusRect : TRect;


FHostName : String;


FIniFilename : String;


FKeyName : String;


FLocalEcho : Boolean;


FMouseCaptured : Boolean;


FMouseDown : Boolean;


FMouseLeft : Integer;


FMouseTop : Integer;


FOnDataAvailable : TTnEmulVTDataAvailable;


FOnLocalEcho : TNotifyEvent;


FOnNamesClick : TNotifyEvent;


FOnSendLoc : TNotifyEvent;


FOnSessionClosed : TNotifyEvent;


FOnSessionConnected : TNotifyEvent;


FOnTermType : TNotifyEvent;


FPort : String;


FSectionName : String;


FTag : LongInt;


FUpperLock : Boolean;



Constructors


constructor Create(AOwner: TComponent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions


procedure Connect;

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *


destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Disconnect;

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *


procedure EditOptions;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetLocalEcho : Boolean;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetSelTextBuf(Buffer: PChar; BufSize: Integer): Integer;

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *


function IsConnected : Boolean;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure RequestLocalEcho(newValue : Boolean);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure RestoreOptions;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function Send(Data : Pointer; Len : Integer) : integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function SendStr(Data : String) : integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Display(Msg : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DoKeyBuffer(Buffer : PChar; Len : Integer);

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *


function GetLocation : String;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetOnEndOfRecord : TNotifyEvent;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure KeyPress(var Key: Char);

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure MouseMove(Shift: TShiftState; X, Y: Integer);

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * *


procedure SetHostName(newValue : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetLocation(Value : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetOnEndOfRecord(Value : TNotifyEvent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TnCnxDataAvailable(Sender: TTnCnx; Buffer: PChar; Len : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TnCnxLocalEcho(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TnCnxSendLoc(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TnCnxSessionClosed(Sender: TTnCnx; Erc: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TnCnxSessionConnected(Sender: TTnCnx; Erc: Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TnCnxTermType(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TriggerDataAvailable(Buffer: PChar; Len: Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


property Error : Word


property HostName : String


property IniFilename : String


property KeyName : String


property LocalEcho : Boolean


property Location : String


property Port : String


property SectionName : String


property Tag : LongInt


property UpperLock : Boolean


Events


event OnDataAvailable : TTnEmulVTDataAvailable


event OnEndOfRecord : TNotifyEvent


event OnLocalEcho : TNotifyEvent


event OnNamesClick : TNotifyEvent


event OnSendLoc : TNotifyEvent


event OnSessionClosed : TNotifyEvent


event OnSessionConnected : TNotifyEvent


event OnTermType : TNotifyEvent


Variables


TnCnx : TTnCnx;


FError : Word;


FFocusDrawn : Boolean;


FFocusRect : TRect;


FHostName : String;


FIniFilename : String;


FKeyName : String;


FLocalEcho : Boolean;


FMouseCaptured : Boolean;


FMouseDown : Boolean;


FMouseLeft : Integer;


FMouseTop : Integer;


FOnDataAvailable : TTnEmulVTDataAvailable;


FOnLocalEcho : TNotifyEvent;


FOnNamesClick : TNotifyEvent;


FOnSendLoc : TNotifyEvent;


FOnSessionClosed : TNotifyEvent;


FOnSessionConnected : TNotifyEvent;


FOnTermType : TNotifyEvent;


FPort : String;


FSectionName : String;


FTag : LongInt;


FUpperLock : Boolean;