Hallo, ich mache gerade meine ersten Gehversuche mit Firemonkey mobile, und bräuchte eine kleinen Dankanstoß.
Ich möchte den Style eines TButtons zur Laufzeit ändern.
Mein erster Versuch war, das TStylebook bearbeiten zu wollen, da dies nicht direkt ging, hab ich es in die Datei xx.style abgespeichert, und wollte manuell einen Eintrag zu kopieren und einen neuen hinzufügen und "buttonstyle" in "buttonstyle1" umzubennen.
Nach dem Laden des Styles wurde aber "buttonstyle1" nicht angezeigt, das funktioniert also nicht.
Hab allerdings nicht verstanden, warum?
mein neuer Versuch war, ein zweites Stylebook aufs Formular zu legen, um dort einen "roten" Button im Style zu kreieren.
Aber wie kann ich nun dem einzelnen Button den Style zuweisen, ohne das alle anderen Buttons davon betroffen sind?
Vielen Dank!
Delphi-Quellcode:
object TLayout
StyleName = 'buttonstyle'
DesignVisible = False
Height = 26.000000000000000000
Position.X = 384.000000000000000000
Position.Y = 488.000000000000000000
Width = 73.000000000000000000
object TRectangle
StyleName = 'background'
Align = alContents
Fill.Kind = bkGradient
Fill.Gradient.Points = <
item
Color = xFF505050
Offset = 0.000000000000000000
end
item
Color = xFF303030
Offset = 1.000000000000000000
end>
Locked = True
Height = 26.000000000000000000
HitTest = False
Stroke.Color = xFF222222
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
Width = 73.000000000000000000
object TColorAnimation
Duration = 0.200000002980232200
PropertyName = 'Fill.Color'
StartValue = xFF505050
StopValue = xFF707070
Trigger = 'IsMouseOver=true;IsPressed=false'
TriggerInverse = 'IsMouseOver=false;IsPressed=false'
end
object TColorAnimation
Duration = 0.200000002980232200
PropertyName = 'Fill.Color'
StartValue = xFF707070
StopValue = xFF404040
Trigger = 'IsPressed=true'
TriggerInverse = 'IsPressed=false'
end
end