Habe es nun so Gemacht wie gesagt:
Delphi-Quellcode:
Canvas.Brush.Color := FFillColor;
Canvas.Pen.Color := FFillColor;
Canvas.Arc(0-Width,0,width,2*height,0,0,0,0);
Canvas.MoveTo(0,0);
Canvas.LineTo(0,Height);
Canvas.LineTo(Width,Height);
Canvas.FloodFill(1,Height div 2,FFillColor,fsBorder);
Das deslbe wie vorher auch. Wenn im Hintergrund die Farbe FFillColor ist so bricht Canvas ab!
