//AB/ Project Delete Password dialog
//AB/ Object prj is a Dialog_Project
  //AB/ Set ProjectName to "Delete Password dialog"
  //AB/ Set ProjectFileName to "DeletePassword.DG"
  //AB/ Set Size to 95 320

// Project Object Structure
//   oDeletePassword_dg is a cRDSDbModalPanel
//     BitmapContainer1 is a BitmapContainer
//     Textbox1 is a Textbox
//     oPassword_fm is a Form
//     oCancel_bn is a cBitmapButton
//     oOK_bn is a cBitmapButton

// Register all objects
Register_Object BitmapContainer1
Register_Object oCancel_bn
Register_Object oDeletePassword_dg
Register_Object oOK_bn
Register_Object oPassword_fm
Register_Object Textbox1


//AB-StoreTopStart
Define C_DPV For "robin92"
Register_Object Main
Register_Object oPassword_fm
Register_Object oOK_bn
Register_Object oCancel_bn
//AB-StoreTopEnd

//AB-IgnoreStart
Use cRDSDbModalPanel.pkg
Use dfbitmap.pkg
Use Windows.pkg
Use cBitmapButton.pkg
//AB-IgnoreEnd



Object oDeletePassword_dg is a cRDSDbModalPanel

  //AB-StoreTopStart
  Set Locate_Mode To CENTER_ON_SCREEN
  Property Integer piPasswordOk -1
  //AB-StoreTopEnd

  Set Border_Style to Border_Normal
  Set Sysmenu_Icon to FALSE
  Set Minimize_Icon to FALSE
  Set Label to "CrossMerge Builder"
  Set Size to 73 308

  //AB-DDOStart


  //AB-DDOEnd

  Object BitmapContainer1 is a BitmapContainer
    Set Size to 20 25
    Set Location to 4 15
    Set Bitmap to "Keys32.bmp/T/3D"
    Set Border_Style to Border_None
    Set Dialog_Caption to ""

    //AB-StoreStart
                                                    
    //AB-StoreEnd

  End_Object    // BitmapContainer1

  Object Textbox1 is a Textbox
    Set Label to "Enter password to be able to delete records:"
    Set FontSize to 4 0
    Set Location to 5 61
    Set Size to 10 140
    Set TypeFace to "MS Sans Serif"
  End_Object    // Textbox1

  Object oPassword_fm is a Form
    Set Label to "&Password:"
    Set Size to 13 90
    Set Location to 23 106
    Set Label_Col_Offset to 45

    //AB-StoreStart
    Set Password_State Item 0 To True
    //AB-StoreEnd

  End_Object    // oPassword_fm

  Object oCancel_bn is a cBitmapButton
    Set Label to "&Cancel"
    Set Size to 14 50
    Set Location to 39 244
    Set Status_Help to "Close the dialog"
    Set Default_State to TRUE
    Set Bitmap to "Cancel16.bmp"
    Set piTransparentColor to clFuchsia

    //AB-StoreStart
    Procedure OnClick
      Delegate Set piPasswordOk To -1
      Send Close_Panel
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oCancel_bn

  Object oOK_bn is a cBitmapButton
    Set Label to "OK"
    Set Size to 14 50
    Set Location to 23 244
    Set Status_Help to "Accept password and start deleting records"
    Set Bitmap to "Ok16.bmp"
    Set piTransparentColor to clFuchsia

    //AB-StoreStart
    Procedure OnClick
      String sPassword sText
      Get Value Of oPassword_fm To sPassword
      Move (Trim(sPassword))    To sPassword
      If (sPassword <> C_DPV) Begin
        Move ("The password is incorrect. Please retype your password. " + ;
              "Letters in passwords must be typed using the correct case. Make sure that Caps Lock is not accidently on.") To sText
        Send Stop_Box sText
        Set Value Of oPassword_fm To ""
        Delegate Set piPasswordOk To 0
        Procedure_Return
      End
      Else Begin
        Delegate Set piPasswordOk To 1
        Send Close_Panel
      End // Else Begin
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oOK_bn


  //AB-StoreStart
  On_Key Key_Ctrl+Key_F4 Send OnClick  To oCancel_bn // Aborts
  On_Key Key_Alt+Key_F4  Send OnClick  To oCancel_bn
  On_Key Key_Alt+Key_C   Send OnClick  To oCancel_bn
  On_Key kCancel         Send OnClick  To oCancel_bn
  On_Key Key_Alt+Key_P   Send Activate To oPassword_fm
  
  //AB-StoreEnd

End_Object    // oDeletePassword_dg


//AB-StoreStart
Function IsDeletePasswordOk Returns Integer
  Handle ho
  Move (oDeletePassword_dg(Self)) To ho
  Set Value Of (oPassword_fm(ho)) To ""
  Set piPasswordOk Of ho          To -1
  Send Popup Of ho
  Function_Return (piPasswordOk(ho))
End_Function // IsDeletePasswordOk

//AB-StoreEnd

//AB/ End_Object    // prj