ÜberObject von PaintBox und Image

[Alexander I]

Hallo,

ich möchte eine Grafikroutine schreiben, bei der man beim instanziieren entscheiden kann ob auf eine PaintBox oder auf ein Image gemalt wird.

Delphi-Quellcode:

 grafik:= TGrafik.Create(paintBox1);

oder

Delphi-Quellcode:

 grafik:= TGrafik.Create(image1);

Die Konstruktoren:

Delphi-Quellcode:

constructor Create(paintBox : TPaintBox);
begin
zeichenFläche:= paintBox;
end;
constructor Create(image: TImage);
begin
zeichenFläche:= image;
end;

Die Frage ist nun : Gibt es sowas wie ein "TÜberObject" das es möglich ist der

Delphi-Quellcode:

zeichenFläche : TÜberObject

entweder eine PaintBox oder ein Image zu übergeben?
...das man dann folgendes tu kann:

Delphi-Quellcode:

procedure Draw();
begin
with zeichenFläche do
  Canvas.Pen.color := clWebDarkBlue;
 Canvas.Polyline(p1,p2,p3,p4);
end;

Gruß

[Sir Rufo]

Übergib doch einfach den Canvas, denn der interessiert dich doch, wenn du etwas malen möchtest ;)

[mkinzler]

Icgh würde gleich den Canvas Speichern.

Delphi-Quellcode:

FCanvas: TCanvas;

...

constructor Create(paintBox : TPaintBox);
begin
 FCanvas:= paintBox.Canvas;
end;

...

procedure Draw();
begin
  FCanvas.Pen.color := clWebDarkBlue;
  FCanvas.Polyline(p1,p2,p3,p4);
end;

[Alexander I]

Funktioniert.
Danke.