Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.039 c
1-1086355611
Form
2004-06-04 17:26
2004.06.20
Как правильно удостовериться, что форма убита?


3-1085664352
Jet
2004-05-27 17:25
2004.06.20
Table => Filter?


14-1086314387
Kair
2004-06-04 05:59
2004.06.20


9-1076512777
VolanD2002
2004-02-11 18:19
2004.06.20
DelphiX or Direct


14-1086109285
VeTaL
2004-06-01 21:01
2004.06.20
Удаление файла