Thema: Delphi TPaintbox und Canvas

Einzelnen Beitrag anzeigen

LoL
(Gast)

n/a Beiträge
 
#1

TPaintbox und Canvas

  Alt 14. Mär 2005, 10:49
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
Miniaturansicht angehängter Grafiken
bogen_108.jpg  
  Mit Zitat antworten Zitat