为什么我在DBGRIDEH的ONDrawColumnCell事件中改变FIXED Cell线的颜色无效了？

我想做出SQL 2000中收入数据的那种效果，就是将FIXED CELL线的颜色画为BLACK，可在 OnDrawColumnCell中执行以下代码无效，烦请各位指点迷津：
   if State = [gdFixed] then
     with Dbgrideh.Canvas do
     begin
       //画从左到右且下面的线
       Pen.Color := clBlack;
       MoveTo(Rect.Left,Rect.Bottom);
       LineTo(Rect.Right,Rect.Bottom);
       //画左边从上到下的线
       Pen.Color := clBlack;
       MoveTo(Rect.Right,Rect.Top);
       LineTo(Rect.Right,Rect.Bottom);    
     end;