Fensteranimation deaktivieren bei TStyleManager.TrySetStyle(sStyleName)

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