Class

TTemplateDialogEntry

Module

uTemplateFields

Last Modified

3/11/2015 8:41:54 AM

Scope

Interfaced

Inherits from

TObject

Declaration


TTemplateDialogEntry = class(TObject)
private
  FID: string;
  FFont: TFont;
  FPanel: TDlgFieldPanel;
  FControls: TStringList;
  FIndents: TStringList;
  FFirstBuild: boolean;
  FOnChange: TNotifyEvent;
  FText: string;
  FInternalID: string;
  FObj: TObject;
  FFieldValues: string;
  FUpdating: boolean;
  FAutoDestroyOnPanelFree: boolean;
  FPanelDying: boolean;
  FOnDestroy: TNotifyEvent;
  procedure KillLabels;
  function GetFieldValues: string;
  procedure SetFieldValues(const Value: string);
  procedure SetAutoDestroyOnPanelFree(const Value: boolean);
  function StripCode(var txt: string; code: char): boolean;
protected
  procedure UpDownChange(Sender: TObject);
  procedure DoChange(Sender: TObject);
  function GetControlText(CtrlID: integer; NoCommas: boolean;
                          var FoundEntry: boolean; AutoWrap: boolean;
                          emField: string = ''): string;
  procedure SetControlText(CtrlID: integer; AText: string);
public
  constructor Create(AParent: TWinControl; AID, Text: string);
  destructor Destroy; override;
  function GetPanel(MaxLen: integer; AParent: TWinControl;
                    OwningCheckBox: TCPRSDialogParentCheckBox): TDlgFieldPanel;
  function GetText: string;
  property Text: string read FText write FText;
  property InternalID: string read FInternalID write FInternalID;
  property ID: string read FID;
  property Obj: TObject read FObj write FObj;
  property OnChange: TNotifyEvent read FOnChange write FOnChange;
  property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
  property FieldValues: string read GetFieldValues write SetFieldValues;
  property AutoDestroyOnPanelFree: boolean read FAutoDestroyOnPanelFree
                                           write SetAutoDestroyOnPanelFree;
end;

Class Hierarchy


TObject
 └TTemplateDialogEntry

Class Fields

Name Type Scope Comments
FAutoDestroyOnPanelFree Boolean Private -
FControls TStringList Private -
FFieldValues UnicodeString Private -
FFirstBuild Boolean Private -
FFont Simple (unknown) Private -
FID UnicodeString Private -
FIndents TStringList Private -
FInternalID UnicodeString Private -
FObj TObject Private -
FOnChange TNotifyEvent Private -
FOnDestroy TNotifyEvent Private -
FPanel TDlgFieldPanel Private -
FPanelDying Boolean Private -
FText UnicodeString Private -
FUpdating Boolean Private -

Properties

Name Type Scope Comments
AutoDestroyOnPanelFree Boolean Public -
FieldValues UnicodeString Public -
ID UnicodeString Public -
InternalID UnicodeString Public -
Obj TObject Public -
OnChange TNotifyEvent Public -
OnDestroy TNotifyEvent Public -
Text UnicodeString Public -

Constructors

Name Declaration Scope Comments
Create constructor Create(AParent: TWinControl; AID, Text: string); Public -

Destructors

Name Declaration Scope Comments
Destroy destructor Destroy; override; Public -

Methods

Name Declaration Scope Comments
DoChange procedure DoChange(Sender: TObject); Protected -
GetControlText function GetControlText(CtrlID: integer; NoCommas: boolean; var FoundEntry: boolean; AutoWrap: boolean; emField: string = ''): string; Protected -
GetFieldValues function GetFieldValues: string; Private -
GetPanel function GetPanel(MaxLen: integer; AParent: TWinControl; OwningCheckBox: TCPRSDialogParentCheckBox): TDlgFieldPanel; Public -
GetText function GetText: string; Public -
KillLabels procedure KillLabels; Private -
SetAutoDestroyOnPanelFree procedure SetAutoDestroyOnPanelFree(const Value: boolean); Private -
SetControlText procedure SetControlText(CtrlID: integer; AText: string); Protected -
SetFieldValues procedure SetFieldValues(const Value: string); Private -
StripCode function StripCode(var txt: string; code: char): boolean; Private -
UpDownChange procedure UpDownChange(Sender: TObject); Protected -

Referenced By (20)

Module (line) Referrer Type
fTemplateDialog (448) - Read
fTemplateDialog (561) - Read
fTemplateDialog (754) - Read
fTemplateDialog (822) - Read
uReminders (3514) - Read
uReminders (5101) - Read
uReminders (5107) - Read
uTemplateFields (121) CreateDialogControls Read
uTemplateFields (162) GetDialogEntry Read
uTemplateFields (311) - Read
uTemplateFields (323) - Read
uTemplateFields (327) - Read
uTemplateFields (345) - Unknown
uTemplateFields (479) - Read
uTemplateFields (530) - Read
uTemplateFields (560) - Read
uTemplateFields (599) - Read
uTemplateFields (1073) - Read
uTemplateFields (1729) - Read
uTemplateFields (1732) - Read