Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by KodeZwerg,
12. Apr 2018
@Codehunter: Ich habe mir nochmal alles von Dir durchgelesen, ich wäre zwar mit dem abfangen der Message bestimmt auf dem richtigen Pfad um das Animations-Dingens zu umgehen aber Du wolltest ja nichts globales, da happert es bei mir noch das umzusetzen. Eine Message wäre glaube ich global, oder zumindest Form-bezogen global.
Also weitermachen ohne Rücksicht auf den Global Faktor oder an dieser...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by KodeZwerg,
12. Apr 2018
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.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by KodeZwerg,
12. Apr 2018
Ich verstehe noch nicht so ganz von was für einer Animation Du redest, eventuell kann Dir das dabei helfen
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;