diff options
| -rw-r--r-- | wizards/source/sfdialogs/SF_Dialog.xba | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/wizards/source/sfdialogs/SF_Dialog.xba b/wizards/source/sfdialogs/SF_Dialog.xba index 507e5ac72c00..081584f56e81 100644 --- a/wizards/source/sfdialogs/SF_Dialog.xba +++ b/wizards/source/sfdialogs/SF_Dialog.xba @@ -99,8 +99,8 @@ Private _ControlCache As Variant ' Array of control objects sorted like E REM ============================================================ MODULE CONSTANTS ' Dialog usual buttons -Private Const OKBUTTON = 1 -Private Const CANCELBUTTON = 0 +Private Const cstOKBUTTON = 1 +Private Const cstCANCELBUTTON = 0 ' Page management Private Const PILOTCONTROL = 1 @@ -153,6 +153,11 @@ End Function ' SFDialogs.SF_Dialog Explicit Destructor REM ================================================================== PROPERTIES REM ----------------------------------------------------------------------------- +Property Get CANCELBUTTON() As Variant + CANCELBUTTON = cstCANCELBUTTON +End Property ' SFDialogs.SF_Dialog.CANCELBUTTON (get) + +REM ----------------------------------------------------------------------------- Property Get Caption() As Variant ''' The Caption property refers to the title of the dialog Caption = _PropertyGet("Caption") @@ -189,6 +194,11 @@ Property Get Name() As String End Property ' SFDialogs.SF_Dialog.Name REM ----------------------------------------------------------------------------- +Property Get OKBUTTON() As Variant + OKBUTTON = cstOKBUTTON +End Property ' SFDialogs.SF_Dialog.OKBUTTON (get) + +REM ----------------------------------------------------------------------------- Property Get OnFocusGained() As Variant ''' Get the script associated with the OnFocusGained event OnFocusGained = _PropertyGet("OnFocusGained") |