Pagecontrol mit Imagelist und VCL Styles

[Rainer Wolff]

Ich wollte grad auch mal mein Programm mit den schönen Styles verzieren, bin aber schnell gestolpert.

Ich habe ein Pagecontrol mit mehreren Tabs und einer Imagelist mit zwei Grafiken (rote und blaue Lampe). Die Lampen werden auf allen Tabs angezeigt und dynamisch umgeschaltet (ImageIndex des Tabsheet).

Sobald ich einen Style aktiviere, hängen meine Lampen auf halbmast (Siehe Anhang). Wenn ich irgendwelche zusätzlichen Dummy-Grafiken in die Imagelist einbaue (soviele, wie Tabsheets vorhanden sind), passt die Anzeige wieder.

Hat jemand schon einen Bugfix dafür?

[Uwe Raabe]

Beispielprojekt?

[Rainer Wolff]

Ok, hier ein einfaches Beispiel, eine Imagelist mit zwei Bitmaps, eine mit Vieren. Mit Windows-Default ist alles gut.

Compiliert mit Seattle (incl. Hotfix), mit Berlin siehts aber genauso aus

[Der schöne Günther]

Gutes Beispiel zum Reproduzieren :thumb:

Warum das ist so ist erschließt sich mir allerdings auch nicht...
(Bei mir auch nachvollziehbar)

[Uwe Raabe]

Ist ein Bug in

Delphi-Quellcode:

TTabControlStyleHook

. Kannst du bitte einen QP-Report mit deinem Beispielcode aufmachen. Ich werde dann versuchen, jemanden darauf anzusetzen.

[Uwe Raabe]

Ach ja: Als Workaround muss die ImageList mindestens so viele Einträge haben wie das PageControl TabSheets hat.

[Uwe Raabe]

Hat auch schon jemand anderes entdeckt: https://quality.embarcadero.com/browse/RSP-14732