Procedure

StartImportMessage

Module

fTemplateImport

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure StartImportMessage(AFileName: string; MaxCount: integer);

Calls Hierarchy


StartImportMessage
 └TfrmBase508Form.Create
   ├TfrmBase508Form.UpdateAccessibilityActions
   ├UnfocusableControlEnter
   └AdjustControls
     ├TfrmBase508Form.ModifyUnfocusableControl
     └..(rec)..

Called-By Hierarchy


                           StartImportMessage
                             GetXMLFromWord┘ 
TfrmTemplateEditor.mnuImportTemplateClick┘   

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -

Called-By

Name Declaration Comments
GetXMLFromWord function GetXMLFromWord(const AFileName: string; Data: TStrings): boolean; -


Source

36    procedure StartImportMessage(AFileName: string; MaxCount: integer);
37    begin
38      if not assigned(frmTemplateImport) then
39      begin
40        frmTemplateImport := TfrmTemplateImport.Create(Application);
41        ResizeAnchoredFormToFont(frmTemplateImport);
42        with frmTemplateImport do
43        begin
44          lblImporting.Caption := lblImporting.Caption + AFileName;
45          lblImporting.Hint := lblImporting.Caption;
46          gaugeImport.MaxValue := MaxCount;
47          Show;
48          Application.ProcessMessages;
49        end;
50      end;
51    end;