Procedure

TfrmTemplateDialog.btnPreviewClick

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateDialog

Declaration

procedure btnPreviewClick(Sender: TObject);

Calls Hierarchy


TfrmTemplateDialog.btnPreviewClick
 ├GetText
 │ └ResolveTemplateFields
 │   ├TTemplateDialogEntry.GetControlText
 │   │ ├GetTemplateField
 │   │ │ ├LoadTemplateFieldByIEN
 │   │ │ ├LoadTemplateField
 │   │ │ └TTemplateField.Create
 │   │ │   ├TemplateFieldCode2Field
 │   │ │   └TemplateDateCode2DateType
 │   │ ├GetOriginalItem
 │   │ │ ├GetTemplateField...
 │   │ │ └StripEmbedded
 │   │ └TfraTemplateFieldButton.GetButtonText
 │   ├GetTemplateField...
 │   ├AddNewTxt
 │   └WordWrapText
 │     └WrappedText
 └ReportBox
   └CreateReportBox
     └TfrmBase508Form.Create
       ├TfrmBase508Form.UpdateAccessibilityActions
       ├UnfocusableControlEnter
       └AdjustControls
         ├TfrmBase508Form.ModifyUnfocusableControl
         └..(rec)..

Calls

Name Declaration Comments
GetText procedure GetText(SL: TStrings; IncludeEmbeddedFields: Boolean); -
ReportBox procedure ReportBox(ReportText: TStrings; ReportTitle: string; AllowPrint: boolean); -


Source

801   procedure TfrmTemplateDialog.btnPreviewClick(Sender: TObject);
802   var
803     TmpSL: TStringList;
804   
805   begin
806     TmpSL := TStringList.Create;
807     try
808       FastAssign(SL, TmpSL);
809       GetText(TmpSL, FALSE);  {FALSE = Do not include embedded fields}
810       StripScreenReaderCodes(TmpSL);
811       ReportBox(TmpSL, 'Dialog Preview', FALSE);
812     finally
813       TmpSL.Free;
814     end;
815   end;