Panel drucken inkl. Kompos

[capo]

Hallo
Wie kann ich ein Panel drucken inkl. den darauf sitzenden Kompos?
Geht sowas überhaupt?
gruss vomm capo

[bitsetter]

Moin moin,

kannst ja mal testen ob das was bringt:

Delphi-Quellcode:

uses Printers;

Procedure BildAusSchnitt(hWND: HWND; iLeft, iTop, iWidth, iHeight: integer);
var
  c: TCanvas;
begin
  BringWindowToTop(hWND);
  c:= TCanvas.Create;
  c.Handle:= GetWindowDC(hWND);
  try
    printer.begindoc;
    printer.Canvas.CopyRect(Rect(0, 0, iWidth* 10, iHeight* 10), c, Rect(iLeft, iTop, iLeft+ iWidth, iTop+ iHeight));
    printer.enddoc;
  finally
    ReleaseDC(hWND, c.handle);
    c.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   BildAusSchnitt(Panel1.Handle, 0, 0, Panel1.Width, Panel1.Height);
end;

[capo]

Das klappt nicht nur suupergut, sieht auch noch echt Klasse aus.
Danke
capo

[capo]

Noch eine Frage dazu, kann man auch die Position des Panels beim ausdrucken bestimmen?
Ich hab das so versucht:
printer.Canvas.CopyRect(Rect(200, 200, iWidth* 10, iHeight* 10), c, Rect(iLeft, iTop, iLeft+ iWidth, Merkwürdigerweise wird das Panel beim ausdrucken ab einem bestimmten Wert gestaucht/verzerrt dargestellt.
Capo

[bitsetter]

Hallo,

dazu muss man das Ganze wohl etwas umbauen:

Delphi-Quellcode:

Procedure PrintWinControl(hWND: HWND; iLeft, iTop, iWidth, iHeight: integer);
var
  c: TCanvas;
begin
  iLeft := iLeft * 10;
  iTop := iTop * 10;
  BringWindowToTop(hWND);
  c:= TCanvas.Create;
  c.Handle:= GetWindowDC(hWND);
  try
    printer.begindoc;
    //Windows.SetMapMode(printer.Canvas.Handle, MM_LOMETRIC);
    printer.Canvas.CopyRect(Rect(iLeft, iTop, iLeft + iWidth * 10, iTop + iHeight * 10), c, Rect(0, 0, iWidth, iHeight));
    printer.enddoc;
  finally
    ReleaseDC(hWND, c.handle);
    c.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   PrintWinControl(Panel1.Handle, 80, 140, Panel1.Width, Panel1.Height);
end;

[capo]

Danke....habs sogar verstanden