search

AngelicTech / thtmlviewer

Automatically exported from code.google.com/p/thtmlviewer
Other
1 stars 1 forks source link

white lines rendered on page bottom when printing #324

Open GoogleCodeExporter opened 9 years ago

GoogleCodeExporter commented 9 years ago 
when printing HTML documents with THtmlViewer I'm getting white boxes/lines at 
the end of each page. Please see attached file (printed on a gray background).
The lines seem to snap to PrintMarginLeft on the left, and PrintMarginBottom on 
the bottom, and seem to begin just after the last line of text. On the last 
page, only the lower line is visible.
It seems to relate to the procedure "WhiteoutArea" in "THtmlViewer.Print" 
(htmlview.pas). The problem does not happen when I just comment parts of this 
off, but I'd rather ask why this is here in the first place.

I'm using Delphi 7, and the latest version of THtmlViewer. Here is part of my 
code.

......
type
  THTMLEditForm
  private
    FHTMLViewer: THTMLViewer;
    FMetafilePrinter: TMetaFilePrinter; 
.......
procedure THTMLEditForm.BeginPrint;
.......
begin
.....
      FHTMLViewer.PrintMarginLeft    := trunc(FMarginLeft/10);
      FHTMLViewer.PrintMarginTop     := trunc(FMarginTop/10);
      FHTMLViewer.PrintMarginRight   := trunc(FMarginRight/10);
      FHTMLViewer.PrintMarginBottom  := trunc(FMarginBottom/10);
.....
      FHTMLViewer.LoadFromString( S );
      FMetaFilePrinter := TMetaFilePrinter.create(nil);
      try
        FHTMLViewer.Print( FMetafilePrinter, 1, 9999, ppPreview );
      except
        FMetafilePrinter.free;
        raise;
      end;
.....

Thanks for the help, and congratulations on your great component!
Best regards.

Original issue reported on code.google.com by scholtz....@gmail.com on 12 Dec 2013 at 1:30

Attachments:

GoogleCodeExporter commented 9 years ago 
This is a kind of clipping. 

I'm pretty sure setting a clip rect could avoid whiting out the area. 

OrphanCat

Original comment by OrphanCat on 12 Dec 2013 at 6:20