Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TStringGrid [D7, WinXP]

Ice © (2006-08-13 00:18:00)
Кто-нибудь знает, можно ли в одну ячейку грида поместить несколько строк? #13 он не воспринимает, никакой документации на эту тему ms не опубликовала. Помогите, пожалуйста советом или новой компонентой - очень надо.

Kolan (2006-08-13 21:36:00) [1]

> эксклюзив!

А то :)

Ice (2006-08-13 13:05:00) [2]
Спасибо.

KilkennyCat (2006-08-13 01:43:00) [3]
и кстати, все-таки, пожалуйста, ИЩИТЕ ИНФОРМАЦИЮ, ПРЕЖДЕ ЧЕМ СПРАШИВАТЬ!!!!

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

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

Kolan (2006-08-13 01:10:00) [5]

> яхдр. (ц)

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

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

KilkennyCat (2006-08-13 01:07:00) [6]
Я очипся, не текстоут, а дроутекст.

Вообщем, что-то вроде:
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;
---------------------------------------------------------------------------------
Набрано неглядя, нечитая, непроверяя и вообще я делфи незнаю, сюда случайно зашел.

Ketmar (2006-08-13 01:03:00) [7]
> [3] Kolan © (13.08.06 00:42)
яхдр. (ц)

KilkennyCat (2006-08-13 00:42:00) [8]
Наличие делимитера, его вычисления и проч. - лишнее. TextOut прекрасно умеет выводить в две и более строк самостоятельно и более точно. При наличии соответствущего флага (флагов).

Kolan (2006-08-13 00:42:00) [9]

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

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

Kolan (2006-08-13 00:33:00) [10]
Многострочные ячейки в 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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »