//****************************************************************************
// $Module type: CLASS
// $Module name: cFileDSNButton.pkg
// $Author     : Nils G. Svedmyr
// Created     : 2002-10-28 @ 10:44
//
// 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="ODBC16.bmp" }
{ OverrideProperty=piTransparentColor InitialValue=clWhite }
{ OverrideProperty=Label InitialValue="O&DBC Admin" }
{ OverrideProperty=Status_Help InitialValue="Start Windows 'ODBC Data Source Administrator'." }
{ OverrideProperty=Bitmap_Style InitialValue=Bitmap_Actual }
{ OverrideProperty=Bitmap_Style DesignTime=False }
{ OverrideProperty=Enabled_State InitialValue=False }
{ OverrideProperty=Default_State InitialValue=False }
#ENDIF
Class cODBCAdminButton is a cBitmapButton
  Procedure Construct_Object
    Forward Send Construct_Object
    Set Enabled_State To False
//    Set Entry_msg To DoCheckEntering
  End_Procedure // Construct_Object

  Procedure End_Construct_Object
    Forward Send End_Construct_Object
    Set Status_Help To "Start Windows 'ODBC Data Source Administrator'."
  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
    Handle hWnd

    //*** BW, Workaround Begin
    If (Not(Enabled_State(Parent(Self)))) ;
        Procedure_return
    //*** BW, Workaround End

//    Get Window_Handle Of (RdsMain_Panel_Id(Self)) To hWnd
    Get Window_Handle To hWnd
    If (hWnd <> 0) ODBCManager hWnd
  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 // cODBCAdminButton