Facharbeit Minigame-Editor- Ladenproblem

[DeddyH]

Code wofür? Für einen Parameter vom Typ TCanvas? Bitteschön:

Delphi-Quellcode:

procedure PaintEllipse(const DestCanvas: TCanvas);
begin
  if Assigned(DestCanvas) then
    begin
      DestCanvas.Brush.Color := clYellow;
      DestCanvas.Ellipse(0,0,100,100);
    end;
end;

Als Parameter kannst Du nun die Zeichenfläche angeben, auf die gezeichnet werden soll.