лишние символы в ячейке StringGrid при раскрашивании

[furstenberg]

Привет всем. Вот столкнулся с такой проблемой:
заношу в StringGrid цифровые данные , при превышении заданного уровня
соответствующая строка должна выделяться др цветом, делаю
так в TForm1.StringGrid1DrawCell:

if ( strtolb[Arow]<>'') AND  (Arow<>0)  then
if Arow=strtoint(strtolb[Arow]) then
 with TstringGrid(sender), canvas do
   begin //12
   brush.Color:=$004080FF;
   font.Color:=clBlack;
   Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2,Cells[1, 1]);
  TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol,ARow]);
 // strtolb[Arow]:='';
  //FillRect(Rect);
   end ;  //12

При ракрашивании грида если строка подлежит закраске , то закрасить.
Так вот, при значениях <10 всё нормально, но если больше именно при раскраске в эти ячейки добавляются лишние нули. Если не раскрашивать ячейки всё нормально. Данные в ячейках SHOWMESSAGE(StringGrid1.Cells[1,2]) при этом без всяких нулей. Понятно, что дело в раскрашивании, но причём здесь двухразрядные цифры непонятно? Может кто сталкивался с подобной проблемой?

[mihali4]

У канваса нет свойства Cells...
Поэтому в соответствующих строках нужно явно указывать :
StringGrid1.Cells[ACol,ARow]...

[furstenberg]

Можно чуть подробнее, а то я потыкался с этими ячейками, но ничего не получилось?

[alex_sed]

   Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2,Cells[1, 1]);
  TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol,ARow]);

В эту ячейку ты выводишь два текста из Cells[1, 1] и Cells[ACol,ARow]
Убери один из них...

[mihali4]

Да пусть выводит что угодно, главное:
Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[1, 1]);

[furstenberg]

А ведь точно. Спасибо за помощь.