Fensteranimation deaktivieren bei TStyleManager.TrySetStyle(sStyleName)

[Uwe Raabe]

Ich glaube, bei Windows 7 funktioniert das noch:

Delphi-Quellcode:

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

[Codehunter]

@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"

[Codehunter]

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

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

[KodeZwerg]

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

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.

[Codehunter]

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:

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;

[KodeZwerg]

Der de-/aktiviert Animationseffekte beim minimieren maximieren, hat mit Theme an sich so nichts zu tun, mir fiel nur keine andere Window Animation ein. Ich lad mal FMC, falls Source beiliegt versuch ich mich ein bissl da reinzuwurschteln.

PS: Nutzt Du vielleicht manuell irgendwo diesen Befehl: AnimateWindow(Form1.Handle, 3000, AW_BLEND); o.ä. ?
Der bewirkt bei Windows das was Du beschreibst.

[Codehunter]

Source ist bei FMC nicht bei, kann ich auch nicht, weil z.T. rechtlich geschützt. Aber so weit weg bist du nicht mit der Fensteranimation beim Maximieren/Minimieren. Mach einfach ein beliebiges Fenster auf (Explorer, Word, whatever). Beim Öffnen wird es unter W10 sanft eingeblendet und beim Schließen sanft ausgeblendet. Das ist ja auch ganz nett und schön so. Nur stört genau das beim Stylewechsel, weil dabei per RecreateWnd das Fenster neu erstellt wird.

Ich hab dir mal eine ganz simple Demoanwendung beigepackt, die beim Buttonclick ein RecreateWnd auslöst. Dabei hast du dann genau den selben Fade-Out-In-Effekt (bei Windows 10), den ich deaktivieren möchte. Nicht global und schon gar nicht dauerhaft sondern nur fallbezogen während das Style gewechselt wird. Wenn du in dem Form dann Borderstyle von bsSizeable auf bsNone, bsToolWindow oder bsSizeToolWin stellst und dann auf den Button klickst, siehst du außer einem kurzen Verschwinden keine Animation. Es scheint also etwas mit den Border-Parametern zu tun zu haben.