Form.Canvas drucken, bitte um Hilfe

[Kostas]

Hallo Zusammen,

ich habe Testweise auf eine Form zwei Buttons und zeichne ein Rechteck auf dem canvas.
Wenn ich form.print aufrufe, wird mir das form gedruckt. Zu sehen sind allerdings nur die
Buttons, jedoch nicht das Rechteck.

Im Forum habe ich so einiges gefunden und habs auch halbwegs geschafft das auch das Rechteck gedruckt wird.
Nur die Abmessungen passen nicht. Vermutlich übergebe ich dem StretchBlt Schrott.
Das eigentliche Ziel sollte sein, das ich die Form auf eine vorgegebene Breite und Höhe in mm auf Papier bringe. Wenn die Form z.b. 200x200 pixel groß ist, möchte ich es auf Papier 80x80mm gedruckt haben.

Kann mir da bitte jemand helfen.


Gruß Kostas

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Pen.Width := 10;
  Canvas.Rectangle(100,100, Form1.ClientWidth-100, Form1.ClientHeight-100);
end;

procedure TForm1.Button2Click(Sender: TObject);
const nExtraSpace = 10;

var nPrtMaxWidth,
    nPrtMaxHeight,
    nPrinterOffsetX,
    nPrinterOffsetY,
    nMarginHorz,
    nMarginVert:integer;
begin
  with Printer do
  begin
    BeginDoc;
    try
      nPrtMaxWidth := GetDeviceCaps(Printer.Handle,HORZRES);
      nPrtMaxHeight := GetDeviceCaps(Printer.Handle,VERTRES);
      nPrinterOffsetX := GetDeviceCaps(Printer.Handle,PHYSICALOFFSETX);
      nPrinterOffsetY := GetDeviceCaps(Printer.Handle,PHYSICALOFFSETY);
      nMarginHorz := nPrinterOffsetX + nExtraSpace;
      nMarginVert := nPrinterOffsetY + nExtraSpace;

      StretchBlt(Printer.canvas.Handle,
                 nMarginHorz,
                 nMarginVert,
                 nPrtMaxWidth - 2 * nMarginHorz,
                 nPrtMaxHeight - 2 * nMarginVert,
                 Form1.canvas.Handle,
                 Form1.Left,
                 Form1.Top,
                 Form1.Width,
                 Form1.Height,
                 SRCCOPY);

      Form1.PaintTo(Printer.Handle,
                    nMarginHorz,
                    nMarginVert);


    finally
      EndDoc;
    end;{try}
  end;{with}

end;