Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 3 октября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Авторазмер для StringGrid

...да, реально это утомляет, но эту проблему можно решить программным путем (это нужно делать после того, как вы загрузите данные, или же, если вы загружаете данные по столбцам, их загружать в самом цикле, приведенном ниже):


 var
   i, j, temp, max: integer;
 begin
   for i := 0 to grid.colcount - 1 do
   begin
     max := 0;
     for j := 0 to grid.rowcount - 1 do
     begin
       temp := grid.canvas.textWidth(grid.cells[i, j]);
       if temp > max then
         max := temp;
     end;
     grid.colWidths[i] := max + grid.gridLineWidth + 1;
   end;
 end;
 

Вероятно, вам необходимо будет добавить +1, чтобы текст не прилипал к границам ячеек.




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS