Ich versuche das zu erklären.
VirtualStringTree hat eine DefaultNodeHeight Property die von sich aus schon auf DPI-Veränderungen reagiert.
Einige meiner Nodes haben aber eine Höhe die etwa doppelt so hoch ist wie DefaultNodeHeight.
Damit das bei allen DPI's gut aussieht möchte ich auf DPI-Veränderungen reagieren und diese Variable, die die Höhe für größere Nodes enthält, entsprechend anpassen
Delphi-Quellcode:
procedure TForm1.WMDPIChanged(var msg: TMessage);
var
LOldDPI, LNewDPI: Integer;
begin
LOldDPI := Form1.Monitor.PixelsPerInch;
LNewDPI := LOWORD(msg.WParam);
VSTNodeHeightBig := MulDiv(VSTNodeHeightBig, LNewDPI, LOldDPI);
inherited;
end;
LNewDPI ist kein Problem. LOldDPI ist aber nie das was es sein soll. Die DPI wurde schon geändert, also kann LOldDPI nicht den alten Wert enthalten. Aber genau den brauche ich für MulDiv leider.
Wenn das besser geht, teilt es mir mit. Ich scheitere leider daran, bei einem DPI-Wechsel an die entsprechenden DPI-Werte zu kommen.
Meine aktuelle, wirklich sehr schmutzige Lösung sieht so aus
- aktuelle DPI des Formulars im OnShow Event in eine Variable schreiben
- im WMDPIChanged dann folgendermaßen agieren
Delphi-Quellcode:
LOldDPI := OldDPI; // alte DPI, die beim Programmstart / OnShow des Hauptformulars gesetzt wurde
LNewDPI := LOWORD(msg.WParam);
Caption := LOldDPI.ToString + ' - ' + LNewDPI.ToString;
VSTNodeHeightBig := MulDiv(VSTNodeHeightBig, LNewDPI, OldDPI);
OldDPI := LNewDPI;
Hat aber entsprechend Nachteile, wenn das Formular welches verschoben wird NICHT das Formular ist auf dem das VST liegt.