//****************************************************************************
// $Module type: CLASS
// $Module name: cEnumerateServersButton.pkg
// $Author     : Nils G. Svedmyr
// Created     : 2002-07-20 @ 11:48
//
// Description :
//
// $Rev History
//    2002-07-20  Module header created
//****************************************************************************
Use cBitmapButton.pkg

// Visual DataFlex 12.0 Migration Utility, added March 28, 2007: 15:13:24
#IF (!@ >= 120)
{ OverrideProperty=Bitmap InitialValue="Enumerate16.bmp" }
{ OverrideProperty=piTransparentColor InitialValue=clFuchsia }
{ OverrideProperty=Label InitialValue="&Enumerate" }
{ OverrideProperty=Status_Help InitialValue="Fill the 'Server/DNS Name' combobox with available database Server's/DNS's" }
{ OverrideProperty=Bitmap_Style InitialValue=Bitmap_Actual }
{ OverrideProperty=Bitmap_Style DesignTime=False }
{ OverrideProperty=Enabled_State InitialValue=False }
{ OverrideProperty=Default_State InitialValue=False }
#ENDIF
Class cEnumerateServersButton Is A cBitmapButton
  Procedure Construct_Object
    Forward Send Construct_Object
    Property Handle  phoDD    (Main_DD(Self))
    // Visual DataFlex 12.0 Migration Utility, added March 28, 2007: 15:13:24
    #IF (!@ >= 120)
    { InitialValue=True }
    #ENDIF
    Property Boolean pbFrom   True
    Property Integer piDbType 0
  End_Procedure // Construct_Object

  Procedure End_Construct_Object
    Forward Send End_Construct_Object
  End_Procedure // End_Construct_Object

  Procedure DoEnableDisable Integer iValue
    Set piDbType To iValue
    Set Enabled_State To (iValue > 1 And iValue < 6)
//    Send DoChangeLabel
  End_Procedure // DoEnableDisable

  Procedure DoChangeLabel
    Integer iType iPos
    String sValue sChar

    Get piDbType                To iType
    Get Label                   To sValue
    Move (Pos("&", sValue))     To iPos
    Move (Mid(sValue, 1, iPos)) To sChar

    Case Begin
      Case (iType = 1)
        Move "Enumerate Server's/DNS's" To sValue
        Case Break
      Case (iType = 2)
        Move "Enumerate DNS's"          To sValue
        Case Break
      Case (iType = 3)
        Move "Enumerate Server's"       To sValue
        Case Break
      Case (iType = 4)
        Move "Enumerate DNS's"          To sValue
        Case Break
      Case (iType = 5)
        Move "Enumerate Server's"       To sValue
        Case Break
      Case (iType = 6)
        Move "Enumerate Server's/DNS's" To sValue
        Case Break
      Case Else
        Move "Enumerate Server's/DNS's" To sValue
    Case End

    Move (Insert("&", sValue, iPos)) To sValue
    Set Label To sValue
  End_Procedure // DoChangeLabel

  Procedure DoFillServerList
    Handle ho hoDD
    Get phoDD To hoDD
    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 DoComboFillList                                              Of ho
  End_Procedure // DoFillServerList

End_Class // cEnumateServersButton