Перейти к содержанию
  • Регистрация
  • 0
Major

TColorAnimation вообще работает с кнопками??

Вопрос

Кидаю TColorAnimation на TRectangle, подключаю PropertyName = Fill.Color - усё работает.

Кидаю TColorAnimation на TButton, подключаю PropertyName = TintColor - не работает!

Хочу заставить кнопку мигать. Спасибо!

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

  • 0

стили конечно можно

но я сторонник простых решений

если надо чего мигать, я просто кладу в кнопку Rectangle и он весело мигает...

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
12 часов назад, Major сказал:

Кидаю TColorAnimation на TButton, подключаю PropertyName = TintColor - не работает!

TintColor не во всех стилях есть, в дефалтном на Windows точно нету.

на какой платформе тестите?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
3 часа назад, Равиль Зарипов (ZuBy) сказал:

TintColor не во всех стилях есть, в дефалтном на Windows точно нету.

на какой платформе тестите?

Windows 7

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
23 минуты назад, Major сказал:

Windows 7

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

Чтобы помигать кнопкой или любым другим контролом, для привлечения внимания я делаю так: 

Добавить на кнопку TGlowEffect, установить нужный цвет. Внутрь TGlowEffect добавляю TFloatAnimation . В нем выбираю PropertyName = Opacity. Дальше устанавливаю Start и Stop 0 и 1. AutoReverse := true; Loop := true; Duration (0.3)

Все.

В коде включаем :

GlowEffect.Enable := true и FloatAnimation.Enable := true - заставит пульсировать кнопку. 

Например так:

procedure TfrmMain.PulseEMRGButton;
begin
  GlowBtnEMRGNum.Enabled := true;
  animGlowBtn.Enabled := true;
  TThread.CreateAnonymousThread(procedure
  begin
    Sleep(1250);  // general duration
    TThread.Queue(nil, procedure
    begin
      animGlowBtn.Enabled := false;
      GlowBtnEMRGNum.Enabled := false;
    end);
  end).Start;
end;

 

Ксати Major переименуйте тему в "Пульсирующая кнопка".

Изменено пользователем ENERGY

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...