| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
DrawAnimatedRects [D7, WinXP]
Андрей Молчанов © (2005-08-30 18:38:00)Добрый день.
Написал процедуру для анимации сворачивания в трей:
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;
На рабочем столе после использования остаются следы. Убираются после обновления десктопа или если передвинуть сверху окно. Как с этим бороться?
Андрей Молчанов (2005-08-30 21:22:00) [1]Они не всегда показываются. Чаще всего - когда компьютер чем-нибудь занят. Например, копированием папок.
Fay (2005-08-30 19:05:00) [2]2 Андрей Молчанов (30.08.05 18:38)
Мне не удалось добиться "следов".
Что я не так делаю?
| |
