Procedure

TTemplateField.Assign

Module

uTemplateFields

Last Modified

3/11/2015 8:41:54 AM

Visibility

Public

Owner

TTemplateField

Declaration

procedure Assign(AFld: TTemplateField);

Called-By Hierarchy


                   TTemplateField.Assign
   TfrmTemplateFieldEditor.mnuNewClick┘ 
TfrmTemplateFieldEditor.mnuCopyClick┘   

Called-By

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


Source

1586  procedure TTemplateField.Assign(AFld: TTemplateField);
1587  begin
1588    FMaxLen        := AFld.FMaxLen;
1589    FFldName       := AFld.FFldName;
1590    FLMText        := AFld.FLMText;
1591    FEditDefault   := AFld.FEditDefault;
1592    fNotes         := AFld.fNotes;
1593    FItems         := AFld.FItems;
1594    FInactive      := AFld.FInactive;
1595    FItemDefault   := AFld.FItemDefault;
1596    FFldType       := AFld.FFldType;
1597    FRequired      := AFld.FRequired;
1598    FSepLines      := AFld.FSepLines;
1599    FTextLen       := AFld.FTextLen;
1600    FIndent        := AFld.FIndent;
1601    FPad           := AFld.FPad;
1602    FMinVal        := AFld.FMinVal;
1603    FMaxVal        := AFld.FMaxVal;
1604    FIncrement     := AFld.FIncrement;
1605    FDateType      := AFld.FDateType;
1606    FURL           := AFld.FURL;
1607  end;