Function

UpdateImportMessage

Module

fTemplateImport

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function UpdateImportMessage(CurrentCount: integer): boolean;

Called-By Hierarchy


                          UpdateImportMessage
                             GetXMLFromWord┘ 
TfrmTemplateEditor.mnuImportTemplateClick┘   

Called-By

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


Source

53    function UpdateImportMessage(CurrentCount: integer): boolean;
54    begin
55      if assigned(frmTemplateImport) then
56      begin
57        Result := (not frmTemplateImport.btnCancel.Enabled);
58        if not Result then
59        begin
60          frmTemplateImport.gaugeImport.Progress := CurrentCount;
61          Application.ProcessMessages;
62        end;  
63      end
64      else
65        Result := TRUE;
66    end;