Procedure

TfrmTemplateFieldEditor.mnuNewClick

Module

fTemplateFieldEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateFieldEditor

Declaration

procedure mnuNewClick(Sender: TObject);

Calls Hierarchy


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

Called-By Hierarchy


   TfrmTemplateFieldEditor.mnuNewClick
TfrmTemplateFieldEditor.mnuCopyClick┘ 

Calls

Name Declaration Comments
TTemplateField.Assign procedure Assign(AFld: TTemplateField); -
TfrmTemplateFieldEditor.cbxObjsChange procedure cbxObjsChange(Sender: TObject); -
TTemplateField.Create constructor Create(AData: TStrings); -
TfrmTemplateFieldEditor.SetFld procedure SetFld(const Value: TTemplateField); -
TfrmTemplateFieldEditor.UpdateControls procedure UpdateControls; -

Called-By

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


Source

692   procedure TfrmTemplateFieldEditor.mnuNewClick(Sender: TObject);
693   begin
694     SetFld(TTemplateField.Create(nil));
695     if(assigned(FFld)) then
696     begin
697       FChangesPending := TRUE;
698       if cbxObjs.ShortCount = 0 then
699       begin
700         cbxObjs.Items.Insert(0,LLS_LINE);
701         cbxObjs.Items.Insert(1,'');
702       end;
703       if(assigned(CopyFld)) then
704         FFld.Assign(CopyFld);
705       cbxObjs.Items.Insert(0,FFld.ID + U + FFld.FldName);
706       cbxObjs.SelectByID(FFld.ID);
707       cbxObjsChange(nil);
708       if(assigned(FFld)) then
709         edtName.SetFocus;
710     end
711     else
712       UpdateControls;
713   end;