Круглая кнопка

[Winexcel]

Здравствуйте, собственно сабж, интересует как сделать чтобы при наведении на кнопку эффекты применялись именно когда мышь наведена на круг. Пробовал сделать так:

Через стили добавил TRectangle с бордер радиусом, в него положил кнопку..

Но при наведении на такую кнопку она все равно прямоугольная, и края прямоугольника реагируют при наведении мыши..

 

[sinuke]

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

[Winexcel]

Вот, я тоже думал в эту сторону, а как включать эффекты ?

Можно пример включения / отключения эффектов?

[sinuke]

Вот набросал на скорую руку примерчик (может конечно не идеальный пример, но сегодня что-то голова совсем деревянная)

111.zip

Изменено 15 сентября, 2017 пользователем sinuke

[dnekrasov]

Попробовал реализовать стилем - никаких проблем не возникло:

  object TEllipse
    StyleName = 'ButtonEllipseStyle'
    Align = Center
    Size.Width = 256.000000000000000000
    Size.Height = 191.000000000000000000
    Size.PlatformDefault = False
    object TColorAnimation
      Duration = 0.500000000000000000
      Inverse = True
      PropertyName = 'Fill.Color'
      StartValue = x00808080
      StopValue = xAF808080
      Trigger = 'IsMouseOver=true'
      TriggerInverse = 'IsMouseOver=false'
    end
  end

 

UPD!

Мммда... Насчет проблем я поторопился...

Для того чтобы отследить клик по кнопке надо переопределить клик для TEllipse в стиле:

procedure TForm1.btnTestApplyStyleLookup(Sender: TObject);
var
  el: TEllipse;
begin
  if TStyledControl(btnTest).FindStyleResource<TEllipse>('ButtonEllipseStyle', el) then
    el.OnClick := btnTestClick;
end;

 

Изменено 15 сентября, 2017 пользователем dnekrasov

[ENERGY]

Если кому то нужна круглая кнопка со сглаживанием под Android\iOS - то ставьте компоненты @Равиль Зарипов (ZuBy), сделанные на основе модуля FMX.Graphics.Native.pas от одного китайского программиста.

https://github.com/rzaripov1990/ZMaterialComponents ( тут все готово, сам модуль отдельно скачивать не надо.)

Дальше кидаем TZNativeDrawFigureCircle1, в него лэйбл и TColorAnimation как указано выше.  

OnClick работает без проблем, только не забудьте поставить кругу HitTest := true, а у лэйбла false. 

Изменено 7 мая, 2018 пользователем ENERGY