StringGrid и перенос по словам =)

[Djem1991]

Добрый день!

Вот нашёл пример, как длинные строки в стринггриде переносить, но у меня отрисовывается один и тот же текст во всех ячейках, как сделать, чтобы отрисовался только в нужной?

Или как - то по-другому переносить?

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
S : string;
begin
  ACol:=0;
  ARow:=0;
  S := 'Пример очень длинной строки,это просто длинная строка';
  if gdSelected in State then begin
    StringGrid1.Canvas.Brush.Color := clLtGray;
    StringGrid1.Canvas.FillRect(Rect);
  end;
  Inc(Rect.Top, 2);
  Dec(Rect.Bottom, 2);
  Inc(Rect.Left, 2);
  Dec(Rect.Right, 2);
  DrawText(StringGrid1.Canvas.Handle, pChar(S), Length(S), Rect, DT_LEFT or DT_WORDBREAK);
end;

Заранее благодарен)

[mihali4]

Вот это:

ACol:=0;
АRow:=0;
S := 'Пример очень длинной строки,это просто длинная строка';

заменяем на:

S := StringGrid1.Cells[ACol,ARow];

[Djem1991]

Михалыч, ты гений))))

Спасипа, тема исчерпана)