FMX TButton Hintergrundfarbe

[luisk]

und wie kann ich Beschreibungen dieser Art bearbeiten ?

Code:

object TStyleContainer
  object TLayout
    StyleName = 'RedRoundButtonStyle'
    DesignVisible = False
    Height = 52.000000000000000000
    Position.X = 424.000000000000000000
    Position.Y = 494.000000000000000000
    Width = 118.000000000000000000
    object TRoundRect
      StyleName = 'background'
      Align = alContents
      Fill.Kind = bkGradient
      Fill.Gradient.Points = <
        item
          Color = xFFD40F0F
          Offset = 0.108974359929561600
        end
        item
          Color = claWhite
          Offset = 1.000000000000000000
        end>
      Fill.Gradient.StartPosition.X = 0.500000000000000000
      Fill.Gradient.StartPosition.Y = 1.000000000000000000
      Fill.Gradient.StopPosition.X = 0.499999970197677600
      Fill.Gradient.StopPosition.Y = 0.000000000000000000
      Height = 52.000000000000000000
      Width = 118.000000000000000000
      object TInnerGlowEffect
        StyleName = 'InnerGlowEffect'
        Softness = 0.400000005960464500
        GlowColor = xFF4F4848
        Opacity = 0.899999976158142100
        Trigger = 'IsPressed=true'
      end
    end
    object TText
      StyleName = 'text'
      Align = alContents
      Color = claWhite
      Height = 52.000000000000000000
      Text = 'AAA'
      Width = 118.000000000000000000
    end
  end
object TLayout
    StyleName = 'BlueRoundButtonStyle'
    DesignVisible = False
    Height = 52.000000000000000000
    Position.X = 424.000000000000000000
    Position.Y = 494.000000000000000000
    Width = 118.000000000000000000
    object TRoundRect
      StyleName = 'background'
      Align = alContents
      Fill.Kind = bkGradient
      Fill.Gradient.Points = <
        item
          Color = xFFD40F0F
          Offset = 0.108974359929561600
        end
        item
          Color = claWhite
          Offset = 1.000000000000000000
        end>
      Fill.Gradient.StartPosition.X = 0.500000000000000000
      Fill.Gradient.StartPosition.Y = 1.000000000000000000
      Fill.Gradient.StopPosition.X = 0.499999970197677600
      Fill.Gradient.StopPosition.Y = 0.000000000000000000
      Height = 52.000000000000000000
      Width = 118.000000000000000000
      object TInnerGlowEffect
        StyleName = 'InnerGlowEffect'
        Softness = 0.400000005960464500
        GlowColor = xFF4F4848
        Opacity = 0.899999976158142100
        Trigger = 'IsPressed=true'
      end
    end
    object TText
      StyleName = 'text'
      Align = alContents
      Color = claWhite
      Height = 52.000000000000000000
      Text = 'AAA'
      Width = 118.000000000000000000
    end
  end
end