Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];
ВнизпроTStringGrid Найти похожие ветки
← →
RoadStar © (2004-06-04 13:56) [0]Ув. мастера!
Можно ли в TStringGrid сделать перенос по словам в длинных предложениях (тексте) в ячейках?
(ну типа как в лабелке). Если мона, то как?
Заранее благодарен.
← →
Anatoly Podgoretsky © (2004-06-04 14:20) [1]Можно, но рисовать придется самомую. Сходи на королевство Дельфи, там есть несколько статей по граидам.
← →
panov © (2004-06-04 16:06) [2]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
R: TRect;
begin
with Sender as TStringGrid do
begin
Canvas.FillRect(Rect);
R := Rect;
DrawText((Sender as TStringGrid).Canvas.Handle,PChar((Sender as TStringGrid).Cells[ACol,aRow]),Length((Sender as TStringGrid).Cells[ACol,aRow]),R,DT_WORDBREAK+DT_CALCRECT);
if R.Bottom>Rect.Bottom then RowHeights[aRow] := R.Bottom-R.Top;
DrawText(Canvas.Handle,PChar(Cells[ACol,aRow]),Length(Cells[ACol,aRow]),R,DT_WORDBREAK);
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.03 c