Einzelnen Beitrag anzeigen

Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.439 Beiträge
 
Delphi 2007 Professional
 
#9

Re: Vektor Format anzeigen/drucken

  Alt 5. Nov 2007, 15:34
ok, das hab ich mal

kannst mir noch kurz sagen, wie ich nun ein SVG, das eine A4 Seite darstellen soll richtig und positionsgetreu wieder auf den drucker bringe?

habe mal so angefangen ...

Delphi-Quellcode:
    if PrintDialog1.Execute then begin
        temp := TPrinter.Create;
        //temp.PrinterIndex := PrintDialog1.
        temp.BeginDoc;

        //x := temp.Canvas.ClipRect;
        bounds.X := 0;
        bounds.Y := 0;
        bounds.Width := temp.PageWidth;
        bounds.Height := temp.PageHeight;
        
        SVGImage1.SVG.PaintTo(temp.Canvas.Handle, bounds, m, 0);
        temp.EndDoc;
        temp.Free;
    end;
(allerdings stimmt dann am ausdruck nicht wirklich was - ist viel zu klein .... )
in welchen einheiten braucht der die bounds?
zuwas kann ich der druck routine noch zusätzlich rechtecke mit angeben?
Gruss Hans

2B or not 2B, that is FF
  Mit Zitat antworten Zitat