//AB/ Project Standard Tooltip comtrols
//AB/ Object prj is a View_Project
  //AB/ Set Size to 287 443
  //AB/ Set ProjectName to "Standard Tooltip comtrols"
  //AB/ Set ProjectFileName to "cWinToolTipSubClasses.vw"
  //AB/ Set GenerateFileName to "NONAME"

// Project Object Structure
//   ocWinToolTipSubClasses 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
//     oToggleEnabledState_bn is a Button
//     oToggleToolTip_bn is a Button
//     oToggleToolTipStyle_bn is a Button
//     oWinForm1 is a cWinForm
//     oWinSpinForm1 is a cWinSpinForm
//     oWinComboForm1 is a cWinComboForm
//     oWinCheckBox1 is a cWinCheckBox
//     oWinEdit1 is a cWinEdit
//     oWinGrid1 is a cWinGrid
//     oWinList1 is a cWinList
//     oTreeView_txt is a Textbox
//     oWinTreeView1 is a cWinTreeView
//     oWinProgressBar1 is a cWinProgressBar
//     oWinBitmapContainer1 is a cWinBitmapContainer
//     oWinGroup1 is a cWinGroup
//       oWinSpinForm6 is a cWinSpinForm
//     oWinRadioGroup1 is a cWinRadioGroup
//       oWinRadio1 is a cWinRadio
//       oWinRadio2 is a cWinRadio
//     oWinContainer3d1 is a cWinContainer3d
//       oWinSpinForm3 is a cWinSpinForm
//     oGroup1 is a cWinGroup
//       oWinForm2 is a cWinForm
//       oWinSpinForm2 is a cWinSpinForm
//       oWinComboForm2 is a cWinComboForm
//       oWinCheckBox2 is a cWinCheckBox
//       oWinEdit2 is a cWinEdit
//       oWinGrid2 is a cWinGrid
//       oWinList2 is a cWinList
//       oTreeView_txt is a Textbox (Duplicate object name)
//       oWinTreeView2 is a cWinTreeView

// Register all objects
Register_Object Customer_DD
Register_Object Invt_DD
Register_Object Orderdtl_DD
Register_Object Orderhea_DD
Register_Object ocWinToolTipSubClasses
Register_Object oGroup1
Register_Object oToggleEnabledState_bn
Register_Object oToggleToolTip_bn
Register_Object oToggleToolTipStyle_bn
Register_Object oTreeView_txt
Register_Object oWinBitmapContainer1
Register_Object oWinCheckBox1
Register_Object oWinCheckBox2
Register_Object oWinComboForm1
Register_Object oWinComboForm2
Register_Object oWinContainer3d1
Register_Object oWinEdit1
Register_Object oWinEdit2
Register_Object oWinForm1
Register_Object oWinForm2
Register_Object oWinGrid1
Register_Object oWinGrid2
Register_Object oWinGroup1
Register_Object oWinList1
Register_Object oWinList2
Register_Object oWinProgressBar1
Register_Object oWinRadio1
Register_Object oWinRadio2
Register_Object oWinRadioGroup1
Register_Object oWinSpinForm1
Register_Object oWinSpinForm2
Register_Object oWinSpinForm3
Register_Object oWinSpinForm6
Register_Object oWinTextBox1
Register_Object oWinTreeView1
Register_Object oWinTreeView2
Register_Object Salesp_DD
Register_Object Vendor_DD

//AB-IgnoreStart
Use dfClient.pkg
Use DataDict.pkg
Use cWinTextBox.pkg
Use Windows.pkg
Use cWinForm.pkg
Use cWinSpinForm.pkg
Use cWinComboForm.pkg
Use cWinCheckBox.pkg
Use cWinEdit.pkg
Use cWinGrid.pkg
Use cWinList.pkg
Use cWinTreeView.pkg
Use cWinProgressBar.pkg
Use cWinBitmapContainer.pkg
Use cWinGroup.pkg
Use cWinRadioGroup.pkg
Use cWinRadio.pkg
Use cWinContainer3d.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_ocWinToolTipSubClasses FOR ocWinToolTipSubClasses

Object ocWinToolTipSubClasses is a dbView
  Set Border_Style to Border_Thick
  Set Maximize_Icon to TRUE
  Set Label to "Non data aware controls with Tooltip"
  Set Location to 2 3
  Set Size to 235 420
  Set piMinSize to 235 420

  //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 -2
    Set Size to 11 158
    Set TextColor to 6579300
    Set piHotColor to clBlack
    Set Gradient_Mode to GRADIENT_TOPBOTTOM
    Set GradientFromColor to clDkGray
    Set GradientToColor to clWhite
    Set Label to "SubClasses with cWinToolTip Mixin"
    Set FontSize to 32 0
    Set FontWeight to 800
    Set TypeFace to "Arial"
    Set psToolTip to "These are all subclasses from DAW standard classes. The cWinToolTip class has been mixed in."
    Set Border_Color to clNavy
    Set pbAutoStatusHelpAsToolTip to FALSE
  End_Object    // oWinTextBox1

  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 29 61

    //AB-StoreStart
    Procedure OnClick
      Boolean bState
      String sText
      Get pbState       To bState
      Set pbState       To (Not(bState))
      Set Enabled_State Of oGroup1              To bState
      Set Enabled_State Of oWinForm1            To bState
      Set Enabled_State Of oWinSpinForm1        To bState
      Set Enabled_State Of oWinComboForm1       To bState
      Set Enabled_State Of oWinCheckBox1        To bState
      Set Enabled_State Of oWinEdit1            To bState
      Set Enabled_State Of oWinGrid1            To bState
      Set Enabled_State Of oWinList1            To bState
    //  Set Enabled_State Of oWinRadio1           To bState
    //  Set Enabled_State Of oWinRadio2           To bState
      Set Enabled_State Of oWinRadioGroup1      To bState
      Set Enabled_State Of oWinBitmapContainer1 To bState
      Set Enabled_State Of oWinTreeView1        To bState
      Set Enabled_State Of oWinGroup1           To bState
      Set Enabled_State Of oWinContainer3d1     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 29 143

    //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 29 225

    //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
      Move oWinForm1                  To ho
      Set psToolTipTitle              Of ho To "New Title"
      Set psToolTip                   Of ho To "The psToolTip and psToolTipTitle was set to a new values and 'RefreshToolTip' was send to the object."
      Send RefreshToolTip             Of ho
      Move oWinComboForm1             To ho
      Set psToolTipTitle              Of ho To "New Title"
      Set psToolTip                   Of ho To "The psToolTip and psToolTipTitle was set to a new values and 'RefreshToolTip' was send to the object."
      Send RefreshToolTip             Of ho
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oToggleToolTipStyle_bn

  Object oWinForm1 is a cWinForm

    //AB-StoreTopStart
    // This is an example on how to use the cWinToolTip mixin class,
    // with your own classes.
    // This is just the normal form class that has been subclassed.
    // The new class was named cWinForm and the cWinToolTip class was mixed in.
    // See cWinForm.pkg for more details.
    
    //AB-StoreTopEnd

    Set Label to "cWinForm:"
    Set Size to 13 80
    Set Location to 48 61
    Set Status_Help to "This is an example on how to use the cWinToolTip Mixin class.\n\nThe text you see now is really a Status_Help text retrieved when psToolTip is blank and the pbAutoStatusHelpAsToolTip = True (Default)"
    Set Label_Col_Offset to 0
    Set Label_Justification_Mode to jMode_Right

    //AB-StoreStart
    //Set Enabled_State To False
    //Set Entry_State Item 0 To False
    //AB-StoreEnd

  End_Object    // oWinForm1

  Object oWinSpinForm1 is a cWinSpinForm
    Set Label to "cWinSpinForm:"
    Set Size to 13 80
    Set Location to 64 61
    Set Label_Col_Offset to 2
    Set Label_Justification_Mode to jMode_Right
    Set psToolTip to "cWinToolTip has been mixed into this subclass of SpinForm"

    //AB-StoreStart
    //Set Enabled_State To False
    //Set Entry_State Item 0 To False
    
    //AB-StoreEnd

  End_Object    // oWinSpinForm1

  Object oWinComboForm1 is a cWinComboForm
    Set Label to "cWinComboForm"
    Set Size to 13 80
    Set Location to 80 61
    Set Form_Border to 0
    Set Label_Col_Offset to 2
    Set Label_Justification_Mode to jMode_Right
    Set psToolTip to "ToolTip help for this object. This ToolTip text will not show when the object is disabled."

    //AB-StoreStart
                            
    //AB-StoreEnd

  End_Object    // oWinComboForm1

  Object oWinCheckBox1 is a cWinCheckBox
    Set Label to "cWinCheckBox"
    Set Size to 10 66
    Set Location to 98 61
    Set psToolTip to "ToolTip help text bla bla bla"
  End_Object    // oWinCheckBox1

  Object oWinEdit1 is a cWinEdit
    Set Label to "cWinEdit:"
    Set Size to 33 80
    Set Location to 74 153
    Set Status_Help to "Status_Help for cWinEdit object"
  End_Object    // oWinEdit1

  Object oWinGrid1 is a cWinGrid
    Set Size to 33 80
    Set Location to 119 62
    Set psToolTip to "This is a tooltip sample"
    Set psToolTipTitle to "psToolTipTitle for cWinGrid"

    Set Line_Width to 1 0

    Set Form_Width    item 0 to 70
    Set Header_Label  item 0 to "cWinGrid"
    

    //AB-StoreStart
    Procedure Fill_List
      Send Add_Item 0 "Test item"
    End_Procedure // Fill_List
    Send Fill_List
    
    //AB-StoreEnd

  End_Object    // oWinGrid1

  Object oWinList1 is a cWinList
    Set Label to "cWinList:"
    Set Size to 32 80
    Set Location to 119 153
    Set Status_Help to "This is really a Status_Help text that is used as the ToolTip."
    Set Label_Col_Offset to 0
    Set Label_Justification_Mode to jMode_Top

    //AB-StoreStart
    Procedure Fill_List
      Send Add_Item 0 "Test item"
    End_Procedure // Fill_List
    Send Fill_List
    
    //AB-StoreEnd

  End_Object    // oWinList1

  Object oTreeView_txt is a Textbox
    Set Label to "cWinTreeView:"
    Set Location to 108 245
    Set Size to 10 50
    Set TypeFace to "MS Sans Serif"
  End_Object    // oTreeView_txt

  Object oWinTreeView1 is a cWinTreeView
    Set Size to 32 80
    Set Location to 119 245
    Set psToolTipTitle to "cWinTreeView"
    Set Status_Help to "Status_Help text used as ToolTip"
  End_Object    // oWinTreeView1

  Object oWinProgressBar1 is a cWinProgressBar
    Set Size to 13 80
    Set Location to 50 153
    Set psToolTipTitle to "cWinProgressBar"
    Set Status_Help to "This is a status_help text for cWinProgressBar"
  End_Object    // oWinProgressBar1

  Object oWinBitmapContainer1 is a cWinBitmapContainer
    Set Size to 23 28
    Set Location to 127 9
    Set Bitmap to "ViewData16.bmp"
    Set Bitmap_Style to Bitmap_Center
    Set psToolTip to "psToolTip text test"
    Set psToolTipTitle to "cWinBitmapContainer"
  End_Object    // oWinBitmapContainer1

  Object oWinGroup1 is a cWinGroup
    Set Size to 44 80
    Set Location to 47 244
    Set Label to "oWinGroup"
    Set psToolTip to "This is a ToolTip for cWinGroup"
    Set Status_Help to "Status_Help text for oWinGroup1"
    Object oWinSpinForm6 is a cWinSpinForm
      Set Label to "Test:"
      Set Size to 13 32
      Set Location to 16 33
      Set Status_Help to "Test of a Child object within a cWinGroup object"
      Set Label_Col_Offset to 2
      Set Label_Justification_Mode to jMode_Right
    End_Object    // oWinSpinForm6


    //AB-StoreStart
                            
    //AB-StoreEnd

  End_Object    // oWinGroup1

  Object oWinRadioGroup1 is a cWinRadioGroup
    Set Size to 44 80
    Set Location to 47 331
    Set Label to "oWinRadioGroup"
    Set psToolTip to "ToolTip text for the cWinRadioGroup object"
    Object oWinRadio1 is a cWinRadio
      Set Label to "oWinRadio1"
      Set Size to 10 56
      Set Location to 12 8
      Set psToolTip to "ToolTip Text radio 1"
    End_Object    // oWinRadio1

    Object oWinRadio2 is a cWinRadio
      Set Label to "oWinRadio2"
      Set Size to 10 56
      Set Location to 25 8
      Set psToolTip to "cWinRadio 2 ToolTip Text"
    End_Object    // oWinRadio2

  End_Object    // oWinRadioGroup1

  Object oWinContainer3d1 is a cWinContainer3d
    Set Size to 31 70
    Set Location to 120 340
    Set psToolTip to "ToolTip test text"
    Set psToolTipTitle to "cWinContainer3d class"
    Set Status_Help to "This is a status_help text"
    Object oWinSpinForm3 is a cWinSpinForm
      Set Label to "Test:"
      Set Size to 13 32
      Set Location to 7 27
      Set Status_Help to "Test of a Child object within a cWinContainer3d object"
      Set Label_Col_Offset to 2
      Set Label_Justification_Mode to jMode_Right
    End_Object    // oWinSpinForm3

  End_Object    // oWinContainer3d1

  Object oGroup1 is a cWinGroup
    Set Size to 79 403
    Set Location to 154 8
    Set Label to "cWin(x) subclasses"
    Object oWinForm2 is a cWinForm

      //AB-StoreTopStart
      // This is an example on how to use the cWinToolTip mixin class,
      // with your own classes.
      // This is just the normal form class that has been subclassed.
      // The new class was named cWinForm and the cWinToolTip class was mixed in.
      // See cWinForm.pkg for more details.
      
      //AB-StoreTopEnd

      Set Label to "cWinForm:"
      Set Size to 13 70
      Set Location to 13 65
      Set Status_Help to "This is an example on how to use the cWinToolTip Mixin class.\n\nThe text you see now is really a Status_Help text retrieved when psToolTip is blank and the pbAutoStatusHelpAsToolTip = True (Default)"
      Set Label_Col_Offset to 0
      Set Label_Justification_Mode to jMode_Right
      Set Prompt_Button_Mode to pb_PromptOn

      //AB-StoreStart
      //Set Enabled_State To False
      //Set Entry_State Item 0 To False
      //AB-StoreEnd

    End_Object    // oWinForm2

    Object oWinSpinForm2 is a cWinSpinForm
      Set Label to "cWinSpinForm:"
      Set Size to 13 70
      Set Location to 28 65
      Set Label_Col_Offset to 2
      Set Label_Justification_Mode to jMode_Right
      Set psToolTip to "cWinToolTip has been mixed into this subclass of SpinForm"

      //AB-StoreStart
      //Set Enabled_State To False
      //Set Entry_State Item 0 To False
      
      //AB-StoreEnd

    End_Object    // oWinSpinForm2

    Object oWinComboForm2 is a cWinComboForm
      Set Label to "cWinComboForm"
      Set Size to 13 70
      Set Location to 44 65
      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."

      //AB-StoreStart
                                          
      //AB-StoreEnd

    End_Object    // oWinComboForm2

    Object oWinCheckBox2 is a cWinCheckBox
      Set Label to "cWinCheckBox"
      Set Size to 10 66
      Set Location to 59 65
      Set psToolTip to "ToolTip help text bla bla bla"

      //AB-StoreStart
                                          
      //AB-StoreEnd

    End_Object    // oWinCheckBox2

    Object oWinEdit2 is a cWinEdit
      Set Label to "cWinEdit:"
      Set Size to 26 80
      Set Location to 18 233
      Set Status_Help to "Status_Help for cWinEdit object"
    End_Object    // oWinEdit2

    Object oWinGrid2 is a cWinGrid
      Set Size to 33 80
      Set Location to 13 145
      Set psToolTip to "This is a tooltip sample"
      Set psToolTipTitle to "psToolTipTitle for cWinGrid"

      Set Line_Width to 1 0

      Set Form_Width    item 0 to 70
      Set Header_Label  item 0 to "cWinGrid"
      

      //AB-StoreStart
      Procedure Fill_List
        Send Add_Item 0 "Test item"
      End_Procedure // Fill_List
      Send Fill_List
      
      //AB-StoreEnd

    End_Object    // oWinGrid2

    Object oWinList2 is a cWinList
      Set Label to "cWinList:"
      Set Size to 32 76
      Set Location to 18 319
      Set Status_Help to "This is really a Status_Help text that is used as the ToolTip."
      Set Label_Col_Offset to 0
      Set Label_Justification_Mode to jMode_Top

      //AB-StoreStart
      Procedure Fill_List
        Send Add_Item 0 "Test item"
      End_Procedure // Fill_List
      Send Fill_List
      
      //AB-StoreEnd

    End_Object    // oWinList2

    Object oTreeView_txt is a Textbox
      Set Label to "cWinTreeView:"
      Set Location to 50 181
      Set Size to 10 50
      Set TypeFace to "MS Sans Serif"
    End_Object    // oTreeView_txt

    Object oWinTreeView2 is a cWinTreeView
      Set Size to 23 79
      Set Location to 50 233
      Set psToolTipTitle to "cWinTreeView"
      Set Status_Help to "Status_Help text used as ToolTip"
    End_Object    // oWinTreeView2


    //AB-StoreStart
                            
    //AB-StoreEnd

  End_Object    // oGroup1


  //AB-StoreStart
  Set Verify_Data_Loss_msg To msg_None
  
  //AB-StoreEnd

End_Object    // ocWinToolTipSubClasses

//AB/ End_Object    // prj