//AB/ Project About
//AB/ Object oIDE_Project is a Dialog_Project
//AB/     Set ProjectName to "About"
//AB/     Set ProjectFileName to "About.DG"
//AB/     Set GenerateFileName to "NONAME7"

// Project Object Structure
//   oAbout is a dbModalPanel
//     oWinTextBox1 is a cWinTextBox
//     oWinTextBox2 is a cWinTextBox
//     oForm1 is a Form
//     oWinButton1 is a cWinButton
//     oEdit1 is a Edit
//     oGroup1 is a Group
//       oTextBox1 is a Textbox
//       oWinLink1 is a cWinLink
//       oWinLink2 is a cWinLink
//       oWinLink3 is a cWinLink
//       oWinLink4 is a cWinLink
//       oWinLink5 is a cWinLink
//       oWinLink6 is a cWinLink
//       oWinLink7 is a cWinLink
//     oWinButton2 is a cWinButton

// Register all objects
Register_Object oAbout
Register_Object oEdit1
Register_Object oForm1
Register_Object oGroup1
Register_Object oTextBox1
Register_Object oWinButton1
Register_Object oWinButton2
Register_Object oWinLink1
Register_Object oWinLink2
Register_Object oWinLink3
Register_Object oWinLink4
Register_Object oWinLink5
Register_Object oWinLink6
Register_Object oWinLink7
Register_Object oWinTextBox1
Register_Object oWinTextBox2



//AB-StoreTopStart
Use SysInfo.dg
Use DfClient.pkg
//AB-StoreTopEnd

//AB-IgnoreStart

Use cWinTextBox.pkg
Use cWinButton.pkg
Use cWinLink.pkg


//AB-IgnoreEnd

CD_Popup_Object oAbout is a dbModalPanel

    //AB-StoreTopStart
    Set Destroy_Object_State To True
    Set Locate_Mode To CENTER_ON_PANEL //SCREEN
    //AB-StoreTopEnd

    Set Border_Style to Border_Normal
    Set Label to "Windows API Controls Sample Application"
    Set Size to 142 222
    Set Location to 8 45

    //AB-DDOStart


    //AB-DDOEnd

    Object oWinTextBox1 is a cWinTextBox
        Set Location to 2 -7
        Set Size to 11 100
        Set TextColor to clNavy
        Set Gradient_Mode to GRADIENT_TOPBOTTOM
        Set GradientFromColor to clBtnFace
        Set GradientToColor to clWhite
        Set Label to "Windows API Samples"
        Set FontSize to 28 0
        Set FontWeight to 800
        Set TypeFace to "Arial"
        Set Border_Color to clNavy

        //AB-StoreStart
        Procedure OnResize
                Showln 'Resize'
        End_Procedure
        //AB-StoreEnd

    End_Object    // oWinTextBox1

    Object oWinTextBox2 is a cWinTextBox
        Set Location to 123 4
        Set Size to 8 79
        Set TextColor to clNavy
        Set Gradient_Mode to GRADIENT_TOPBOTTOM
        Set GradientFromColor to clDkGray
        Set GradientToColor to clWhite
        Set FontSize to 32 0
        Set FontWeight to 800
        Set TypeFace to "Arial"
        Set Border_Style to BORDER_NORMAL
        Set Border_Color to clWhite

        //AB-StoreStart
        Procedure OnResize
                Showln 'Resize'
        End_Procedure
        //AB-StoreEnd

    End_Object    // oWinTextBox2

    Object oForm1 is a Form
        Set Size to 1 1
        Set Location to -10 -10

        //AB-StoreStart
        //Procedure OnChange
        //    String sValue
        //    Get value to sValue
        //
        //End_Procedure  // OnChange
        //AB-StoreEnd

    End_Object    // oForm1

    Object oWinButton1 is a cWinButton
        Set Location to 125 43
        Set Size to 15 55
        Set Color to 13492159
        Set TextColor to 65793
        Set Gradient_Mode to GRADIENT_TOPBOTTOM
        Set GradientFromColor to clWhite
        Set GradientToColor to clDkGray
        Set Label to "&System"
        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 "Popup System Information dialog"
        Set psToolTipTitle to "Help"
        Set piToolTipIcon to TTI_INFO

        //AB-StoreStart
        Procedure OnClick
            Send Popup To oSysInfo
        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 oEdit1 is a Edit

        //AB-StoreTopStart
        Set Read_Only_State To True
        Set Scroll_Bar_Visible_State To False
        Set FontSize To 18 0
        Set FontWeight To 800
        Set TextColor To 213
        //AB-StoreTopEnd

        Set Size to 35 210
        Set Location to 28 5

        //AB-StoreStart
        Set Value Item 0 To "This sample application provides you with the technique of using extended Windows API controls."
        //AB-StoreEnd

    End_Object    // oEdit1

    Object oGroup1 is a Group
        Set Size to 56 210
        Set Location to 63 5
        Object oTextBox1 is a Textbox
            Set Label to " Credits and support "
            Set TextColor to clNavy
            Set Location to -1 65
            Set Size to 10 69
            Set FontWeight to 800
            Set TypeFace to "MS Sans Serif"
        End_Object    // oTextBox1

        Object oWinLink1 is a cWinLink
            Set Location to 7 8
            Set Size to 12 73
            Set TextColor to clNavy
            Set pbHotTrack to TRUE
            Set Visited_Color to clNavy
            Set Label to "Sergey V. Natarov"
            Set TypeFace to "MS Sans Serif"
            Set FontUnderline to TRUE
            Set LinkTextAlign to BTA_LEFT
            Set piCursor to BUTTON_IDC_HAND
            Set psToolTip to "Click to send email"
            Set piToolTipIcon to TTI_INFO
            Set psURL to "mailto:senatc@postman.ru?Subject=cWindowsEx"
            Set Pointer_Only_State to TRUE

            //AB-StoreStart
                                                                                                    
            //AB-StoreEnd

        End_Object    // oWinLink1

        Object oWinLink2 is a cWinLink
            Set Location to 18 8
            Set Size to 12 73
            Set TextColor to clNavy
            Set pbHotTrack to TRUE
            Set Visited_Color to clNavy
            Set Label to "Wil van Antwerpen"
            Set TypeFace to "MS Sans Serif"
            Set FontUnderline to TRUE
            Set LinkTextAlign to BTA_LEFT
            Set piCursor to BUTTON_IDC_HAND
            Set psToolTip to "Click to send email"
            Set piToolTipIcon to TTI_INFO
            Set psURL to "mailto:info@antwise.com?Subject=cWindowsEx"
            Set Pointer_Only_State to TRUE

            //AB-StoreStart
                                                                                                        
            //AB-StoreEnd

        End_Object    // oWinLink2

        Object oWinLink3 is a cWinLink
            Set Location to 42 48
            Set Size to 11 113
            Set TextColor to 213
            Set pbHotTrack to TRUE
            Set Visited_Color to 213
            Set Label to "Share you knowledge worldwide!"
            Set TypeFace to "MS Sans Serif"
            Set FontUnderline to TRUE
            Set piCursor to BUTTON_IDC_HAND
            Set psToolTip to "Your ultimate guide into the open-source DataFlex world... Join Us!"
            Set psToolTipTitle to "Visit us on the Web!"
            Set piToolTipIcon to TTI_INFO
            Set psURL to "http://www.vdf-guidance.com"
            Set Pointer_Only_State to TRUE
            Set Border_Color To clBlack

            //AB-StoreStart
                                                                                                        
            //AB-StoreEnd

        End_Object    // oWinLink3

        Object oWinLink4 is a cWinLink
            Set Location to 18 130
            Set Size to 12 73
            Set TextColor to clNavy
            Set pbHotTrack to TRUE
            Set Visited_Color to clNavy
            Set Label to "Oliver T. Nelson"
            Set TypeFace to "MS Sans Serif"
            Set FontUnderline to TRUE
            Set LinkTextAlign to BTA_RIGHT
            Set piCursor to BUTTON_IDC_HAND
            Set psToolTip to "Click to send email"
            Set piToolTipIcon to TTI_INFO
            Set psURL to "mailto:oliver@ootbc.net?Subject=cWindowsEx"
            Set Pointer_Only_State to TRUE
            Set Border_Color to clBlack

            //AB-StoreStart
                                                                                                            
            //AB-StoreEnd

        End_Object    // oWinLink4

        Object oWinLink5 is a cWinLink
            Set Location to 7 130
            Set Size to 12 73
            Set TextColor to clNavy
            Set pbHotTrack to TRUE
            Set Visited_Color to clNavy
            Set Label to "Bernhard Ponemayr"
            Set TypeFace to "MS Sans Serif"
            Set FontUnderline to TRUE
            Set LinkTextAlign to BTA_RIGHT
            Set piCursor to BUTTON_IDC_HAND
            Set psToolTip to "Click to send email"
            Set piToolTipIcon to TTI_INFO
            Set psURL to "mailto:bernhard.ponemayr@comtech.at?Subject=cWindowsEx"
            Set Pointer_Only_State to TRUE
            Set Border_Color To clBlack

            //AB-StoreStart
                                                                                                        
            //AB-StoreEnd

        End_Object    // oWinLink5

        Object oWinLink6 is a cWinLink
            Set Location to 30 8
            Set Size to 12 73
            Set TextColor to clNavy
            Set pbHotTrack to TRUE
            Set Visited_Color to clNavy
            Set Label to "Chris Spenser"
            Set TypeFace to "MS Sans Serif"
            Set FontUnderline to TRUE
            Set LinkTextAlign to BTA_LEFT
            Set piCursor to BUTTON_IDC_HAND
            Set psToolTip to "Click to send email"
            Set piToolTipIcon to TTI_INFO
            Set psURL to "mailto:Chris@tufware.com.au?Subject=cWindowsEx"
            Set Pointer_Only_State to TRUE
            Set Border_Color to clBlack

            //AB-StoreStart
                                                                                                            
            //AB-StoreEnd

        End_Object    // oWinLink6

        Object oWinLink7 is a cWinLink
            Set Location to 30 130
            Set Size to 12 73
            Set TextColor to clNavy
            Set pbHotTrack to TRUE
            Set Visited_Color to clNavy
            Set Label to "Nils G. Svedmyr"
            Set TypeFace to "MS Sans Serif"
            Set FontUnderline to TRUE
            Set LinkTextAlign to BTA_RIGHT
            Set piCursor to BUTTON_IDC_HAND
            Set psToolTip to "Click to send email"
            Set piToolTipIcon to TTI_INFO
            Set psURL to "mailto:nils.svedmyr@crossmerge.com?Subject=cWindowsEx"
            Set Pointer_Only_State to TRUE
            Set Border_Color to clBlack

            //AB-StoreStart
                                                                                                                
            //AB-StoreEnd

        End_Object    // oWinLink7

    End_Object    // oGroup1

    Object oWinButton2 is a cWinButton
        Set Location to 125 127
        Set Size to 15 55
        Set Color to 13492159
        Set TextColor to 65793
        Set Gradient_Mode to GRADIENT_TOPBOTTOM
        Set GradientFromColor to clWhite
        Set GradientToColor to clDkGray
        Set Label to "&Close"
        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"
        Set psToolTipTitle to "Help"
        Set piToolTipIcon to TTI_INFO

        //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    // oWinButton2


    //AB-StoreStart
                            
    //AB-StoreEnd

CD_End_Object    // oAbout


//AB-StoreStart

//AB-StoreEnd

//AB/ End_Object    // oIDE_Project