Moin,

mir ist aufgefallen, dass bei einem Wechsel des VCL-Style zur Laufzeit mit TStyleManager.TrySetStyle(sStyleName) anscheinend die Fenster neu erstellt werden. Dabei animiert Windows das "Aus- und wieder Ein-Fading". Das wirkt dann ziemlich unprofessionell und gibt außerdem Probleme mit Flickern bei Non-DoubleBuffered Fenstern. Manche etwas schludrig geschriebene Komponenten produzieren gar AVs.

Wenn ich allerdings Programmkompatibilität für das Programm auf "Basic" stelle, was bei Windows 7 zu der hässlichen Aero-Basic-Oberfläche führt, dann wuppt der Style-Wechsel ohne jegliche Animation in Sekundenbruchteilen und besagte Proleme mit Drittkomponenten (vermutlich ungültige Canvas-Handle) verschwinden auch.

Kann ich evtl. die Fensteranimation (auch beim Minimieren und Maximieren) über CreateParams beeinflussen/deaktivieren? Also nicht per Manifest die Anwendung in den Basic-Modus zwingen sondern nur die Fenster-Animationen abschalten.

Grüße
Cody

Ich glaube, bei Windows 7 funktioniert das noch:

markieren

Delphi-Quellcode:

uses
  DwmApi;
...
  DwmEnableComposition(DWM_EC_DISABLECOMPOSITION);
  TStyleManager.TrySetStyle(sStyleName);
  DwmEnableComposition(DWM_EC_ENABLECOMPOSITION);
...

@Uwe: Genau das habe ich auch schon probiert. Das zwingt aber, wie oben geschrieben, das gesamte Windows einschl. Taskleiste in den Aero-Basic-Modus (Bei Windows 7). Genau das wollte ich ja nicht. Bei Windows 10 sehen die Animationen ein bisschen anders aus, die Fenster scheinen in sich zusammen zu fallen und werden anschließend wieder "aufgeblasen". Gibts denn keine Möglichkeit, selektiv nur die Fensteranimation zu deaktivieren, nicht das ganze Desktop-Theming?

EDIT/Nachtrag: Wie ich grade zufällig bemerkt habe, gibt es keine Animation, wenn ich Application.Mainform.BorderStyle:= bsNone einstelle. Allerdings sieht das dann ein bisschen seltsam aus, so "oben ohne"

So, das hier scheint (zumindest unter Windows 10) zu funktionieren:

markieren

Delphi-Quellcode:

procedure TfrmMain.SetStyle(const AStyleName: string);
begin
  LockWindowUpdate(Handle);
  BorderStyle:= bsNone;
  TStyleManager.TrySetStyle(AStyleName, FALSE);
  Application.ProcessMessages;
  LockWindowUpdate(Handle);
  BorderStyle:= bsSizeable;
  LockWindowUpdate(0);
end;

Zugegeben, es ist ziemlich freaky. Das doppelte LockWindowUpdate scheint notwendig zu sein, weil sich beim TrySetStyle das WindowHandle ändert. Es flickert zwar noch ein bisschen, aber die Animation ist weg und der Style-Wechsel geht wesentlich schneller. Die Probleme mit den Drittkomponenten scheinen im Moment auch beseitigt.

Für Verbesserungen bin ich aber gerne zu haben

Ich verstehe noch nicht so ganz von was für einer Animation Du redest, eventuell kann Dir das dabei helfen

markieren

Delphi-Quellcode:

procedure TForm1.SetAnimation(Value: Boolean);
var
  Info: TAnimationInfo;
begin
  Info.cbSize := SizeOf(TAnimationInfo);
  BOOL(Info.iMinAnimate) := Value;
  SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0);
end;

Zu steuern über den Boolean. Das betrifft die Window Animation.

Zitat von KodeZwerg:

Ich verstehe noch nicht so ganz von was für einer Animation Du redest, eventuell kann Dir das dabei helfen

Schau dir mal das Projekt FMC an, da habe ich das selbe Problem. Rechts oben über das Einstellungsmenü. Wenn der Style gewechselt wird, erfolgt eine doppelte Fade-Animation (bei Windows 10) bzw. eine doppelte Schrumpf- und Aufblas-Animation (bei Windows 7).

Dein Code bewirkt übrigens, leider, gar nichts:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TfrmMain.SetStyle(const AStyleName: string);

  procedure SetAnimation(Value: Boolean);
  var
    Info: TAnimationInfo;
  begin
    Info.cbSize := SizeOf(TAnimationInfo);
    BOOL(Info.iMinAnimate) := Value;
    SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0);
  end;

begin
  SetAnimation(FALSE);
  TStyleManager.TrySetStyle(AStyleName, FALSE);
  SetAnimation(TRUE);
end;