VCL Controls Erscheinungsbild bei per Monitor V2

[THonscha]

Ok, im Anhang ist die Testdatei...
Unter Win10 alles ok
Unter Win7 Bug!

[user69]

Wie bekomm ichs unter Win7 zum laufen? Ich bekomm erst mal den Fehler: Error loading Midas.dll (und dann sind alle Buttons disabled)

Da ich bisher nicht mit Datenbanken gearbeitet hab weiß ich nicht, wie ich das fixe.

[himitsu]

Alles, was mit dem ururururalten MIDAS zu tun hat, aus dem Programm rauswerfen. (leider ist das ClientDataSet bissl alt)

Die Midas.dll mitgeben, oder es über die MidasLib.pas einkompilieren.


Und am Besten gleich das tote Windows 7 mit wegwerfen.

[KodeZwerg]

Zitat:

Zitat von himitsu (Beitrag 1489317)

Und am Besten gleich das tote Windows 7 mit wegwerfen.

Dem stimme ich zu.

[THonscha]

Zitat:

Zitat von KodeZwerg (Beitrag 1489318)

Zitat:

Zitat von himitsu (Beitrag 1489317)

Und am Besten gleich das tote Windows 7 mit wegwerfen.

Dem stimme ich zu.

Hilft mir leider nicht bei Kunden, die Windows 7 einsetzen.

[KodeZwerg]

Dafür ist ja mein Link da (Kunden zeigen das es mehr als veraltet ist und kein Support mehr angeboten wird)

[himitsu]

Wenn dein Programm kein Win7 mehr unterstützt, dann müssen sie halt eben upgraden. (OK, oder sie bezahlen für eigentlich unnötige abwärtskompatibilitäten)
* hatten ja immerHIN schon 6 Jahre Zeit dafür
* und offiziell, laut Hersteller, ist Windows 7 seit nun fast 1,5 Jahren ausgestorben (*1)



1) Neue Dinge hatte ich mit aktuellen Funktionen implementiert.
Wenn das in Windows 7 nicht lief, dann hab ich auch nicht explizit dafür den Code geändert. (also einige neuere Module waren dann einfach nicht nutzbar, oder die Arbeitzzeit muß eben gezahlt werden)
Und die Einstellung des Supports, hat bei uns auch den letzten Kunden dazu gebracht, seine PCs upzugraden.

OK, abgesehn alten Industrie-PC mit Windows 7-Embedded, wo aber nur ein altes Modul verwendet wird. (wird eh nur als Test-System genutzt und die 3000€ für eine neue Version wird nicht finanziert werden)

[THonscha]

Ok, würde mich freuen, wenn wir zurück zur Frage kommen. Das verwässert immer ein wenig die Fehlersuche.
Abhilfe bringt ja schon, wenn ich im Manifest die per Monitor V2 Option deaktiviere. Aber das sollte auch eleganter gehen.

[user69]

Hab den fix nun mit deinem Programm getestet.

Er funktioniert!
Ohne siehts aus, wie disabled, mit ist wie enabled.

Du must die VCL.Buttons.pas in dein Verzeichnis kopieren und dort ändern (ggf. Delphi nach dem kopieren neu starten).

[himitsu]

Zitat:

Zitat von user69 (Beitrag 1489233)

Ich denk das ist ein Bug in VCL.Buttons.pas (in D10.4.1/2).
This change in VCL.Buttons.pas should fix that.

// LStyle.DrawText(DC, FThemeDetails, Text, TextRect, LFormats, LOptions); //according RSP-30755 (minor subfix) - fix Bitbtn and SpeedButton background color error in win7
LStyle.DrawText(DC, FThemeDetails, Text, TextRect, LFormats, LColor); //according RSP-30755 (minor subfix) - fix Bitbtn and SpeedButton background color error in win7

Hier der genaue/komplette Grund für die unterschieldiche Darstellung:

Delphi-Quellcode:

    if CheckPerMonitorV2SupportForWindow(Handle) then
      PPI := FCurrentPPI
    else
      PPI := 0;

    LStyle.DrawElement(Canvas.Handle, Details, R, nil, PPI);

Aber der eigentliche Grund ist natürlich, das DPI_AWARENESS_CONTEXT_PER_MONITOR_AWARE_V2 erst mit Windows 10 erfunden wurde und Windows 7 das nicht kennen kann.

Lösung: Wenn Programm in Windows < 10 ausgeführt, dann kein PerMonitorV2 verwenden