VCL Controls Erscheinungsbild bei per Monitor V2

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

[TurboMagic]

Zitat von himitsu:

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

Ist das ein Bug in Delphi?
Falls ja, ist der schon gemeldet?
Falls nein, könnte den jemand der sich besser damit auskenn als ich melden?

Grüße
TurboMagic

[himitsu]

Das ist an 2 Stellen so eingebaut.
Denke mal jemand hat sich etwas dabei gedacht, als diese Komponente so kunterbunt umgebaut wurde.

Nja, aber ich vermute einfach Mal, dass es nicht mehr mit Windows 7 getestet wurde.

[TurboMagic]

Ist das nun ein Bug in der VCL oder nicht?

[himitsu]

Wenn du das meldest, geht der Status bestimmt auf "das ist halt so"

Der Bug "geht halt nicht", in aktuelle lebenden Windowsen, ist ja nicht existent.

[THonscha]

Jetzt weiß ich, warum der Patch bei mir nicht läuft Ich habe die VCL nicht neu kompiliert... geht das irgendwie einfach?

[Uwe Raabe]

Zitat von THonscha:

Ich habe die VCL nicht neu kompiliert

Man compiliert nicht einfach die VCL!