Форум: "Основная";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Вниз

ширина столбца в TStringGrid...   Найти похожие ветки 

← →
LLjo   (2004-09-29 18:36) [0]

как сделать, чтобы  ширина столбца в TStringGrid автоматически выставлялась по максимально длинной строке в этом столце, чтобы видно всю строку было...

спасибо

---

← →
TUser ©   (2004-09-29 18:38) [1]

Как вариант - при изменении Cells проворять Canvas.TextWidth и выставлять нужную длину.

---

← →
Cosinus ©   (2004-09-29 20:17) [2]

Что то типа этого (тоже самое, что и TUser, но развернутее)
begin
 for i := 0 to StringGrid.ColCount - 1 do
 begin
   MaxL := 0;
   for j := 0 to StringGrid.RowCount - 1 do
   begin
     L := StringGrid.Canvas.TextWidth(StringGrid.Cells[i, j]);
     if L > MaxL then
       MaxL := L;
   end;
   StringGrid.ColWidths[i] := MaxL + StringGrid.GridLineWidth + 1;
 end;
end;


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.039 c