ITabCellFormatDlg.ShowDialog

Синтаксис Fore

ShowDialog(ParentWnd: IWin32Window): Boolean;

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

ShowDialog(ParentWnd: Prognoz.Platform.Interop.Tab.IWin32Window): boolean;

Параметры

ParentWnd - окно, относительно которого окно диалога форматирования откроется модально.

Описание

Метод ShowDialog отображает диалог форматирования и возвращает результат закрытия данного диалога.

Комментарии

Метод возвращает значение True, если после редактирования в диалоге была нажат кнопка «ОК», и False, если была нажата кнопка «Отмена».

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с идентификатором «Button1», компонента TabSheetBox и компонента «UiTabSheet» с идентификатором «UiTabSheet1», являющегося источником данных для TabSheetBox.

Пример является обработчиком события OnClick для компонента «Button1».

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    FormatDlg: ITabCellFormatDlg;
    Sel: ITabSelection;
    SelRange: ITabRange;
Begin
    FormatDlg := New TabCellFormatDlg.Create;
    // Исключаем
    FormatDlg.ExcludePage(TabFormatDlgPages.CellAlignment);
    FormatDlg.ExcludePage(TabFormatDlgPages.CellBorders);
   // Блокируем:
    FormatDlg.DisableItem(TabFormatDlgItems.FontName);
    FormatDlg.DisableItem(TabFormatDlgItems.FontBold);
    FormatDlg.DisableItem(TabFormatDlgItems.Category);
    // Выбираем активную страницу
    FormatDlg.ActivePage := TabFormatDlgPages.CellView;
    If FormatDlg.ShowDialog(Self As IWin32Window) Then
        Sel := UiTabSheet1.TabSheet.View.Selection;
        SelRange := Sel.Range;
        SelRange.Style := FormatDlg.Style;
    End If;
End Sub Button1OnClick;

При нажатии на кнопку будет открыт диалог форматирования на вкладке «Заливка». В диалоге будут скрыты вкладки «Выравнивание» и «Границы», а также будет недоступно указать наименование шрифта, установить признак жирного текста и выбрать какой-либо формат данных. После определения настроек стиля и нажатия на кнопку «ОК» стиль будет применен к выделенным ячейкам.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Tab;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    FormatDlg: ITabCellFormatDlg;
    Sel: ITabSelection;
    SelRange: ITabRange;
Begin
    FormatDlg := New TabCellFormatDlgClass();
    // Исключаем
    FormatDlg.ExcludePage(TabFormatDlgPages.tfdpCellAlignment);
    FormatDlg.ExcludePage(TabFormatDlgPages.tfdpCellBorders);
    // Блокируем:
    FormatDlg.DisableItem(TabFormatDlgItems.tfdiFontName);
    FormatDlg.DisableItem(TabFormatDlgItems.tfdiFontBold);
    FormatDlg.DisableItem(TabFormatDlgItems.tfdiCategory);
    // Выбираем активную страницу
    FormatDlg.ActivePage := TabFormatDlgPages.tfdiCellView;
    If FormatDlg.ShowDialog(New IWin32WindowForeAdapter(Self)) Then
        Sel := UiTabSheetNet1.TabSheetUi.TabSheet.View.Selection;
        SelRange := Sel.Range;
        SelRange.Style := FormatDlg.Style;
    End If;
End Sub;

См. также:

ITabCellFormatDlg