tegn mellem paneler

Du tegner med funktionen
  Arc(a,b,c,d,e,f,g,h);
direkte på din form.

jeg kan ikke bruge Arc-funktionen, da den uanset hvor mange parametre jeg giver den, skriver: Not enough actual parameters.

Prøv at kigge i hjælpen

procedure TForm1.FormPaint(Sender: TObject);
var
  R: TRect;
begin
  R := GetClientRect;  {Gets the boundaries of the current window}
  Canvas.Arc(R.Left, R.Top, R.Right, R.Bottom, R.Right, R.Top, R.Left, R.Top);
end;

Stoney

ja, men hvad så når jeg vil til at tegne en ny parabel???
Så kan tegner den jo bare oven i den gamle, og det skal den jo ikke. Hvordan sletter jeg så det som jeg har tegnet før?

private
  rOld: TRect;

procedure TForm1.FormPaint(Sender: TObject);
var
  R: TRect;

  procedure Weeeeeee(C: TColor);
  begin
    Canvas.Pen.Color := C;
    Canvas.Arc(R.Left, R.Top, R.Right, R.Bottom*8, R.Right, R.Top, R.Left, R.Top);
  end;

begin
  R := rOld;
  Weeeeeee(Color);
  R := GetClientRect;  {Gets the boundaries of the current window}
  Weeeeeee(clBlack);
  rOld := R;
end;

Upsie...
Du skal selvfølgelig ikke gange R.Bottom med 8... Det var bare mig der ville have det til at fylde lidt mere! :)

  procedure Weeeeeee(C: TColor);
  begin
    Canvas.Pen.Color := C;
    Canvas.Arc(R.Left, R.Top, R.Right, R.Bottom, R.Right, R.Top, R.Left, R.Top);
  end;

Sådan! :)

//hermandsen