Please feel free to extend and repost here.

Walter

Hi Walter,

thanks for sharing this.

I tried to enhance the component by adding

FillNormalFontColor
FillHotFontColor

properties in order to set the Font.Color as well.

I tried this code:

procedure TColorButton.UpdateInterfaceState;
begin
   inherited UpdateInterfaceState;
   if InterfaceState = HOT_STATE_NAME then
   begin
      Element.Background.Fill.Color := fFillHotColor;
      Element.Font.Color := fFillHotFontColor;
   end else if InterfaceState = NORMAL_STATE_NAME then
  ...
end;

But that doesn't have any effect. I guess "Element" is the root element
of the interface. How can I change the font color?

Thanks Uli

Uli:

 Self.Font.Color

Attached works but needs improvement.  If you set Normal Color via Font property it does not update the fFontNormalColor - need to add the override of setFontColor.


Walter

> Attached works but needs improvement.  If you set Normal Color via Font property it does not update the fFontNormalColor - need to add the override of setFontColor.

Quite easy

Thanks Walter