| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Animation Controls
Fay © (2004-11-25 03:56:00)Не могу понять, как создать анимашный контрол так, чтобы он действительно был TRANSPARENT.
Внимательно читал PSDK - ничё не понял.
Никто не сталкивался?
Кода под рукой нет, но могу потом выложить. Аж ~10 строк 8)
Fay (2004-11-25 15:37:00) [1]2 clickmaker © (25.11.04 13:52) [1]
>> а так не работает?
Так меняет фон с розового 8) на белй...
>> можно тогда так извратиться
Спасибо, работает! А я не мог понять, что они имели ввиду 8)
clickmaker (2004-11-25 13:52:00) [2]а так не работает?
FAvi := Animate_Create(Handle, 996, ACS_CENTER or ACS_TRANSPARENT or WS_CHILD, HInstance);
можно тогда так извратиться
procedure TOperationProgressForm.WMCtlColorStatic(var Message: TMessage);
begin
if (HWND(Message.LParam) = FAvi) then begin
SetBkColor(Message.WParam, ColorToRGB(Color)); // имитация прозрачности
Message.Result := Brush.Handle;
end else
DefaultHandler(Message);
end;
| |
