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

Вниз

Ребята! Переход от цвета к цвету (затухание).   Найти похожие ветки 

 
Intell   (2003-03-04 19:12) [0]

У меня проблема. Мне нужно сделать два вида Label -
1)мигающий
2)у которого происходит медленное затухание (от белого к серому)
я пробовал задавать переход от одного цвета к другому но у меня не получилось. Если кто знает - ПОДСКАЖИТЕ КАК ЭТО СДЕЛАТЬ. Буду ОЧЕНЬ благодарен за любую помощь.

sergein@nojabrsk.ru


 
MBo   (2003-03-04 19:26) [1]

Сегодня было, поройся в форуме


 
Начинающий программист   (2003-03-04 19:31) [2]

1. Создай наследника от TLabel (или от TCustomLabel), добавь в него таймер и делай с ним что хочешь.
2. TColor -- цвет в формате ARGB (или RGBA -- точно не помню). Если из него вычитать 1, то он пробежит по всем цветам. Для плавного затухания вычитай 1 покомпонентно. Для удобства TColor можно привести к TRGBQUAD (виндовзкий тип). Как это будет работать не в 32-х битных видеорежимах я не знаю.


 
Kotka   (2003-03-04 19:34) [3]

В цикле for i:=255 downto 128 рисуешь на канвасе 128 прямоугольников цвета rgb(i,i,i)
Я всегда так делал


 
Intell   (2003-03-05 14:44) [4]

Ребята! Так и не получил хорошего ответа, хотя предложение Начинающий программист`а мне понравилось, но хотелось бы программничек...


 
Yakudza   (2003-03-05 17:06) [5]

Вот так можно помигать компонентом, попробуй может что нароешь для себя.

procedure TForm1.FlashControl(Control : TControl);
begin
if(Control.Tag=0)then
begin
Control.Tag:=8;
SetTimer(Handle,Integer(Control),75,nil);
end;
end;


procedure TForm.WMTimer(var Msg: TWMTimer);
begin
if(DWORD(Msg.TimerID)>2)then
begin
TControl(Msg.TimerID).Tag := TControl(Msg.TimerID).Tag-1;
if (TColorControl(Msg.TimerID).Color = clRed) then TColorControl(Msg.TimerID).Color := clWhite else TColorControl(Msg.TimerID).Color := clRed;
if(TControl(Msg.TimerID).Tag <=0 ) then KillTimer(Handle,Msg.TimerID);
end
else
inherited;
end;


 
Intell   (2003-03-05 17:40) [6]

Yakudza, чего-то я в этом примере не понял... Строка
//if (TColorControl(Msg.TimerID).Color = clRed) then TColorControl(Msg.TimerID).Color := clWhite else TColorControl(Msg.TimerID).Color := clRed;
смахивает на истину, но как ей воспользоваться?



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

Форум: "Основная";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
3-53869
BorisUK
2003-02-24 14:20
2003.03.17
DbGridEh - Selected ...


3-53847
phantom2040
2003-02-25 16:26
2003.03.17
Вопроc по SQL


1-54087
Hiks
2003-03-05 14:32
2003.03.17
перевод из одной численной системы в другую


1-54052
avch
2003-03-05 09:11
2003.03.17
TTreeView


3-53870
Igor Kashtanov
2003-02-24 01:49
2003.03.17
Кодировка





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский