Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.055 c