//AB/ Project cWinButton Sample
//AB/ Object oIDE_Project is a View_Project
  //AB/ Set ProjectName to "cWinButton Sample"
  //AB/ Set ProjectFileName to "cWinButton.VW"
  //AB/ Set GenerateFileName to "NONAME2"

// Project Object Structure
//   oButtons is a dbView
//     oWinTextBox1 is a cWinTextBox
//     oWinForm1 is a cWinForm
//     oWinButton1 is a cWinButton
//     oWinButton2 is a cWinButton
//     oWinButton3 is a cWinButton
//     oWinButton4 is a cWinButton
//     oWinButton5 is a cWinButton
//     oWinButton6 is a cWinButton
//     oWinButton7 is a cWinButton
//     oWinButton8 is a cWinButton
//     oWinButton9 is a cWinButton
//     oWinButton10 is a cWinButton
//     oWinButton11 is a cWinButton
//     oWinButton12 is a cWinButton
//     oWinButton13 is a cWinButton
//     oWinLink3 is a cWinLink
//     oWinLink4 is a cWinLink
//     oViewData_bn is a cWinButton
//     oClose_bn is a cWinButton
//     oToggleFlatState_bn is a Button
//     oToggleHotTrack_bn is a Button
//     oToggleBoldFace_bn is a Button
//     oEnableDisable_bn is a Button
//     oToggleGradients_bn is a Button
//     oToggleToolTip_bn is a Button
//     oToggleToolTipStyle_bn is a Button
//     oNoBitmap_bn is a cWinButton
//     oButton1 is a Button
//     oDAW_tb is a Textbox
//     oDAW_tb is a Textbox (Duplicate object name)

// Register all objects
Register_Object oButton1
Register_Object oButtons
Register_Object oClose_bn
Register_Object oDAW_tb
Register_Object oEnableDisable_bn
Register_Object oNoBitmap_bn
Register_Object oToggleBoldFace_bn
Register_Object oToggleFlatState_bn
Register_Object oToggleGradients_bn
Register_Object oToggleHotTrack_bn
Register_Object oToggleToolTip_bn
Register_Object oToggleToolTipStyle_bn
Register_Object oViewData_bn
Register_Object oWinButton1
Register_Object oWinButton10
Register_Object oWinButton11
Register_Object oWinButton12
Register_Object oWinButton13
Register_Object oWinButton2
Register_Object oWinButton3
Register_Object oWinButton4
Register_Object oWinButton5
Register_Object oWinButton6
Register_Object oWinButton7
Register_Object oWinButton8
Register_Object oWinButton9
Register_Object oWinForm1
Register_Object oWinLink3
Register_Object oWinLink4
Register_Object oWinTextBox1


//AB-StoreTopStart
Use cWinFileSystem.pkg
//AB-StoreTopEnd

//AB-IgnoreStart
Use dfClient.pkg
Use cWinTextBox.pkg
Use cWinForm.pkg
Use cWinButton.pkg
Use cWinLink.pkg
Use Windows.pkg
//AB-IgnoreEnd


ACTIVATE_VIEW Activate_oButtons FOR oButtons

Object oButtons is a dbView
  Set Border_Style to Border_Thick
  Set Maximize_Icon to TRUE
  Set Label to "Example of cWinText, cWinButtons and cWinLink classes"
  Set Location to 0 0
  Set Size to 161 420
  Set piMinSize to 161 420

  //AB-DDOStart


  //AB-DDOEnd

  Object oWinTextBox1 is a cWinTextBox
    Set Location to 2 3
    Set Size to 11 96
    Set TextColor to clBlue
    Set Gradient_Mode to GRADIENT_TOPBOTTOM
    Set GradientFromColor to clWhite
    Set GradientToColor to clDkGray
    Set Label to "cWinText"
    Set FontSize to 32 0
    Set FontWeight to 800
    Set TypeFace to "Arial"
    Set psToolTip to "&Ok, let's see a really long explaination for a tooltip. An example would be the"
    Set psToolTipTitle to "Ok, is the ampersand stripped out?"
    Set Border_Color to clNavy
    Set pbAutoStatusHelpAsToolTip to FALSE
  End_Object    // oWinTextBox1

  Object oWinForm1 is a cWinForm
    Set Label to "cWinForm:"
    Set Size to 13 70
    Set Location to 50 13
    Set Label_Col_Offset to 0
    Set Label_Justification_Mode to jMode_Top
    Set psToolTip to "The control has been placed here to demonstrate the Default_State of the cWinButton class. It is set to True for the 'View Data' button. But there is no visual clue for it..."
  End_Object    // oWinForm1

  Object oWinButton1 is a cWinButton
    Set Location to 70 13
    Set Size to 28 70
    Set Color to 15262655
    Set TextColor to clNavy
    Set pbHotTrack to TRUE
    Set Label to "Top bitmap"
    Set Status_Help to "Top Bitmap, Italics, Underline, Standard properties, Status_Help used as ToolTip, Label as ToolTipTitle"
    Set ButtonTextAlign to BTA_BOTTOM
    Set TypeFace to "MS Sans Serif"
    Set FontItalics to TRUE
    Set FontUnderline to TRUE
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_TOP

    //AB-StoreStart
    Procedure OnClick
    
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton1

  Object oWinButton2 is a cWinButton
    Set Location to 102 13
    Set Size to 28 60
    Set Color to 15451903
    Set TextColor to 215
    Set Label to "Bottom Bitmap"
    Set Status_Help to "Bottom Bitmap, FontWeight To 800 , Standard properties, Status_Help used as ToolTip, Label as ToolTipTitle"
    Set FontWeight to 800
    Set TypeFace to "MS Sans Serif"
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_BOTTOM

    //AB-StoreStart
    Procedure OnClick
    
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton2

  Object oWinButton3 is a cWinButton
    Set Location to 134 12
    Set Size to 14 70
    Set Label to "Plain"
    Set Status_Help to "Standard properties, No Bitmap, Status_Help used as ToolTip, Label as ToolTipTitle"
    Set TypeFace to "MS Sans Serif"

    //AB-StoreStart
    Procedure OnClick
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton3

  Object oWinButton4 is a cWinButton
    Set Location to 36 103
    Set Size to 28 60
    Set Color to 15451903
    Set TextColor to 215
    Set Label to "Pointer Only"
    Set Status_Help to "Pointer_Only, Status_Help used as ToolTip, Label as ToolTipTitle"
    Set FontWeight to 800
    Set TypeFace to "MS Sans Serif"
    Set Pointer_Only_State to TRUE
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_BOTTOM

    //AB-StoreStart
    Procedure OnClick
    
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton4

  Object oWinButton5 is a cWinButton
    Set Location to 70 102
    Set Size to 14 70
    Set Color to 13492159
    Set TextColor to clGreen
    Set Label to "Left bitmap text"
    Set TypeFace to "MS Sans Serif"
    Set FontStrikeOut to TRUE
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_LEFT
    Set psToolTip to "Left bitmap alignment, tool tip, Striked out font"
    Set psToolTipTitle to "Button info"

    //AB-StoreStart
    Procedure OnClick
    
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton5

  Object oWinButton6 is a cWinButton
    Set Location to 90 102
    Set Size to 14 70
    Set Color to 15447239
    Set TextColor to clGreen
    Set Label to "Right bitmap"
    Set TypeFace to "MS Sans Serif"
    Set FontStrikeOut to TRUE
    Set pbDrawBorder to FALSE
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_RIGHT
    Set psToolTip to "Right bitmap alignment, No Border"
    Set psToolTipTitle to "Button info"

    //AB-StoreStart
    Procedure OnClick
    
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton6

  Object oWinButton7 is a cWinButton
    Set Location to 111 103
    Set Size to 28 70
    Set Color to 12759023
    Set TextColor to clMaroon
    Set Label to "Disabled"
    Set TypeFace to "MS Sans Serif"
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_TOP
    Set psToolTip to "Enabled_State set to False"
    Set psToolTipTitle to "Disabled button"
    Set Enabled_State to FALSE

    //AB-StoreStart
    Procedure OnClick
    
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton7

  Object oWinButton8 is a cWinButton
    Set Location to 143 102
    Set Size to 14 70
    Set Color to 15447239
    Set TextColor to clGreen
    Set Label to "Hide focus"
    Set TypeFace to "MS Sans Serif"
    Set FontStrikeOut to TRUE
    Set pbDrawFocus to FALSE
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_RIGHT
    Set psToolTip to "Hide Focus, Right bitmap alignment, tool tip, Striked out font"
    Set psToolTipTitle to "Button info"

    //AB-StoreStart
    Procedure OnClick
    
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton8

  Object oWinButton9 is a cWinButton
    Set Location to 38 188
    Set Size to 15 71
    Set TextColor to clWhite
    Set Gradient_Mode to GRADIENT_VERTICAL
    Set Label to "&V Gradient"
    Set TypeFace to "MS Sans Serif"
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_LEFT
    Set psToolTip to "Vertial Gradient, Left Bitmap"

    //AB-StoreStart
    Procedure OnClick
    
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton9

  Object oWinButton10 is a cWinButton
    Set Location to 56 188
    Set Size to 14 71
    Set TextColor to clYellow
    Set Gradient_Mode to GRADIENT_HORIZONTAL
    Set GradientFromColor to 12248263
    Set GradientToColor to 3773268
    Set Label to "Hide/Show"
    Set Status_Help to "Horizontal Gradient, BitmapAlign = Right"
    Set TypeFace to "MS Sans Serif"
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_RIGHT

    //AB-StoreStart
    Procedure OnClick
        Integer bVisible
        Get pbVisible of oWinButton9 To bVisible
        Set pbVisible of oWinButton9 To (Not(bVisible))
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton10

  Object oWinButton11 is a cWinButton
    Set Location to 81 188
    Set Size to 26 61
    Set TextColor to clWhite
    Set Gradient_Mode to GRADIENT_TOPBOTTOM
    Set Label to "TB Gradient"
    Set FontWeight to 800
    Set TypeFace to "MS Sans Serif"
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_BOTTOM
    Set psToolTip to "TopBottom Gradient, Bottom Bitmap"

    //AB-StoreStart
    Procedure OnClick
    
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton11

  Object oWinButton12 is a cWinButton
    Set Location to 109 188
    Set Size to 29 60
    Set TextColor to clMaroon
    Set Gradient_Mode to GRADIENT_LEFTRIGHT
    Set GradientFromColor to clWhite
    Set GradientToColor to clDkGray
    Set Label to "LR Gradient"
    Set Status_Help to "Left - Right Gradient, Top Bitmap"
    Set ButtonTextAlign to BTA_BOTTOM
    Set FontWeight to 800
    Set TypeFace to "MS Sans Serif"
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_TOP

    //AB-StoreStart
    Procedure OnClick
    
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton12

  Object oWinButton13 is a cWinButton
    Set Location to 143 187
    Set Size to 14 70
    Set Color to 13492159
    Set TextColor to clGreen
    Set Label to "Flat?"
    Set Status_Help to "Top Bitmap, Italics, Underline, Standard properties, No Bitmap, Status_Help used as ToolTIp"
    Set TypeFace to "MS Sans Serif"
    Set FontStrikeOut to TRUE
    Set pbFlatState to TRUE
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_LEFT
    Set psToolTip to "Left bitmap alignment, tool tip, Striked out font"
    Set psToolTipTitle to "Button info"
    Set Enabled_State to FALSE

    //AB-StoreStart
    Procedure OnClick
    
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oWinButton13

  Object oWinLink3 is a cWinLink
    Set Location to 18 319
    Set Size to 12 81
    Set TextColor to clNavy
    Set pbHotTrack to TRUE
    Set Visited_Color to 11882421
    Set Label to "www.vdf-guidance.com"
    Set FontWeight to 800
    Set TypeFace to "MS Sans Serif"
    Set FontUnderline to TRUE
    Set LinkTextAlign to BTA_RIGHT
    Set piCursor to BUTTON_IDC_HAND
    Set psToolTip to "Visit us on the Web! Welcome to VDF-GUIDANCE.COM!"
    Set psToolTipTitle to "&Best source for the start"
    Set psURL to "www.vdf-guidance.com"
    Set Pointer_Only_State to TRUE
    Set pbAutoStatusHelpAsToolTip to FALSE

    //AB-StoreStart
                                    
    //AB-StoreEnd

  End_Object    // oWinLink3

  Object oWinLink4 is a cWinLink
    Set Location to 4 325
    Set Size to 12 87
    Set TextColor to 213
    Set pbHotTrack to TRUE
    Set piHotColor to clRed
    Set Label to "Hot technical support"
    Set TypeFace to "MS Sans Serif"
    Set FontUnderline to TRUE
    Set LinkTextAlign to BTA_RIGHT
    Set piCursor to BUTTON_IDC_HELP
    Set Pointer_Only_State to TRUE
    Set pbAutoStatusHelpAsToolTip to FALSE

    //AB-StoreStart
    Procedure OnClick
        Local String sMsg
        Move (sMsg+"No, Thanks!\n\nI'm only happy to receive from you bug fixes or improvements. Suggestions and bug\n") To sMsg
        Move (sMsg+"reports also welcome, but I do not promis to fix it quickly!\n\n") To sMsg
        Move (sMsg+"Also notice, this is windows API controls and NOT TESTED for all possible Windows and           \n") To sMsg
        Move (sMsg+"Visual Dataflex(r) environments. Use it on your own risk!\n\n") To sMsg
        Move (sMsg+"Thank you for understanding,\n") To sMsg
        Move (sMsg+"Sergey V. Natarov (senatc@postman.ru)\n\n") To sMsg
        Move (sMsg+"Great contributions made by Wil van Antwerpen, Bernhard Ponemayr, Michael Kurz, \n") To sMsg
        Move (sMsg+"Oliver T. Nelson and other famous dataflex developers.") To sMsg
        Send Stop_Box sMsg "Technical support"
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oWinLink4

  Object oViewData_bn is a cWinButton
    Set Location to 38 268
    Set Size to 14 60
    Set Color to 13492159
    Set TextColor to clWhite
    Set pbHotTrack to TRUE
    Set Gradient_Mode to GRADIENT_TOPBOTTOM
    Set GradientFromColor to clWhite
    Set GradientToColor to clDkGray
    Set Label to "View &Data"
    Set Status_Help to "Top Bitmap, Italics, Underline, Standard properties, No Bitmap, Status_Help used as ToolTIp"
    Set FontSize to 14 0
    Set FontWeight to 800
    Set TypeFace to "Arial"
    Set pbFlatState to TRUE
    Set Bitmap to "ViewData16.bmp"
    Set piBitmapAlign to BBA_LEFT
    Set psToolTip to "&Ok, let's see a really long explaination for a tooltip. An example would be data format comboform that needs several rows to describe the different formats bla bla bla bla."
    Set psToolTipTitle to "Database Formats"

    //AB-StoreStart
    Set Default_State To True
    
    Procedure OnClick
      Send Info_box "'View Data' button activated. Test of Default_State, which doesn't quite work. There is no visual clue that this button has it's Default_State set to True"
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oViewData_bn

  Object oClose_bn is a cWinButton
    Set Location to 57 268
    Set Size to 14 60
    Set Color to 13492159
    Set TextColor to clBlue
    Set pbHotTrack to TRUE
    Set piHotColor to clWindowText
    Set Gradient_Mode to GRADIENT_TOPBOTTOM
    Set GradientFromColor to clWhite
    Set GradientToColor to clDkGray
    Set Label to "&Close"
    Set Status_Help to "Top Bitmap, Italics, Underline, Standard properties, No Bitmap, Status_Help used as ToolTIp"
    Set FontSize to 14 0
    Set FontWeight to 800
    Set TypeFace to "Arial"
    Set pbFlatState to TRUE
    Set Bitmap to "cWinButton.bmp"
    Set piBitmapAlign to BBA_LEFT
    Set psToolTip to "&Close About dialog\nDo something else. Uses psToolTip and Status_Help set to something else"

    //AB-StoreStart
    Procedure OnClick
        //Send Close_Panel
    End_Procedure // OnClick
    
    // The OnPaint message is sent when the system or another application makes
    // a request to paint a portion of an application's window.
    //Procedure OnPaint Integer hDC Integer iAct Integer iState
    //
    //End_Procedure // OnPaint
    //
    // The OnMouseMove message is posted to a window when the cursor moves.
    // If the mouse is not captured, the message is posted to the window that
    // contains the cursor. Otherwise, the message is posted to the window
    // that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos
    //
    //End_Procedure // OnMouseMove
    //
    // The OnMouseLeave message is posted to a window when the cursor leaves
    // the client area of the window
    //Procedure OnMouseLeave
    //
    //End_Procedure // OnMouseLeave
    //AB-StoreEnd

  End_Object    // oClose_bn

  Object oToggleFlatState_bn is a Button

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

    Set Label to "Toggle Flat State"
    Set Size to 14 78
    Set Location to 37 335

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

  End_Object    // oToggleFlatState_bn

  Object oToggleHotTrack_bn is a Button

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

    Set Label to "Toggle HotTrack"
    Set Size to 14 78
    Set Location to 53 335

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

  End_Object    // oToggleHotTrack_bn

  Object oToggleBoldFace_bn is a Button

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

    Set Label to "Toggle BoldFace"
    Set Size to 14 78
    Set Location to 69 335

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

  End_Object    // oToggleBoldFace_bn

  Object oEnableDisable_bn is a Button

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

    Set Label to "Toggle Enable/Disable"
    Set Size to 14 78
    Set Location to 85 335

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

  End_Object    // oEnableDisable_bn

  Object oToggleGradients_bn is a Button

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

    Set Label to "Change Gradients"
    Set Size to 14 78
    Set Location to 107 335

    //AB-StoreStart
    Procedure OnClick
      Local Handle ho
      Move (Parent(Self))             To ho
      Broadcast Set Gradient_Mode     Of ho To (GRADIENT_TOPBOTTOM)
      Broadcast Set pbDrawBorder      Of ho To True
      Broadcast Set pbDrawFocus       Of ho To True
      Broadcast Set GradientFromColor Of ho To clWhite
      Broadcast Set GradientToColor   Of ho To clDkGray
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oToggleGradients_bn

  Object oToggleToolTip_bn is a Button

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

    Set Label to "Toggle Tooltips"
    Set Size to 14 78
    Set Location to 130 335

    //AB-StoreStart
    Procedure OnClick
      Local Boolean bState
      Local 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 146 334

    //AB-StoreStart
    Procedure OnClick
      Local Boolean bState
      Local 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 oViewData_bn               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 oClose_bn                  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 oNoBitmap_bn is a cWinButton
    Set Location to 94 268
    Set Size to 14 60
    Set Color to 13492159
    Set TextColor to clBlue
    Set pbHotTrack to TRUE
    Set piHotColor to clWindowText
    Set Gradient_Mode to GRADIENT_TOPBOTTOM
    Set GradientFromColor to clWhite
    Set GradientToColor to clDkGray
    Set Label to "No &Bitmap Button"
    Set Status_Help to "Top Bitmap, Italics, Underline, Standard properties, No Bitmap, Status_Help used as ToolTIp"
    Set TypeFace to "MS Sans Serif"
    Set pbFlatState to TRUE
    Set Bitmap to "'"
    Set piBitmapAlign to BBA_LEFT
    Set psToolTip to "&Close About dialog\nDo something else. Uses psToolTip and Status_Help set to something else"

    //AB-StoreStart
    Procedure OnClick
        //Send Close_Panel
    End_Procedure // OnClick
    
    //AB-StoreEnd

  End_Object    // oNoBitmap_bn

  Object oButton1 is a Button
    Set Label to "No &Bitmap Button"
    Set Size to 14 60
    Set Location to 125 268

    //AB-StoreStart
    Procedure OnClick
    
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oButton1

  Object oDAW_tb is a Textbox
    Set Label to "(DAW Button)"
    Set Location to 139 268
    Set Size to 10 45
    Set TypeFace to "MS Sans Serif"
  End_Object    // oDAW_tb

  Object oDAW_tb is a Textbox
    Set Label to "(cWinButton)"
    Set Location to 108 268
    Set Size to 10 43
    Set TypeFace to "MS Sans Serif"
  End_Object    // oDAW_tb


  //AB-StoreStart
  On_Key Key_Alt+Key_D Send KeyAction Of oViewData_bn
  On_Key Key_Alt+Key_C Send KeyAction Of oClose_bn
  //AB-StoreEnd

End_Object    // oButtons


//AB-StoreStart

//AB-StoreEnd

//AB/ End_Object    // oIDE_Project