Class

TTemplateField

Module

uTemplateFields

Last Modified

3/11/2015 8:41:54 AM

Scope

Interfaced

Inherits from

TObject

Declaration


TTemplateField = class(TObject)
private
  FMaxLen: integer;
  FFldName: string;
  FNameChanged: boolean;
  FLMText: string;
  FEditDefault: string;
  fNotes: string;
  FItems: string;
  FInactive: boolean;
  FItemDefault: string;
  FFldType: TTemplateFieldType;
  FRequired: boolean;
  FSepLines: boolean;
  FTextLen: integer;
  FIndent: integer;
  FPad: integer;
  FMinVal: integer;
  FMaxVal: integer;
  FIncrement: integer;
  FURL: string;
  FDateType: TTmplFldDateType;
  FModified: boolean;
  FID: string;
  FLocked: boolean;
  procedure SetEditDefault(const Value: string);
  procedure SetFldName(const Value: string);
  procedure SetFldType(const Value: TTemplateFieldType);
  procedure SetInactive(const Value: boolean);
  procedure SetRequired(const Value: boolean);
  procedure SetSepLines(const Value: boolean);
  procedure SetItemDefault(const Value: string);
  procedure SetItems(const Value: string);
  procedure SetLMText(const Value: string);
  procedure SetMaxLen(const Value: integer);
  procedure SetNotes(const Value: string);
  procedure SetID(const Value: string);
  procedure SetIncrement(const Value: integer);
  procedure SetIndent(const Value: integer);
  procedure SetMaxVal(const Value: integer);
  procedure SetMinVal(const Value: integer);
  procedure SetPad(const Value: integer);
  procedure SetTextLen(const Value: integer);
  procedure SetURL(const Value: string);
  function GetTemplateFieldDefault: string;
  procedure CreateDialogControls(Entry: TTemplateDialogEntry;
                                 var Index: Integer; CtrlID: integer);
  function SaveError: string;
  function Width: integer;
  function GetRequired: boolean;
  procedure SetDateType(const Value: TTmplFldDateType);
public
  constructor Create(AData: TStrings);
  destructor Destroy; override;
  procedure Assign(AFld: TTemplateField);
  function NewField: boolean;
  function CanModify: boolean;
  property ID: string read FID write SetID;
  property FldName: string read FFldName write SetFldName;
  property NameChanged: boolean read FNameChanged;
  property FldType: TTemplateFieldType read FFldType write SetFldType;
  property MaxLen: integer read FMaxLen write SetMaxLen;
  property EditDefault: string read FEditDefault write SetEditDefault;
  property Items: string read FItems write SetItems;
  property ItemDefault: string read FItemDefault write SetItemDefault;
  property LMText: string read FLMText write SetLMText;
  property Inactive: boolean read FInactive write SetInactive;
  property Required: boolean read GetRequired write SetRequired;
  property SepLines: boolean read FSepLines write SetSepLines;
  property TextLen: integer read FTextLen write SetTextLen;
  property Indent: integer read FIndent write SetIndent;
  property Pad: integer read FPad write SetPad;
  property MinVal: integer read FMinVal write SetMinVal;
  property MaxVal: integer read FMaxVal write SetMaxVal;
  property Increment: integer read FIncrement write SetIncrement;
  property URL: string read FURL write SetURL;
  property DateType: TTmplFldDateType read FDateType write SetDateType;
  property Notes: string read fNotes write SetNotes;
  property TemplateFieldDefault: string read GetTemplateFieldDefault;
end;

Class Hierarchy


TObject
 └TTemplateField

Class Fields

Name Type Scope Comments
FDateType Private -
FEditDefault UnicodeString Private -
FFldName UnicodeString Private -
FFldType Private -
FID UnicodeString Private -
FInactive Boolean Private -
FIncrement Integer Private -
FIndent Integer Private -
FItemDefault UnicodeString Private -
FItems UnicodeString Private -
FLMText UnicodeString Private -
FLocked Boolean Private -
FMaxLen Integer Private -
FMaxVal Integer Private -
FMinVal Integer Private -
FModified Boolean Private -
FNameChanged Boolean Private -
FNotes UnicodeString Private -
FPad Integer Private -
FRequired Boolean Private -
FSepLines Boolean Private -
FTextLen Integer Private -
FURL UnicodeString Private -

Properties

Name Type Scope Comments
DateType Public -
EditDefault UnicodeString Public -
FldName UnicodeString Public -
FldType Public -
ID UnicodeString Public -
Inactive Boolean Public -
Increment Integer Public -
Indent Integer Public -
ItemDefault UnicodeString Public -
Items UnicodeString Public -
LMText UnicodeString Public -
MaxLen Integer Public -
MaxVal Integer Public -
MinVal Integer Public -
NameChanged Boolean Public -
Notes UnicodeString Public -
Pad Integer Public -
Required Boolean Public -
SepLines Boolean Public -
TemplateFieldDefault UnicodeString Public -
TextLen Integer Public -
URL UnicodeString Public -

Constructors

Name Declaration Scope Comments
Create constructor Create(AData: TStrings); Public TTemplateField

Destructors

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

Methods

Name Declaration Scope Comments
Assign procedure Assign(AFld: TTemplateField); Public -
CanModify function CanModify: boolean; Public -
CreateDialogControls procedure CreateDialogControls(Entry: TTemplateDialogEntry; var Index: Integer; CtrlID: integer); Private -
GetRequired function GetRequired: boolean; Private -
GetTemplateFieldDefault function GetTemplateFieldDefault: string; Private -
NewField function NewField: boolean; Public -
SaveError function SaveError: string; Private -
SetDateType procedure SetDateType(const Value: TTmplFldDateType); Private -
SetEditDefault procedure SetEditDefault(const Value: string); Private -
SetFldName procedure SetFldName(const Value: string); Private -
SetFldType procedure SetFldType(const Value: TTemplateFieldType); Private -
SetID procedure SetID(const Value: string); Private -
SetInactive procedure SetInactive(const Value: boolean); Private -
SetIncrement procedure SetIncrement(const Value: integer); Private -
SetIndent procedure SetIndent(const Value: integer); Private -
SetItemDefault procedure SetItemDefault(const Value: string); Private -
SetItems procedure SetItems(const Value: string); Private -
SetLMText procedure SetLMText(const Value: string); Private -
SetMaxLen procedure SetMaxLen(const Value: integer); Private -
SetMaxVal procedure SetMaxVal(const Value: integer); Private -
SetMinVal procedure SetMinVal(const Value: integer); Private -
SetNotes procedure SetNotes(const Value: string); Private -
SetPad procedure SetPad(const Value: integer); Private -
SetRequired procedure SetRequired(const Value: boolean); Private -
SetSepLines procedure SetSepLines(const Value: boolean); Private -
SetTextLen procedure SetTextLen(const Value: integer); Private -
SetURL procedure SetURL(const Value: string); Private -
Width function Width: integer; Private -

Referenced By (27)

Module (line) Referrer Type
fTemplateFieldEditor (161) TfrmTemplateFieldEditor Read
fTemplateFieldEditor (174) SetFld Read
fTemplateFieldEditor (694) - Read
fTemplateFieldEditor (841) - Read
uReminders (4555) - Read
uTemplateFields (130) Assign Read
uTemplateFields (170) GetTemplateField Read
uTemplateFields (171) TemplateFieldNameProblem Read
uTemplateFields (482) - Read
uTemplateFields (561) - Read
uTemplateFields (624) - Read
uTemplateFields (638) - Read
uTemplateFields (646) - Read
uTemplateFields (660) - Read
uTemplateFields (663) - Read
uTemplateFields (666) - Read
uTemplateFields (690) - Read
uTemplateFields (708) - Read
uTemplateFields (719) - Read
uTemplateFields (748) - Read
uTemplateFields (755) - Read
uTemplateFields (776) - Read
uTemplateFields (791) - Read
uTemplateFields (1586) - Read
uTemplateFields (1744) - Read
uTemplateFields (1867) - Read
uTemplates (2777) - Read