//AB/ Project Data aware Tooltip controls
//AB/ Object oIDE_Project is a View_Project
  //AB/ Set Size to 282 421
  //AB/ Set ProjectName to "Data aware Tooltip controls"
  //AB/ Set ProjectFileName to "dbToolTip.VW"
  //AB/ Set GenerateFileName to "NONAME5"

// Project Object Structure
//   dbToolTip is a dbView
//     Vendor_DD is a DataDictionary
//     Invt_DD is a DataDictionary
//     Customer_DD is a DataDictionary
//     Salesp_DD is a DataDictionary
//     Orderhea_DD is a DataDictionary
//     Orderdtl_DD is a DataDictionary
//     oWinTextBox1 is a cWinTextBox
//     oWindbForm1 is a cWindbForm
//     oWindbSpinForm1 is a cWindbSpinForm
//     oWindbComboForm1 is a cWindbComboForm
//     oWindbCheckBox1 is a cWindbCheckBox
//     oWindbEdit1 is a cWindbEdit
//     oTextBox1 is a Textbox
//     oWindbGrid1 is a cWindbGrid
//     oWindbList1 is a cWindbList
//     oWindbGroup1 is a cWindbGroup
//       oWinSpinForm1 is a cWinSpinForm
//     oWindbContainer3d1 is a cWindbContainer3d
//       oWinSpinForm2 is a cWinSpinForm
//     oWindbBitmap1 is a cWindbBitmap
//     oWindbRadioGroup1 is a cWindbRadioGroup
//       oWinRadio1 is a cWinRadio
//       oWinRadio2 is a cWinRadio
//       oWinRadio3 is a cWinRadio
//     oToggleEnabledState_bn is a Button
//     oToggleToolTip_bn is a Button
//     oToggleToolTipStyle_bn is a Button

// Register all objects
Register_Object Customer_DD
Register_Object dbToolTip
Register_Object Invt_DD
Register_Object Orderdtl_DD
Register_Object Orderhea_DD
Register_Object oTextBox1
Register_Object oToggleEnabledState_bn
Register_Object oToggleToolTip_bn
Register_Object oToggleToolTipStyle_bn
Register_Object oWindbBitmap1
Register_Object oWindbCheckBox1
Register_Object oWindbComboForm1
Register_Object oWindbContainer3d1
Register_Object oWindbEdit1
Register_Object oWindbForm1
Register_Object oWindbGrid1
Register_Object oWindbGroup1
Register_Object oWindbList1
Register_Object oWindbRadioGroup1
Register_Object oWindbSpinForm1
Register_Object oWinRadio1
Register_Object oWinRadio2
Register_Object oWinRadio3
Register_Object oWinSpinForm1
Register_Object oWinSpinForm2
Register_Object oWinTextBox1
Register_Object Salesp_DD
Register_Object Vendor_DD

//AB-IgnoreStart
Use dfClient.pkg
Use DataDict.pkg
Use cWinTextBox.pkg
Use cWindbForm.pkg
Use cWindbSpinForm.pkg
Use cWindbComboForm.pkg
Use cWindbCheckBox.pkg
Use cWindbEdit.pkg
Use Windows.pkg
Use cWindbGrid.pkg
Use cWindbList.pkg
Use cWindbGroup.pkg
Use cWinSpinForm.pkg
Use cWindbContainer3d.pkg
Use cWindbBitmap.pkg
Use cWindbRadioGroup.pkg
Use cWinRadio.pkg
//AB-IgnoreEnd

//AB-IgnoreStart
Use VENDOR.DD
Use INVT.DD
Use CUSTOMER.DD
Use SALESP.DD
Use ORDERHEA.DD
Use ORDERDTL.DD
//AB-IgnoreEnd


ACTIVATE_VIEW Activate_dbToolTip FOR dbToolTip

Object dbToolTip is a dbView
  Set Label to "Data aware Tooltip comtrols"
  Set Location to 6 8
  Set Size to 215 381
  Set piMinSize to 215 381

  //AB-DDOStart

  Object Vendor_DD is a Vendor_DataDictionary
  End_Object    // Vendor_DD

  Object Invt_DD is a Invt_DataDictionary
    Set DDO_Server to Vendor_DD
  End_Object    // Invt_DD

  Object Customer_DD is a Customer_DataDictionary
  End_Object    // Customer_DD

  Object Salesp_DD is a Salesp_DataDictionary
  End_Object    // Salesp_DD

  Object Orderhea_DD is a Orderhea_DataDictionary
    Set DDO_Server to Customer_DD
    Set DDO_Server to Salesp_DD
  End_Object    // Orderhea_DD

  Object Orderdtl_DD is a Orderdtl_DataDictionary
    Set DDO_Server to Orderhea_DD
    Set DDO_Server to Invt_DD
    Set Constrain_File to Orderhea.File_Number
  End_Object    // Orderdtl_DD

  Set Main_DD to Orderhea_DD
  Set Server to Orderhea_DD

  //AB-DDOEnd

  Object oWinTextBox1 is a cWinTextBox
    Set Location to 1 -3
    Set Size to 11 201
    Set TextColor to clNavy
    Set piHotColor to clBlack
    Set Gradient_Mode to GRADIENT_TOPBOTTOM
    Set GradientFromColor to clWhite
    Set GradientToColor to clDkGray
    Set Label to "Data Aware controls with cWinToolTip"
    Set FontSize to 24 0
    Set FontWeight to 800
    Set TypeFace to "Arial"
    Set psToolTip to "These are all subclasses of DAW standard classes. The cWinToolTip class has been mixed in."
    Set pbAutoLabelAsToolTipTitle to FALSE
    Set Border_Color to clNavy
    Set pbAutoStatusHelpAsToolTip to FALSE
  End_Object    // oWinTextBox1

  Object oWindbForm1 is a cWindbForm
    Entry_Item Orderhea.Order_number
    Set Label to "Order Number:"
    Set Size to 13 80
    Set Location to 50 62
    Set Label_Col_Offset to 2
    Set Label_Justification_Mode to jMode_Right
  End_Object    // oWindbForm1

  Object oWindbSpinForm1 is a cWindbSpinForm
    Entry_Item Orderhea.Order_total
    Set Label to "Order Total:"
    Set Size to 13 80
    Set Location to 65 62
    Set Label_Col_Offset to 2
    Set Label_Justification_Mode to jMode_Right
  End_Object    // oWindbSpinForm1

  Object oWindbComboForm1 is a cWindbComboForm
    Entry_Item Orderhea.Ship_via
    Set Label to "Ship Via:"
    Set Size to 13 80
    Set Location to 81 62
    Set Form_Border to 0
    Set Label_Col_Offset to 2
    Set Label_Justification_Mode to jMode_Right
    Set Entry_State Item 0 to FALSE
    Set psToolTip to "ToolTip help for this object. This ToolTip text will not show when the object is disabled."
  End_Object    // oWindbComboForm1

  Object oWindbCheckBox1 is a cWindbCheckBox
    Entry_Item Orderhea.Testcheckbox
    Set Label to "Test CheckBox"
    Set Size to 10 65
    Set Location to 97 62
  End_Object    // oWindbCheckBox1

  Object oWindbEdit1 is a cWindbEdit
    Entry_Item Orderhea.Testnote
    Set Label to "Test Note:"
    Set Size to 39 168
    Set Location to 117 9
  End_Object    // oWindbEdit1

  Object oTextBox1 is a Textbox
    Set Label to "These subclassed controls automatically uses the DD's Status_Help as the ToolTip and the Label as the ToolTipTitle, _except_ for multi-item controls, where you need to set the ToolTip value."
    Set Auto_Size_State to FALSE
    Set TextColor to clBlue
    Set FontSize to 14 0
    Set Location to 25 8
    Set Size to 17 359
    Set FontWeight to 800
    Set Justification_Mode to jMode_Left
    Set TypeFace to "Arial"
  End_Object    // oTextBox1

  Object oWindbGrid1 is a cWindbGrid
    Set Main_File to Orderdtl.File_Number
    Set Server to Orderdtl_DD
    Set Size to 50 169
    Set Location to 161 8
    Set Wrap_State to TRUE
    Set psToolTip to "This is a ToolTip text added for this object"
    Set psToolTipTitle to "cWindbGrid"

    Begin_Row
      Entry_Item Orderdtl.Detail_number
      Entry_Item Invt.Item_id
    End_Row

    Set Form_Width   item 0 to 75
    Set Header_Label item 0 to "Detail number"
    
    Set Form_Width   item 1 to 83
    Set Header_Label item 1 to "Item id"
    
  End_Object    // oWindbGrid1

  Object oWindbList1 is a cWindbList
    Set Main_File to Orderdtl.File_Number
    Set Server to Orderdtl_DD
    Set Size to 52 93
    Set Location to 161 189
    Set Move_Value_Out_State to FALSE
    Set psToolTip to "This is a ToolTip text added for this control"
    Set psToolTipTitle to "cWindbList"

    Begin_Row
      Entry_Item Orderdtl.Price
      Entry_Item Orderdtl.Extended_price
    End_Row

    Set Form_Width   item 0 to 38
    Set Header_Label item 0 to "Price"
    
    Set Form_Width   item 1 to 45
    Set Header_Label item 1 to "Total"
    
  End_Object    // oWindbList1

  Object oWindbGroup1 is a cWindbGroup
    Set Size to 46 80
    Set Location to 47 291
    Set Label to "oWindbGroup"
    Set psToolTip to "ToolTip text for this object"
    Set psToolTipTitle to "cWindbGroup"
    Object oWinSpinForm1 is a cWinSpinForm
      Set Label to "Test:"
      Set Size to 13 32
      Set Location to 20 39
      Set Status_Help to "Test of a Child object within a cWindbGroup object"
      Set Label_Col_Offset to 2
      Set Label_Justification_Mode to jMode_Right
    End_Object    // oWinSpinForm1


    //AB-StoreStart
                                
    //AB-StoreEnd

  End_Object    // oWindbGroup1

  Object oWindbContainer3d1 is a cWindbContainer3d
    Set Size to 54 80
    Set Location to 102 292
    Set Bitmap_Style to Bitmap_Center
    Set psToolTip to "ToolTip text for a WindbContainer3d object"
    Set psToolTipTitle to "cWindbContainer3d"
    Object oWinSpinForm2 is a cWinSpinForm
      Set Label to "Test:"
      Set Size to 13 32
      Set Location to 18 37
      Set Status_Help to "Test of a Child object within a cWindbContainer3d object"
      Set Label_Col_Offset to 2
      Set Label_Justification_Mode to jMode_Right
    End_Object    // oWinSpinForm2

  End_Object    // oWindbContainer3d1

  Object oWindbBitmap1 is a cWindbBitmap
    Set Size to 44 80
    Set Location to 50 188
    Set Bitmap to "ViewData16.bmp"
    Set Bitmap_Style to Bitmap_Center
    Set psToolTip to "ToolTip text for this object"
    Set psToolTipTitle to "cWindbBitmap"
  End_Object    // oWindbBitmap1

  Object oWindbRadioGroup1 is a cWindbRadioGroup
    Set Size to 56 77
    Set Location to 100 189
    Set Label to "oWindbRadioGroup"
    Set psToolTip to "This is a ToolTip text for the cWindbRadioGroup object"
    Object oWinRadio1 is a cWinRadio
      Set Label to "Radio Label 1"
      Set Size to 10 61
      Set Location to 10 5
      Set Status_Help to "Status_Help text for Radio Label 1"
    End_Object    // oWinRadio1

    Object oWinRadio2 is a cWinRadio
      Set Label to "Radio Label 2"
      Set Size to 10 61
      Set Location to 25 5
      Set Status_Help to "Status_Help text for Radio Label 2"
    End_Object    // oWinRadio2

    Object oWinRadio3 is a cWinRadio
      Set Label to "Radio Label 3"
      Set Size to 10 61
      Set Location to 40 5
      Set Status_Help to "Status_Help text for Radio Label 3"
    End_Object    // oWinRadio3

  End_Object    // oWindbRadioGroup1

  Object oToggleEnabledState_bn is a Button

    //AB-StoreTopStart
    Property Boolean pbState False
    //AB-StoreTopEnd

    Set Label to "Toggle Enabled_State"
    Set Size to 14 78
    Set Location to 161 294

    //AB-StoreStart
    Procedure OnClick
      Boolean bState
      String sText
      Get pbState       To bState
      Set pbState       To (Not(bState))
      Set Enabled_State Of oWindbForm1          To bState
      Set Enabled_State Of oWindbSpinForm1      To bState
      Set Enabled_State Of oWindbComboForm1     To bState
      Set Enabled_State Of oWindbCheckBox1      To bState
      Set Enabled_State Of oWindbEdit1          To bState
      Set Enabled_State Of oWindbGrid1          To bState
      Set Enabled_State Of oWindbList1          To bState
      Set Enabled_State Of oWindbGroup1         To bState
      Set Enabled_State Of oWindbRadioGroup1    To bState
      Set Enabled_State Of oWindbContainer3d1   To bState
      Set Enabled_State Of oWindbBitmap1        To bState
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oToggleEnabledState_bn

  Object oToggleToolTip_bn is a Button

    //AB-StoreTopStart
    Property Boolean pbState False
    //AB-StoreTopEnd

    Set Label to "Toggle Tooltip on/off"
    Set Size to 14 78
    Set Location to 180 294

    //AB-StoreStart
    Procedure OnClick
      Boolean bState
      Handle ho
      Get pbState              To bState
      Set pbState              To (Not(bState))
      Move (Parent(Self))      To ho
      Broadcast Recursive Set pbToolTips Of ho To bState
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oToggleToolTip_bn

  Object oToggleToolTipStyle_bn is a Button

    //AB-StoreTopStart
    Property Boolean pbState False
    //AB-StoreTopEnd

    Set Label to "Toggle ToolTip Style"
    Set Size to 14 78
    Set Location to 199 294

    //AB-StoreStart
    Procedure OnClick
      Boolean bState
      Handle ho
      Get pbState                     To bState
      Set pbState                     To (Not(bState))
      Move (Parent(Self))             To ho
      Broadcast Recursive Set pbToolTipBalloon  Of ho To bState
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oToggleToolTipStyle_bn

End_Object    // dbToolTip

//AB/ End_Object    // oIDE_Project