Forum: Multimedia
Delphi
by shmia,
15. Jul 2004
Hey, du hat ja recht. :shock:
Die Methode PaintTo gibt es nur bei WinControls. Und da TImage von TGraphicControl abgeleitet ist,
muss man dort mit TGraphicControl.Canvas arbeiten.
Damit habe ich eine Procedure gebaut, die jedes Control zeichnen kann:
type
TGC_cracker = class(TGraphicControl) // Hilfsklasse, wg. Zugriff auf protected Properties
end;
procedure...
Forum: Multimedia
Delphi
by shmia,
3. Jun 2004
begin
Printer.BeginDoc;
MeinTImage.PaintTo(Printer.Canvas.Handle, 100, 100);
// da aber die Pixels deines Images auf dem Drucker 1 zu 1 umgesetzt werden
// wird dein Bild recht klein werden
Printer.EndDoc;
end;