TRadioGroub zeigt schwarze Balken (Bug?)

[MmVisual]

In diesem Beispiel möchte ich eine RadioGroup verwenden, siehe Bild.

Vorgehensweise:
- Neues Lazarus Projekt
- TPageControl einfügen
- eine Tab Sheet auf machen
- ein TGroupBox in das TabSheet rein setzen
- ein TRadioGroup in die TGroupBox rein setzen
- In TRadioGroup ein paar Items im designer anlegen
- Keine einzige Code Zeile programmiert.
Und es sieht so aus wie in diesem Bild1.png. Im Designer sowie zur Laufzeit sieht es so aus.
Im Anhang auch ein Demo-Programm "Lazarus_Fehler.zip"

Ich habe Lazarus 0.9.29 / FPC 2.4.1.

Wie kann ich es hin bekommen dass es richtig funktioniert?

Vielen Dank für eure Hilfe, Gruß Markus.

[pluto]

Hast du Lazarus neu gestartet ? bzw. das Projekt neu geladen ? Solche Art von Fehler treten meist nur beim Platzieren auf.

[MmVisual]

Der Fehler tritt bereits seit einem 3/4 Jahr auf und ich habe sicher schon 10 neueste Lazarus-Versionen in diesem Zeitraum ausprobiert.
Jetzt habe ich mich mal zusammen gerissen und ein "Minimalprojekt" erzeugt, damit ich nicht meine Applikation mit mehreren 1000 Zeilen Code posten muss und damit ausgeschlossen ist dass ich darin einen B-Fehler habe, der das verursacht.

[pluto]

Ich meinte damit folgendes:
Komponenten Platzieren, Fehler Tritt auf. Dann Startest du einfach nur Lazarus neu bzw. öffnest dein Projekt erneut.

Wird das auch so angezeigt, wenn du die Anwendung startest ? Auf was steht "Color" und Font.Color ? Ich nehme an, sie stehen nicht auf clBlack

[MmVisual]

Ich hab genau die Schritte gemacht wie oben beschrieben. Ohne Änderung von einem Color.
Auch neu öffnen bringt nichts. Auch nach dem neu Öffnen sind die Farben richtig.
Ich habe extra ein ZIP angehängt. Aber diese paar Elemente kann auch jeder selbst zusammen klicken mit einem neuen Lazarus-Projekt.
PS: Ich nutze WinXP.

[Socke]

Das ist ein Bug und er ist bekannt, siehe http://bugs.freepascal.org/view.php?id=15386. Das war übrigens das zweite Google Ergebnis für "lcl TGroupbox black"
Auf meinem Win XP SP2 habe ich noch ein etwas älteres Lazarus 0.9.26/R16723 mit FPC 2.2.2 installiert, bei dem die Fehler nicht auftreten.

[MmVisual]

Tja, wenn man das richtige in Goolge rein tippt, kommt auch die gewünschte Antwort...
Dann heisst es also warten...
Denn ich fühle mich nicht im Stande den Bug zu finden/beheben.

[pluto]

Kannst du nicht einfach Radioboxen nehmen ? Oder kommt hier auch der Fehler ?
Wie währe es mit einer eigenen Komponente ? Währe in ca einer Stunde zu schaffen. Vielleicht sogar noch schneller.

[MmVisual]

Das ist ein wenig Aufwendiger.
Ich habe mal in die Group-Box eine zweite rein gemacht, dort ein Radio-Button, Checkbox und Button. Alle 3 haben einen schwarzen Hintergrund. (Siehe Bild)
Wenn ich also auch was selbst Zeichnen würde, dann würden mir die Eigenschaften auch falsch vorgegaukelt werden. Das liegt etwas tiefer in der Verschachtelung.
(Siehe Link von Socke)

[pluto]

Das ist ein wenig Aufwendiger.

Nein ! Wirklich nicht. In diesen Fall nicht. Wenn du ein Edit machen wolltest, gebe ich dir recht, aber eine RadioBox ist so einfach wie das kleine einmal eins.
Schritt Für Schritt Anleitung, für eine eigene RadioGrubBox
01) Neue Unit anlegen, neue Klasse erzeugen und von TCustomControl ableiten
02) Z.B. eine TObjectList verwenden, für die RadioBoxen, wobei du hier die von Lazarus nehmen könntest, oder eigene erstlelen
02.01) Wenn du eine eigene RadioBox machen möchtest, könntest du ein Label nehme, und davor z.b. ein Kreis Zeichnen bzw. den ThmenManger(Stichwort: TheaderControl) verwenden
02.02) Einfacher wäre es die RadioBox von der LCL zu nehmen
03) Das Anordnen der RadioBoxen dürfte auch Relativ leicht sein
habe ich was vergessen ?

PS: RadioBoxen habe ich schon Oft in meinen eigenen GUIS erstellt. In diesen Fall ist es noch leichter, da der Parent die Gruppe Bildet.

[Socke]

@pluto: Die TRadioBox macht schließlich nichts anderes als du beschrieben hast. Der Unterschied ist, dass TGroupBox als Container verwendet wird.
Auf dem Screenshot sieht man aber deutlich, dass dieses Problem auch bei einer ganz normalen TGroupBox mit Inhalt auftritt.

@MmVisual: wie siehts denn aus, wenn du die TGroupBox durch etwas anderes bspw. TPanel ersetzt?

[MmVisual]

@Socke: Das war der Hinweis
Beim TPanel gibt es das Problem nicht. Ich habe nun auf der Group-Box, ein TPanel und darin die TRadioGroup drin, siehe da, es geht.
Damit kann ich bei meiner Appliaktion gut leben.