Styling a TGrid’s TCheckColumn checkbox

  

Delphi Xe6 firemonkey

I am trying to style a TGrid’s TCheckColumn, and can’t seem to get it to work properly. The checkboxes do not stay visible. Only when you click on them do they show. If you click on another cell they all go away until you click that cell again, and they reappear. Funny behavior. Not sure what I did wrong.

The effect I want is the checkbox centered in the cell and my own styled checkmark.

Any suggestions on what to check?

Here is the CheckCell style

object TLayout
StyleName = ‘checkcellstyle’
DesignVisible = False
Height = 30.000000000000000000
Position.X = 273.000000000000000000
Position.Y = 326.000000000000000000
Width = 149.000000000000000000
TabOrder = 59
object TLayout
Align = Center
Height = 30.000000000000000000
Width = 20.000000000000000000
object TRectangle
StyleName = ‘background’
Align = Center
Fill.Kind = Gradient
Fill.Gradient.Points = <
item
Color = xFFBCBCBC
Offset = 0.000000000000000000
end
item
Color = xFFEEEEEE
Offset = 1.000000000000000000
end>
Fill.Gradient.StartPosition.X = 0.500000000000000000
Fill.Gradient.StartPosition.Y = 1.000000000000000000
Fill.Gradient.StopPosition.X = 0.499999970197677600
Fill.Gradient.StopPosition.Y = 0.000000000000000000
Locked = True
Height = 15.000000000000000000
HitTest = False
Stroke.Color = xFF1D1D1D
XRadius = 2.000000000000000000
YRadius = 2.000000000000000000
Width = 15.000000000000000000
object TColorAnimation
Duration = 0.200000002980232200
PropertyName = ‘Stroke.Color’
StartValue = xFF1D1D1D
StopValue = xFFC61412
Trigger = ‘IsMouseOver=true;IsPressed=false’
TriggerInverse = ‘IsMouseOver=false;IsPressed=false’
end
object TGlowEffect
Softness = 0.200000002980232200
GlowColor = claCrimson
Opacity = 0.899999976158142100
Trigger = ‘IsFocused=true’
Enabled = False
end
object TPath
StyleName = ‘checkmark’
Align = Center
Data.Path = {
0700000000000000CD92A7423983E24301000000A6C0194372B5BB4301000000
DCB66143EF52DF43010000006EDBE84394136E4301000000B76DFB4338E58D43
010000009224594378A9174403000000CD92A7423983E243}
Fill.Color = x00F5AB28
Locked = True
Height = 11.000000000000000000
HitTest = False
Stroke.Kind = None
Width = 11.000000000000000000
object TColorAnimation
Duration = 0.100000001490116100
PropertyName = ‘Fill.Color’
StartValue = x00FF9800
StopValue = xFFFF9800
Trigger = ‘IsChecked=true’
TriggerInverse = ‘IsChecked=false’
end
end
end
end
end

Comments are closed.