Как сделать анимацию минимизации формы?
Falk0ner, вс, 06/07/2008 - 15:34.
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;
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;
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;
Взято с Delphi Knowledge Base: http://www.baltsoft.com/
Отправить комментарий