Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
Delphi 10 Seattle Enterprise
|
AW: FMX TButton Hintergrundfarbe
30. Dez 2015, 20: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 20:18 Uhr)
|