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)

[Muetze1]

- Wird das durch die nachfolgenden Anweisungen wieder übermalt?
- Wie gross ist dein Rechteck? Die Rundung von 10 Pixeln ist natürlich nur richtig zu sehen, wenn das Rechteck entsprechend auch eine gewissen Grösse hat.

[Adrian112]

Nein, die nachfolgende Anweisung übermalt es nicht, es ist einfach nur nochmal eine if Schleife für true.
Das Rechteck ist schon groß genug, ich habe auch schon verschiedene Größen ausprobiert.

[Deep-Sea]

Zitat:

Zitat von Adrian112

if Schleife für true.

Ein bitte was? :shock:

Troubleshooting wie immer:
Mach ein ganz neues Projekt und versuche RoundRect erstmal ganz "alleine", wenn es klappt füge immer mehr hinzu bis du findest, was daran schuld ist :wink:

[Adrian112]

Ok, werd ich versuchen

Mit if Schléife für true meinte ich die Abfrage von down. (mach ich vieleicht besser mit if then else)

[Deep-Sea]

Zitat:

Zitat von Adrian112

Mit if Schléife für true meinte ich die Abfrage von down. (mach ich vieleicht besser mit if then else)

If ist aber keine Schleife, sondern eine bedingte Anweisung :wink: While-do und repeat-until sind welche ...
Und am besten wäre

Delphi-Quellcode:

If not Down then ...

[uligerhardt]

Zitat:

Zitat von Deep-Sea

If ist aber keine Schleife, sondern eine bedingte Anweisung :wink: While-do und repeat-until sind welche ...

klicki :wink:

[Deep-Sea]

Zitat:

Zitat von uligerhardt

klicki :wink:

Sinnfreie Domainverschwendung :P Und nun?