IDimensionViewer.AdjustWidthOnlyVisible

Синтаксис Fore

AdjustWidthOnlyVisible: Boolean;

Синтаксис Fore.NET

AdjustWidthOnlyVisible: boolean;

Описание

Свойство AdjustWidthOnlyVisible определяет способ автоподгонки ширины столбцов.

True. Автоподгонка учитывает только ширину элементов, которые видны в компоненте. Ширина элементов, доступных с помощью прокрутки, не учитывается;
False. Значение по умолчанию. Автоподгонка учитывает ширину всех элементов.

Для выполнения автоподгонки ширины дважды щелкните по границе между столбцами или используйте метод IDimensionViewer.AdjustWidth.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента DimensionTree с наименованием «DimensionTree1» и компонента UiDimension, который является источником данных для «DimensionTree1». К UiDimension подключен какой-либо справочник.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
    DimensionTree1.ShowColumnHeaders := True;
    DimensionTree1.AdjustWidthOnlyVisible := True;
    DimensionTree1.HighlightTrack := False;
    DimensionTree1.ShowHeaderButton := True;
    DimensionTree1.AdjustWidth(0);
    DimensionTree1.UseSystemImages := True;
End Sub Button1OnClick;

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

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Begin
    dimensionTreeNet1.CtrlBox.ShowColumnHeaders := True;
    dimensionTreeNet1.CtrlBox.AdjustWidthOnlyVisible := True;
    dimensionTreeNet1.CtrlBox.HighlightTrack := False;
    dimensionTreeNet1.CtrlBox.ShowHeaderButton := True;
    dimensionTreeNet1.CtrlBox.AdjustWidth(0);
    dimensionTreeNet1.CtrlBox.UseSystemImages := True;
End Sub;

См. также: