Class TTnEmulVT (unit TnEmulvt) |
Inherits from
TEmulVT
constructor Create(AOwner: TComponent);
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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
event OnDataAvailable : TTnEmulVTDataAvailable
event OnEndOfRecord : TNotifyEvent
event OnLocalEcho : TNotifyEvent
event OnNamesClick : TNotifyEvent
event OnSendLoc : TNotifyEvent
event OnSessionClosed : TNotifyEvent
event OnSessionConnected : TNotifyEvent
event OnTermType : TNotifyEvent
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;
constructor Create(AOwner: TComponent);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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
event OnDataAvailable : TTnEmulVTDataAvailable
event OnEndOfRecord : TNotifyEvent
event OnLocalEcho : TNotifyEvent
event OnNamesClick : TNotifyEvent
event OnSendLoc : TNotifyEvent
event OnSessionClosed : TNotifyEvent
event OnSessionConnected : TNotifyEvent
event OnTermType : TNotifyEvent
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;