//****************************************************************************
// $Module type: CLASS
// $Module name: cFileDSNButton.pkg
// $Author     : Nils G. Svedmyr
// Created     : 2002-10-28 @ 10:25
//
// Description :
//
// $Rev History
//    2002-10-28  Module header created
//****************************************************************************
Use cBitmapButton.pkg
Use SyncFuncs.pkg

// Visual DataFlex 12.0 Migration Utility, added March 28, 2007: 15:13:24
#IF (!@ >= 120)
{ OverrideProperty=Bitmap InitialValue="FolderO16.bmp" }
{ OverrideProperty=piTransparentColor InitialValue=clWhite }
{ OverrideProperty=Label InitialValue="Sele&ct File" }
{ OverrideProperty=Status_Help InitialValue="Button is only enabled when the 'File Data Sources' radio button has been selected." }
{ OverrideProperty=Bitmap_Style InitialValue=Bitmap_Actual }
{ OverrideProperty=Bitmap_Style DesignTime=False }
{ OverrideProperty=Enabled_State InitialValue=False }
{ OverrideProperty=Default_State InitialValue=False }
#ENDIF
Class cFileDSNButton is a cBitmapButton
  Procedure Construct_Object
    Forward Send Construct_Object
    // Visual DataFlex 12.0 Migration Utility, added March 28, 2007: 15:13:25
    #IF (!@ >= 120)
    { InitialValue=True }
    #ENDIF
    Property Boolean pbFrom       True
    Property Handle phoDD         (Main_DD(Self))
    Set Enabled_State To False
//    Set Entry_msg To DoCheckEntering
  End_Procedure // Construct_Object

  Procedure End_Construct_Object
    Forward Send End_Construct_Object
  End_Procedure // End_Construct_Object

//  Procedure DoCheckEntering
//    If Not (Visible_State(Self))      Send Next
//    Else If Not (Enabled_State(Self)) Send Next
//  End_Procedure // DoCheckEntering

  Procedure OnClick
    String  sFile sStartDir sPath
    Boolean bSelected
    Handle ho hoDD
    Get_Foreign_Profile_String "ODBC" "ODBC.INI\ODBC File DSN" "DefaultDSNDir" To sStartDir

    Object oDialog Is An Opendialog
      Set Dialog_Caption      To 'Select a file data source'
      Set Filter_String       To "Data Sources (*.dsn)|*.dsn|All files (*.*)|*.*"
      Set PathMustExist_State To True
      Set FilemustExist_State To True
      Set NoChangeDir_State   To True
      Set HideReadOnly_State  To True
      If (sStartDir <> "" ) ;
        Set Initial_Folder  To sStartDir
      Move Self To ho
    End_Object // oDialog

    Get Show_Dialog Of ho To bSelected
    If bSelected Get File_Name Of ho To sFile
    Send Destroy Of ho

    Get phoDD To hoDD
    If (bSelected And (Length(sFile) > 0)) Begin
      If (Length(sFile) > 150) Begin
        Send Info_Box "Sorry, the length of the path and file name for the Data Source Name has been exceeded. Max length is 150."
        Procedure_Return
      End // If (Length(sFile) > 100) Begin
      Get StripFile sFile To sPath
      Get StripPath sFile To sFile
      If (pbFrom(Self)) Begin
        Set Field_Changed_Value Of hoDD Field SncTable.FromServer   To sFile
        Set Field_Changed_Value Of hoDD Field SncTable.FromFilePath To sPath
      End // If (pbFrom(Self)) Begin
      Else Begin
        Set Field_Changed_Value Of hoDD Field SncTable.ToServer     To sFile
        Set Field_Changed_Value Of hoDD Field SncTable.ToFilePath   To sPath
      End // Else Begin
//    showln "Server set to = " sFile
    End // If (bSelected and (Length(sFile) > 0)) Begin
    Else Begin
      If (pbFrom(Self)) Begin
        Set Field_Changed_Value Of hoDD Field SncTable.FromServer   To ""
        Set Field_Changed_Value Of hoDD Field SncTable.FromFilePath To ""
      End // If (pbFrom(Self)) Begin
      Else Begin
        Set Field_Changed_Value Of hoDD Field SncTable.ToServer     To ""
        Set Field_Changed_Value Of hoDD Field SncTable.ToFilePath   To ""
      End // Else Begin
    End // Else Begin
    If (pbFrom(Self))   Get DDObjectId hoDD SncTable.File_Number "FromServer"     To ho
    Else                Get DDObjectId hoDD SncTable.File_Number "ToServer"       To ho
    If ho Send DoFindData Of ho //DoFillComboAndTellDataTableCombo Of ho
  End_Procedure // OnClick

//  Procedure Set pbToolTips Boolean bState
//    Handle ho
//    If (bState = False) Begin
//      Get phoToolBar To ho
//      Set pbToolTips Of ho To False
//    End // If (bState = False) Begin
//  End_Procedure // Set pbToolTips

End_Class // cFileDSNButton