VERSION 5.00
Begin {AFA72951-79E9-4BF8-A8D2-7AEC6F38B0E0} DeleteObjectFunction 
   ClientHeight    =   3825
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5835
   Pages           =   "{4B8721DE-5A72-45BA-81E4-56102A4DC4A7}"
End
Attribute VB_Name = "DeleteObjectFunction"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'******************************************************************************
'* Class: DeleteObjectFunction
'*   Пользовательский интерфейс для функции удаления объектов
'******************************************************************************
Option Explicit

Implements WorkflowObjectsUI.IObjectUI
Implements WorkflowObjectsUI.IFunctionUI
Implements WorkflowObjectsUI.IObjectLocalize

Private m_Settings As cSettings

'******************************************************************************
' Implementation of IObjectLocalize interface
'******************************************************************************
Private Function IObjectLocalize_GetLocaleID() As Long
   IObjectLocalize_GetLocaleID = g_LocaleID
End Function

Private Sub IObjectLocalize_SetLocaleID(ByVal LocaleID As Long)
   g_LocaleID = LocaleID
End Sub

'******************************************************************************
' Implementation of IObjectUI interface
'******************************************************************************

' Картинка для отображения пользователю
Private Property Get IObjectUI_Icon() As stdole.Picture
    Set IObjectUI_Icon = LoadResPicture(RES_DELETEOBJECT_ICON, vbResIcon)
End Property

' Название функции для отображения пользователю
Private Property Get IObjectUI_TypeName() As String
    IObjectUI_TypeName = RES_DELETEOBJECT_CAPTION
End Property

' Идентификатор
Private Property Get IObjectUI_ID() As String
    IObjectUI_ID = ID_DELETEOBJECT_FUNCTION
End Property

' Настройки функции
Private Property Let IObjectUI_Data(ByVal Data As String)
    m_Settings.xml = Data
End Property
Private Property Get IObjectUI_Data() As String
    IObjectUI_Data = m_Settings.xml
End Property

'******************************************************************************
' Implementation of IFunctionUI interface
'******************************************************************************
Private Function IFunctionUI_GetRequiredGates() As String
    IFunctionUI_GetRequiredGates = vbNullString
End Function

Private Function IFunctionUI_CanBeExecuted() As Boolean
    IFunctionUI_CanBeExecuted = True
End Function

' Конвертация данных функции в другой формат
Private Sub IFunctionUI_Convert(ByVal ProcessInfo As Object, ByVal FunctionID As String, ByVal FromVersion As String)
'
End Sub

Private Sub PropsObject_Initialize()
    Set m_Settings = New cSettings
End Sub

Private Sub PropsObject_Terminate()
    Set m_Settings = Nothing
    Set g_oCardHost = Nothing
End Sub
