StringGrid Delphi

[Виктор_Витебск]

Сообщение от evg_m

celltext:=.....
Canvas.brush.color:=... 
Canvas.Pen.color:=
Canvas.DrawText(celltext);

Написал это в StringGrid и получаю ошибку на каждом слове... В celltext что должно быть записано?...

[Виктор_Витебск]

Может типа так

StringGrid1.Cells[2,0]:='Ячейка 3';
StringGrid1.ColWidths[2]:='30';

надо писать? Но тоже ошибка.

[Виктор_Витебск]

procedure TForm12.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var X: Real;
begin
with StringGrid1 do
  begin
   try
    X:=StrToFloat(Cells[ACol, ARow]);
    if X>0 then Canvas.Brush.Color:=clMenuBar;
    if X<0 then Canvas.Brush.Color:=clMenuBar;
    if X=0 then Canvas.Brush.Color:=clMenuBar;
   except
   end;
   Canvas.FillRect(Rect); //Òåêñò òîæå áóäåò çàêðàøåí, åãî íóæíî ïåðåðèñîâàòü:
   Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
  end;
end;

и вот так не выходит

[Виктор_Витебск]

procedure TForm12.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
StringGrid1.Canvas.Brush.Color:=clRed;
if ((ACol=2)and(ARow=2)) then
  StringGrid1.Canvas.FillRect(Rect);
end;

такой просто не работает

[Виктор_Витебск]

точнее получилось, но ячейка закрасила и текст. это можно изменить?