Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Анимированная кнопка 
:(
    Опции темы
artsb
  Дата 17.7.2007, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64



Привет.

Хочу узнать как можно сделать так, чтобы при наведении на компонент Image картинка менялась на другую, а потом обратно?

Спасибо.

Это сообщение отредактировал(а) artsb - 17.7.2007, 20:17


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
SkyHawk
Дата 18.7.2007, 06:53 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 164
Регистрация: 17.8.2006
Где: г. Новосибирск

Репутация: 1
Всего: 2



Событие OnMouseMove, обработка координатов курсора и немного смекалки. smile

Это сообщение отредактировал(а) SkyHawk - 18.7.2007, 06:53
--------------------
Быть может все, что может быть, И даже то, что быть не может.
PM MAIL WWW   Вверх
Santilka85
Дата 18.7.2007, 07:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 0
Всего: 1



а по моему обработка координат тут совсем удобна. Я так понимаю что тут достаточно OnMouseMove.
просто словами:

<наводим курсор(OnMouseMove)>
{
    загружаем в Image1 нужную картинку;
    а тут можно Sleep (500); поставить ну или скок нада; а иначе просто тут придёться голову поломать
    загружаем в Image1  бывшую картинку;
}

 покопаюсь у себя сразу напишу.. 



Это сообщение отредактировал(а) Santilka85 - 18.7.2007, 07:45
--------------------
Снегоболотоходы WP8X8 всего за 480000 рублей и аксессуары к ним.
PM MAIL   Вверх
artsb
Дата 18.7.2007, 10:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64



Ну как менять при наведении я разобрался, а вот обратно - проблема :(


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
Santilka85
Дата 18.7.2007, 10:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 0
Всего: 1



а мой пример тебе не подходит? ну в смысле когда 
1. наводишь на картинку.
2. она меняется.
3. отсчитывается к примеру 0.1 сек.
4. загрузить предыдущую картинку.

или ты картинки хочешь в EXE-файле хранить потом?

Добавлено @ 10:45
напиши хоть часть кода smile 

Это сообщение отредактировал(а) Santilka85 - 18.7.2007, 10:45
--------------------
Снегоболотоходы WP8X8 всего за 480000 рублей и аксессуары к ним.
PM MAIL   Вверх
HappyLife
Дата 18.7.2007, 12:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 8



artsb, Отслеживать координаты Мышки.
PM MAIL   Вверх
Lazin
Дата 18.7.2007, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3820
Регистрация: 11.12.2006
Где: paranoid oil empi re

Репутация: 18
Всего: 154



OnMouseEnter, OnMouseLeave. И не надо ничего отслеживать smile 
Кадры анимации нужно хранить в ImageList затем при перерисовке ImageList->Draw(Canvas, x,y, №кадра);
PM MAIL Skype GTalk   Вверх
Lazin
Дата 18.7.2007, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3820
Регистрация: 11.12.2006
Где: paranoid oil empi re

Репутация: 18
Всего: 154



Цитата

<наводим курсор(OnMouseMove)>
{
    загружаем в Image1 нужную картинку;
    а тут можно Sleep (500); поставить ну или скок нада; а иначе просто тут придёться голову поломать
    загружаем в Image1  бывшую картинку;
}

При наведении курсора сначала приложение замрет на 0,5с а затем появится "бывшая картинка", "нужную картинку" юзверь не увидит так как в место перерисовки GUIшный поток будет крепко спать smile .

Это сообщение отредактировал(а) Lazin - 18.7.2007, 15:21
PM MAIL Skype GTalk   Вверх
mr.Anderson
Дата 18.7.2007, 17:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 3
Всего: 128



Цитата
OnMouseEnter, OnMouseLeave. И не надо ничего отслеживать

Пра-а-а-а-вда? smile . Что-то не припомню я события OnMouseLeave у TImage...


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
artsb
Дата 18.7.2007, 17:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64



А разве у Image есть событие OnMouseLeave. Если нет напишите как отслеживать координаты.



--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
mr.Anderson
Дата 18.7.2007, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 3
Всего: 128



smile

Вообще, есть два варианта. Первый - поместить, скажем, TImage поверх всех контролов на форме (естественно, картинку в него загружать не надо, чтобы он остался прозрачным). И отслеживать его событие OnMouseMove, анализируя передаваемые туда параметры X и Y и соотнося их с позициями других компонентов на форме. Метод не совсем удобный, поэтому предлагаю другой.

Второй метод - переопределить метод AppMsg и отслеживать перемещение мыши в нем путем анализа события WM_MOUSEMOVE. Как перегрузить этот метод - обсуждалось много раз, поищи.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Santilka85
Дата 19.7.2007, 05:42 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 0
Всего: 1



Цитата(Lazin @  18.7.2007,  15:20 Найти цитируемый пост)
GUIшный поток будет крепко спать 


а если таймер использовать? smile 

--------------------
Снегоболотоходы WP8X8 всего за 480000 рублей и аксессуары к ним.
PM MAIL   Вверх
Lazin
Дата 19.7.2007, 07:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3820
Регистрация: 11.12.2006
Где: paranoid oil empi re

Репутация: 18
Всего: 154



Цитата

Пра-а-а-а-вда? smile . Что-то не припомню я события OnMouseLeave у TImage... 

BDS2006 Help
Цитата

OnMouseEnter (protected)  Occurs when the user moves the mouse into a control. 
OnMouseLeave (protected)  Occurs when the user moves the mouse outside of a control. 

У пэйнт бокса например есть, и у кнопки тоже. TImage не использую т.к. имхо компонент кривой, и предназначен в основном для отображения статических изображений.
Цитата

а если таймер использовать?

а если свой компонент написать? А вообще с таймером нормально должно работать. Можно так-же со Sleep, только перед ним нужно вызвать Image->Repaint() но это плохой вариант так как засыпать будет основной поток, т.е. каждый раз когда пользователь наводит курсор прога будет останавливаться (сообщения не будет обрабатывать).
PS
щас как посмотрел на этот TImage, и оказалось что у него тоже есть события OnMouseEnter & OnMouseLeave smile 

Это сообщение отредактировал(а) Lazin - 19.7.2007, 07:51
PM MAIL Skype GTalk   Вверх
Santilka85
Дата 19.7.2007, 11:09 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 0
Всего: 1



ну тада чё морочиться???? ипсользовать Timer и ВСЁ!! smile 
--------------------
Снегоболотоходы WP8X8 всего за 480000 рублей и аксессуары к ним.
PM MAIL   Вверх
Lazin
Дата 19.7.2007, 11:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3820
Регистрация: 11.12.2006
Где: paranoid oil empi re

Репутация: 18
Всего: 154



нафига таймер если события есть?
PM MAIL Skype GTalk   Вверх
Santilka85
Дата 19.7.2007, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 0
Всего: 1



Цитата(Lazin @  19.7.2007,  11:20 Найти цитируемый пост)
нафига таймер 


ну ладно картинку ты изменишь при наведении,  а обратно то КАК?
извини конечно, я, может чего то недопонял smile 

--------------------
Снегоболотоходы WP8X8 всего за 480000 рублей и аксессуары к ним.
PM MAIL   Вверх
Lazin
Дата 19.7.2007, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3820
Регистрация: 11.12.2006
Где: paranoid oil empi re

Репутация: 18
Всего: 154



cобытие OnMouseLeave
PM MAIL Skype GTalk   Вверх
Santilka85
Дата 19.7.2007, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 0
Всего: 1



Цитата(Lazin @  19.7.2007,  11:48 Найти цитируемый пост)
cобытие OnMouseLeave 

в справке не нашёл, а как оно работает, когда выполняется? smile 
--------------------
Снегоболотоходы WP8X8 всего за 480000 рублей и аксессуары к ним.
PM MAIL   Вверх
Lazin
Дата 19.7.2007, 12:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3820
Регистрация: 11.12.2006
Где: paranoid oil empi re

Репутация: 18
Всего: 154



А на чём пишешь? У меня BDS2006, там эти события есть, в 6-м я их не нашёл.
Как вариант: можно обрабатывать событие OnMouseMove у Image-а и у формы(панели) на которой он лежит. При движении указателя мыша по имагу устанавливать одно изображение, а при движении по форме возвращать старое:
Код

bool image_flag = true;
void __fastcall Image::OnMouseMove(TObject *sender, TShiftState sh, int x, int y)
{
    if ( ! image_flag )
    {    Image->...//установить новое изображение
    }
    image_flag = true;
}

void __fastcall Form::OnMouseMove(TObject *sender, TShiftState sh, int x, int y)
{
    if ( image_flag )
    {    Image->...//вернуть старое изображении изображение
    }
    image_flag = false;
}

PM MAIL Skype GTalk   Вверх
Klin
Дата 20.7.2007, 21:07 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 20
Всего: 25



Вот пример добавления этих событий для RichEdit. Переделать легко.


--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
SerK
Дата 4.8.2007, 00:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет



Доброй ночи!
Для себя я решил эту проблему так:

Код

private:    // объявление функции
        void __fastcall ShowK(TObject* Sender, bool &Done);

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 Application->OnIdle=ShowK;  // функция в конструкторе
}


void __fastcall TForm1::ShowK(TObject* Sender, bool &Done)   /
{
 unsigned short l,t,w,h; //unsigned short для того, чтобы меньше памяти занимали переменные

 l=ImYes->Left; t=ImYes->Top;
 w=ImYes->Width; h=ImYes->Height;
 TRect r=Rect(l,t,l+w,t+h);
 TPoint ps;
 GetCursorPos(&ps);
 ps.y=ps.y-Top-30;//здесь значения могут отличаться
 ps.x=ps.x-Left-2;
 if(!PtInRect(r,ps))
  {
   if(ImYes->Tag==0)
    {
     ImYes->Picture->LoadFromFile("1.bmp");
     ImYes->Tag=1;
    }
  }
 else
  {
   if(ImYes->Tag==1)
    {
    ImYes->Picture->LoadFromFile("2.bmp");
     ImYes->Tag=0;
    }
  }


Что самое главное, так это то, что нет мигания изображения.
Мне эта функция помогает для создания своих кнопок и выведения оригинальных
изображений на них.
Наверное, эту функцию можно еще оптимизировать, но пока до этого еще не 
дошли руки.



--------------------
Пусть будет миру хорошо!
PM MAIL   Вверх
ivan219
Дата 4.8.2007, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: нет
Всего: 12



Извиняюсь за код но в C++ пока неочень так что могу предложить вареант на Delphi это новый компонент созданный на основе TImage но с нужными событиями:
Код

unit MyImage;

interface

uses
  Messages, SysUtils, Classes, Controls, ExtCtrls;

type
  TMyImage = class(TImage)
  private
    FOnMouseLeave: TNotifyEvent;
    FOnMouseEnter: TNotifyEvent;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  published
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;   
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyComponent', [TMyImage]);
end;

procedure TMyImage.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
end;

procedure TMyImage.CMMouseLeave(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;
end.

PM MAIL ICQ   Вверх
xKOCMOCx
Дата 5.8.2007, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Цитата

Хочу узнать как можно сделать так, чтобы при наведении на компонент Image картинка менялась на другую, а потом обратно?

Что за функции мудрёные, что вы глумитесь, функция Image1MouseMove: загружаем новую картинку, функция FormMouseMove: загружаем старую картинку!
PM MAIL   Вверх
mr.Anderson
Дата 5.8.2007, 16:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 3
Всего: 128



xKOCMOCx, вообще, ваш вариант не совсем правильный. 
Не всегда за пределами этого изображения будет находиться именно форма. А еще более сложный вариант - если изображение окружено несколькими другими объектами. Тогда придется прописывать перезагрузку картинки для каждого OnMouseMove на каждом из этих контролов. Чего огород-то городить?!
Плюс представьте, что мы сделаем загрузку картинки по ImageMouseMove. Что тогда? При ДВИЖЕНИИ МЫШИ по этому изображению картинка будет постоянно перезагружаться! Можно, конечно, это искусственно обойти, но вместе с вышесказанным это будет вообще сверхтяжелый код. И очень нерациональный, имхо.

Это сообщение отредактировал(а) mr.Anderson - 5.8.2007, 16:50


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Uraxa
Дата 11.8.2007, 23:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



насколько я вкупил речь идет о нескольких версиях bcb. а помоему таймер нах. Лучшеиспользовать локальную переменную
Код

bool aaa;
if ( aaa == true && (координата мышки не на картинке) )
{
*поменять картинку*;
aaa = false;
}

if ( aaa == false && (координата мышки на картинке) )
{
*поменять картинку*;
aaa = true;
}



также возможно я наврал с тру и фалос, не очень помню как там фф bool но надеюсь моё предложение поятно.
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »


 




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


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

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