ÜberObject von PaintBox und Image

[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;