Class TOptForm (unit Tnoptfrm) |
Inherits from
TForm
procedure A11ButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CancelButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FontButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure LaboButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NamesButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure OkButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RDVButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure USUSButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAltKeys : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoCr : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoLF : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetCols : integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetFKeys : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetLineHeight : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetLocalEcho : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetMonoChrome : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetRows : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetUpperLock : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetXlat : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAltKeys(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoCr(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoLF(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetCols(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetFKeys(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetHostName(Value : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetLineHeight(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetLocalEcho(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetMonoChrome(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetRows(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetUpperLock(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetXlat(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property AFont : TFont
property AltKeys : Boolean
property AutoCR : Boolean
property AutoLF : Boolean
property Cols : Integer
property FKeys : Integer
property HostName : String
property IniFilename : String
property KeyName : String
property LineHeight : Integer
property LocalEcho : Boolean
property MonoChrome : Boolean
property Rows : Integer
property SectionName : String
property UpperLock : Boolean
property Xlat : Boolean
event OnNamesClick : TNotifyEvent
A11Button : TButton;
AutoCRCheckBox : TCheckBox;
AutoLFCheckBox : TCheckBox;
CancelButton : TButton;
ColsEdit : TEdit;
FKeys1RadioButton : TRadioButton;
FKeys2RadioButton : TRadioButton;
FKeys3RadioButton : TRadioButton;
FontButton : TButton;
FontDialog1 : TFontDialog;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
LaboButton : TButton;
LineHeightEdit : TEdit;
LocalEchoCheckBox : TCheckBox;
MonoChromeCheckBox : TCheckBox;
NamesButton : TButton;
OkButton : TButton;
RDVButton : TButton;
RowsEdit : TEdit;
UpperLockCheckBox : TCheckBox;
USUSButton : TButton;
XlatCheckBox : TCheckBox;
FFont : TFont;
FHostName : String;
FIniFilename : String;
Private declarations
FKeyName : String;
FOnNamesClick : TNotifyEvent;
FSectionName : String;
procedure A11ButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure CancelButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FontButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure LaboButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NamesButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure OkButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RDVButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure USUSButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAltKeys : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoCr : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetAutoLF : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetCols : integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetFKeys : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetLineHeight : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetLocalEcho : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetMonoChrome : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetRows : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetUpperLock : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetXlat : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAltKeys(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoCr(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetAutoLF(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetCols(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetFKeys(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetHostName(Value : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetLineHeight(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetLocalEcho(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetMonoChrome(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetRows(Value : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetUpperLock(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetXlat(Value : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property AFont : TFont
property AltKeys : Boolean
property AutoCR : Boolean
property AutoLF : Boolean
property Cols : Integer
property FKeys : Integer
property HostName : String
property IniFilename : String
property KeyName : String
property LineHeight : Integer
property LocalEcho : Boolean
property MonoChrome : Boolean
property Rows : Integer
property SectionName : String
property UpperLock : Boolean
property Xlat : Boolean
event OnNamesClick : TNotifyEvent
A11Button : TButton;
AutoCRCheckBox : TCheckBox;
AutoLFCheckBox : TCheckBox;
CancelButton : TButton;
ColsEdit : TEdit;
FKeys1RadioButton : TRadioButton;
FKeys2RadioButton : TRadioButton;
FKeys3RadioButton : TRadioButton;
FontButton : TButton;
FontDialog1 : TFontDialog;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
LaboButton : TButton;
LineHeightEdit : TEdit;
LocalEchoCheckBox : TCheckBox;
MonoChromeCheckBox : TCheckBox;
NamesButton : TButton;
OkButton : TButton;
RDVButton : TButton;
RowsEdit : TEdit;
UpperLockCheckBox : TCheckBox;
USUSButton : TButton;
XlatCheckBox : TCheckBox;
FFont : TFont;
FHostName : String;
FIniFilename : String;
Private declarations
FKeyName : String;
FOnNamesClick : TNotifyEvent;
FSectionName : String;