Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "WinAPI";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.04 c
8-1097048026
V-Isa
2004-10-06 11:33
2005.01.16
Слои в DXDraw.


14-1104242781
Art_Z2
2004-12-28 17:06
2005.01.16
Недостатки ООП


9-1081178851
Тимур
2004-04-05 19:27
2005.01.16
Flash игры


1-1103876185
whiteswan
2004-12-24 11:16
2005.01.16
не запускается прога в вин98. работаю в винХП,дельфи6.


14-1103929672
OneFragLeft
2004-12-25 02:07
2005.01.16
Курс молодого бойца (читать - программиста)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский