Problem beim Komponenten entwickeln

[Adrian112]

Hallo,

ich habe jetzt mal angefangen mich ein bisschen mit Komponentenentwicklung zu beschäftigen. Dazu habe ich eine Komponente von TGraphicControl abgeleitet und Paint überschrieben.

Delphi-Quellcode:

if down = false then
begin
 Canvas.Brush.Color := aColor;               // Farbe
 Canvas.Brush.Style := bsSolid;              // Ausgefüllt
 Canvas.Rectangle(Bounds(0,0,Width,Height)); // Rechteck zeichnen
end;
// Hier folgen dann noch weitere Anweisungen

Das klappt auch gut, doch jetzt wollte ich ein abgerundetes Rechteck zeichnen:

Delphi-Quellcode:

if down = false then
begin
 Canvas.Brush.Color := aColor;               // Farbe
 Canvas.Brush.Style := bsSolid;              // Ausgefüllt
 Canvas.RoundRect(0,0,Width,Height,10,10);   // abgerundetes Rechteck zeichnen
end;
// Hier folgen dann noch weitere Anweisungen

Doch das klappt jetzt nicht mehr, es wird immernoch ein Rechteck in der angegebenen Farbe gezeichnent, kein abgerundetes Rechteck!
Woran liegt das? (Ich hab schon das Package neu kompiliert)