Выделение ячейки цветом - StringGrid.

[Chudo4258]

Такой вопрос:
у меня на форме есть StringGrid, возможно ли закрасть определенную ячейку цветом???

Например 
 if StringGrid1.Cells[i,j] mod 3 =0 then закрасить ячейку Cells[i,j] в некоторой цвет.

[Костя КС]

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.OnDrawCell:=nil;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol = 1) and (ARow = 1) then  {ACol - столбец, ARow - строка} 
begin
StringGrid1.Canvas.Brush.Color := clRed;    {тут цвет}
StringGrid1.Canvas.FillRect (Rect);
StringGrid1.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol,ARow]);
end; {if}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.OnDrawCell:=StringGrid1DrawCell;
StringGrid1.Invalidate;
end;

http://www.programmersforum.ru/showt...F7%E5%E9%EA%E8