В StringGrid ширина колонки подгоняется под длину самой длинной строки

Поскольку в компоненте StringGrid по умолчанию все столбцы имеют одинаковую ширину - в некоторых ячейках текст обрезается. Чтобы этого избежать, после заполнения StringGrid нужно для каждого столбца находить текст максимальной длины и в соответствии с его длиной устанавливать ширину всего столбца

var
  x, y, w: integer;
  s: string;
  MaxWidth: integer;
begin
  with StringGrid1 do
    ClientHeight := DefaultRowHeight * RowCount + 5;
    with StringGrid1 do
    begin
      for x := 0 to ColCount - 1 do
      begin
        MaxWidth := 0;
        for y := 0 to RowCount - 1 do
        begin
          w := Canvas.TextWidth(Cells[x,y]);
          if w > MaxWidth then
            MaxWidth := w;
        end;
        ColWidths[x] := MaxWidth + 5;
      end;
    end;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 166 • TDictionary Custom Sort 3 340 • Fast Watermark Sources 3 093 • 3D Designer 4 849 • Sik Screen Capture 3 348 • Patch Maker 3 554 • Айболит (remote control) 3 664 • ListBox Drag & Drop 3 016 • Доска для игры Реверси 81 720 • Графические эффекты 3 946 • Рисование по маске 3 250 • Перетаскивание изображений 2 631 • Canvas Drawing 2 754 • Рисование Луны 2 584 • Поворот изображения 2 191 • Рисование стержней 2 169 • Paint on Shape 1 569 • Генератор кроссвордов 2 239 • Головоломка Paletto 1 767 • Теорема Монжа об окружностях 2 233 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 059 • Игра HIP 1 282 • Игра Go (Го) 1 230 • Симулятор лифта 1 475 • Программа укладки плитки 1 219 • Генератор лабиринта 1 548 • Проверка числового ввода 1 367 • HEX View 1 497 • Физический маятник 1 359

В StringGrid ширина колонки подгоняется под длину самой длинной строки

Похожие по теме исходники