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;