Listview, CustomDrawSubItem, Text wird schwarz

[DCoderHH]

Hier das Projekt zum Testen und ein Screenshot mit dem Fehler (Text wird pixelig und fett)

[Luckie]

Das ist nicht pixelig und fett, das ist eine andere Schriftart.

[DCoderHH]

Zitat von Luckie:

Das ist nicht pixelig und fett, das ist eine andere Schriftart.

OK, aber warum ist es eine andere Schriftart und wie verhindere ich, dass diese für die Darstellung ausgewählt wird?

[KodeZwerg]

Ich habe alles was nicht zum Projekt gehört gelöscht so das nurnoch Projekt1.dpr, Project1.res, Unit1.dfm, Unit1.pas übrig blieb.
Delphi Tokyo mit der .dpr gestartet, auf Release gestellt, kompiliert, alles hat die gleiche Schrift. Ich kann Fehler nicht reproduzieren.

[DCoderHH]

Zitat von KodeZwerg:

Ich habe alles was nicht zum Projekt gehört gelöscht so das nurnoch Projekt1.dpr, Project1.res, Unit1.dfm, Unit1.pas übrig blieb.
Delphi Tokyo mit der .dpr gestartet, auf Release gestellt, kompiliert, alles hat die gleiche Schrift. Ich kann Fehler nicht reproduzieren.

Hab ich eben auch gemacht. Fehler ist trotzdem da. Die Windows-Version und Themes scheinen den Fehler zu beeinflussen, sagt eine Google-Recherche. Ich nutze Windows 10 mit der Standard-GUI, wie Windows ausgeliefert wird.

[KodeZwerg]

Ahh ok, ich nutze Windows Version 7. Ich schau mal im Code wegen Custom-Font setzen.

edit
Jetzt habe ich Deine .exe mal gestartet. Da erscheint der Fehler wie auf dem Bild.

[himitsu]

Sender.Canvas.Font.Assign(Sender.Font); könntest du mal ausprobieren, ob es was ändert. (beim DefaultDraw=True)

Sowas wie SetBkMode an der VCL vorbei und nicht wieder zurücksetzen.
Das kann auch Probleme bereiten.

Sich nicht auf einwas zu einigen und dann abwechselnd Sender.Canvas oder PlanView.Canvas zu nutzen bereitet oftmals keine großen Probleme, aber ist dennoch keine gute Idee.