Class

TfrmTemplateFields

Module

fTemplateFields

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


  TfrmTemplateFields = class(TfrmBase508Form)
    pnlBottom: TPanel;
    btnCancel: TButton;
    cboObjects: TORComboBox;
    btnInsert: TButton;
    btnPreview: TButton;
    lblReq: TVA508StaticText;
    pnlBottomSR: TPanel;
    lblSRCont2: TVA508StaticText;
    lblSRCont1: TVA508StaticText;
    lblSRStop: TVA508StaticText;
    pnlSRIntro: TPanel;
    lblSRIntro1: TVA508StaticText;
    lblSRIntro2: TVA508StaticText;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cboObjectsNeedData(Sender: TObject; const StartFrom: String;
      Direction, InsertAt: Integer);
    procedure cboObjectsDblClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnInsertClick(Sender: TObject);
    procedure btnPreviewClick(Sender: TObject);
    procedure cboObjectsChange(Sender: TObject);
  private
{    Fre: TRichEdit;}
    Fre: TCustomEdit;
    FInsertAllowed: boolean;
    FInitialized: boolean;
    FAutoLongLines: TNotifyEvent;
    procedure InsertField;
{    procedure Setre(const Value: TRichEdit);}
    procedure Setre(const Value: TCustomEdit);
    function ValidPreview: boolean;
    function ValidInsert: boolean;
  public
    procedure UpdateStatus;
{    property re: TRichEdit read Fre write Setre;}
    property re: TCustomEdit read Fre write Setre;
    property AutoLongLines: TNotifyEvent read FAutoLongLines write FAutoLongLines;
  end;

DFM Objects


frmTemplateFields : TfrmTemplateFields
 ├pnlBottom : TPanel
 │ ├btnCancel : TButton
 │ ├btnInsert : TButton
 │ ├btnPreview : TButton
 │ └lblReq : TVA508StaticText
 ├cboObjects : TORComboBox
 ├pnlBottomSR : TPanel
 │ ├lblSRCont2 : TVA508StaticText
 │ ├lblSRCont1 : TVA508StaticText
 │ ├lblSRStop : TVA508StaticText
 │ └pnlSRIntro : TPanel
 │   ├lblSRIntro1 : TVA508StaticText
 │   └lblSRIntro2 : TVA508StaticText
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnCancel TButton Public/Published -
btnInsert TButton Public/Published -
btnPreview TButton Public/Published -
cboObjects TORComboBox Public/Published -
FAutoLongLines TNotifyEvent Private -
FInitialized Boolean Private -
FInsertAllowed Boolean Private -
Fre TCustomEdit Private Fre: TRichEdit;
lblReq TVA508StaticText Public/Published -
lblSRCont1 TVA508StaticText Public/Published -
lblSRCont2 TVA508StaticText Public/Published -
lblSRIntro1 TVA508StaticText Public/Published -
lblSRIntro2 TVA508StaticText Public/Published -
lblSRStop TVA508StaticText Public/Published -
pnlBottom TPanel Public/Published -
pnlBottomSR TPanel Public/Published -
pnlSRIntro TPanel Public/Published -

Properties

Name Type Scope Comments
AutoLongLines TNotifyEvent Public -
re TCustomEdit Public Property re: TRichEdit read Fre write Setre;

Methods

Name Declaration Scope Comments
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
btnInsertClick procedure btnInsertClick(Sender: TObject); Public/Published -
btnPreviewClick procedure btnPreviewClick(Sender: TObject); Public/Published -
cboObjectsChange procedure cboObjectsChange(Sender: TObject); Public/Published -
cboObjectsDblClick procedure cboObjectsDblClick(Sender: TObject); Public/Published -
cboObjectsNeedData procedure cboObjectsNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
InsertField procedure InsertField; Private -
Setre procedure Setre(const Value: TCustomEdit); Private Procedure Setre(const Value: TRichEdit);
UpdateStatus procedure UpdateStatus; Public -
ValidInsert function ValidInsert: boolean; Private -
ValidPreview function ValidPreview: boolean; Private -

Referenced By (4)

Module (line) Referrer Type
fTemplateEditor (498) frmTemplateFields Read
fTemplateEditor (3461) - Read
fTemplateFieldEditor (193) frmTemplateFields Read
fTemplateFieldEditor (1361) - Read