TPaintbox und Canvas

[shmia]

Zitat von LoL:

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.

Das ist das normale Verhalten von FloodFill, wenn der Parameter fsSurface angegeben wird.

Du kannst FloodFill besser mit dem Parameter fsBorder kontrollieren.
Fill all area that does not have the color indicated by the Color parameter. Stop when Color is encountered.
Dann musst du aber dafür sorgen, dass der Kreisbogen mit 2 roten Linien eine geschlossene Figur bildet. (Also 2 mal LineTo verwenden)
  Canvas.FloodFill(1,Height div 2, clRed, fsBorder);