TLabel.AutoSize und High DPI

[Alucard]

Ich bin es mal wieder mit einem High DPI-Problem... Dieses Mal betrifft es das AutoSize von TLabel.

Ausgangsszenario:

• gegeben sei eine Tabellen-artige Struktur, die zur Laufzeit zeilenweise erzeugt wird
• jede Zeile besteht aus einem TPanel, auf dem mehrere TLabels liegen
• den Labels wird Text zugewiesen
• abschließend werden die Labels links- oder rechtsbündig ausgerichtet, wobei TLabel.Width die wesentliche Eigenschaft ist

Code:

procedure TFormBib.AddTrackGridEntry;
const TrackGridEntry : integer = 22;
var i : byte;
begin
//Trackgrid verlängern
SetLength(TrackGrid, Length(TrackGrid) + 1);

With TrackGrid[High(TrackGrid)] do
     begin
     Track   := TPanel.Create(Self);
     Nummer := TLabel.Create(Self);
     {...}

     Track.Parent   := ScrollBoxPlayTracks;
     Nummer.Parent := Track;
     {...}
     end;

With TrackGrid[High(TrackGrid)].Track do
     begin
     ParentBackground := false;

     BevelOuter := bvNone;
     BevelInner := bvNone;

     Top     := TrackGridEntry * High(TrackGrid);
     Height := TrackGridEntry;

     If High(TrackGrid) mod 2 <> 0
        then Color := clGray
        else Color := clMedGray;
     end;

With TrackGrid[High(TrackGrid)] do
     For i := 0 to Track.ControlCount - 1 do
         If Track.Controls[i] is TLabel
            then With (Track.Controls[i] as TLabel) do
                       begin
                       Top := 2;
                       Font.Color := clBlack;
                          
                       Transparent := false;   //nur für den Test
                       Color        := clTeal; //nur für den Test
                       end;
end;

Ich nutze das Programm entweder auf einem Monitor mit 200%-Skalierung oder auf einem Monitor ohne Skalierung, daher ist "Projekt -> Optionen -> Manifest -> DPI-Unterstützung" auf "GDI-Skalierung" gesetzt (Ist das sinnvoll?!). Leider wird das gewünschte Ergebnis (siehe Anhang "gut") nur auf dem Monitor ohne Skalierung erreicht, auf dem skalierten Monitor sind die Labels manchmal zu klein, manchmal zu groß, manchmal auch passend - was final natürlich die Ausrichtung verhagelt (siehe Anhang "schlecht"). Alternativ kann ich die DPI-Unterstützung auch auf "Keine" setzen, dann passen die Labels auch auf dem skalierten Monitor - allerdings sieht dann das ganze Programm wie verpixelte Moppelkotze aus :-/

Irgendwelche Ideen, warum AutoSize sich hier so erratisch verhält?

P.S.: Vermutlich fehlt zu einer geistreichen Beantwortung hier mal wieder wichtiger Input... Ich weiß nur nicht, wo ich da anfangen soll, einfach nachfragen bitte

[Uwe Raabe]

Das Problem scheint hier die GDI-Skalierung zu sein. In diesem Mode wird dem Programm eine 100% Skalierung vorgegaukelt, aber Windows verwendet für die Textdarstellung eine höher auflösende Schrift. Dabei kann es je nach verwendeten Zeichen vorkommen, dass die Breite des Labels für das Programm (100%) nicht zu der realen (200%), aber runterskalierten, Breite passt.

Willst du echte HighDPI Unterstützung dann solltest du per Monitor/V2 verwenden. Dann bekommt das Programm die reale Skalierung des Monitors mitgeteilt und kann bzw. muss dazu passend agieren. Das meiste davon tut die VCL aber bereits von sich aus.

[Alucard]

Danke für den Hinweis, der das AutoSize-Problem auch tatsächlich behebt.

Leider zerhagelt mir die Einstellung per Monitor/V2 die komplette Darstellung des restlichen Programms

Das Projekt ist sprichwörtlich Jahrzehnte-alt... Das scheint sich langsam zu rächen

[Gausi]

Zitat von Alucard:

Das Projekt ist sprichwörtlich Jahrzehnte-alt... Das scheint sich langsam zu rächen

Das kann ich grade sehr gut nachvollziehen. Arbeite grade auch wieder an einem Programm, für das ich zum 20-jährigen Namens-Jubiläum Unterstützung für High-DPI einbauen möchte. Hört sich einfach an, ist aber dann doch ein Fass (fast) ohne Boden. (Wobei ich in dem Kontext auch ein paar andere Dinge im Code aufräume, die damit nur am Rande was zu tun haben.)

Das ist je nach Originalzustand mehr oder weniger viel Arbeit, aber es lohnt sich, imho.

[Alucard]

Um ehrlich zu bleiben, muss ich leider auch zugeben, dass das ziemliches Rumgestümper ist, das ich schon immer veranstalte... Ich mache Programmierung nur nebenher und mit Sicherheit wird keiner mit professionellen Kenntnissen meine Art und Weise zu arbeiten, auch nur im Ansatz gutheißen (können) - zu Recht vermutlich.

Ob ich die aktuell aus der Option von Uwe erwachsenden Probleme überhaupt angehen kann, hängt davon ab, ob ich eine Möglichkeit finde, das mein Programm am Ende auf dem skalierten und auch dem unskalierten Monitor vernünftig aussieht.

[dummzeuch]

Nur so am Rande bemerkt: Testet Eure High DPI Änderungen unbedingt auch auf Systemen mit unterschiedlichen Scaling-Einstellungen. Ich habe immer wieder sehr viel Spaß damit, erst mit GExperts und jetzt auch mit zwei "normalen" Programmen. Die VCL macht definitiv nicht alles richtig. Und dann funktioniert endlich mit zwei Monitoren mit unterschiedlichem Scaling und ich denke, ich habe das Problem gelöst, da kommt dann der erste Kollege, der "nur" zwei Monitore mit 100% Scaling hat und beschwert sich, dass die Formulare völlig kaputt sind.