AdjustWidth([MaxWidth: Double = -1;][MinWidth: Double = -1]);
MaxWidth. Максимальная ширина столбца, которая может быть установлена при автоматической подгонке. По умолчанию установлено значение «-1», при этом максимальная ширина ограничивается максимальной шириной содержимого ячеек диапазона. Значение параметра указывается в миллиметрах.
MinWidth. Минимальная ширина столбца, которая может быть установлена при автоматической подгонке. По умолчанию установлено значение «-1», при этом минимальная ширина ограничивается минимальной шириной содержимого ячеек диапазона. Значение параметра указывается в миллиметрах.
Метод AdjustWidth выполняет автоматическую подгонку ширины столбцов диапазона в соответствии с содержимым ячеек.
Автоматическая подгонка производится таким образом, чтобы содержимое всех ячеек диапазона было видно полностью. При этом учитываются форматы шрифта, выравнивания и отступов ячеек. Также учитываются значения параметров MaxWidth и MinWidth, которые могут быть указаны для данного метода.
Примечание. Если для ячейки диапазона установлен перенос текста по словам (слов по слогам), то при автоматической подгонке будет учитываться ширина всех столбцов, содержащихся в ячейке. Расстановка переносов при этом сохраняется. Применяется как для одиночных, так и для объединенных ячеек с установленным переносом текста.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки, компонента TabSheetBox с наименованием TabSheetBox1 и какого-либо источника данных для этого компонента. В ячейке A0 таблицы имеются данные.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Tab: ITabSheet;
Range: ITabRange;
Begin
Tab := TabSheetBox1.Source.GetTabSheet;
Range := Tab.ParseCell("A0");
Range.AdjustHeight;
Range.AdjustWidth;
End Sub Button1OnClick;
При нажатии на кнопку будет осуществлена автоматическая подгонка высоты и ширины строк/столбцов в соответствии с содержимым ячейки А0.
Исходная ячейка с данными:
Результат выполнения примера:
См. также: