В 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 (Тетрис) 4 595 • TDictionary Custom Sort 6 606 • Fast Watermark Sources 6 375 • 3D Designer 9 327 • Sik Screen Capture 6 708 • Patch Maker 7 095 • Айболит (remote control) 7 098 • ListBox Drag & Drop 5 962 • Доска для игры Реверси 97 511 • Графические эффекты 7 299 • Рисование по маске 6 592 • Перетаскивание изображений 5 461 • Canvas Drawing 5 832 • Рисование Луны 5 547 • Поворот изображения 5 063 • Рисование стержней 3 632 • Paint on Shape 2 868 • Генератор кроссвордов 3 758 • Головоломка Paletto 3 022 • Теорема Монжа об окружностях 3 837 • Пазл Numbrix 2 522 • Заборы и коммивояжеры 3 227 • Игра HIP 2 193 • Игра Go (Го) 2 124 • Симулятор лифта 2 506 • Программа укладки плитки 2 152 • Генератор лабиринта 2 641 • Проверка числового ввода 2 306 • HEX View 2 638 • Физический маятник 2 261

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

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