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