Printers.Canvas auf TImage ausgeben

[hedie]

Hallo zusammen

Ich erstelle mir mittels Printer.Canvas eine zu druckende Seite...

Also vorschau würde ich nun gerne die Canvas auf einem TImage ausgeben...

Mein erster gedanke war, Canvas.Bitmap übergeben, aber da Canvas dies nicht kennt benötige ich nun hife...

Ich hoffe jemand kennt eine lösung... Danke schonmal

[DeddyH]

Könntest Du nicht einfach eine Zeichenroutine schreiben, der Du den entsprechenden Canvas als Parameter übergibst? Wobei bei einer Bitmap natürlich dann die Abmessungen des Printer.Canvas zu berücksichtigen wären (Höhe, Breite, Seitenränder, Skalierung, etc.). Auf der anderen Seite kannst Du natürlich auch gleich entsprechende PrintPreview-Komponenten verwenden, z.B. die von DelphiArea.

[Bummi]

Du mußt vorher eingreifen und in Deinen Ausgaberoutinen statt Printer.Canvas ein Klassenlokales oder per Parameter übergebenes Canvas verwenden, diese kannst Du dann mit Printer.Canvas oder auch mit Image.canvas belegen.

[hedie]

Zitat von Bummi:

Du mußt vorher eingreifen und in Deinen Ausgaberoutinen statt Printer.Canvas ein Klassenlokales oder per Parameter übergebenes Canvas verwenden, diese kannst Du dann mit Printer.Canvas oder auch mit Image.canvas belegen.

Klingt sehr spannend und hilfreich.... ist jedoch estwas zu hoch... Könntest du mir das ein wenig genauer erklären?
Vielleicht mit einem Codeschnipsel?

Also ich vermute du meinst ein neues Canvas vom typ TCanvas anlegen und da rein zeichnen..
Dieses dann zum Drucken an Printer.Canvas übergeben oder zum darstellen an Image.Canvas übergeben...

stimmt das?

[DeddyH]

procedure Zeichnen(aCanvas: TCanvas); Hier kannst Du entweder Printer.Canvas oder Bitmap.Canvas oder oder oder... übergeben.

[Bummi]

Die billigste Variante, Deine Ausgaberoutinen z.B. Umschreiben auf

Delphi-Quellcode:

FCanvas.TextRect(......);
Fcanvas.Fillrect(....);

und vor dem Druck FCanvas das Zielcanvas zuweisen..