Где взять такой компонент? >>

[beegl]

есть у кого такой компонент, "эффект затухания" при нажатии на элемент управления, CheckBox или ComboBox + "эффект затухания"

MouseEnter/MouseLeave

[beegl]

или подскажите, как добавить в событие OnClick "эффект затухания" bitmap?

Это пример компонента только на событие MouseEnter/MouseLeave:

ссылка на тхт файл с вопросот, т.к. код не вмещается в сообщение

[beegl]

кому надо такой чекбокс, забираем
FadeGraphicCheckBoxEx

[beegl]

теперь есть возможность добавлять свой битмап

[beegl]

как создать подобную подсказку при на нажатии на кнопку?

[Кольша]

Мне кажется или Вы уделяете больше интерфейсу чем самой программе...а по теме можно использовать tpngimage задавать ему прозрачность и смещать по оси Y например :

for I:=255 downto 0 do
//ставим прозрачность..и перемещаем..пока полностью не исчезнет..

[beegl]

наведите пример, а то не понятно, как сделать чтобы PNG двигался поверх контролов
надо использовать модули TPngImage или лучше GDI+ или DirectX?
хотелось бы сделать в виде компонента

вот что получилось:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Top := Image1.Top -1;
Image1.Visible := True;
 if Image1.Top <= 87 then
begin
Timer1.Enabled := False;
Image1.Visible := False;
Image1.Top := 120;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered := True;
end;
end.

[beegl]

где взять такой компонент?)



или как превратить из компонента TTextAnimator v.1.41 подобный компонент?

[beegl]

помогите создать эффект разделенной бегущей строки, как в этом кейгене, смотрите скриншот:

[Кольша]

Мне кажется надо использовать два label.
И смещать по ним текст как по обычной бег.строке..при надобности менять им left(right) атрибуты.