Ignore:
Timestamp:
Mar 31, 2010, 5:06:56 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

Added functions to Templates, and Images tab

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/tmg-cprs/CPRS-Chart/rHTMLTools.pas

    r686 r729  
    3737  procedure RestoreIEPrinting;
    3838  function ExtractDateOfNote(Lines : TStringList) : string;
     39  Procedure ScanForSubs(Lines : TStrings);
    3940
    4041implementation
    … …  
    4647       fTMGPrintingAnimation,
    4748       ExtCtrls,
     49       uTemplateFields,
    4850       fTemplateDialog,
    4951       StrUtils;
    … …  
    160162
    161163    try
     164      rHTMLTools.ScanForSubs(Lines);    //Added to correct Printing issue  elh
    162165      frmNotes.SetDisplayToHTMLvsText([vmView,vmHTML],Lines);  //ActivateHtmlViewer(Lines);
    163166      if frmNotes.HtmlViewer.WaitForDocComplete = false then begin
    … …  
    280283        //Ensure images are downloaded before passing page to web browser       
    281284        frmImages.timLoadImagesTimer(nil);
     285        //NOTE: This often doesn't get the job completed before passing to browser
     286        //      ?? check for completion?
    282287      end;
    283288    end;
    … …  
    297302      or (Pos('<HTML>',Line) > 0)
    298303      or (Pos('<BR>',Line) > 0)
    299       or (Pos(fTemplateDialog.HTMLBEGINNINGTAG,Line) > 0)
     304      or (Pos(HTML_BEGIN_TAG,Line) > 0)
    300305      or (Pos('<P>',Line) > 0)
    301306      or (Pos('&NBSP',Line) > 0)
Note: See TracChangeset for help on using the changeset viewer.