Работа со StringGrid ом

← →
TolikM (2003-07-08 17:00) [0]

Подскажите как сделать, чтобы текст в ячейке показывался в несколько строк.

← →
Игорь Шевченко (2003-07-08 18:04) [1]

На событии OnDrawCell написать DrawText (...., DT_WORDBREAK)
и не забыть сделать высоту строки StringGrid"а такую, чтобы можно было в несколько строк вывести.

← →
MBo (2003-07-08 18:04) [2]

по OnDrawCell рисовать текст самому, например, с использованием функции DrawText

← →
VAleksey (2003-07-08 18:26) [3]

>
> Игорь Шевченко © (08.07.03 18:04)

> MBo © (08.07.03 18:04)

:-)
Телепаты блин.

← →
MBo (2003-07-08 18:44) [4]

>VAleksey
Сам видишь, эту мысль пришлось около часа обдумывать ;)

← →
TolikM (2003-07-09 11:45) [5]

На событие OnDrawCell пишу
DrawText(StringGrid1.Canvas.Handle,PChar(StringGrid1.Cells[ACol,ARow]),-1,Rect,DT_WORDBREAK). Выводится только одна строка.
В чем ошибка?
P.S. Высота строки достаточная.

← →
MBo (2003-07-09 12:07) [6]

У меня в несколько строк:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
StringGrid1.Canvas.FillRect(Rect);
DrawText(StringGrid1.Canvas.Handle,PChar(StringGrid1.Cells[ACol,ARow]),-1,
Rect,DT_WORDBREAK);
end;

← →
TolikM (2003-07-09 12:47) [7]

Теперь работает. Спасибо.

← →
TolikM (2003-07-09 12:51) [8]

Понял! Переносит только при наличии пробела.

Работа со StringGrid ом Найти похожие ветки