Hallo,
ich möchte eine Grafikroutine schreiben, bei der man beim instanziieren entscheiden kann ob auf eine PaintBox oder auf ein Image gemalt wird.
grafik:= TGrafik.Create(paintBox1);
oder
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
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ß