Entwickler-Ecke :: Thema anzeigen - Panel drucken via printer.canvas funktioniert nicht mehr ?!?

JoelH - Mo 14.03.11 08:54
Titel: Panel drucken via printer.canvas funktioniert nicht mehr ?!?

Hi Leute,

habe ein sehr seltsames Problem, ich habe folgenden Code

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

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

den hab ich von hier http://www.delphipraxis.net/93647-panel-drucken-inkl-kompos.html "geklaut"
und so ruf ich ihn auf

Delphi-Quelltext

1:	BildAusSchnitt(Panel6.Handle, 2, 2, 600, 500, 7);

und das hat auch mal funktioniert. Delphiversion ist D2007. Seltsamerweise scheint er jetzt aber nicht mehr zu funktionieren und ich raff nicht warum. Win7 erzeigt Zugriffsverletzungen und auf einem XP-Rechner kommt nur ein leeres Blatt raus :( Kann das mal jemand versuchen zu replizieren? Ich bin sicher, dass der Code funktioniert hat und ich daran auch nichts geändert habe, ausser ihn diverse mal neu compiliert zu haben. :( :( :(

Yogu - Mo 14.03.11 09:03

Ich hab kein Delphi und kann es daher auch nicht testen, aber wie wär's denn mit der Methode TWinControl.PaintTo [http://docwiki.embarcadero.com/VCL/en/Controls.TWinControl.PaintTo]? Da kannst du einen Canvas eingeben, in das das Control gezeichnet werden soll. Dann kannst du das Panel sogar drucken, wenn das Fenster gerade nicht im Vordergrund ist.

JoelH - Mi 16.03.11 08:22

Das Problem hierbei ist, dass das ganze Teil gedruckt wird, ich aber nur einen bestimmten Ausschnitt benötige.

Edit:
Okay das Ausschnittsproblem hab ich nun gelöst, aber dafür ist ein andereres Problem aufgetreten. Auf dem Panel liegen Edits, Combos und auch Richedits Komponenten drauf. Leider wird der Inhalt der Comboboxen und Richedits nicht in die Bitmap übernommen :(

bummi - Mi 16.03.11 11:39

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Procedure CompletePaintTo(C:TwinControl;Dest:TCanvas;x,y:Integer);
// 20110316 by Thomas Wassermann
var
  i:Integer;
  DC:HDC;
begin
   c.PaintTo(Dest,x,y);
   for I := 0 to C.ControlCount- 1 do
      if c.Controls[i] is TCustomEdit then
        begin
          DC :=  TCustomEdit(c.Controls[i]).Handle);
          BitBlt(Dest.Handle,
                 x + c.Controls[i].Left, y +  c.Controls[i].Top
                 , c.Controls[i].Width,  c.Controls[i].Height,DC,0,0,SRCCOPY);
          ReleaseDC(TCustomEdit(c.Controls[i]).Handle,DC);
        end;
end;

Yogu - Mi 16.03.11 16:26

bummi: Funktioniert deine Variante auch, wenn das Fenster teilweise verdeckt ist? In der Beschreibung von BitBlt steht:

Zitat:

The BitBlt function performs a bit-block transfer of the color data corresponding to a rectangle of pixels from the specified source device context into a destination device context.

Ich würde folgende Methode probieren:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure RecursivePaintTo(Control: TWinControl; Canvas: TCanvas, X, Y: Integer);
var i: Integer;
begin
  Control.PaintTo(Canvas, X, Y);
  for i := 0 to Control.ControlCount - 1 do
  begin
    if Control is TWinControl then
      RecursivePaintTo(Control.Controls[i], Canvas, Control.Left, Control.Top);
  end;
end;

Solange nur Edits, ComboBoxen und RichEdits - also alles WinControls - in dem Panel sind, dürfte es so klappen. Wie es mit Labels aussieht, weiß ich aber nicht.

bummi - Mi 16.03.11 17:46

@YOGU
geht auch wenn Quelle oder Ziel verdeckt sind, habe das Nesting noch nachgerüstet, Problem war ja dass Text aus Richedits bei alleinigem PaintTo nicht mitkommt

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Procedure CompletePaintTo(C:TwinControl;Dest:TCanvas;x,y:Integer;First:Boolean=true);
// 20110316 by Thomas Wassermann
var
  i:Integer;
  DC:HDC;
begin
   if First then c.PaintTo(Dest,x,y);
   for I := 0 to C.ControlCount- 1 do
      if c.Controls[i] is TCustomEdit then
        begin
          DC :=  GetDC(TCustomEdit(c.Controls[i]).Handle);
          BitBlt(Dest.Handle,
                 x + c.Controls[i].Left, y +  c.Controls[i].Top
                 , c.Controls[i].Width,  c.Controls[i].Height,DC,0,0,SRCCOPY);
          ReleaseDC(TCustomEdit(c.Controls[i]).Handle,DC);
        end  else if c.Controls[i] is TWinControl then CompletePaintTo(TWinControl(c.Controls[i]),Dest,x + c.Controls[i].Left,y + c.Controls[i].Top,false)
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!