Zmbutton

Тема в разделе "Delphi - Компоненты", создана пользователем Dock1100, 30 янв 2010.

Статус темы:
Закрыта.
  1. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Недавно в нете нашол красивый компонент кнопки с плавним переходом(анимацией затухания), судя по описанию то что то похожое использовано в AIMP,
    скачать мохно тут ZMButton, но там токо DCU файл.
    Как его установить?
     
  2. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    В разных версиях дельфей - по разному.
     
  3. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    на 2006 и 2010.
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Уже не надо, похожий компонент уже почти дописал, возможно завтра выложу(осталось соеденить плавное изменение и изменение цвета) :rolleyes:
     
  5. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Что то не получаетса создать компонент. :rolleyes:
    Ладно вот код:
    Код (Text):
    Этот код удален поскоку так сделал автор
     
  6. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Подскажите что не так пишу в компоненте
    Код (Text):
    Этот код удален поскоку так сделал автор
    когда установил кинул на форму в событиях
    Код (Text):
    onmouseenter
    AniBtnImg1.EnterImg

    onmouseleave
    AniBtnImg1.LeaveImg
     
  7. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Созданий компонент не реагирует
     
  8. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Непонял, а что ето означает?

    onmouseenter
    AniBtnImg1.EnterImg

    onmouseleave
    AniBtnImg1.LeaveImg
     
  9. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Дописал но работает нормально только с одним рисунком, если кинуть на форму несколько таких рисунков и резко по всем сразу провести курсором наблюдаются странные глюки.
    Как это исправить?


    Не забудте установить в инспекторе обектов интервал и количество шагов а также написать этот код:
    Код (Text):
    procedure TForm6.AniBtnImg1MouseEnter(Sender: TObject);
    begin
    AniBtnImg1.MouseEnter;
    end;

    procedure TForm6.AniBtnImg1MouseLeave(Sender: TObject);
    begin
    AniBtnImg1.MouseLeave;
    end;

    procedure TForm6.FormCreate(Sender: TObject);
    begin
    AniBtnImg1.Reload;
    end;
     

    Вложения:

    • AniBtnImg2.pas
      Размер файла:
      4 КБ
      Просмотров:
      6
  10. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    Будет не плохо если напишешь инфу про компонент в разработках форумчан=)
     
  11. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Для начола мне немешалоб доделать компонент
     
  12. Гость

    А не лучше ли делать Tcustomcontrol - лично я не давно вот сделал именно путём созданием потомка Tcustomcontrol
     
  13. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
Статус темы:
Закрыта.

Поделиться этой страницей