[gelöst] TC Dark Modus: Umrandung des aktivierten Button in Dialogboxen

[vianova]

Moin,
ist es normal das im Dark Modus bei allen Dialogboxen
der aktivierte Button so "umrandet" ist?
https://www.directupload.net/file/d/5661/idr5mwgq_png.htm
Gruß aus HH

[HolgerK]

Die Umrandung ist auch im Light-Modus vorhanden (nennt sich keyboard focus rectangle) und zeigt an welcher Control momentan den Tastaturfokus besitzt: http://holgerk.drivehq.com/TC9.50Beta/TC9.50B8(KeyboardFocusRectangle_Light_vs_Dark).png

Normalerweise ist der allerdings nur punktiert (und wirkt daher eher wie eine graue Line).

Das TC hier eine gestrichelte Linie anstelle der punktierten Linie zeigt, könnte daran liegen das man bei einem punktierte Rahmen auf einem dunklem Hintergrund um einen freistehenden Kontrol (wie z.B. bei den Chckboxen) einen anderen Kontrasteindruck erhält als wenn diese punktierte Linie direkt neben dem durchgezogen Rahmen des Buttons gezeichnet wird.
Kann aber auch einfach nur ein Versehen sein, oder die gestrichelte Linie wird bereits von den MS-Controls so gezeichnet. ;-)

Gruss
Holger

[ghisler(Author)]

Nein, das ist ein Bug von Windows: Ich versuche eine gepunktete Linie zu zeichnen (CreatePen mit PS_DOT), Windows zeichnet aber immer eine gestrichelte Linie.

[HolgerK]

Da war doch ein Unterschied zwischen PS_COSMETIC und PS_GEOMETRIC (lang, lang ist es her... ?:-|):

Code: Select all

LOGBRUSH lb; 
lb.lbStyle = BS_SOLID; 
lb.lbColor = RGB(0,0,0); 
lb.lbHatch = 0; 
hpenDot = ExtCreatePen(PS_GEOMETRIC | PS_DOT, 1 , &lb, 0, NULL); 

bzw. bessere Lösung: https://www.codeproject.com/Articles/7510/Creating-a-True-Dotted-Pen

Code: Select all

LOGBRUSH lb; 
lb.lbStyle = BS_SOLID; 
lb.lbColor = RGB(0,0,0); 
lb.lbHatch = 0; 
hpenDot = ExtCreatePen(PS_COSMETIC | PS_ALTERNATE , 1, &lb, 0, NULL); 

Siehe auch: https://forum.lazarus.freepascal.org/index.php?topic=29133.0

Gruss
Holger

[ghisler(Author)]

Ich benutze im Moment die Delphi/Lazarus-Funktionen mit Pen.color etc, da kann ich leider kein ExtCreatePen benutzen.

[HolgerK]

Siehe auch: https://forum.lazarus.freepascal.org/index.php?topic=29133.0

Code: Select all

 pbox.Canvas.Pen.Style := psDot;   pbox.Canvas.Pen.Cosmetic := false;

Gruss
Holger

[ghisler(Author)]

Danke, aber ich habe es bereits auf die entsprechenden Windows-API-Funktionen umgestellt - sieht wirklich besser aus...

[vianova]

Danke Holger und Christian,
sieht deutlichst besser aus