Корректный расчет высоты StringGrid в Delphi: решение проблемы с пробелом после строк

Delphi , Компоненты и Классы , TStringGrid и TDrawGrid

Вопрос, поднятый пользователем, заключается в некорректном расчете высоты компонента StringGrid в среде разработки Delphi после добавления новых строк. Размерность строки устанавливается заранее, но при добавлении новых строк в runtime возникает проблема с появлением неожиданных пробелов, что связано с неправильным расчетом высоты компонента.

Проблема

Пользователь знает, что StringGrid должен иметь строки одинакового размера и заранее задает количество строк в 5. В runtime он планирует добавлять дополнительные строки, но при этом учитывать прокрутку, если компонент не помещается в родительский контрол. При добавлении новых строк используется следующий код:

sg.height := sg.height + sg.RowHeights[0];

Однако это не приводит к желаемому результату, так как после добавления строк появляется неожиданный пробел, который, по всей видимости, соответствует высоте одной строки, вне зависимости от количества строк в StringGrid. Пользователь предполагает, что проблема может быть связана с GridLineWidth или неправильной настройкой свойств в Object Inspector. Также рассматривается возможность использования свойства GridHeight вместо Height.

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

Альтернативный ответ и решение

В обновлении вопроса упоминается "fudge factor" в размере 3, который, по всей видимости, соответствует свойству margin. Пользователь приходит к выводу, что высота StringGrid определяется суммой высот строк, плюс толщина верхней и нижней границ, плюс некий внутренний отступ в 1 пиксель.

Для корректного расчета высоты StringGrid после добавления строк пользователь предлагает следующий код:

newHeight := stringGrid.Height +
             stringGrid.RowHeights[Pred(stringGrid.RowCount)] +
             stringGrid.GridLineWidth;
if newHeight < maxHeight then
  stringGrid.Height := newHeight;
stringGrid.RowCount := stringGrid.RowCount + 1;

Или же можно рассчитать высоту после добавления всех строк:

stringGrid.Height := ((stringGrid.RowHeights[1] + stringGrid.GridLineWidth) *
                      (stringGrid.VisibleRowCount + stringGrid.FixedRows)) + 3;

Подтвержденный ответ

Пользователь делится своими находками в исследовании проблемы. Он использовал компонент TMS AdvStringGrid, который основан на стандартном StringGrid с дополнительными возможностями. Для удобства подсчета строк в изображении компонента были видны пиксельные линии сетки. В коде инициализации компонента используется следующий подход:

with gridLimits do
begin
  RowCount := 3;
  // ... другие инициализации ...
  IntegralHeight := False;
  MyHeight := 0;
  for i := 0 to RowCount - 1 do
    inc(MyHeight, RowHeights[i]);
  Height := MyHeight + 5;
end;

При анализе высоты компонента выяснилось, что для корректного расчета необходимо учитывать толщину верхней и нижней границ, а также добавлять некоторый "fudge factor" для компенсации внутренних отступов. В данном случае было выявлено, что для корректной работы необходимо добавить 4 пикселя к высоте.

Вывод

Для корректного расчета высоты StringGrid в Delphi необходимо учитывать следующее:

• Высоту каждой строки.
• Толщину границ компонента.
• Внутренние отступы и "fudge factor".

Используя эти данные, можно рассчитать точную высоту StringGrid после добавления новых строк, что позволит избежать появления неожиданных пробелов.

Создано по материалам из источника по ссылке.

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

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TStringGrid и TDrawGrid ::