TStringGrid

← →
Ice © (2006-08-13 00:18) [0]

Кто-нибудь знает, можно ли в одну ячейку грида поместить несколько строк? #13 он не воспринимает, никакой документации на эту тему ms не опубликовала. Помогите, пожалуйста советом или новой компонентой - очень надо.

← →
Kolan © (2006-08-13 00:33) [1]

Многострочные ячейки в StringGrid.
Previous Top Next

Сперва необходимо установить свойство DefaultDrawing в False. Далее, необходимо вставить следующий код в обработчик события OnDrawCell:

procedure TForm1.StringGrid1DrawCell(Sender: TObject;
Col, Row: Longint;
Rect: TRect;
State: TGridDrawState);
var
Line1: string;
Line2: string;
ptr: integer;
padding: integer;
hGrid: TStringGrid;

begin
hGrid:= (Sender as TStringGrid);
ptr := Pos(";", hGrid.Cells[Col, Row]);
if ptr > 0 then
begin
Line1 := Copy(hGrid.Cells[Col, Row], 1, ptr - 1);
Line2 := Copy(hGrid.Cells[Col, Row], ptr + 1,
Length(hGrid1.Cells[Col,Row]) - ptr);
end
else Line1 := hGrid.Cells[Col, Row];
hGrid.Canvas.FillRect(Rect);
hGrid.Canvas.TextOut(Rect.Left, Rect.Top + 2, Line1);
if ptr > 0 then
hGrid.Canvas.TextOut(Rect.Left, Rect.Top -
hGrid.Canvas.Font.Height + 3, Line2);
end;

Теперь достаточно для переноса строки вставить в неё точку с запятой. Так же не забудьте изменить высоту строки так, чтобы переносы строки поместились в ячейку:

StringGrid1.RowHeights[0] := StringGrid1.DefaultRowHeight * 2 ;

Взято с Исходников.ru http://www.sources.ru

Опять же не проверял.

← →
KilkennyCat © (2006-08-13 00:42) [2]

Наличие делимитера, его вычисления и проч. - лишнее. TextOut прекрасно умеет выводить в две и более строк самостоятельно и более точно. При наличии соответствущего флага (флагов).

← →
Kolan © (2006-08-13 00:42) [3]

> KilkennyCat © (13.08.06 00:42) [2]

Даже не глядел что-там :) Всеравно не знаю как правильно..

← →
Ketmar © (2006-08-13 01:03) [4]

> [3] Kolan © (13.08.06 00:42)
яхдр. (ц)

← →
KilkennyCat © (2006-08-13 01:07) [5]

Я очипся, не текстоут, а дроутекст.

Вообщем, что-то вроде:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var s : string; begin s := StringGrid1.Cells[Acol, aRow]; StringGrid1.Canvas.FillRect(Rect); drawtext(StringGrid1.Canvas.Handle, pchar(StringGrid1.Cells[Acol, aRow]), length(s), rect, DT_WORDBREAK); end;
---------------------------------------------------------------------------------
Набрано неглядя, нечитая, непроверяя и вообще я делфи незнаю, сюда случайно зашел.

← →
Kolan © (2006-08-13 01:10) [6]

> яхдр. (ц)

Не запость я пост :) KilkennyCat ничего бы не заметил [2] и не дал бы ответ [5].

Все взаимосвязано :)

← →
Ketmar © (2006-08-13 01:14) [7]

> [6] Kolan © (13.08.06 01:10)
эксклюзив! надо постить кривые решения, тогда набегут мастера и всё поправят. а если ничего не постить -- никто и не прибежит. %-)

и кстати, все-таки, пожалуйста, ИЩИТЕ ИНФОРМАЦИЮ, ПРЕЖДЕ ЧЕМ СПРАШИВАТЬ!!!!

http://www.delphimaster.ru/articles/stringgrid/index.html

Спасибо.

> эксклюзив!

А то :)

TStringGrid Найти похожие ветки