DrawAnimatedRects

← →
Андрей Молчанов (2005-08-30 18:38) [0]

Добрый день.
Написал процедуру для анимации сворачивания в трей:
procedure TfrmMain.FloatingRectangles(Minimizing: Boolean; Form: TForm); var RectFrom, RectTo: TRect; HTaskbar, HTrayWnd: HWND; begin HTaskbar := FindWindow("Shell_TrayWnd", nil); if HTaskbar <> 0 then begin HTrayWnd := FindWindowEx(HTaskbar, 0, "TrayNotifyWnd", nil); if HTrayWnd <> 0 then GetWindowRect(HTrayWnd, RectTo) end; RectFrom := Form.BoundsRect; if Minimizing then DrawAnimatedRects(Form.Handle, IDANI_CAPTION, RectFrom, RectTo) else DrawAnimatedRects(Form.Handle, IDANI_CAPTION, RectTo, RectFrom); end;

На рабочем столе после использования остаются следы. Убираются после обновления десктопа или если передвинуть сверху окно. Как с этим бороться?

← →
Fay © (2005-08-30 19:05) [1]

2 Андрей Молчанов (30.08.05 18:38)
Мне не удалось добиться "следов".
Что я не так делаю?

← →
Андрей Молчанов (2005-08-30 21:22) [2]

Они не всегда показываются. Чаще всего - когда компьютер чем-нибудь занят. Например, копированием папок.

DrawAnimatedRects Найти похожие ветки