Delphi 12, MDI Applikation und Flackern

[Delphi.Narium]

Funktioniert eventuell

Delphi-Quellcode:

if Application.InRemoteSession then
  Application.SingleBufferingInRemoteSessions := False;

oder
Application.SingleBufferingInRemoteSessions := not Application.InRemoteSession;

[himitsu]

Aber sollte diese Option nicht eh nur eine Wirkung im RDP haben?
In RDP ist das sowieso False
und wenn nicht in RDP, wäre demnach der Wert egal. (somit wäre dort False ebenfalls OK)

[Delphi.Narium]

Zitat von himitsu:

In RDP ist das sowieso False
und wenn nicht in RDP, wäre demnach der Wert egal. (somit wäre dort False ebenfalls OK)

Zitat von SWeb:

Der Workaround:

Application.SingleBufferingInRemoteSessions := False;

funktioniert zwar, aber das kann doch keine endgültige Lösung sein, diesen Eintrag bei allen Anwendungen auf Verdacht nachzupflegen.

Warum hat der Workaround eine Wirkung, wenn im RDP Application.SingleBufferingInRemoteSessions sowieso = false ist?

[Uwe Raabe]

Zitat von SWeb:

Muss hier TMS etwas machen, damit das wieder mit Defaulteinstellungen funktioniert oder Embarcadero?

Wenn man mal den Docwiki-Eintrag zu diesem Thema liest, dann liegt der Ball im Fall des TAdvOfficePager wohl eher bei TMS als bei Embarcadero. Insbesondere dieser Abschnitt legt das nahe:

Zitat:

For themed controls and style hooks, code should only use double buffering if this evaluates to True:

DoubleBuffered and (not InRemoteSession or not SingleBufferingInRemoteSessions)

In other words, the control is set to use double buffering whether you are running in a local session, or you are in a remote session but the application developer wants double-buffering regardless.

Offenbar werden die beiden RemoteSession-Properties im betroffenen Control überhaupt nicht beachtet.

Erschwerend kommt wohl auch noch hinzu, dass sich das Control schon generell bezüglich DoubleBuffered unter Windows 11 anders verhält als unter Windows 10.

[himitsu]

Zitat von Delphi.Narium:

Warum hat der Workaround eine Wirkung, wenn im RDP Application.SingleBufferingInRemoteSessions sowieso = false ist?

Ich meinte nur diese Zuweisung ist sinnlos nutzlos.

ohne RDP = der Wert ist egal (wird ignoriert)
im RDP = das not InRemoteSession ist immer False

Fazit: SingleBufferingInRemoteSessions := False; reicht aus, ohne IF oder sonstewas Dynamisches.

Zitat:

DoubleBuffered and (not InRemoteSession or not SingleBufferingInRemoteSessions)

DoubleBuffered and not (InRemoteSession and SingleBufferingInRemoteSessions)