PaintBox aus TForm in QuickReport drucken

Computer: Software & Programmierung Delphi & Pascal
#1

ich möchte den Inhalt eines PaintBox (mit Programm und Canvas gezeichnet, (moveTo, lineTo, PolyLine)) in einem QuickReport ausdrucken.
Nur weiß ich kein entsprechendes Objekt im QuickReport (finde nur QRImage), welchem ich den Inhalt des eben beschriebenen PaintBox zuordnen kann.
Hat jemand eine Idee?

Vielen Dank und Gruß zum neuen Jahr!

E. B.

#2

ich möchte den Inhalt eines PaintBox (mit Programm und Canvas
gezeichnet, (moveTo, lineTo, PolyLine)) in einem QuickReport
ausdrucken.

Hallo Eric,
Ich würde das ganze so angehen:

  1. Erstelle eine Procedure zum Zeichnen:
    Procedure PaintToCanvas(Canvas:TCanvas);
    begin
    Canvas.MoveTo(0,0);
    Canvas.LineTo(20,20);
    Canvas.LineTo(40,0);
    end;

  2. Diese Procedure kann dann von PaintBox und von QRImage verwendet werden:

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
PaintToCanvas(PaintBox1.canvas);
end;

procedure TQuickReport2.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
PaintToCanvas(QRImage2.Canvas);
end;

Viele Grüße, Joachim

#3

Danke, hat prima geklappt

Gruß

E. B.