Zmbutton

[Dock1100]

Недавно в нете нашол красивый компонент кнопки с плавним переходом(анимацией затухания), судя по описанию то что то похожое использовано в AIMP,
скачать мохно тут

Ссылка скрыта от гостей

, но там токо DCU файл.
Как его установить?

 

[vital]

В разных версиях дельфей - по разному.

 

[Dock1100]

на 2006 и 2010.

 

[Dock1100]

Уже не надо, похожий компонент уже почти дописал, возможно завтра выложу(осталось соеденить плавное изменение и изменение цвета)

 

[Dock1100]

Что то не получаетса создать компонент.
Ладно вот код:

Этот код удален поскоку так сделал автор

 

[Dock1100]

Подскажите что не так пишу в компоненте

Этот код удален поскоку так сделал автор

когда установил кинул на форму в событиях

onmouseenter
AniBtnImg1.EnterImg

onmouseleave
AniBtnImg1.LeaveImg

 

[Dock1100]

Так а в чем затруднения?

Созданий компонент не реагирует

 

[Dock1100]

Дебажить пробовали?

Непонял, а что ето означает?

А собственно где код реагирования?

onmouseenter
AniBtnImg1.EnterImg

onmouseleave
AniBtnImg1.LeaveImg

 

[Dock1100]

Дописал но работает нормально только с одним рисунком, если кинуть на форму несколько таких рисунков и резко по всем сразу провести курсором наблюдаются странные глюки.
Как это исправить?


Не забудте установить в инспекторе обектов интервал и количество шагов а также написать этот код:

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;

 

[vital]

Будет не плохо если напишешь инфу про компонент в разработках форумчан=)

 

[Dock1100]

Будет не плохо если напишешь инфу про компонент в разработках форумчан=)

Для начола мне немешалоб доделать компонент

 

[Guest]

type
TAniBtnImg = class(TImage)

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

 

[Dock1100]

Подолжение тут