I would like to suggest to add a property ColorOn for the TsSlider since there is already a FontOn property.
Also, instead of testing if Color=clBtnFace to use the default green and red colors, I think it would be better to initialize Color=slBtnRed and ColorOn=slBtnGreen.
This would allow to use Color=clBtnFace and ColorOn=slBtnGreen.
Stephane Senecal
CIS Group
Delphi programmer since 2001