| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ширина столбца в TStringGrid...

LLjo ©   (2004-09-29 18:36:00) 

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

спасибо

---

Cosinus   (2004-09-29 20:17:00) [1]

Что то типа этого (тоже самое, что и 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;


---

TUser   (2004-09-29 18:38:00) [2]

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

---

Наверх