Не раскрашивается ячейка в таблица string grid

[samouelson]

Таблица состоит из 2 столбцов. Во 2 столбец я заношу либо 0 либо 1. Если ячейка пустая, то соответственно мы записываем 1 и закрышиваем ее. Проблема токо в том, что ячейка не закрашивается. Помогите плиз!

procedure TForm1.sgEnterVarSelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
var rect:TRect;
begin
if acol<>0 then
if sgEnterVar.Cells[acol, arow] = '' then
begin
sgEnterVar.Cells[acol, arow] := '1';
rect := sgEnterVar.CellRect(acol, arow);
sgEnterVar.Canvas.Brush.Color := clRed;
sgEnterVar.Canvas.FillRect(rect);
end
else
sgEnterVar.Cells[acol, arow] := '';
end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[noxin]

попробуй лучше использовать метод DrawCell, я всегда им пользуюсь если надо что-то закрасить