Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

Animation Controls   Найти похожие ветки 

 
Fay ©   (2004-11-25 03:56) [0]

Не могу понять, как создать анимашный контрол так, чтобы он действительно был TRANSPARENT.
Внимательно читал PSDK - ничё не понял.
Никто не сталкивался?

Кода под рукой нет, но могу потом выложить. Аж ~10 строк 8)


 
clickmaker ©   (2004-11-25 13:52) [1]

а так не работает?
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;


 
Fay ©   (2004-11-25 15:37) [2]

2 clickmaker ©   (25.11.04 13:52) [1]
>> а так не работает?
Так меняет фон с розового 8) на белй...

>> можно тогда так извратиться
Спасибо, работает! А я не мог понять, что они имели ввиду 8)



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

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

Наверх




Память: 0.47 MB
Время: 0.044 c
1-1104405090
AHTuXPuCT
2004-12-30 14:11
2005.01.16
Проблемы с явной загрузкой библиотеки


1-1104505164
Spinu Oleg
2004-12-31 17:59
2005.01.16
Кодировка в Delphi 7 Windows 98 unicode


3-1102654705
Dmitriy O.
2004-12-10 07:58
2005.01.16
Как перебросить данные из IB в DBF ?


9-1096012957
WondeRu
2004-09-24 12:02
2005.01.16
Как в GLScene ограничить движение камеры определенной областью?


14-1103872433
hgd
2004-12-24 10:13
2005.01.16
Навигация на карте программно