| Class TTnEmulVT (unit TnEmulvt) |
| 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;