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)