Skip to content

Instantly share code, notes, and snippets.

@ritalin
Created April 30, 2015 05:53
Show Gist options
  • Save ritalin/d5b95fd773226233493e to your computer and use it in GitHub Desktop.
Save ritalin/d5b95fd773226233493e to your computer and use it in GitHub Desktop.
object TLayout
StyleName = 'toggleButtonstyle'
DesignVisible = False
Height = 24.000000000000000000
Position.X = 478.000000000000000000
Position.Y = 354.000000000000000000
Width = 91.000000000000000000
object TRectangle
StyleName = 'background'
Align = alContents
Fill.Color = xFFF6F6F6
Height = 24.000000000000000000
HitTest = False
Stroke.Color = claDarkgray
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
Width = 91.000000000000000000
object TRectangle
Align = alClient
Corners = [crTopLeft, crTopRight]
Fill.Kind = bkGradient
Fill.Gradient.Points = <
item
Color = claWhitesmoke
Offset = 0.000000000000000000
end
item
Color = xFFE8E8E8
Offset = 1.000000000000000000
end>
Height = 22.000000000000000000
HitTest = False
Margins.Bottom = 2.000000000000000000
Sides = [sdTop, sdLeft, sdRight]
Stroke.Color = claDarkgray
XRadius = 2.000000000000000000
YRadius = 2.000000000000000000
Width = 91.000000000000000000
end
object TRectangle
Align = alClient
Enabled = False
Fill.Color = claDimgray
Locked = True
Height = 24.000000000000000000
HitTest = False
Opacity = 0.001000000047497451
Stroke.Color = xFF01BAE9
Width = 91.000000000000000000
object TFloatAnimation
Duration = 0.200000002980232200
PropertyName = 'Opacity'
StartValue = 0.001000000047497451
StopValue = 1.000000000000000000
Trigger = 'IsChecked=true'
TriggerInverse = 'IsChecked=false'
end
end
end
object TText
StyleName = 'text'
Align = alClient
Color = claDimgray
Locked = True
Height = 20.000000000000000000
HitTest = False
Margins.Left = 5.000000000000000000
Margins.Top = 2.000000000000000000
Margins.Right = 5.000000000000000000
Margins.Bottom = 2.000000000000000000
Text = 'button'
Width = 81.000000000000000000
object TColorAnimation
Duration = 0.200000002980232200
PropertyName = 'Fill.Color'
StartValue = xFF828282
StopValue = claWhite
Trigger = 'IsChecked=true'
TriggerInverse = 'IsChecked=false'
end
end
object TGlowEffect
Softness = 0.200000002980232200
GlowColor = xFF01BAE9
Opacity = 1.000000000000000000
Trigger = 'IsPressed=true'
Enabled = False
end
end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment