Class

TfrmTemplateFieldEditor

Module

fTemplateFieldEditor

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmTemplateFieldEditor = class(TfrmBase508Form)
  pnlBottom: TPanel;
  btnOK: TButton;
  btnCancel: TButton;
  pnlObjs: TPanel;
  cbxObjs: TORComboBox;
  lblObjs: TLabel;
  splLeft: TSplitter;
  pnlRight: TPanel;
  pnlPreview: TPanel;
  lblNotes: TLabel;
  pnlObjInfo: TPanel;
  lblName: TLabel;
  lblS2: TLabel;
  lblLM: TLabel;
  edtName: TCaptionEdit;
  splBottom: TSplitter;
  lblS1: TLabel;
  edtLMText: TCaptionEdit;
  cbxType: TORComboBox;
  lblType: TLabel;
  reNotes: TRichEdit;
  btnApply: TButton;
  btnPreview: TButton;
  mnuMain: TMainMenu;
  mnuAction: TMenuItem;
  mnuNew: TMenuItem;
  mnuCopy: TMenuItem;
  cbHide: TCheckBox;
  pnlTop: TPanel;
  MenuBar1: TMenuBar;
  btnNew: TButton;
  btnCopy: TButton;
  mnuDelete: TMenuItem;
  btnDelete: TButton;
  mnuPreview: TMenuItem;
  popText: TPopupMenu;
  mnuBPUndo: TMenuItem;
  N8: TMenuItem;
  mnuBPCut: TMenuItem;
  mnuBPCopy: TMenuItem;
  mnuBPPaste: TMenuItem;
  mnuBPSelectAll: TMenuItem;
  N2: TMenuItem;
  mnuBPCheckGrammar: TMenuItem;
  mnuBPSpellCheck: TMenuItem;
  lblTextLen: TLabel;
  edtTextLen: TCaptionEdit;
  udTextLen: TUpDown;
  pnlSwap: TPanel;
  edtDefault: TCaptionEdit;
  pnlNum: TPanel;
  edtURL: TCaptionEdit;
  udDefNum: TUpDown;
  edtDefNum: TCaptionEdit;
  udMinVal: TUpDown;
  edtMinVal: TCaptionEdit;
  lblMin: TLabel;
  udInc: TUpDown;
  edtInc: TCaptionEdit;
  lblInc: TLabel;
  lblMaxVal: TLabel;
  edtMaxVal: TCaptionEdit;
  udMaxVal: TUpDown;
  reItems: TRichEdit;
  lblLength: TLabel;
  edtLen: TCaptionEdit;
  udLen: TUpDown;
  cbxDefault: TORComboBox;
  lblS3: TLabel;
  gbIndent: TGroupBox;
  lblIndent: TLabel;
  edtIndent: TCaptionEdit;
  udIndent: TUpDown;
  udPad: TUpDown;
  edtPad: TCaptionEdit;
  lblPad: TLabel;
  gbMisc: TGroupBox;
  cbActive: TCheckBox;
  cbRequired: TCheckBox;
  cbSepLines: TCheckBox;
  pnlDate: TPanel;
  edtDateDef: TCaptionEdit;
  cbxDateType: TORComboBox;
  lblDateType: TLabel;
  cbExclude: TCheckBox;
  lblReq: TStaticText;
  lblLine: TLabel;
  lblCol: TLabel;
  N14: TMenuItem;
  mnuInsertTemplateField: TMenuItem;
  procedure cbxObjsNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure FormCreate(Sender: TObject);
  procedure cbxObjsChange(Sender: TObject);
  procedure edtNameChange(Sender: TObject);
  procedure cbxTypeChange(Sender: TObject);
  procedure edtLenChange(Sender: TObject);
  procedure edtDefaultChange(Sender: TObject);
  procedure cbxDefaultChange(Sender: TObject);
  procedure edtLMTextChange(Sender: TObject);
  procedure cbActiveClick(Sender: TObject);
  procedure mnuNewClick(Sender: TObject);
  procedure btnOKClick(Sender: TObject);
  procedure btnApplyClick(Sender: TObject);
  procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  procedure btnCancelClick(Sender: TObject);
  procedure reItemsChange(Sender: TObject);
  procedure cbHideClick(Sender: TObject);
  procedure edtNameExit(Sender: TObject);
  procedure mnuCopyClick(Sender: TObject);
  procedure mnuDeleteClick(Sender: TObject);
  procedure btnPreviewClick(Sender: TObject);
  procedure mnuActionClick(Sender: TObject);
  procedure cbRequiredClick(Sender: TObject);
  procedure pnlObjsResize(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure cbxObjsSynonymCheck(Sender: TObject; const Text: String;
    var IsSynonym: Boolean);
  procedure popTextPopup(Sender: TObject);
  procedure mnuBPUndoClick(Sender: TObject);
  procedure mnuBPCutClick(Sender: TObject);
  procedure mnuBPCopyClick(Sender: TObject);
  procedure mnuBPPasteClick(Sender: TObject);
  procedure mnuBPSelectAllClick(Sender: TObject);
  procedure mnuBPCheckGrammarClick(Sender: TObject);
  procedure mnuBPSpellCheckClick(Sender: TObject);
  procedure cbSepLinesClick(Sender: TObject);
  procedure edtpopControlEnter(Sender: TObject);
  procedure cbxObjsKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure edtTextLenChange(Sender: TObject);
  procedure edtDefNumChange(Sender: TObject);
  procedure edtMinValChange(Sender: TObject);
  procedure edtMaxValChange(Sender: TObject);
  procedure edtIncChange(Sender: TObject);
  procedure edtURLChange(Sender: TObject);
  procedure edtPadChange(Sender: TObject);
  procedure edtIndentChange(Sender: TObject);
  procedure reNotesChange(Sender: TObject);
  procedure cbxDateTypeChange(Sender: TObject);
  procedure cbExcludeClick(Sender: TObject);
  procedure FormResize(Sender: TObject);
  procedure reItemsResizeRequest(Sender: TObject; Rect: TRect);
  procedure reItemsSelectionChange(Sender: TObject);
  procedure mnuInsertTemplateFieldClick(Sender: TObject);
  procedure ControlExit(Sender: TObject);
  procedure reNotesKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
private
  CopyFld, FFld: TTemplateField;
  FUpdating: boolean;
  FReloadChanges: boolean;
  FChangesPending: boolean;
  FDeleted: TORStringList;
  FHideSynonyms: boolean;
  FLastRect: TRect;
  procedure UpdateControls;
  procedure SyncItems(DoUpdate: boolean = TRUE);
  function SaveChanges: boolean;
  procedure ResetListEntry;
  procedure VerifyName;
  procedure EnableButtons;
  procedure SetFld(const Value: TTemplateField);
  procedure SetHideSynonyms(const Value: boolean);
  function GetPopupControl: TCustomEdit;
public
  { Public declarations }
end;

DFM Objects


frmTemplateFieldEditor : TfrmTemplateFieldEditor
 ├splLeft : TSplitter
 ├pnlBottom : TPanel
 │ ├lblReq : TStaticText
 │ ├btnOK : TButton
 │ ├btnCancel : TButton
 │ ├btnApply : TButton
 │ ├btnPreview : TButton
 │ └cbHide : TCheckBox
 ├pnlObjs : TPanel
 │ ├lblObjs : TLabel
 │ └cbxObjs : TORComboBox
 ├pnlRight : TPanel
 │ ├splBottom : TSplitter
 │ ├pnlPreview : TPanel
 │ │ ├lblNotes : TLabel
 │ │ └reNotes : TRichEdit
 │ └pnlObjInfo : TPanel
 │   ├lblName : TLabel
 │   ├lblS2 : TLabel
 │   ├lblLM : TLabel
 │   ├lblS1 : TLabel
 │   ├lblType : TLabel
 │   ├lblTextLen : TLabel
 │   ├lblLength : TLabel
 │   ├lblS3 : TLabel
 │   ├lblLine : TLabel
 │   ├lblCol : TLabel
 │   ├edtName : TCaptionEdit
 │   ├edtLMText : TCaptionEdit
 │   ├cbxType : TORComboBox
 │   ├edtTextLen : TCaptionEdit
 │   ├udTextLen : TUpDown
 │   ├pnlSwap : TPanel
 │   │ ├edtDefault : TCaptionEdit
 │   │ ├pnlNum : TPanel
 │   │ │ ├lblMin : TLabel
 │   │ │ ├lblInc : TLabel
 │   │ │ ├lblMaxVal : TLabel
 │   │ │ ├udDefNum : TUpDown
 │   │ │ ├edtDefNum : TCaptionEdit
 │   │ │ ├udMinVal : TUpDown
 │   │ │ ├edtMinVal : TCaptionEdit
 │   │ │ ├udInc : TUpDown
 │   │ │ ├edtInc : TCaptionEdit
 │   │ │ ├edtMaxVal : TCaptionEdit
 │   │ │ └udMaxVal : TUpDown
 │   │ ├edtURL : TCaptionEdit
 │   │ ├reItems : TRichEdit
 │   │ ├cbxDefault : TORComboBox
 │   │ └pnlDate : TPanel
 │   │   ├lblDateType : TLabel
 │   │   ├edtDateDef : TCaptionEdit
 │   │   └cbxDateType : TORComboBox
 │   ├edtLen : TCaptionEdit
 │   ├udLen : TUpDown
 │   ├gbIndent : TGroupBox
 │   │ ├lblIndent : TLabel
 │   │ ├lblPad : TLabel
 │   │ ├edtIndent : TCaptionEdit
 │   │ ├udIndent : TUpDown
 │   │ ├udPad : TUpDown
 │   │ └edtPad : TCaptionEdit
 │   └gbMisc : TGroupBox
 │     ├cbActive : TCheckBox
 │     ├cbRequired : TCheckBox
 │     ├cbSepLines : TCheckBox
 │     └cbExclude : TCheckBox
 ├pnlTop : TPanel
 │ ├MenuBar1 : TMenuBar
 │ ├btnNew : TButton
 │ ├btnCopy : TButton
 │ └btnDelete : TButton
 ├amgrMain : TVA508AccessibilityManager
 ├mnuMain : TMainMenu
 │ └mnuAction : TMenuItem
 │   ├mnuNew : TMenuItem
 │   ├mnuCopy : TMenuItem
 │   ├mnuDelete : TMenuItem
 │   └mnuPreview : TMenuItem
 └popText : TPopupMenu
   ├mnuBPUndo : TMenuItem
   ├N8 : TMenuItem
   ├mnuBPCut : TMenuItem
   ├mnuBPCopy : TMenuItem
   ├mnuBPPaste : TMenuItem
   ├mnuBPSelectAll : TMenuItem
   ├N2 : TMenuItem
   ├mnuBPCheckGrammar : TMenuItem
   ├mnuBPSpellCheck : TMenuItem
   ├N14 : TMenuItem
   └mnuInsertTemplateField : TMenuItem

Class Hierarchy


Class Fields

Name Type Scope Comments
btnApply TButton Public/Published -
btnCancel TButton Public/Published -
btnCopy TButton Public/Published -
btnDelete TButton Public/Published -
btnNew TButton Public/Published -
btnOK TButton Public/Published -
btnPreview TButton Public/Published -
cbActive TCheckBox Public/Published -
cbExclude TCheckBox Public/Published -
cbHide TCheckBox Public/Published -
cbRequired TCheckBox Public/Published -
cbSepLines TCheckBox Public/Published -
cbxDateType TORComboBox Public/Published -
cbxDefault TORComboBox Public/Published -
cbxObjs TORComboBox Public/Published -
cbxType TORComboBox Public/Published -
CopyFld TTemplateField Private -
edtDateDef TCaptionEdit Public/Published -
edtDefault TCaptionEdit Public/Published -
edtDefNum TCaptionEdit Public/Published -
edtInc TCaptionEdit Public/Published -
edtIndent TCaptionEdit Public/Published -
edtLen TCaptionEdit Public/Published -
edtLMText TCaptionEdit Public/Published -
edtMaxVal TCaptionEdit Public/Published -
edtMinVal TCaptionEdit Public/Published -
edtName TCaptionEdit Public/Published -
edtPad TCaptionEdit Public/Published -
edtTextLen TCaptionEdit Public/Published -
edtURL TCaptionEdit Public/Published -
FChangesPending Boolean Private -
FDeleted TORStringList Private -
FFld TTemplateField Private -
FHideSynonyms Boolean Private -
FLastRect TRect Private -
FReloadChanges Boolean Private -
FUpdating Boolean Private -
gbIndent TGroupBox Public/Published -
gbMisc TGroupBox Public/Published -
lblCol TLabel Public/Published -
lblDateType TLabel Public/Published -
lblInc TLabel Public/Published -
lblIndent TLabel Public/Published -
lblLength TLabel Public/Published -
lblLine TLabel Public/Published -
lblLM TLabel Public/Published -
lblMaxVal TLabel Public/Published -
lblMin TLabel Public/Published -
lblName TLabel Public/Published -
lblNotes TLabel Public/Published -
lblObjs TLabel Public/Published -
lblPad TLabel Public/Published -
lblReq TStaticText Public/Published -
lblS1 TLabel Public/Published -
lblS2 TLabel Public/Published -
lblS3 TLabel Public/Published -
lblTextLen TLabel Public/Published -
lblType TLabel Public/Published -
MenuBar1 Simple (unknown) Public/Published -
mnuAction TMenuItem Public/Published -
mnuBPCheckGrammar TMenuItem Public/Published -
mnuBPCopy TMenuItem Public/Published -
mnuBPCut TMenuItem Public/Published -
mnuBPPaste TMenuItem Public/Published -
mnuBPSelectAll TMenuItem Public/Published -
mnuBPSpellCheck TMenuItem Public/Published -
mnuBPUndo TMenuItem Public/Published -
mnuCopy TMenuItem Public/Published -
mnuDelete TMenuItem Public/Published -
mnuInsertTemplateField TMenuItem Public/Published -
mnuMain Simple (unknown) Public/Published -
mnuNew TMenuItem Public/Published -
mnuPreview TMenuItem Public/Published -
N14 TMenuItem Public/Published -
N2 TMenuItem Public/Published -
N8 TMenuItem Public/Published -
pnlBottom TPanel Public/Published -
pnlDate TPanel Public/Published -
pnlNum TPanel Public/Published -
pnlObjInfo TPanel Public/Published -
pnlObjs TPanel Public/Published -
pnlPreview TPanel Public/Published -
pnlRight TPanel Public/Published -
pnlSwap TPanel Public/Published -
pnlTop TPanel Public/Published -
popText TPopupMenu Public/Published -
reItems TRichEdit Public/Published -
reNotes TRichEdit Public/Published -
splBottom TSplitter Public/Published -
splLeft TSplitter Public/Published -
udDefNum TUpDown Public/Published -
udInc TUpDown Public/Published -
udIndent TUpDown Public/Published -
udLen TUpDown Public/Published -
udMaxVal TUpDown Public/Published -
udMinVal TUpDown Public/Published -
udPad TUpDown Public/Published -
udTextLen TUpDown Public/Published -

Methods

Name Declaration Scope Comments
btnApplyClick procedure btnApplyClick(Sender: TObject); Public/Published -
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
btnPreviewClick procedure btnPreviewClick(Sender: TObject); Public/Published -
cbActiveClick procedure cbActiveClick(Sender: TObject); Public/Published -
cbExcludeClick procedure cbExcludeClick(Sender: TObject); Public/Published -
cbHideClick procedure cbHideClick(Sender: TObject); Public/Published -
cbRequiredClick procedure cbRequiredClick(Sender: TObject); Public/Published -
cbSepLinesClick procedure cbSepLinesClick(Sender: TObject); Public/Published -
cbxDateTypeChange procedure cbxDateTypeChange(Sender: TObject); Public/Published -
cbxDefaultChange procedure cbxDefaultChange(Sender: TObject); Public/Published -
cbxObjsChange procedure cbxObjsChange(Sender: TObject); Public/Published -
cbxObjsKeyDown procedure cbxObjsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cbxObjsNeedData procedure cbxObjsNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cbxObjsSynonymCheck procedure cbxObjsSynonymCheck(Sender: TObject; const Text: String; var IsSynonym: Boolean); Public/Published -
cbxTypeChange procedure cbxTypeChange(Sender: TObject); Public/Published -
ControlExit procedure ControlExit(Sender: TObject); Public/Published -
edtDefaultChange procedure edtDefaultChange(Sender: TObject); Public/Published -
edtDefNumChange procedure edtDefNumChange(Sender: TObject); Public/Published -
edtIncChange procedure edtIncChange(Sender: TObject); Public/Published -
edtIndentChange procedure edtIndentChange(Sender: TObject); Public/Published -
edtLenChange procedure edtLenChange(Sender: TObject); Public/Published -
edtLMTextChange procedure edtLMTextChange(Sender: TObject); Public/Published -
edtMaxValChange procedure edtMaxValChange(Sender: TObject); Public/Published -
edtMinValChange procedure edtMinValChange(Sender: TObject); Public/Published -
edtNameChange procedure edtNameChange(Sender: TObject); Public/Published -
edtNameExit procedure edtNameExit(Sender: TObject); Public/Published -
edtPadChange procedure edtPadChange(Sender: TObject); Public/Published -
edtpopControlEnter procedure edtpopControlEnter(Sender: TObject); Public/Published -
edtTextLenChange procedure edtTextLenChange(Sender: TObject); Public/Published -
edtURLChange procedure edtURLChange(Sender: TObject); Public/Published -
EnableButtons procedure EnableButtons; Private -
FormCloseQuery procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
GetPopupControl function GetPopupControl: TCustomEdit; Private -
mnuActionClick procedure mnuActionClick(Sender: TObject); Public/Published -
mnuBPCheckGrammarClick procedure mnuBPCheckGrammarClick(Sender: TObject); Public/Published -
mnuBPCopyClick procedure mnuBPCopyClick(Sender: TObject); Public/Published -
mnuBPCutClick procedure mnuBPCutClick(Sender: TObject); Public/Published -
mnuBPPasteClick procedure mnuBPPasteClick(Sender: TObject); Public/Published -
mnuBPSelectAllClick procedure mnuBPSelectAllClick(Sender: TObject); Public/Published -
mnuBPSpellCheckClick procedure mnuBPSpellCheckClick(Sender: TObject); Public/Published -
mnuBPUndoClick procedure mnuBPUndoClick(Sender: TObject); Public/Published -
mnuCopyClick procedure mnuCopyClick(Sender: TObject); Public/Published -
mnuDeleteClick procedure mnuDeleteClick(Sender: TObject); Public/Published -
mnuInsertTemplateFieldClick procedure mnuInsertTemplateFieldClick(Sender: TObject); Public/Published -
mnuNewClick procedure mnuNewClick(Sender: TObject); Public/Published -
pnlObjsResize procedure pnlObjsResize(Sender: TObject); Public/Published -
popTextPopup procedure popTextPopup(Sender: TObject); Public/Published -
reItemsChange procedure reItemsChange(Sender: TObject); Public/Published -
reItemsResizeRequest procedure reItemsResizeRequest(Sender: TObject; Rect: TRect); Public/Published -
reItemsSelectionChange procedure reItemsSelectionChange(Sender: TObject); Public/Published -
reNotesChange procedure reNotesChange(Sender: TObject); Public/Published -
reNotesKeyUp procedure reNotesKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
ResetListEntry procedure ResetListEntry; Private -
SaveChanges function SaveChanges: boolean; Private -
SetFld procedure SetFld(const Value: TTemplateField); Private -
SetHideSynonyms procedure SetHideSynonyms(const Value: boolean); Private -
SyncItems procedure SyncItems(DoUpdate: boolean = TRUE); Private -
UpdateControls procedure UpdateControls; Private -
VerifyName procedure VerifyName; Private -

Referenced By (2)

Module (line) Referrer Type
fTemplateFieldEditor (198) - Read
fTemplateFieldEditor (201) - Read