Текущий архив: 2004.06.20;
Скачать: CL | DM;

Вниз

про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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.048 c