Главная страница
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.074 c
14-1096207681
HDD
2004-09-26 18:08
2004.10.17
Среда разработки на чистом Win Api


4-1095226248
Konrads
2004-09-15 09:30
2004.10.17
%SystemRoot%


1-1096512110
oleg krechetov
2004-09-30 06:41
2004.10.17
Программа загружает процессор


4-1095405777
banderas
2004-09-17 11:22
2004.10.17
Имя пользователя


1-1096885823
Skywalker
2004-10-04 14:30
2004.10.17
Как обойти "Circular unit reference"?