' Copyright 2006 ESRI
'                 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.

Option Explicit

Private m_pPageSite As IComPropertyPageSite ' Used to enable the Apply button
Private m_bIsDirty As Boolean ' Indicates if the form has been changed

Public Property Let PageSite(ByVal RHS As esriFramework.IComPropertyPageSite)
  Set m_pPageSite = RHS
End Property


Public Property Get IsDirty() As Boolean
  IsDirty = m_bIsDirty
End Property

Public Property Let IsDirty(ByVal Dirty As Boolean)
  m_bIsDirty = Dirty
End Property

Private Sub cmbCreField_Change()
  ' Enable the Applies button
  If (Not m_pPageSite Is Nothing) And Me.Visible Then m_pPageSite.PageChanged
  m_bIsDirty = True
End Sub

Private Sub cmbCreField_Click()
  ' Enable the Applies button
  If (Not m_pPageSite Is Nothing) Then m_pPageSite.PageChanged
  m_bIsDirty = True
End Sub

Private Sub cmbModField_Change()
  ' Enable the Applies button
  If (Not m_pPageSite Is Nothing) And Me.Visible Then m_pPageSite.PageChanged
  m_bIsDirty = True
End Sub

Private Sub cmbModField_Click()
  ' Enable the Applies button
  If (Not m_pPageSite Is Nothing) Then m_pPageSite.PageChanged
  m_bIsDirty = True
End Sub

Private Sub cmbUsrField_Change()
  ' Enable the Applies button
  If (Not m_pPageSite Is Nothing) And Me.Visible Then m_pPageSite.PageChanged
  m_bIsDirty = True
End Sub


Private Sub cmbUsrField_Click()
  ' Enable the Applies button
  If (Not m_pPageSite Is Nothing) Then m_pPageSite.PageChanged
  m_bIsDirty = True
End Sub

Private Sub Form_Load()
  ' Reset the IsDirty flag when the form is loaded
  m_bIsDirty = False
End Sub