Class TfrmNewField (unit FNewFld)

Inherits from

TForm

Constructors



Functions

procedure BBHelpClick(Sender: TObject);


procedure BBOkClick(Sender: TObject);


procedure BBResetClick(Sender: TObject);


procedure CMBTypeKeyPress(Sender: TObject; var Key: Char);


procedure EDisplayLabelKeyPress(Sender: TObject; var Key: Char);


procedure EFieldNameChange(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


function GetEntryData(const Prefix,FieldName:string;Level,EntryID:Integer):word;


procedure FillEntryClasses;


Properties

Events

Variables

BBCancel : TBitBtn;


BBHelp : TBitBtn;


BBOk : TBitBtn;


BBReset : TBitBtn;


CBCalculated : TCheckBox;


CBReadOnly : TCheckBox;


CBShowInGrid : TCheckBox;


CBVisible : TCheckBox;


CMBCaptionStyle : TComboBox;


CMBType : TComboBox;


ECName : TEdit;


EDefValue : TEdit;


EDisplayLabel : TEdit;


EDisplayWidth : TSpinEdit;


EFieldName : TEdit;


EHint : TEdit;


EPL : TSpinEdit;


FormSaver : TFormSaver;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


INIDatabase : TINIDatabase;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


PanelForSBExt1 : TAutoAlignPanel;


secTfrmNewField : TINISection;


secTfrmNewFieldCBCalculated : TINIEntryBoolean;


secTfrmNewFieldCBReadOnly : TINIEntryBoolean;


secTfrmNewFieldCBShowInGrid : TINIEntryBoolean;


secTfrmNewFieldCBVisible : TINIEntryBoolean;


secTfrmNewFieldCMBCaptionStyle : TINIEntryString;


secTfrmNewFieldEDefValue : TINIEntryString;


secTfrmNewFieldEDisplayWidth : TINIEntryInteger;


secTfrmNewFieldEHint : TINIEntryString;


secTfrmNewFieldEPL : TINIEntryInteger;


FOldFieldName : string;


FPrefix : string;



Constructors


Functions


procedure BBHelpClick(Sender: TObject);


procedure BBOkClick(Sender: TObject);


procedure BBResetClick(Sender: TObject);


procedure CMBTypeKeyPress(Sender: TObject; var Key: Char);


procedure EDisplayLabelKeyPress(Sender: TObject; var Key: Char);


procedure EFieldNameChange(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


function GetEntryData(const Prefix,FieldName:string;Level,EntryID:Integer):word;


procedure FillEntryClasses;


Properties


Events


Variables


BBCancel : TBitBtn;


BBHelp : TBitBtn;


BBOk : TBitBtn;


BBReset : TBitBtn;


CBCalculated : TCheckBox;


CBReadOnly : TCheckBox;


CBShowInGrid : TCheckBox;


CBVisible : TCheckBox;


CMBCaptionStyle : TComboBox;


CMBType : TComboBox;


ECName : TEdit;


EDefValue : TEdit;


EDisplayLabel : TEdit;


EDisplayWidth : TSpinEdit;


EFieldName : TEdit;


EHint : TEdit;


EPL : TSpinEdit;


FormSaver : TFormSaver;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


INIDatabase : TINIDatabase;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


PanelForSBExt1 : TAutoAlignPanel;


secTfrmNewField : TINISection;


secTfrmNewFieldCBCalculated : TINIEntryBoolean;


secTfrmNewFieldCBReadOnly : TINIEntryBoolean;


secTfrmNewFieldCBShowInGrid : TINIEntryBoolean;


secTfrmNewFieldCBVisible : TINIEntryBoolean;


secTfrmNewFieldCMBCaptionStyle : TINIEntryString;


secTfrmNewFieldEDefValue : TINIEntryString;


secTfrmNewFieldEDisplayWidth : TINIEntryInteger;


secTfrmNewFieldEHint : TINIEntryString;


secTfrmNewFieldEPL : TINIEntryInteger;


FOldFieldName : string;


FPrefix : string;