Class TOptForm (unit Tnoptfrm)

Inherits from

TForm

Constructors



Functions

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);

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

Properties

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


Events

event OnNamesClick : TNotifyEvent


Variables

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;



Constructors


Functions


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);

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


Properties


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


Events


event OnNamesClick : TNotifyEvent


Variables


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;