2007. augusztus 31., péntek

Animate a form when minimizing or restoring it


Problem/Question/Abstract:

When I minimize a progam written in Delphi there's no animation on minimizing and restore. How can I enable this?

Answer:

In FormShow:

var
  RecS, RecL: TRect;
begin
  RecS := Rect(Screen.Width, Screen.Height, Screen.Width, Screen.Height);
  RecL := ThisForm.BoundsRect;
  DrawAnimatedRects(GetDesktopWindow, IDANI_CAPTION, RecS, RecL);
  { ... }
end;

In FormHide:

var
  RecS, RecL: TRect;
begin
  HideTimer.Enabled := False;
  RecS := Rect(Screen.Width, Screen.Height, Screen.Width, Screen.Height);
  RecL := ThisForm.BoundsRect;
  DrawAnimatedRects(GetDesktopWindow, IDANI_CAPTION, RecL, RecS);
end;

Nincsenek megjegyzések:

Megjegyzés küldése