Procedure

TfrmTemplateFieldEditor.btnPreviewClick

Module

fTemplateFieldEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateFieldEditor

Declaration

procedure btnPreviewClick(Sender: TObject);


Source

927   procedure TfrmTemplateFieldEditor.btnPreviewClick(Sender: TObject);
928   var
929     TmpSL: TStringList;
930   
931   begin
932     if(assigned(FFld)) then
933     begin
934       TmpSL := TStringList.Create;
935       try
936         TmpSL.Add(TemplateFieldBeginSignature + FFld.FldName + TemplateFieldEndSignature);
937         CheckBoilerplate4Fields(TmpSL, 'Preview Template Field: ' + FFld.FldName, TRUE);
938       finally
939         TmpSL.Free;
940       end;
941     end;
942   end;