IModelBox.IsDirty

Синтаксис Fore

IsDirty: Boolean;

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

IsDirty: boolean;

Описание

Свойство IsDirty возвращает признак того, изменена ли модель, отображаемая компонентом.

Комментарии

Возможные значения:

• True. Модель изменена. Для сохранения изменений используйте метод IModelBox.SaveObject;

• False. Модель не изменялась.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с идентификатором «Button1», компонента ModelBox с идентификатором «ModelBox1» и компонента UiModel, являющегося источником данных для «ModelBox1». В UiModel должна быть загружена модель.

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    yes: Boolean;
Begin
    If ModelBox1.IsDirty Then
        WinApplication.YesNoCancelBox("Модель изменена. Сохранить изменения?", yes);
        If yes Then
            ModelBox1.SaveObject;
        End If;
    Else
        WinApplication.InformationBox("Модель не изменялась");
    End If;
End Sub Button1OnClick;

Результат выполнения примера: если отображаемая модель была изменена, то будет предложено сохранить изменения.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Ui;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    WinApp: WinApplicationClassClass;
    yes: Boolean;
Begin
    WinApp := New WinApplicationClassClass.Create();
    If modelBoxNet1.CtrlBox.IsDirty Then
        WinApp.YesNoCancelBox("Модель изменена. Сохранить изменения?", Var yes, Null);
        If yes Then
            modelBoxNet1.CtrlBox.SaveObject();
        End If;
    Else
        WinApp.InformationBox("Модель не изменялась", Null);
    End If;
End Sub;

См. также:

IModelBox