📄 adtrmemu.pas
字号:
{*********************************************************}
{* ADTRMEMU.PAS 4.04 *}
{* Copyright (C) TurboPower Software 1996-2002 *}
{* All rights reserved. *}
{*********************************************************}
{* Terminal: Terminal, Emulator ancestor, and TTY & *}
{* VT100 Emulators *}
{*********************************************************}
unit ADTrmEmu;
{Notes:
To speed up the display of lots of data, the terminal provides
a lazy display option. If data is arriving at full speed, the
terminal 'saves up' the data it needs to display until either
(a) it receives a certain number of bytes (defaulting to 200
bytes), or (b) until no data has arrived or the keyboard was
not used for a certain amount of time (default 100
milliseconds). This improves the perceived speed of the
terminal display.
The BlinkTime property can be set to 0, meaning no blinking.
This in turn means that text on the display marked as blinking
will not, it'll be 'on' all the time. For efficiency reasons,
the blink rate cannot be set to anything less than 250 milli-
seconds.
The Capture property has only two values on reading: whether
data capture is 'on' or 'off'. It has three possible values on
writing: 'on', 'off', or 'append'. If the value written is
'append' and the current value is 'off', the capture file is
opened in non-sharing mode for appending data and the value of
the Capture property is then set to 'on' (note that if the
file doesn't exist, it will be created). If the value written
is 'append' and the current value is 'on', nothing happens.
A valid value for the CaptureFile property is required to set
Capture to 'on' or 'append'. If Capture is 'on' and the value
of CaptureFile is changed, Capture is set 'off', the internal
file name changed and then Capture is set back 'on'. If you
want to append to the new file in this situation, the user is
responsible for manually setting Capture 'off' before and then
'append' afterwards.
}
{ several preliminary code changes are left in the code, marked by !!.!! }
{ comments. They should be invisible to current applications }
{$I AWDEFINE.INC}
{$Z-}
interface
uses
{$IFDEF Win32} Windows, {$ELSE} WinTypes, WinProcs, {$ENDIF}
Messages, SysUtils, Classes, Graphics, Controls, ExtCtrls,
Forms, Dialogs, ClipBrd, Menus,
OOMisc,
ADPort, ADExcept,
ADTrmPsr, ADTrmMap, ADTrmBuf;
type
TAdCharSource = (csUnknown, csKeyboard, csPort, csWriteChar); {!!.04}
TAdEmuCommand = (ecNone, {!!.04}
ecBell, {!!.04}
ecBackspace, {!!.04}
ecTabHorz, {!!.04}
ecLF, {!!.04}
ecCR, {!!.04}
ecBackTabHorz, {!!.04}
ecCursorDown, {!!.04}
ecCursorLeft, {!!.04}
ecCursorRight, {!!.04}
ecCursorUp, {!!.04}
ecCursorPos, {!!.04}
ecDeleteChars, {!!.04}
ecDeleteLines, {!!.04}
ecInsertChars, {!!.04}
ecInsertLines, {!!.04}
ecEraseAll, {!!.04}
ecEraseChars, {!!.04}
ecEraseFromBOW, {!!.04}
ecEraseFromBOL, {!!.04}
ecEraseLine, {!!.04}
ecEraseScreen, {!!.04}
ecEraseToEOL, {!!.04}
ecEraseToEOW, {!!.04}
ecSetHorzTabStop, {!!.04}
ecClearHorzTabStop, {!!.04}
ecClearVertTabStop, {!!.04}
ecClearAllHorzTabStops, {!!.04}
ecSetVertTabStop, {!!.04}
ecClearAllVertTabStops, {!!.04}
ecSetScrollRegion, {!!.04}
ecTabVert, {!!.04}
ecBackTabVert, {!!.04}
ecBackColor, {!!.04}
ecForeColor, {!!.04}
ecAbsAddress, {!!.04}
ecNoAbsAddress, {!!.04}
ecAutoWrap, {!!.04}
ecNoAutoWrap, {!!.04}
ecAutoWrapDelay, {!!.04}
ecNoAutoWrapDelay, {!!.04}
ecInsertMode, {!!.04}
ecNoInsertMode, {!!.04}
ecNewLineMode, {!!.04}
ecNoNewLineMode, {!!.04}
ecScrollRegion, {!!.04}
ecNoScrollRegion, {!!.04}
ecSetCharAttr, {!!.04}
ecAddBold, {!!.04}
ecBoldOnly, {!!.04}
ecRemoveBold, {!!.04}
ecInvertBold, {!!.04}
ecAddUnderLine, {!!.04}
ecUnderlineOnly, {!!.04}
ecRemoveUnderline, {!!.04}
ecInvertUnderline, {!!.04}
ecAddStrikethrough, {!!.04}
ecStrikethroughOnly, {!!.04}
ecRemoveStrikethrough, {!!.04}
ecInvertStrikethrough, {!!.04}
ecAddBlink, {!!.04}
ecBlinkOnly, {!!.04}
ecRemoveBlink, {!!.04}
ecInvertBlink, {!!.04}
ecAddReverse, {!!.04}
ecReverseOnly, {!!.04}
ecRemoveReverse, {!!.04}
ecInvertReverse, {!!.04}
ecAddInvisible, {!!.04}
ecInvisibleOnly, {!!.04}
ecRemoveInvisible, {!!.04}
ecInvertInvisible, {!!.04}
ecAddSelected, {!!.04}
ecRemoveSelected, {!!.04}
ecSelectedOnly, {!!.04}
ecInvertSelected, {!!.04}
ecRemoveAllAttr, {!!.04}
ecRemoveAllAttrIgnoreSelect, {!!.04}
ecClearAndHome, {!!.04}
ecHome, {!!.04}
ecCursorEOL, {!!.04}
ecCursorBOL, {!!.04}
ecCursorTop, {!!.04}
ecCursorBottom, {!!.04}
ecWriteString, {!!.04}
ecColor, {!!.04}
ecSaveCursorPos, {!!.04}
ecRestoreCursorPos, {!!.04}
ecDeviceAttributesReport, {!!.04}
ecNEL, {!!.04}
ecReset, {!!.04}
ecAnswerback, {!!.04}
ecDECALN, {!!.04}
ecDeviceStatusReport {!!.04}
); {!!.04}
type
TAdCaptureMode = ( {terminal data capture modes..}
cmOff, {..no capturing of data}
cmOn, {..capture new data to new file}
cmAppend); {..capture data, appending to old file}
TAdTerminalCursorMovedEvent =
procedure (aSender : TObject; aRow, aCol : integer) of object;
TAdCursorType = ( {cursor types}
ctNone, {..no cursor is visible}
ctUnderline, {..underline cursor}
ctBlock); {..block cursor}
TAdVT100LineAttr = ( {special VT100 line attributes}
ltNormal, {..normal, no special attrs}
ltDblHeightTop, {..line is top half of double-height line}
ltDblHeightBottom, {..line is bottom half of double-height line}
ltDblWidth); {..line is double-width}
const
{default property values for the terminal}
adc_TermActive = true;
adc_TermBackColor = adc_TermBufBackColor;
adc_TermBlinkTime = 500;
adc_TermBorderStyle = bsSingle;
adc_TermCapture = cmOff;
adc_TermCaptureFile = 'APROTERM.CAP';
adc_TermColumnCount = adc_TermBufColCount;
adc_TermCursorType = ctBlock;
adc_TermFontName = 'Terminal';
adc_TermForeColor = adc_TermBufForeColor;
adc_TermHalfDuplex = false;
adc_TermHeight = 200;
adc_TermLazyByteDelay = 200;
adc_TermLazyTimeDelay = 100;
adc_TermRowCount = adc_TermBufRowCount;
adc_TermScrollback = false;
adc_TermScrollRowCount = adc_TermBufScrollRowCount;
adc_TermUseLazyDisplay = true;
adc_TermWantAllKeys = true;
adc_TermWidth = 300;
adc_FreezeScrollback = true;
adc_TermMouseSelect = True; {!!.03}
adc_TermAutoCopy = True; {!!.03}
adc_TermAutoScrollback = True; {!!.03}
adc_TermHideScrollbars = False; {!!.03}
adc_TermFollowsCursor = True; {!!.03}
adc_TermPasteToPort = False; {!!.04}
adc_TermPasteToScreen = False; {!!.04}
{default property values for the VT100 emulator--'power-up' values}
adc_VT100ANSIMode = true;
adc_VT100Answerback = 'APROterm';
adc_VT100AppKeyMode = false;
adc_VT100AppKeypadMode = false;
adc_VT100AutoRepeat = true;
adc_VT100Col132Mode = false;
adc_VT100G0CharSet = 0;
adc_VT100G1CharSet = 0;
adc_VT100GPOMode = false;
adc_VT100InsertMode = adc_TermBufUseInsertMode;
adc_VT100Interlace = false;
adc_VT100NewLineMode = adc_TermBufUseNewLineMode;
adc_VT100RelOriginMode = not adc_TermBufUseAbsAddress;
adc_VT100RevScreenMode = false;
adc_VT100SmoothScrollMode = false;
adc_VT100WrapAround = adc_TermBufUseAutoWrap;
type
TAdEmuCommandList = class; {!!.04}
TAdOnProcessChar = procedure ( Sender : TObject; {!!.04}
Character : Char; {!!.04}
var ReplaceWith : string; {!!.04}
Commands : TAdEmuCommandList; {!!.04}
CharSource : TAdCharSource) of object; {!!.04}
TAdEmuCommandParams = class; {!!.04}
TAdEmuCommandParamsItem = class (TCollectionItem) {!!.04}
private {!!.04}
FCollection : TAdEmuCommandParams; {!!.04}
FName : string; {!!.04}
FValue : string; {!!.04}
protected {!!.04}
public {!!.04}
constructor Create (Collection : TCollection); override; {!!.04}
destructor Destroy; override; {!!.04}
published {!!.04}
property Collection : TAdEmuCommandParams {!!.04}
read FCollection write FCollection; {!!.04}
property Name : string read FName write FName; {!!.04}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -