Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#43

AW: FMX TButton Hintergrundfarbe

  Alt 30. Dez 2015, 19:07
Liegt evtl. daran, dass ich den originalen Background gelöscht habe und dann ein TRectangle dort platziert habe und in background umbenannt.

Ausschlaggebend ist der StyleName!

Hier der Style:
Code:
object TStyleContainer
  object TLayout
    StyleName = 'RectangleButtonStyle'
    Position.X = 737.000000000000000000
    Position.Y = 486.000000000000000000
    Size.Width = 80.000000000000000000
    Size.Height = 22.000000000000000000
    Size.PlatformDefault = False
    Visible = False
    TabOrder = 0
    object TRectangle
      StyleName = 'background'
      Align = Contents
      Fill.Color = claCrimson
      HitTest = False
      Size.Width = 80.000000000000000000
      Size.Height = 22.000000000000000000
      Size.PlatformDefault = False
      Stroke.Color = xFFFF4343
      XRadius = 10.000000000000000000
      YRadius = 10.000000000000000000
      object TInnerGlowEffect
        StyleName = 'PressedStyle'
        Softness = 0.400000005960464400
        GlowColor = claDimgray
        Opacity = 0.899999976158142100
        Trigger = 'IsPressed=true'
        Enabled = False
      end
      object TShadowEffect
        StyleName = 'HotStyle'
        Distance = 3.000000000000000000
        Direction = 45.000000000000000000
        Softness = 0.300000011920929000
        Opacity = 0.600000023841857900
        ShadowColor = claBlack
        Trigger = 'IsMouseOver=true'
        Enabled = False
      end
    end
    object TGlyph
      StyleName = 'glyphstyle'
      Margins.Left = 3.000000000000000000
      Margins.Top = 2.000000000000000000
      Margins.Right = 1.000000000000000000
      Margins.Bottom = 2.000000000000000000
      Align = Left
      Size.Width = 16.000000000000000000
      Size.Height = 16.000000000000000000
      Size.PlatformDefault = False
    end
    object TButtonStyleTextObject
      StyleName = 'text'
      Align = Client
      Locked = True
      Margins.Left = 1.000000000000000000
      Margins.Top = 2.000000000000000000
      Margins.Right = 1.000000000000000000
      Margins.Bottom = 2.000000000000000000
      Size.Width = 78.000000000000000000
      Size.Height = 18.000000000000000000
      Size.PlatformDefault = False
      ShadowVisible = False
      HotColor = claAntiquewhite
      FocusedColor = claAntiquewhite
      NormalColor = claAntiquewhite
      PressedColor = claAntiquewhite
    end
  end
end
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)

Geändert von Sir Rufo (30. Dez 2015 um 19:18 Uhr)
  Mit Zitat antworten Zitat