TPaintbox und Canvas

[LoL]

hi

Bevor ich zu meinem Problem komme noch eine Frage: Wenn ich eine Komponente brauche die einfach nur zum zeichnen genutzt werden soll ist das Paintbox das richtige?

OK nun meine eigentliche Frage:

Ich habe mir meine Eigene Komponente von TPaintbox abgeleitet. Auf der male ich nun einen Kreisbogen und Fülle ihn aus:

Delphi-Quellcode:

procedure TMeinePaintbox.Paint;
begin
  inherited;

  Canvas.Brush.Color := clred;
  Canvas.Pen.Color := clred;

  Canvas.Arc(0-Width,0,width,2*height,0,0,0,0);
  Canvas.FloodFill(1,Height div 2,Canvas.Pixels[1,Height div 2],fssurface);
end;

Wenn aber in der Fläche die gefüllt wird unten drunter die gleiche Farbe kommt wie die Bedinung der Füllens ist bricht Canvas ab.
Ich weis das klingt komisch deshalb hab ich eine Bild gemacht