Procedure

TfrmTemplateFieldEditor.cbxObjsChange

Module

fTemplateFieldEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateFieldEditor

Declaration

procedure cbxObjsChange(Sender: TObject);

Calls Hierarchy


TfrmTemplateFieldEditor.cbxObjsChange
 ├TfrmTemplateFieldEditor.SetFld
 │ └TfrmTemplateFieldEditor.EnableButtons
 ├GetTemplateField
 │ ├LoadTemplateFieldByIEN
 │ ├LoadTemplateField
 │ └TTemplateField.Create
 │   ├TemplateFieldCode2Field
 │   └TemplateDateCode2DateType
 └TfrmTemplateFieldEditor.UpdateControls
   ├TTemplateField.GetRequired
   ├SetY
   │ └SetLbl
   ├SetLbl
   ├TfrmTemplateFieldEditor.SyncItems
   │ └StripEmbedded
   └TfrmTemplateFieldEditor.FormResize

Called-By Hierarchy


   TfrmTemplateFieldEditor.cbxObjsChange
   TfrmTemplateFieldEditor.mnuNewClick┤ 
TfrmTemplateFieldEditor.mnuCopyClick┘ │ 
 TfrmTemplateFieldEditor.btnApplyClick┘ 

Calls

Name Declaration Comments
GetTemplateField function GetTemplateField(ATemplateField: string; ByIEN: boolean): TTemplateField; -
TfrmTemplateFieldEditor.SetFld procedure SetFld(const Value: TTemplateField); -
TfrmTemplateFieldEditor.UpdateControls procedure UpdateControls; -

Called-By

Name Declaration Comments
TfrmTemplateFieldEditor.btnApplyClick procedure btnApplyClick(Sender: TObject); -
TfrmTemplateFieldEditor.mnuNewClick procedure mnuNewClick(Sender: TObject); -


Source

555   procedure TfrmTemplateFieldEditor.cbxObjsChange(Sender: TObject);
556   begin
557     if(cbxObjs.ItemIEN <> 0) then
558       SetFld(GetTemplateField(cbxObjs.ItemID, TRUE))
559     else
560       SetFld(nil);
561     UpdateControls;
562   end;