VERSION 5.00
Begin {8EFCCAA7-3AE3-410B-96F7-F65725044602} DeleteObjectPropPage1 
   ClientHeight    =   11085
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11055
   Caption         =   ""
   DocString       =   ""
   HelpFile        =   ""
   HelpContext     =   0
   PageWidth       =   0
   PageHeight      =   0
End
Attribute VB_Name = "DeleteObjectPropPage1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'******************************************************************************
'* Class: DeleteObjectPropPage1
'*   Реализация страницы свойств функции
'******************************************************************************
Option Explicit

Private WithEvents m_fPropPage As frmDeleteObjectPropPage1
Attribute m_fPropPage.VB_VarHelpID = -1

Private Sub PropertyPage_Initialize()
On Error Resume Next
    ' Создаем экземпляр формы
    Set m_fPropPage = New frmDeleteObjectPropPage1
    
    ' Настраиваем страницу
    Caption = RES_PARAMS_CAPTION
    PageHeight = m_fPropPage.Height / Screen.TwipsPerPixelY
    PageWidth = m_fPropPage.Width / Screen.TwipsPerPixelX
End Sub

Private Sub PropertyPage_Create(ByVal Parent As Long, ByVal Object As Object, ByVal Data As DVPropPages.DataObjects)
On Error Resume Next
    ' Загружаем страницу свойств
    Load m_fPropPage
    m_fPropPage.Initialize Object, Data
    
    ' Устанавливаем дескриптор окна
    hWnd = m_fPropPage.hWnd
    
    ' Сбрасываем флаг изменений
    Changed = False
End Sub

Private Sub PropertyPage_OnApply()
On Error Resume Next
    ' Сохраняем изменения
    Changed = Not m_fPropPage.Save
End Sub

Private Sub PropertyPage_Destroy()
On Error Resume Next
    ' Выгружаем страницу
    Unload m_fPropPage
End Sub

Private Sub PropertyPage_Terminate()
    Set m_fPropPage = Nothing
End Sub

Private Sub m_fPropPage_OnChange()
    ' Выставляем флаг изменений
    If (Flags And PROPPAGE_CANCELTOCLOSE) = 0 Then
      Changed = True
    End If
End Sub

