Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: CL | DM;

Вниз

ширина столбца в 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.037 c
14-1096282055
Маг Похмеляйнен
2004-09-27 14:47
2004.10.17
Спасите кролика!


10-1047967678
Comwad
2003-03-18 09:07
2004.10.17
Обрыв соединения ЛВС для Corba клиентов.


1-1096572965
jack128
2004-09-30 23:36
2004.10.17
формат dfm (текстовой)


3-1095836158
kolos_rus
2004-09-22 10:55
2004.10.17
Структура БД


6-1091796139
galexis
2004-08-06 16:42
2004.10.17
требуется программка позволяющая вручную создавать IP пакеты