VCL Controls Erscheinungsbild bei per Monitor V2

[THonscha]

Wenn ich in meinen Programmen im Manifest die Option per Monitor V2 aktiviere, erscheinen die VCL Controls (z.B. DBNavigator, siehe Bildanhang) unter Windows 7, wie ausgegraut. Unter Windows 10 ist alles in Ordnung. Wie kann ich das Problem umgehen?

[Der schöne Günther]

Kannst du sicherheitshalber mal das gesamte Manifest posten?

[user69]

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

[THonscha]

Zitat von user69:

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

Das hört sich doch gut an - teste ich nachher

[THonscha]

Leider ist der Fehler damit nicht behoben. Ich benutze übrigens die Version 10.4.3.
Der Fehler ist aber sicherlich mit dem obigen Fix verbunden...

[Uwe Raabe]

Zitat von thonscha:

ich benutze übrigens die version 10.4.3.

10.4.3

[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]

Zitat von user69:

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

[THonscha]

Zitat von himitsu:

Zitat von user69:

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

Danke Dir - werde ich morgen einbauen!