Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.036 c
1-1125436052
SergProger
2005-08-31 01:07
2005.09.25
Перетаскивание формы


6-1117279379
KorvinOE
2005-05-28 15:22
2005.09.25
Выставить TimeOut для входящих у IdTCPServer


6-1117537091
SanG
2005-05-31 14:58
2005.09.25
Есть ли подтверждение получения у сокетов ?


14-1125247209
Ксардас
2005-08-28 20:40
2005.09.25
А DelphiDirect это что-то вроде WindowsUpdate?


1-1125862322
ArtemESC
2005-09-04 23:32
2005.09.25
"Выкомпилировать" функцию