Подскажите: Как в ячейке StringList а не обрезался текст

← →
Victor (2004-10-28 22:39) [0]

Как в ячейке StringList"а не обрезался текст, который длинее ширины.

← →
Palladin © (2004-10-28 22:46) [1]

А что с ним делалось?

← →
Victor (2004-10-28 22:48) [2]

А это играет роль

← →
Гаврила © (2004-10-28 22:53) [3]

И курить не надо - и так все хорошо

← →
VID © (2004-10-28 22:54) [4]

Хорошая шайтан-трава

← →
Palladin © (2004-10-28 22:55) [5]

Что это, какую роль и какое отношение это играющее роль имеет отношение к заданному вопросу и уточняющему вопросу?

← →
Palladin © (2004-10-28 22:57) [6]

Если вообще пост можно назвать вопросом... наверно мне показалось...

← →
Victor (2004-10-28 23:04) [7]

После ввода текста, оказывается, что длинее ширины ячейки, в связи с чем он обрезается по ее левому краю. Вопрос: как сделать, что бы он не обрезался, а продожение выводилось на следующую(ие) ячейки, как в Excel"e?

← →
Palladin © (2004-10-28 23:08) [8]

А сразу так спросить нельзя было? Лень на клавиши нажимать? Или думать? Уважай отвечающих!

Обрабатывай OnDrawCell и выводи текст за границу ячейки. Подробности в справке. Там есть пример.

← →
Victor (2004-10-28 23:21) [9]

Пишу в DrawCell:
.
.
Rect.Right:=Rect.Left+Canvas.TextWidth(Cells(ACol,ARow));
Canvas.TextRect(Rect,Rect.Left+2,ARect.Top+2,Cells(ACol,ARow));
.
.
К сожалению не помогает

TStringGrid.DefaultDrawing:=False;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
If (ACol=1) And (ARow=1) Then
StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top,"The long long long long long long long long long long long long long long long long long long long long long long long long long long String");
end;

Подскажите: Как в ячейке StringList а не обрезался текст Найти похожие ветки