Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Плавающее окошко, Увеличить яркость при наведении курсора 
:(
    Опции темы
jaAlex
Дата 3.6.2006, 23:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет
В общем, у меня такая задача. У моей программы есть плавающее окошко. При на ведении на него курсора необходимо, чтобы  его яркость увеличивалась (как у Download Master'a). Как это сделать, подскажите пожалуйста. Желательно с примером. smile  P.S. программа написана на Delphi 7. 
PM MAIL   Вверх
Sunvas
Дата 4.6.2006, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Цитата(jaAlex @  3.6.2006,  23:28 Найти цитируемый пост)
 чтобы  его яркость увеличивалась (как у Download Master'a).

Скорее прозрачность уменьшалась! И это работает только в Вин 2000/Хр.

Делается просто:
Код

{.....}
    procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
{.....}
procedure TForm1.CMMouseEnter(var msg:TMessage);
begin
inherited;
form1.AlphaBlendValue:=255;
end;


procedure TForm1.CMMouseLeave(var msg: TMessage);
begin
inherited;
form1.AlphaBlendValue:=100;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.AlphaBlend:=true;
form1.AlphaBlendValue:=100;
end;


 


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
jaAlex
Дата 4.6.2006, 00:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет
А можно ли чтобы все это делалось плавно? Ну, то есть яркость чтобы увеличивалась плавно. 
PM MAIL   Вверх
volvo877
Дата 4.6.2006, 01:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116
Цитата(jaAlex @  4.6.2006,  00:52 Найти цитируемый пост)
А можно ли чтобы все это делалось плавно?

Ну, сделай так:
Код
procedure TForm1.CMMouseEnter(var msg:TMessage);
var i: integer;
begin
  inherited;
  i := AlphaBlendValue;
  while i < 255 do begin
    inc(i, 5);
    if i > 255 then i := 255;
    AlphaBlendValue := i;
  end;
end;
 
PM MAIL   Вверх
jaAlex
Дата 4.6.2006, 01:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет
Да нет, это тоже не то. Надо чтобы плавно, как у Download Master'а. Допустим, AlphaBlendValue плавающего окошка =155. Нужно чтобы это значание плавно увеличивалось до 255. Я вот думал через таймер, но может как - то попроще можно? 
PM MAIL   Вверх
Sunvas
Дата 4.6.2006, 01:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Поставь sleep(50) 


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
volvo877
Дата 4.6.2006, 01:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116
Ну, и чем, собственно, тебя не устраивает вышеприведенный код? Недостаточно плавно меняется? Что не так? Вот я, например, DM не использую, так что мне просто не известно, "как в Download Master", я показал тебе, как плавно уменьшить прозрачность...
 
PM MAIL   Вверх
Sunvas
Дата 4.6.2006, 01:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Цитата(volvo877 @  4.6.2006,  01:51 Найти цитируемый пост)
я показал тебе, как плавно уменьшить прозрачность...

Комп выполнит твой код очень быстро. Так что ты увидишь этого "плавного" перехода. Все будет мгновенно! 


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
jaAlex
Дата 4.6.2006, 01:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет
Sunvas правильно говорит, это даже не успеваешь заметить. Все же думаю через таймер все сделать. Неужели нельзя сделать попроще? 
PM MAIL   Вверх
Sunvas
Дата 4.6.2006, 02:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Цитата(jaAlex @  4.6.2006,  01:58 Найти цитируемый пост)
Неужели нельзя сделать попроще? 

Проще уже некуда..


Цитата(jaAlex @  4.6.2006,  01:58 Найти цитируемый пост)
Все же думаю через таймер все сделать.

Ну, тода надо через таймер онимать и прибавлять количество прозрачности. Довольно мудрено. 


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
jaAlex
Дата 4.6.2006, 02:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет
Зато конечный результат, рассчитываю, будет неплохим. Выйдет как раз то, что мне нужно. 
PM MAIL   Вверх
PsychosisIRC
Дата 4.6.2006, 07:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 3.6.2006

Репутация: нет
Всего: нет
на 100% уверен где нибудь на Тории валяется какой-нибудь компонент на эту тему...
если не хочешь париться лишний раз по мелочам заходи туда... или ещё где поищи...

http://torry.net (если не ошибаюсь или ru... не помню) 
PM MAIL   Вверх
skyboy
Дата 4.6.2006, 09:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


неОпытный
****


Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260
Да ну ладно smile Таймер - это сложно?  smile 
Ты получишь постепенное, с нужной скоростью, уменьшение прозрачности... Разве это плохо?
P.S. А почему - прозрачность, а не яркость? Конечно, свойства Color у формы и компонентов  - это не совсем RGB код, но вполне можно было бы приближать цвет к белому при наведении, а при потере фокуса - уменьшать до, скажем, тёмно-синего...

Добавлено @ 09:13 
Я осознаю, что яркость != цветность. Но визуально это будет напоминать увеличение яркости. 
PM MAIL   Вверх
Quadr0
Дата 4.6.2006, 11:56 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 11:23
  Вверх
jaAlex
Дата 4.6.2006, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет
А разве procedure TForm1.CMMouseEnter и procedure TForm1.CMMouseLeave не определяют, когда мышка наведена, а когда ее нет на форме?  smile  По идее они и должны управлять увеличением или уменьшением прозрачности. 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0580 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.