رنگی کردن بعضی از رکوردها در دی بی گرید

[jr_ozv]

سلام دوستان

من یک قطعه برنامه دارم در خصوص رنگی کردن بعضی از رکوردها در دی بی گرید



procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if adoTABLE1.FieldByName('num1').asfloat= 8
then
DBGrid1.Canvas.Font.Color:=clred;
DBGrid1.Canvas.TextRect(rect,rect.left+2,rect.top+ 2,field.AsString);
end;

این قطعه برنامه میگه که تمام رکوردهای num1 که مقدار آن برابر 8 است رو با رنگ قرمز نمایش بده

تا اینجای کار که مشکلی نیست اما ...

من وقتی بر روی دی بی گرید دابل کلیک کرده تا برخی از فیلدها فقط نمایش داده شوند ، این قطعه برنامه کار نمی کنه
ممنون میشم تغییراتش رو بهم بگید
با تشکر