Du kannst auch im Event OnApplyStyle in den Style eingreifen.
@sunec: Bitte die Bilder hier hochladen und nicht auf einen externen Provider. Man sieht sie sonst nicht als Vorschau und falls die weg sind haben "spätere Generationen" keinen Zugriff mehr darauf.
Habe die Bilder mal neu hochgeladen. Wurde mir in einem anderen Thread auch schon ans Herz gelegt
Als weitere Alternative kannst man sich auch eine eigenes Stylebook aus den bereits vorhandenen Styles "zusammenkopieren".
Die Stylebooks sind ähnlich einer
XML Datei aufgebaut und so lassen sich die verschiedenen Komponenten-Styles miteinander vereinen.
Im Beispiel sind die Styles: Light, Air und der normale Windows Style.
EDIT:
Hier mal das passende Stylebook dazu:
Delphi-Quellcode:
object TLayout
Align = Client
Height = 1003.000000000000000000
Width = 1165.000000000000000000
TabOrder = 1
object TLayout
StyleName = 'checkboxstyle2'
DesignVisible = False
Height = 21.000000000000000000
Position.X = 522.000000000000000000
Position.Y = 491.000000000000000000
Width = 121.000000000000000000
object TLayout
Align = Left
Height = 21.000000000000000000
Width = 20.000000000000000000
object TRectangle
StyleName = 'background'
Align = Center
Fill.Color = xFF585858
Locked = True
Height = 13.000000000000000000
HitTest = False
Stroke.Color = xFF1C1C1C
Width = 13.000000000000000000
object TGlowEffect
Softness = 0.300000011920929000
GlowColor = xFF65C8E0
Opacity = 1.000000000000000000
Trigger = 'IsFocused=true'
Enabled = False
end
object TRectangle
Align = Client
Fill.Kind = None
Height = 11.000000000000000000
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 1.000000000000000000
Margins.Bottom = 1.000000000000000000
Stroke.Color = xFF595959
Width = 11.000000000000000000
end
object TColorAnimation
Duration = 0.100000001490116100
PropertyName = 'Fill.Color'
StartValue = xFF585858
StopValue = xFF686868
Trigger = 'IsMouseOver=true'
end
object TColorAnimation
Duration = 0.100000001490116100
PropertyName = 'Fill.Color'
StartValue = xFF686868
StopValue = xFF585858
Trigger = 'IsMouseOver=false'
end
object TPath
StyleName = 'checkmark'
Align = Center
Data.Path = {
1200000000000000000000000000000001000000CDCC4C3E0000000001000000
0000003F9A99993E01000000CDCC4C3F00000000010000000000803F00000000
010000000000803FCDCC4C3E010000003333333F0000003F010000000000803F
CDCC4C3F010000000000803F0000803F01000000CDCC4C3F0000803F01000000
0000003F3333333F01000000CDCC4C3E0000803F01000000000000000000803F
0100000000000000CDCC4C3F010000009A99993E0000003F0100000000000000
CDCC4C3E010000000000000000000000030000000000000000000000}
Fill.Color = claNull
Locked = True
Height = 9.000000000000000000
HitTest = False
Stroke.Kind = None
Width = 9.000000000000000000
object TColorAnimation
Duration = 0.100000001490116100
PropertyName = 'Fill.Color'
StartValue = claNull
StopValue = claBlack
Trigger = 'IsChecked=true'
end
object TColorAnimation
Duration = 0.000100000004749745
PropertyName = 'Fill.Color'
StartValue = claBlack
StopValue = claNull
Trigger = 'IsChecked=false'
end
end
end
end
object TText
StyleName = 'text'
Align = Client
Locked = True
Height = 19.000000000000000000
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 2.000000000000000000
Margins.Right = 1.000000000000000000
Text = 'CheckBox'
TextSettings.FontColor = xFFF3F3F3
Width = 99.000000000000000000
end
end
object TLayout
StyleName = 'checkboxstyle1'
DesignVisible = False
Height = 15.000000000000000000
Position.X = 575.000000000000000000
Position.Y = 494.000000000000000000
Width = 15.000000000000000000
object TLayout
Align = Left
Height = 15.000000000000000000
Width = 15.000000000000000000
object TRectangle
Align = Center
Fill.Color = claWhite
Locked = True
Height = 13.000000000000000000
HitTest = False
Stroke.Kind = None
Width = 13.000000000000000000
object TRectangle
StyleName = 'background'
Align = Client
Fill.Color = claWhite
Locked = True
Height = 11.000000000000000000
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 1.000000000000000000
Margins.Bottom = 1.000000000000000000
Stroke.Color = xFFD6D6D6
Width = 11.000000000000000000
object TGlowEffect
Softness = 0.200000002980232200
GlowColor = xFF3DC9ED
Opacity = 1.000000000000000000
Trigger = 'IsFocused=true'
Enabled = False
end
end
object TPath
StyleName = 'checkmark'
Align = Center
Data.Path = {
2200000000000000000C6444002CD74301000000006261440098DC4301000000
00B85E440030D74301000000008E5E440084D74301000000008C5E440080D743
0100000000685E4400CCD7430100000000645E4400D4D7430100000000605E44
00DCD74301000000003A5E440024D8430100000000E660440090DD4301000000
00365E440004E3430100000000645E44005CE3430100000000665E440058E343
0100000000865E440098E3430100000000865E44009CE3430100000000905E44
00ACE3430100000000B45E4400F8E34301000000006261440088DE4301000000
0010644400FCE343010000000034644400B0E34301000000003E644400A0E343
01000000003E6444009CE34301000000005E6444005CE3430100000000606444
0060E34301000000008E64440008E3430100000000DC61440090DD4301000000
008A64440020D843010000000064644400D8D743010000000060644400D0D743
01000000005C644400C8D7430100000000386444007CD7430100000000366444
0080D74301000000000C6444002CD74303000000000C6444002CD743}
Fill.Color = xFF3DC9ED
Locked = True
Height = 7.000000000000000000
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 1.000000000000000000
Stroke.Kind = None
Width = 7.000000000000000000
object TColorAnimation
Duration = 0.100000001490116100
PropertyName = 'Fill.Color'
StartValue = x00FFFFFF
StopValue = xFF3DC9ED
Trigger = 'IsChecked=true'
TriggerInverse = 'IsChecked=false'
end
end
end
end
object TText
StyleName = 'text'
Align = Client
Locked = True
Height = 13.000000000000000000
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 2.000000000000000000
Margins.Right = 1.000000000000000000
Text = 'CheckBox'
TextSettings.FontColor = xFF828282
Width = 0.000000000000000000
end
end
end