Вопрос о StringGrid

[MasterofCDM]

Как в ячейку забить фразу состоящую из двух строчек, т.е. возможно ли вставить символ перевода каретки?

[artemavd]

фразу состоящую из двух строчек

Это как так?

[S@fer]

#13#10 - перевод каретки

[Stilet]

#13#10 - перевод каретки

Пробовал? получилось?

MasterofCDM

Единственное что могу предложить так это нестандартная отрисовка текста :

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var s:string;
begin
 s:= 'Строка'#13'И еще';
 DrawText(StringGrid1.Canvas.Handle,pchar(s),length(s),rect,DT_WORDBREAK);
end;

[S@fer]

Извините не правильно понял вопрос.
вот статьи из DelphiWorld
Многострочный стринггрид
http://delphiworld.narod.ru/base/mul...tringgrid.html
http://delphiworld.narod.ru/base/mul...ringgrid2.html
http://delphiworld.narod.ru/base/sg_multilines.html
http://delphiworld.narod.ru/base/sg_mline.html

[Stilet]

S@fer

А Ёхель то тут при чем?

[MasterofCDM]

Попробовал так:

StringGrid1.Cells[Xx, Yy] := Edit2.Text + #10 + 'Вот так';

и так

StringGrid1.Cells[Xx, Yy] := Edit2.Text + #13 + 'Вот так';

не получается, если ставить #32, то пробел ставится, а перевод строки никак

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var s:string;
begin
 s:= 'Строка'#13'И еще';
 DrawText(StringGrid1.Canvas.Handle,pchar(s),length(s),rect,DT_WORDBREAK);
end;

Это работает, но не совсем так, как нужно) Похоже в StringGrid этого не сделать, придеться мудрить. Всем спасибо)

[Stilet]

но не совсем так, как нужно)

А че у меня так как нужно работает? Что я не так делаю?

[MasterofCDM]

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

А че у меня так как нужно работает? Что я не так делаю?

Сделал?

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var s:string;
begin
 s:= StringGrid1.Cells[ACol, ARow];
 DrawText(StringGrid1.Canvas.Handle,pchar(s),length(s),rect,DT_WORDBREAK);
end;

Текст котрый после #13 печатается два раза, т.е если текст = 'привет' + #13 + 'друг'

привет друг
друг

[MasterofCDM]

Сделал основываясь на примерах S@fer)

procedure TnSessia1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Format: Word;
  C: array[0..255] of Char;
begin
  with Sender as TStringGrid do
  begin
      if (ARow = 0) then Canvas.Font.Style := Canvas.Font.Style + [fsbold];
      Format := DT_CENTER or DT_WORDBREAK;
      Canvas.FillRect(Rect);
      StrPCopy(C, Cells[ACol, ARow]);
      DrawText(Canvas.Handle, C, StrLen(C), Rect, Format);
  end;
end;