Procedure

TfrmTemplateFieldEditor.mnuCopyClick

Module

fTemplateFieldEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateFieldEditor

Declaration

procedure mnuCopyClick(Sender: TObject);

Calls Hierarchy


TfrmTemplateFieldEditor.mnuCopyClick
 └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...

Calls

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


Source

828   procedure TfrmTemplateFieldEditor.mnuCopyClick(Sender: TObject);
829   begin
830     if assigned(FFld) then
831     begin
832       CopyFld := FFld;
833       try
834         mnuNewClick(nil);
835       finally
836         CopyFld := nil;
837       end;
838     end;
839   end;