Текущий архив: 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.03 c
