cxGrid 单元格设置颜色长度

这是一个根据cxgrid的不同数值，设置单元格显示颜色长度，有点类似于进度条，但又不是进度条，供大家参考，这里面还有些问题，希望大家如果有比较好的意见请留言，代码是用XE2编译的，的里面有个Rect的属性Width在delphi7中没有，换一个方式写就可以了