DataFlex Source code formatting: Difference between revisions

From DataFlex Wiki
Jump to navigationJump to search
Jka (talk | contribs)
No edit summary
m use dataflex source tag, not vdf
 
(8 intermediate revisions by 2 users not shown)
Line 1: Line 1:
= Testing GeSHI source code highlight =
= Testing [https://github.com/wilva/SyntaxHighlighter SyntaxHighlighter] source code highlight =
<source lang="csharp">
<source lang="csharp">
// Hello World in Microsoft C# ("C-Sharp").
// Hello World in Microsoft C# ("C-Sharp").
Line 5: Line 5:
using System;
using System;


class HelloWorl=
class HelloWorld
{
{
     public static int Main(String[] args)
     public static int Main(String[] args)
Line 17: Line 17:




<source lang="vdf">
<source lang="dataflex">
   showln "hello world"
//vdf code test
Object oMyEditor is a cMyEdit
  Set Size to 126 287
  Set Location to 5 5
End_Object // oMyEditor
 
</source>
 
<source lang="dataflex">
Use Windows.pkg
Use DFClient.pkg
Use cReportControlGrid.pkg
//Use cBaseReportControlGrid.pkg
 
External_Function32 HtmlShellExecute "ShellExecuteA" SHELL32.DLL ;
    Handle hwnd# String lpszOp# String lpszFile# String lpszParams# ;
    String lpszDir# Integer FsShowCmd# Returns Integer 
 
Procedure StartFile Global String doc#
    Integer grb#
    Handle scrhDC#
    String dir#
    Move (GetDesktopWindow()) to scrhDC# // Defined in WinUser.pkg
    Move (HtmlShellExecute(scrhDC#,"Open",doc#,"",dir#,1)) to grb#
    Procedure_Return grb#
End_Procedure // StartFile
                   
Activate_View Activate_oReportGridWithButtonsView for oReportGridWithButtonsView
Object oReportGridWithButtonsView is a dbView
 
    Property Handle phoReportControl 0    // Used by the FieldChooser.dg to connect to the ReportGrid.
 
    // Visual DataFlex 14.0 Client Size Adjuster, modified June 5, 2008: 13:47:51
//    Set Size to 470 709
    Set Size to 450 704
    Set Location to -6 -199
    Set Border_Style to Border_Thick
    Set Label to "ReportControlGrid Test with Buttons"
    Set Maximize_Icon to True
 
    Use FieldChooser.dg                // Note: USEd here because it needs access to the phoReportControl property.
 
    Object oFieldChooser_grp is a Group
        Set Size to 35 247
        Set Location to 2 8
        Set Label to "Add/Remove Columns"
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Object oFieldChooser_bn is a Button
            Set Size to 21 70
            Set Location to 10 7
            Set Label to "Removed Columns List"
            Set MultiLineState to True
            Set Typeface to "Tahoma"
            Set FontSize to 14 0
       
            Procedure OnClick
                //Send PopupFieldChooser of (phoReportControl(Self))
               
                Send Popup Of oFieldChooserPanel
            End_Procedure // OnClick
       
        End_Object // oFieldChooser_bn
 
        Object oColumnHint_tb is a TextBox
            Set Auto_Size_State to False
            Set Size to 16 139
            Set Location to 10 82
            Set Label to "You can remove column headers by drag and drop  to here."
            Set FontWeight to 700
            Set Justification_Mode to JMode_Left
            Set Typeface to "Arial"
            Set FontSize to 16 0
            Set Typeface to "Tahoma"
            Set FontSize to 14 0
        End_Object // oColumnHint_tb
    End_Object
 
 
    Object oGridHint_grp is a Group
        Set Size to 35 178
        Set Location to 2 416
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Object oGridHint_tb is a TextBox
            Set Auto_Size_State to False
            Set Size to 16 139
            Set Location to 10 8
            Set Label to "Hint: Hit button number 40, 47 or 54 to activate the OnClick event."
            Set FontWeight to 700
            Set FontSize to 16 0
            Set Justification_Mode to JMode_Left
            Set Typeface to "Arial"
            Set Typeface to "Tahoma"
            Set FontSize to 14 0
        End_Object // oGridHint_tb   
       
    End_Object
 
    Object Settings_Skin_VT is a ValidationTable
        Procedure Fill_List
            Forward Send Fill_List
            Send Add_Table_Value  "Office 2000"
            Send Add_Table_Value  "Office XP"
            Send Add_Table_Value  "Office 2003"
            Send Add_Table_Value  "Windows XP"
            Send Add_Table_Value  "Visual Studio 2005"
            Send Add_Table_Value  "Office 2007"
            Send Add_Table_Value  "Ribbon"
        End_Procedure    // Fill_List
    End_Object  // Settings_Skin_VT
 
    Object oReportControlGridButtons is a cReportControlGrid
        Delegate Set phoReportControl to Self  // Panel property used by the FieldChooser object.
 
        Set Size to 423 353
        Set Location to 44 8
        Set piHeaderStyle to OLExtpColumnOffice2003
        Set peAnchors to anAll
        Set BorderStyle to OLExtpBorderClientEdge
        Set piCustomDraw to OLExtpCustomBeforeDrawRow
        Set TextColor to clNavy
        Set pbAllowColumnRemove to True
 
        Set Status_Help to "This is a Report Object with push buttons test."
        Set psWatermarkBitmap to "Watermark.bmp"
        Set piWatermarkTransparancy to 10       
        Set piWatermarkAlignment to OLExtpReportWatermarkLeft
        Set FooterVisibleState to True
        Set HeaderJustificationMode to (OLExtpAlignmentLeft + OLExtpAlignmentVCenter)
        Set piReportGridStyle to OLExtpGridSmallDots
        Set pbAutoColumnSizing to True
        Set pbDeleteAllowed to False
        Set Color to clWhite
 
        Procedure OnCreateGrid 
            Send AddIcons
            Send AddColumns     
            Send FillGrid 
        End_Procedure // OnCreateGrid
 
        // *** Add icons to by used by the grid: ***           
        Procedure AddIcons
            Integer iRetval 
           
            // First Add icon(s) for the columns;
            //  'Set HeaderIcon item iItem to RC_IconHeaderColumn'
            Get AddImage "FindNext016N32.ico" RC_IconHeaderColumn to iRetval
 
            // Add icons that will be used with the messages;
            //  Set Icon item iItem to RC_IconNormal // For an item/cell in the grid.
            //  The RC_IconNormal etc. enumerations can be found at top of cReportControlGrid.pkg
           
            // You can use any one of these icon pair sizes for buttons; from 16x16 -> 48x48 pixels.
            // But 16x16 icons is the biggest icon size that can be used for grid buttons if
            // pbFixedRowHeight = True!
            // Get AddImage "Button016N08.ico"  RC_ButtonNormal      to iRetval // 16x16
            // Get AddImage "Button016P08.ico"  RC_ButtonPressed      to iRetval
            Get AddImage "Button024N08.ico"  RC_ButtonNormal      to iRetval // 24x24
            Get AddImage "Button024P08.ico"  RC_ButtonPressed      to iRetval
            // Get AddImage "Button032N08.ico"  RC_ButtonNormal      to iRetval    // 32x32
            // Get AddImage "Button032P08.ico"  RC_ButtonPressed      to iRetval
            // Get AddImage "Button048N08.ico"  RC_ButtonNormal      to iRetval // 48x48
            // Get AddImage "Button048P08.ico"  RC_ButtonPressed      to iRetval
        End_Procedure // AddIcons
       
        // *** Create All Columns: ***
        Procedure AddColumns
            Handle  hColumn 
            Integer iRetval
           
            Get AddColumn "Combobox" to hColumn
                Set HeaderToolTip                    item hColumn to "Click on the header to sort grid on this column"
                Set HeaderIcon                      item hColumn to RC_IconHeaderColumn
                Set ColumnJustificationMode          item hColumn to (OLExtpAlignmentLeft + OLExtpAlignmentVCenter)
                Set FooterLabel                      item hColumn to "Footer 1"
                Set ColumnComboState                item hColumn to True
                // Note: The ColumnComboListObject is an overloaded message, which will allow us to
                //      either pass a true/false parameter at the end, or not to.         
                //      Compare this example with the one in ReportControlWithDataTest.vw.
                Set ColumnComboListObject            item hColumn to (Settings_Skin_VT(Self))
                Set pbColumnGroupable                item hColumn to True
 
            Get AddColumn "Numeric" to hColumn
                Set ColumnNumericState              item hColumn to True
                Set HeaderToolTip                    item hColumn to "Header_Column_Justification_Mode set to right justification"
                Set FooterLabel                      item hColumn to "Footer 2"
                Set HeaderWidth                      item hColumn to 80
                Set pbColumnGroupable                item hColumn to True
 
            Get AddColumn "Checkbox" to hColumn
                Set ColumnJustificationMode          item hColumn to (OLExtpAlignmentLeft + OLExtpAlignmentVCenter)
                Set FooterLabel                      item hColumn to "Footer 3"
                Set HeaderWidth                      item hColumn to 120
                Set ColumnCheckboxState              item hColumn to True
                Set pbColumnGroupable                item hColumn to True
                               
            Get AddColumn "Uppercase" to hColumn
                Set ColumnCapsLockState              item hColumn to True
                Set HeaderToolTip                    item hColumn to "Entered characters are uppercased."
                Set FooterLabel                      item hColumn to "Footer 4"
                Set HeaderWidth                      item hColumn to 80
                Set pbColumnGroupable                item hColumn to True
 
            Get AddColumn "Shadowed" to hColumn
                Set HeaderIcon                      item hColumn to RC_IconHeaderColumn
                Set ColumnJustificationMode          item hColumn to (OLExtpAlignmentLeft + OLExtpAlignmentVCenter)
                Set ColumnShadowState                item hColumn to True
                Set FooterLabel                      item hColumn to "Footer 5"
                Set pbColumnGroupable                item hColumn to True
               
//            Get AddColumn "Button" to hColumn
//                Set ColumnJustificationMode          item hColumn to (OLExtpAlignmentLeft + OLExtpAlignmentVCenter + OLExtpAlignmentIconRight)
//                Set ColumnButtonState                item hColumn to True
//                // Note: If you don't provide a tooltip, the tooltip will be constructed with
//                // the Property psSortByText plus the header_label text.
//                Set HeaderTooltip                    item hColumn to "This is a tooltip for the button column "
//                Set FooterLabel                      item hColumn to "Footer 5" 
//                Set pbColumnGroupable                item hColumn to True
            // Make these two columns 'invisible'! I.e. don't show them when the grid
            // is presented. Rather the user needs to press the 'Remove Columns Popup List',
            // and drag&drop them to the grid header.
            // Note: There is also a column property named 'pbShowColumnInFieldChooser'. It
            //      will decide if the 'invisible' column will show up in the FieldChooser
            //      object or not. Furthermore, if the 'pbShowColumnInFieldChooser' is not
            //      expicitly set for a column, it will be set to the value of the grid level
            //      property 'pbShowAllColumnsInFieldChooser'. That property is by default True.
            Get AddColumn "Column 6" to hColumn
                Set pbColumnVisible                  item hColumn to False
                Set pbColumnGroupable                item hColumn to True
            Get AddColumn "Column 7" to hColumn
                Set pbColumnVisible                  item hColumn to False
                Set pbColumnGroupable                item hColumn to True
           
        End_Procedure // AddColumns
 
        // *** Fill the grid with data: ***       
        Procedure FillGrid
            Handle  hColumn hRow  iItem
            Boolean bState
            Integer i j iCols iRows iRetval iItems
                             
            Send Cursor_Wait of Cursor_Control
            Get Col_Count to iCols  // The class function is similar to Row_Count and ItemCount.
           
            Move 500 to iRows           
           
            For i from 1 to iRows
           
                // *** Create Items/Cells for each row ***
                // By using a double loop it's easy to know at what column we currently are:
                For j from 1 to iCols
                    Get Add_Item "" to iItem
                                           
                    // Set sample properties for items:
                    If (j = 1) Begin      // Combobox column:
                        Set Value            item iItem to ("Text " + String(ItemCount(Self)))            // Sample item text.
                        Set ToolTip          item iItem to ("Tooltip for Text item (no Button) " + String(piCells(Self))) // Sample Tooltip item text.
                    End       
                    Else If (j = 2) Begin // Numeric column:
                        Set Value            item iItem to ("Our Label:"*(ItemCount(Self)))
                        Set pbBold            item iItem to True
                        Set ToolTip          item iItem to "Tooltip for a numeric column."
                        Set psGroupCaption    item iItem to (ItemCount(Self))
                    End
                    Else If (j = 3) Begin // Checkbox column:
                        Set Value            item iItem to ("Checkbox " + String(ItemCount(Self)))            // Sample checkbox.
                        Set ToolTip          item iItem to ("Tooltip for checkbox " + String(piCells(Self))) // Sample Tooltip item text.
                    End
                    Else If (j = 4) Begin // Text column:
                        Set Value            item iItem to ("Text" * String(ItemCount(Self)))
                        Set ToolTip          item iItem to "Tooltip for a text column."
                    End
                    Else If (j = 5) Begin // Shadowed column:
                        Set Value            item iItem to ("Text " + String(ItemCount(Self)))            // Sample item text.
                        Set ToolTip          item iItem to "Tooltip for a shadowed column. You cannot navigate to this column."
                    End
//                    Else If (j = 5) Begin // Button column:
//                        Set Value            item iItem to ("Button " + String(ItemCount(Self)))            // Sample item text.
//                        Set ToolTip          item iItem to ("Tooltip for button " + String(ItemCount(Self))) // Sample Tooltip item text.
//                    End
                    Else Begin            // Hidden column(s):
                        Set Value            item iItem to ("Button " + String(ItemCount(Self)))            // Sample item text.
                        Set ToolTip          item iItem to ("Tooltip for button " + String(ItemCount(Self))) // Sample Tooltip item text.
                    End
                Loop // For j from 0 to iCols
            Loop // For i from 0 to iRows
 
            // Don't forget! Else the grid content will not be visible!
            Send Populate
            Send Cursor_Ready of Cursor_Control
 
        End_Procedure // FillGrid
                           
        // The OnClick event will fire when an item that has been set to pbButton in the
        // grid is clicked.
        Procedure OnClick String sCaption
            Integer iItem 
           
            If (sCaption = "Button 40") Begin
                Send info_box (sCaption * "was pressed.")
            End
            If (sCaption = "Button 47") Begin
                Send info_box (sCaption * "was pressed.")
            End     
           
            // OR you can use the Current_Item property:
            Get CurrentItem to iItem
            If (iItem = 53) Begin // Items are zero based. (Text on this button reads '53')
                Send Info_Box (String(sCaption) * "was pressed. In this case the 'Current_Item' property was used in the OnClick event.")
            End         
        End_Procedure // OnClick 
 
    End_Object // oReportControlGridButtons
 
    Object oAbout_bn is a Button
        Set Size to 14 100
        Set Location to 6 602
        Set Label to "About Report Control"
        Set MultiLineState to True
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
        Procedure OnClick
            Send AboutBox to (phoReportControl(Self))
        End_Procedure
    End_Object // oAbout_bn       
 
    Object oHelp_bn is a Button
        Set Size to 14 100
        Set Location to 20 602
        Set Label to "Class Help"
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
   
        // fires when the button is clicked
        Procedure OnClick
            Send Cursor_Wait  of Cursor_Control // Change to cursor wait
            Send StartFile (psHelpPath(phoWorkspace(ghoApplication)) + "\ClassReference.htm")
            Send Cursor_Ready of Cursor_Control // Reset cursor state
        End_Procedure // OnClick
   
    End_Object
 
    Object oDeleteAll_bn is a Button
        Set Size to 14 100
        Set Location to 42 602
        Set Label to "Send DeleteData"
        Set peAnchors to anTopRight
        Set MultiLineState to True
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
   
        Procedure OnClick
            Handle hoReportGrid
            Integer iRow iCurrent
            Get phoReportControl to hoReportGrid
            Get CurrentRow    of hoReportGrid to iRow 
            Get CurrentItem  of hoReportGrid to iCurrent
            Send DeleteData  to hoReportGrid
            Send Info_Box ("The current row was:" * String(iRow) * "(zero based, a value of -1 means that the grid was empty.)" * "\nThe current item was" * String(iCurrent))
        End_Procedure // OnClick
   
    End_Object // oDeleteAll_bn
 
    Object oFillGrid_bn is a Button
        Set Size to 14 100
        Set Location to 57 602
        Set Label to "Send FillGrid"
        Set peAnchors to anTopRight
        Set MultiLineState to True
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
   
        Procedure OnClick
            Handle hoReportGrid
            Integer iItems iRows iCols
            DateTime dtStart dtEnd
            TimeSpan tsTime                   
           
            Get phoReportControl to hoReportGrid
            Get ItemCount    of hoReportGrid to iItems
            Get RowCount      of hoReportGrid to iRows 
           
            If (iItems > 0) Begin
                Send Info_Box ("The grid contains" * String(iItems) * "items/cells in" * String(iRows) * "rows and thus data cannot be re-created. (Tip: Delete data first.)")
                Procedure_Return 
            End   
            Get ColCount      of hoReportGrid to iCols
            If (iCols = 0) Begin
                Move (CurrentDateTime()) to dtStart
                Send AddColumns to hoReportGrid
            End
            Else Begin
                Move (CurrentDateTime()) to dtStart
            End
           
            Send FillGrid to hoReportGrid
            Move (CurrentDateTime())      to dtEnd
            Move (dtEnd - dtStart)        to tsTime
            Get ItemCount of hoReportGrid to iItems
            Get RowCount  of hoReportGrid to iRows
 
            Send Info_Box ("The grid was filled with" * String(iItems) * "items/cells in" * String(iRows) * "rows in" * String((SpanSeconds(tsTime))) +"," + String((SpanMilliseconds(tsTime))) * "seconds")
        End_Procedure // OnClick
   
    End_Object // oFillGrid_bn
 
    Object oInitializeGrid_bn is a Button
        Set Size to 14 100
        Set Location to 72 602
        Set Label to "Send InitializeGrid"
        Set peAnchors to anTopRight
        Set MultiLineState to True
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
   
        Procedure OnClick
            Handle hoReportGrid
            Integer iRetval
            Get YesNo_Box "This will remove all data and also all columns and headers. Continue?" to iRetval
            If (iRetval = MBR_No) Procedure_Return
            Get phoReportControl to hoReportGrid
            Send InitializeGrid of hoReportGrid
        End_Procedure // OnClick
   
    End_Object
 
    Object oEnabledState_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 43 494
        Set Label to "EnabledState"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
   
        Procedure OnChange
            String sValue
            Get Value                                        to sValue
            Set EnabledState of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object opbEnableToolTips_cf is a cNoChangeUpstartComboForm
        Set Size to 15 100
        Set Location to 58 494
        Set Label to "pbEnableToolTips"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
       
        Procedure OnChange
            String sValue
            Get Value                                    to sValue
            Set pbEnableToolTips of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object oBorderStyle_cf is a cNoChangeUpstartComboForm
        Set Size to 15 100
        Set Location to 73 494
        Set Label to "BorderStyle"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "OLExtpBorderNone"
            Send Combo_Add_Item "OLExtpBorderFlat"
            Send Combo_Add_Item "OLExtpBorderStaticEdge"
            Send Combo_Add_Item "OLExtpBorderClientEdge"
            Send Combo_Add_Item "OLExtpBorderFrame"
            Set Value        to "OLExtpBorderClientEdge" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue iMode
            Get Value                                  to iValue
            Set BorderStyle of (phoReportControl(Self)) to iValue
        End_Procedure
   
    End_Object
 
    Object oGridlineMode_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 97 494
        Set Label to "GridlineMode"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Grid_Visible_None"
            Send Combo_Add_Item "Grid_Visible_Horz"
            Send Combo_Add_Item "Grid_Visible_Vert"
            Send Combo_Add_Item "Grid_Visible_Both"
            Set Value        to "Grid_Visible_Both" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue iMode
            Get Value of oReportGridStyle_cf              to iValue
            Set piReportGridStyle of (phoReportControl(Self)) to iValue
            Get Value                                      to iMode
            Set GridlineMode      of (phoReportControl(Self)) to iMode
        End_Procedure
   
    End_Object // oReportGridStyle
 
    Object oReportGridStyle_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 111 494
        Set Label to "piReportGridStyle"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "OLExtpGridSmallDots"
            Send Combo_Add_Item "OLExtpGridLargeDots"
            Send Combo_Add_Item "OLExtpGridDashes"
            Send Combo_Add_Item "OLExtpGridSolid"
            Set Value        to "OLExtpGridSolid" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue iMode
            Get Value                                      to iValue
            Set piReportGridStyle of (phoReportControl(Self)) to iValue
            Get Value of oGridlineMode_cf                to iMode
            Set GridlineMode      of (phoReportControl(Self)) to iMode
        End_Procedure
   
    End_Object // oReportGridStyle_cf
 
    Object opeGridLineColor_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 126 494
        Set Label to "peGridLineColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clBlue" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue
            Get Value                                    to iValue
            Set peGridLineColor of (phoReportControl(Self)) to iValue
        End_Procedure
   
    End_Object
   
    Object opiHeaderStyle_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 140 494
        Set Label to "piHeaderStyle"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "OLExtpColumnShaded"
            Send Combo_Add_Item "OLExtpColumnExplorer"
            Send Combo_Add_Item "OLExtpColumnOffice2003"
            Send Combo_Add_Item "OLExtpColumnOffice2007"
            Set Value        to "OLExtpColumnOffice2003" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue
            Get Value                                  to iValue
            Set piHeaderStyle of (phoReportControl(Self)) to iValue
        End_Procedure
   
    End_Object
 
    Object oHeaderVisibleState_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 155 494
        Set Label to "HeaderVisibleState"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
   
        Procedure OnChange
            String sValue
            Get Value                                      to sValue
            Set HeaderVisibleState of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object oFooterVisibleState_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 170 494
        Set Label to "FooterVisibleState"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
   
        Procedure OnChange
            String sValue
            Get Value                                      to sValue
            Set FooterVisibleState of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object opbFixedRowHeight_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 196 494
        Set Label to "pbFixedRowHeight"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "No" // Default value.
        End_Procedure
       
        // The button cell icons will disappear when set to Yes if
        // the icon size has been set to larger than 16x16.
        Procedure OnChange
            String sValue
            Get Value                                    to sValue
            Set pbFixedRowHeight of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object oColor_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 211 494
        Set Label to "Color"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "clDefault"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clDefault" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue
            Get Value                          to iValue
            Set Color of (phoReportControl(Self)) to iValue
        End_Procedure
   
    End_Object
 
    Object oTextColor_cf is a cNoChangeUpstartComboForm
        Set Size to 15 100
        Set Location to 227 494
        Set Label to "TextColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "clDefault"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clDefault" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue
            Get Value                                    to iValue
            Set TextColor of (phoReportControl(Self)) to iValue
        End_Procedure
   
    End_Object
 
    Object oHighlightRowState_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 252 494
        Set Label to "HighlightRowState"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
   
        Procedure OnChange
            String sValue
            Get Value                                      to sValue
            Set HighlightRowState of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object oCurrentRowColor_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 267 494
        Set Label to "CurrentRowColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "clDefault"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clDefault" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue     
            Get Value                                    to iValue
            Set CurrentRowColor of (phoReportControl(Self)) to iValue
        End_Procedure
   
    End_Object                                     
   
    Object oCurrentRowTextColor_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 281 494
        Set Label to "CurrentRowTextColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "clDefault"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clDefault" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue
            Get Value                                    to iValue
            Set CurrentRowTextColor of (phoReportControl(Self)) to iValue
        End_Procedure
   
    End_Object
 
    Object oCurrentRowColorNoGridFocus_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 297 494
        Set Label to "CurrentRowColorNoGridFocus"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "clDefault"
            Send Combo_Add_Item "clNone"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clDefault" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue iColor
            Get Value of oCurrentRowColor_cf                        to iColor
            Get Value                                              to iValue
            Set CurrentRowColorNoGridFocus of (phoReportControl(Self)) to iValue
            Set CurrentRowColor            of (phoReportControl(Self)) to iColor
        End_Procedure
   
    End_Object
 
    Object oCurrentRowTextColorNoGridFocus_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 312 494
        Set Label to "CurrentRowTextColorNoGridFocus"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "clDefault"
            Send Combo_Add_Item "clNone"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clDefault" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue iColor
            Get Value of oCurrentRowTextColor_cf                        to iColor
            Get Value                                                  to iValue
            Set CurrentRowTextColorNoGridFocus of (phoReportControl(Self)) to iValue
            Set CurrentRowTextColor            of (phoReportControl(Self)) to iColor
        End_Procedure
   
    End_Object
 
    Object oResizeColumnState_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 338 494
        Set Label to "ResizeColumnState"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
       
        Procedure OnChange
            String sValue
            Get Value                                      to sValue
            Set ResizeColumnState of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object opbShadeSortColumn_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 352 494
        Set Label to "pbShadeSortColumn "
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "No" // Default value.
        End_Procedure
   
        Procedure OnChange
            String sValue
            Get Value                                      to sValue
            Set pbShadeSortColumn of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object opbAllowAllColumnSort_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 367 494
        Set Label to "pbAllowAllColumnSort"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
   
        Procedure OnChange
            String sValue
            Get Value                                        to sValue
            Set pbAllowAllColumnSort of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object opbAllowColumnReorder_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 382 494
        Set Label to "pbAllowColumnReorder"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
   
        Procedure OnChange
            String sValue
            Get Value                                        to sValue
            Set pbAllowColumnReorder of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object opbAllowColumnRemove_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 397 494
        Set Label to "pbAllowColumnRemove"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
   
        Procedure OnChange
            String sValue
            Get Value                                        to sValue
            Set pbAllowColumnRemove of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object oColumnsGroupable_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 338 602
        Set Label to "pbColumnsGroupable"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
       
        Procedure OnChange
            String sValue
            Get Value                                      to sValue
            Set pbColumnsGroupable of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object opiButtonDownColor_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 422 494
        Set Label to "piButtonDownColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "clNone"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clAqua" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue
            Get Value                                      to iValue
            Set piButtonDownColor of (phoReportControl(Self)) to iValue
        End_Procedure
   
    End_Object       
   
    Object opiButtonDownTextColor_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 436 494
        Set Label to "piButtonDownTextColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "clNone"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clGray" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue
            Get Value                                    to iValue
            Set piButtonDownTextColor of (phoReportControl(Self)) to iValue
        End_Procedure
   
    End_Object       
   
    Object opiButtonBackColor_cf is a cNoChangeUpstartComboForm
        Set Size to 15 100
        Set Location to 451 494
        Set Label to "piButtonBackColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "clNone"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clNone" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iValue
            Get Value                                      to iValue
            Set piButtonBackColor of (phoReportControl(Self)) to iValue
        End_Procedure
   
    End_Object
 
    Object oVerify_Delete_Msg_cf is a cNoChangeUpstartComboForm
        Set Size to 15 100
        Set Location to 422 602
        Set Label to "Verify_Delete_Msg"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "get_Delete_Confirmation"
            Send Combo_Add_Item "get_Line_Delete_Confirmation"
            Send Combo_Add_Item "get_No_Confirmation"
            Set Value        to "get_Delete_Confirmation" // Default value.
        End_Procedure
   
        Procedure OnChange
            Integer iMode
            Get Value                                      to iMode
            Set Verify_Delete_Msg of (phoReportControl(Self)) to iMode
        End_Procedure
   
    End_Object
 
    Object oCopyCutPasteHint_grp is a Group
        Set Size to 35 147
        Set Location to 2 262
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Object oCopyCutPasteHint_tb is a TextBox
            Set Auto_Size_State to False
            Set Size to 16 115
            Set Location to 10 8
            Set Label to "Use Ctrl+X, Ctrl+C and Ctrl+V to Cut, Copy and Paste rows."
            Set FontWeight to 700
            Set FontSize to 16 0
            Set Justification_Mode to JMode_Left
            Set Typeface to "Arial"
            Set Typeface to "Tahoma"
            Set FontSize to 14 0
        End_Object // oGridHint_tb
    End_Object
 
    Object oCalcRowColumnFromItemNumber_bn is a Button
        Set Size to 27 100
        Set Location to 97 602
        Set Label to "RowColumn From ItemNumber"
        Set peAnchors to anTopRight
        Set MultiLineState to True
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
   
        Procedure OnClick
            Handle ho
            Integer iRow iCol iItem
            Get phoReportControl to ho
            Get CurrentItem   of ho to iItem
            Get RowNumberFromItemNumber    of ho iItem to iRow
            Get ColumnNumberFromItemNumber of ho iItem to iCol
            Send Info_Box ("Check of translation functions: 'RowNumberFromItemNumber' and 'ColumnNumberFromItemNumber'.\nThe current item is:" * String(iItem) * "The current row is:" * String(iRow) * "And the current column is:" * String(iCol) + "\n\n(Note: Item numbers, Rows and Columns are zero based.)")
        End_Procedure // OnClick
   
    End_Object
 
    Object oPrintHint_grp is a Group
        Set Size to 44 100
        Set Location to 136 602
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Object oPrintHint_tb is a TextBox
            Set Auto_Size_State to False
            Set Size to 27 79
            Set Location to 10 5
            Set Label to "Try the 'Report' menu to preview/print the grid."
            Set FontWeight to 700
            Set FontSize to 16 0
            Set Justification_Mode to JMode_Left
            Set Typeface to "Arial"
        End_Object // oPrintHint_tb
    End_Object
 
    Object oTypeface_cf is a cNoChangeUpstartComboForm
        Set Size to 16 100
        Set Location to 196 602
        Set Label to "Typeface"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            send Combo_Add_Item "RC_DefaultTypeface"
            Send Combo_Add_Item "Tahoma"         
            Send Combo_Add_Item "Arial"
            Send Combo_Add_Item "MS Sans Serif"
            Set Value        to "RC_DefaultTypeface" // Default value.
        End_Procedure
   
        Procedure OnChange
            String sValue
            Get Value                                to sValue
            Set Typeface of (phoReportControl(Self)) to sValue
        End_Procedure
   
    End_Object
 
    Object oFontSize_cf is a cNoChangeUpstartComboForm
        Set Size to 16 100
        Set Location to 227 602
        Set Label to "FontSize"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "RC_DefaultFontSize"
            Send Combo_Add_Item "7"         
            Send Combo_Add_Item "8"
            Send Combo_Add_Item "9"
            Send Combo_Add_Item "10"
            Send Combo_Add_Item "11"
            Send Combo_Add_Item "12"
            Set Value        to "RC_DefaultFontSize" // Default value.
        End_Procedure
 
        Procedure OnChange
            String sValue
            Get Value                                to sValue
            Set FontSize of (phoReportControl(Self)) to (Eval(sValue))
        End_Procedure
   
    End_Object
 
    Object oShowItemsInGroups_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 367 602
        Set Label to "pbShowItemsInGroups"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
       
        Procedure OnChange
            String sValue
            Get Value                                      to sValue
            Set pbShowItemsInGroups of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object oShadeGroupHeadings_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 252 602
        Set Label to "pbShadeGroupHeadings"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
       
        Procedure OnChange
            String sValue
            Get Value                                      to sValue
            Set pbShadeGroupHeadings of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
 
    Object oSkipGroupsFocus_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 397 602
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
        Set Label to "pbSkipGroupsFocus"
 
        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
       
        Procedure OnChange
            String sValue
            Get Value                                      to sValue
            Set pbSkipGroupsFocus of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
   
    End_Object
   
End_Object // oReportGridWithButtonsView
 
 
</source>
</source>

Latest revision as of 10:00, 21 August 2019

Testing SyntaxHighlighter source code highlight

// Hello World in Microsoft C# ("C-Sharp").

using System;

class HelloWorld
{
    public static int Main(String[] args)
    {
        Console.WriteLine("Hello, World!");
        return 0;
    }
}


//vdf code test
Object oMyEditor is a cMyEdit
   Set Size to 126 287
   Set Location to 5 5
End_Object // oMyEditor

Use Windows.pkg
Use DFClient.pkg
Use cReportControlGrid.pkg
//Use cBaseReportControlGrid.pkg

External_Function32 HtmlShellExecute "ShellExecuteA" SHELL32.DLL ;
    Handle hwnd# String lpszOp# String lpszFile# String lpszParams# ;
    String lpszDir# Integer FsShowCmd# Returns Integer  
  
Procedure StartFile Global String doc#
    Integer grb#
    Handle scrhDC#
    String dir#
    Move (GetDesktopWindow()) to scrhDC# // Defined in WinUser.pkg
    Move (HtmlShellExecute(scrhDC#,"Open",doc#,"",dir#,1)) to grb#
    Procedure_Return grb#
End_Procedure // StartFile
                     
Activate_View Activate_oReportGridWithButtonsView for oReportGridWithButtonsView
Object oReportGridWithButtonsView is a dbView

    Property Handle phoReportControl 0     // Used by the FieldChooser.dg to connect to the ReportGrid.

    // Visual DataFlex 14.0 Client Size Adjuster, modified June 5, 2008: 13:47:51
//    Set Size to 470 709
    Set Size to 450 704
    Set Location to -6 -199
    Set Border_Style to Border_Thick
    Set Label to "ReportControlGrid Test with Buttons"
    Set Maximize_Icon to True

    Use FieldChooser.dg                 // Note: USEd here because it needs access to the phoReportControl property.

    Object oFieldChooser_grp is a Group
        Set Size to 35 247
        Set Location to 2 8
        Set Label to "Add/Remove Columns"
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Object oFieldChooser_bn is a Button
            Set Size to 21 70
            Set Location to 10 7
            Set Label to "Removed Columns List"
            Set MultiLineState to True
            Set Typeface to "Tahoma"
            Set FontSize to 14 0
        
            Procedure OnClick
                //Send PopupFieldChooser of (phoReportControl(Self))
                
                Send Popup Of oFieldChooserPanel
            End_Procedure // OnClick
        
        End_Object // oFieldChooser_bn

        Object oColumnHint_tb is a TextBox
            Set Auto_Size_State to False
            Set Size to 16 139
            Set Location to 10 82
            Set Label to "You can remove column headers by drag and drop  to here."
            Set FontWeight to 700
            Set Justification_Mode to JMode_Left
            Set Typeface to "Arial"
            Set FontSize to 16 0
            Set Typeface to "Tahoma"
            Set FontSize to 14 0
        End_Object // oColumnHint_tb
    End_Object


    Object oGridHint_grp is a Group
        Set Size to 35 178
        Set Location to 2 416
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Object oGridHint_tb is a TextBox
            Set Auto_Size_State to False
            Set Size to 16 139
            Set Location to 10 8
            Set Label to "Hint: Hit button number 40, 47 or 54 to activate the OnClick event."
            Set FontWeight to 700
            Set FontSize to 16 0
            Set Justification_Mode to JMode_Left
            Set Typeface to "Arial"
            Set Typeface to "Tahoma"
            Set FontSize to 14 0
        End_Object // oGridHint_tb    
        
    End_Object

    Object Settings_Skin_VT is a ValidationTable
        Procedure Fill_List
            Forward Send Fill_List
            Send Add_Table_Value  "Office 2000"
            Send Add_Table_Value  "Office XP"
            Send Add_Table_Value  "Office 2003"
            Send Add_Table_Value  "Windows XP"
            Send Add_Table_Value  "Visual Studio 2005"
            Send Add_Table_Value  "Office 2007"
            Send Add_Table_Value  "Ribbon"
        End_Procedure    // Fill_List
    End_Object   // Settings_Skin_VT

    Object oReportControlGridButtons is a cReportControlGrid
        Delegate Set phoReportControl to Self  // Panel property used by the FieldChooser object.

        Set Size to 423 353
        Set Location to 44 8
        Set piHeaderStyle to OLExtpColumnOffice2003
        Set peAnchors to anAll
        Set BorderStyle to OLExtpBorderClientEdge
        Set piCustomDraw to OLExtpCustomBeforeDrawRow
        Set TextColor to clNavy
        Set pbAllowColumnRemove to True 

        Set Status_Help to "This is a Report Object with push buttons test."
        Set psWatermarkBitmap to "Watermark.bmp"
        Set piWatermarkTransparancy to 10        
        Set piWatermarkAlignment to OLExtpReportWatermarkLeft
        Set FooterVisibleState to True
        Set HeaderJustificationMode to (OLExtpAlignmentLeft + OLExtpAlignmentVCenter)
        Set piReportGridStyle to OLExtpGridSmallDots
        Set pbAutoColumnSizing to True
        Set pbDeleteAllowed to False
        Set Color to clWhite

        Procedure OnCreateGrid  
            Send AddIcons
            Send AddColumns       
            Send FillGrid  
        End_Procedure // OnCreateGrid

        // *** Add icons to by used by the grid: ***            
        Procedure AddIcons
            Integer iRetval  
            
            // First Add icon(s) for the columns;
            //   'Set HeaderIcon item iItem to RC_IconHeaderColumn'
            Get AddImage "FindNext016N32.ico" RC_IconHeaderColumn to iRetval 

            // Add icons that will be used with the messages;
            //   Set Icon item iItem to RC_IconNormal // For an item/cell in the grid.
            //   The RC_IconNormal etc. enumerations can be found at top of cReportControlGrid.pkg 
            
            // You can use any one of these icon pair sizes for buttons; from 16x16 -> 48x48 pixels. 
            // But 16x16 icons is the biggest icon size that can be used for grid buttons if
            // pbFixedRowHeight = True!
            // Get AddImage "Button016N08.ico"   RC_ButtonNormal       to iRetval // 16x16
            // Get AddImage "Button016P08.ico"   RC_ButtonPressed      to iRetval 
            Get AddImage "Button024N08.ico"   RC_ButtonNormal       to iRetval // 24x24
            Get AddImage "Button024P08.ico"   RC_ButtonPressed      to iRetval 
            // Get AddImage "Button032N08.ico"   RC_ButtonNormal       to iRetval    // 32x32
            // Get AddImage "Button032P08.ico"   RC_ButtonPressed      to iRetval 
            // Get AddImage "Button048N08.ico"   RC_ButtonNormal       to iRetval // 48x48
            // Get AddImage "Button048P08.ico"   RC_ButtonPressed      to iRetval 
        End_Procedure // AddIcons
        
        // *** Create All Columns: ***
        Procedure AddColumns
            Handle  hColumn  
            Integer iRetval
            
            Get AddColumn "Combobox" to hColumn
                Set HeaderToolTip                    item hColumn to "Click on the header to sort grid on this column"
                Set HeaderIcon                       item hColumn to RC_IconHeaderColumn
                Set ColumnJustificationMode          item hColumn to (OLExtpAlignmentLeft + OLExtpAlignmentVCenter)
                Set FooterLabel                      item hColumn to "Footer 1" 
                Set ColumnComboState                 item hColumn to True 
                // Note: The ColumnComboListObject is an overloaded message, which will allow us to
                //       either pass a true/false parameter at the end, or not to.           
                //       Compare this example with the one in ReportControlWithDataTest.vw.
                Set ColumnComboListObject            item hColumn to (Settings_Skin_VT(Self))
                Set pbColumnGroupable                item hColumn to True

            Get AddColumn "Numeric" to hColumn
                Set ColumnNumericState               item hColumn to True
                Set HeaderToolTip                    item hColumn to "Header_Column_Justification_Mode set to right justification"
                Set FooterLabel                      item hColumn to "Footer 2"
                Set HeaderWidth                      item hColumn to 80
                Set pbColumnGroupable                item hColumn to True

            Get AddColumn "Checkbox" to hColumn
                Set ColumnJustificationMode          item hColumn to (OLExtpAlignmentLeft + OLExtpAlignmentVCenter)
                Set FooterLabel                      item hColumn to "Footer 3"
                Set HeaderWidth                      item hColumn to 120
                Set ColumnCheckboxState              item hColumn to True
                Set pbColumnGroupable                item hColumn to True
                                
            Get AddColumn "Uppercase" to hColumn
                Set ColumnCapsLockState              item hColumn to True
                Set HeaderToolTip                    item hColumn to "Entered characters are uppercased."
                Set FooterLabel                      item hColumn to "Footer 4"
                Set HeaderWidth                      item hColumn to 80
                Set pbColumnGroupable                item hColumn to True

            Get AddColumn "Shadowed" to hColumn
                Set HeaderIcon                       item hColumn to RC_IconHeaderColumn
                Set ColumnJustificationMode          item hColumn to (OLExtpAlignmentLeft + OLExtpAlignmentVCenter)
                Set ColumnShadowState                item hColumn to True
                Set FooterLabel                      item hColumn to "Footer 5"
                Set pbColumnGroupable                item hColumn to True
                
//            Get AddColumn "Button" to hColumn
//                Set ColumnJustificationMode          item hColumn to (OLExtpAlignmentLeft + OLExtpAlignmentVCenter + OLExtpAlignmentIconRight)
//                Set ColumnButtonState                item hColumn to True
//                // Note: If you don't provide a tooltip, the tooltip will be constructed with 
//                // the Property psSortByText plus the header_label text.
//                Set HeaderTooltip                    item hColumn to "This is a tooltip for the button column "
//                Set FooterLabel                      item hColumn to "Footer 5"  
//                Set pbColumnGroupable                item hColumn to True
            // Make these two columns 'invisible'! I.e. don't show them when the grid
            // is presented. Rather the user needs to press the 'Remove Columns Popup List',
            // and drag&drop them to the grid header.
            // Note: There is also a column property named 'pbShowColumnInFieldChooser'. It
            //       will decide if the 'invisible' column will show up in the FieldChooser
            //       object or not. Furthermore, if the 'pbShowColumnInFieldChooser' is not
            //       expicitly set for a column, it will be set to the value of the grid level
            //       property 'pbShowAllColumnsInFieldChooser'. That property is by default True.
            Get AddColumn "Column 6" to hColumn
                Set pbColumnVisible                  item hColumn to False
                Set pbColumnGroupable                item hColumn to True
            Get AddColumn "Column 7" to hColumn
                Set pbColumnVisible                  item hColumn to False
                Set pbColumnGroupable                item hColumn to True
            
        End_Procedure // AddColumns

        // *** Fill the grid with data: ***        
        Procedure FillGrid
            Handle  hColumn hRow  iItem
            Boolean bState
            Integer i j iCols iRows iRetval iItems
                               
            Send Cursor_Wait of Cursor_Control
            Get Col_Count to iCols  // The class function is similar to Row_Count and ItemCount.
            
            Move 500 to iRows             
            
            For i from 1 to iRows
            
                // *** Create Items/Cells for each row *** 
                // By using a double loop it's easy to know at what column we currently are:
                For j from 1 to iCols
                    Get Add_Item "" to iItem
                                             
                    // Set sample properties for items:
                    If (j = 1) Begin      // Combobox column:
                        Set Value             item iItem to ("Text " + String(ItemCount(Self)))             // Sample item text.
                        Set ToolTip           item iItem to ("Tooltip for Text item (no Button) " + String(piCells(Self))) // Sample Tooltip item text.
                    End         
                    Else If (j = 2) Begin // Numeric column:
                        Set Value             item iItem to ("Our Label:"*(ItemCount(Self)))
                        Set pbBold            item iItem to True 
                        Set ToolTip           item iItem to "Tooltip for a numeric column." 
                        Set psGroupCaption    item iItem to (ItemCount(Self))
                    End
                    Else If (j = 3) Begin // Checkbox column: 
                        Set Value             item iItem to ("Checkbox " + String(ItemCount(Self)))             // Sample checkbox.
                        Set ToolTip           item iItem to ("Tooltip for checkbox " + String(piCells(Self))) // Sample Tooltip item text.
                    End
                    Else If (j = 4) Begin // Text column:
                        Set Value             item iItem to ("Text" * String(ItemCount(Self)))
                        Set ToolTip           item iItem to "Tooltip for a text column." 
                    End
                    Else If (j = 5) Begin // Shadowed column:
                        Set Value             item iItem to ("Text " + String(ItemCount(Self)))             // Sample item text.
                        Set ToolTip           item iItem to "Tooltip for a shadowed column. You cannot navigate to this column." 
                    End
//                    Else If (j = 5) Begin // Button column:
//                        Set Value             item iItem to ("Button " + String(ItemCount(Self)))             // Sample item text.
//                        Set ToolTip           item iItem to ("Tooltip for button " + String(ItemCount(Self))) // Sample Tooltip item text.
//                    End
                    Else Begin            // Hidden column(s):
                        Set Value             item iItem to ("Button " + String(ItemCount(Self)))             // Sample item text.
                        Set ToolTip           item iItem to ("Tooltip for button " + String(ItemCount(Self))) // Sample Tooltip item text.
                    End 
                Loop // For j from 0 to iCols
            Loop // For i from 0 to iRows

            // Don't forget! Else the grid content will not be visible!
            Send Populate 
            Send Cursor_Ready of Cursor_Control

        End_Procedure // FillGrid
                            
        // The OnClick event will fire when an item that has been set to pbButton in the
        // grid is clicked.
        Procedure OnClick String sCaption
            Integer iItem   
            
            If (sCaption = "Button 40") Begin 
                Send info_box (sCaption * "was pressed.")
            End
            If (sCaption = "Button 47") Begin 
                Send info_box (sCaption * "was pressed.")
            End       
            
            // OR you can use the Current_Item property:
            Get CurrentItem to iItem
            If (iItem = 53) Begin // Items are zero based. (Text on this button reads '53')
                Send Info_Box (String(sCaption) * "was pressed. In this case the 'Current_Item' property was used in the OnClick event.")
            End           
        End_Procedure // OnClick   

    End_Object // oReportControlGridButtons

    Object oAbout_bn is a Button
        Set Size to 14 100
        Set Location to 6 602
        Set Label to "About Report Control"
        Set MultiLineState to True
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
        Procedure OnClick
            Send AboutBox to (phoReportControl(Self))
        End_Procedure
    End_Object // oAbout_bn        

    Object oHelp_bn is a Button
        Set Size to 14 100
        Set Location to 20 602
        Set Label to "Class Help"
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
    
        // fires when the button is clicked
        Procedure OnClick 
            Send Cursor_Wait  of Cursor_Control // Change to cursor wait
            Send StartFile (psHelpPath(phoWorkspace(ghoApplication)) + "\ClassReference.htm")
            Send Cursor_Ready of Cursor_Control // Reset cursor state
        End_Procedure // OnClick
    
    End_Object

    Object oDeleteAll_bn is a Button
        Set Size to 14 100
        Set Location to 42 602
        Set Label to "Send DeleteData"
        Set peAnchors to anTopRight
        Set MultiLineState to True
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
    
        Procedure OnClick 
            Handle hoReportGrid
            Integer iRow iCurrent
            Get phoReportControl to hoReportGrid
            Get CurrentRow    of hoReportGrid to iRow   
            Get CurrentItem   of hoReportGrid to iCurrent
            Send DeleteData   to hoReportGrid
            Send Info_Box ("The current row was:" * String(iRow) * "(zero based, a value of -1 means that the grid was empty.)" * "\nThe current item was" * String(iCurrent))
        End_Procedure // OnClick
    
    End_Object // oDeleteAll_bn

    Object oFillGrid_bn is a Button
        Set Size to 14 100
        Set Location to 57 602
        Set Label to "Send FillGrid"
        Set peAnchors to anTopRight
        Set MultiLineState to True
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
    
        Procedure OnClick
            Handle hoReportGrid
            Integer iItems iRows iCols
            DateTime dtStart dtEnd 
            TimeSpan tsTime                    
            
            Get phoReportControl to hoReportGrid
            Get ItemCount     of hoReportGrid to iItems 
            Get RowCount      of hoReportGrid to iRows  
            
            If (iItems > 0) Begin 
                Send Info_Box ("The grid contains" * String(iItems) * "items/cells in" * String(iRows) * "rows and thus data cannot be re-created. (Tip: Delete data first.)")
                Procedure_Return  
            End     
            Get ColCount      of hoReportGrid to iCols
            If (iCols = 0) Begin 
                Move (CurrentDateTime()) to dtStart
                Send AddColumns to hoReportGrid
            End
            Else Begin 
                Move (CurrentDateTime()) to dtStart
            End
            
            Send FillGrid to hoReportGrid 
            Move (CurrentDateTime())      to dtEnd
            Move (dtEnd - dtStart)        to tsTime
            Get ItemCount of hoReportGrid to iItems 
            Get RowCount  of hoReportGrid to iRows

            Send Info_Box ("The grid was filled with" * String(iItems) * "items/cells in" * String(iRows) * "rows in" * String((SpanSeconds(tsTime))) +"," + String((SpanMilliseconds(tsTime))) * "seconds")
        End_Procedure // OnClick
    
    End_Object // oFillGrid_bn

    Object oInitializeGrid_bn is a Button
        Set Size to 14 100
        Set Location to 72 602
        Set Label to "Send InitializeGrid"
        Set peAnchors to anTopRight
        Set MultiLineState to True
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
    
        Procedure OnClick
            Handle hoReportGrid 
            Integer iRetval
            Get YesNo_Box "This will remove all data and also all columns and headers. Continue?" to iRetval
            If (iRetval = MBR_No) Procedure_Return
            Get phoReportControl to hoReportGrid
            Send InitializeGrid of hoReportGrid
        End_Procedure // OnClick
    
    End_Object

    Object oEnabledState_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 43 494
        Set Label to "EnabledState"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
    
        Procedure OnChange 
            String sValue
            Get Value                                        to sValue
            Set EnabledState of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object opbEnableToolTips_cf is a cNoChangeUpstartComboForm
        Set Size to 15 100
        Set Location to 58 494
        Set Label to "pbEnableToolTips"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
        
        Procedure OnChange 
            String sValue
            Get Value                                     to sValue
            Set pbEnableToolTips of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object oBorderStyle_cf is a cNoChangeUpstartComboForm
        Set Size to 15 100
        Set Location to 73 494
        Set Label to "BorderStyle"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List 
            Send Combo_Add_Item "OLExtpBorderNone"
            Send Combo_Add_Item "OLExtpBorderFlat"
            Send Combo_Add_Item "OLExtpBorderStaticEdge"
            Send Combo_Add_Item "OLExtpBorderClientEdge"
            Send Combo_Add_Item "OLExtpBorderFrame"
            Set Value        to "OLExtpBorderClientEdge" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue iMode
            Get Value                                   to iValue
            Set BorderStyle of (phoReportControl(Self)) to iValue
        End_Procedure
    
    End_Object

    Object oGridlineMode_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 97 494
        Set Label to "GridlineMode"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List 
            Send Combo_Add_Item "Grid_Visible_None"
            Send Combo_Add_Item "Grid_Visible_Horz"
            Send Combo_Add_Item "Grid_Visible_Vert"
            Send Combo_Add_Item "Grid_Visible_Both"
            Set Value        to "Grid_Visible_Both" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue iMode
            Get Value of oReportGridStyle_cf               to iValue
            Set piReportGridStyle of (phoReportControl(Self)) to iValue
            Get Value                                      to iMode
            Set GridlineMode      of (phoReportControl(Self)) to iMode
        End_Procedure
    
    End_Object // oReportGridStyle

    Object oReportGridStyle_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 111 494
        Set Label to "piReportGridStyle"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "OLExtpGridSmallDots"
            Send Combo_Add_Item "OLExtpGridLargeDots"
            Send Combo_Add_Item "OLExtpGridDashes"
            Send Combo_Add_Item "OLExtpGridSolid" 
            Set Value        to "OLExtpGridSolid" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue iMode
            Get Value                                      to iValue
            Set piReportGridStyle of (phoReportControl(Self)) to iValue
            Get Value of oGridlineMode_cf                 to iMode
            Set GridlineMode      of (phoReportControl(Self)) to iMode
        End_Procedure
    
    End_Object // oReportGridStyle_cf

    Object opeGridLineColor_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 126 494
        Set Label to "peGridLineColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clBlue" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue
            Get Value                                    to iValue
            Set peGridLineColor of (phoReportControl(Self)) to iValue
        End_Procedure
    
    End_Object
    
    Object opiHeaderStyle_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 140 494
        Set Label to "piHeaderStyle"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "OLExtpColumnShaded"
            Send Combo_Add_Item "OLExtpColumnExplorer"
            Send Combo_Add_Item "OLExtpColumnOffice2003"
            Send Combo_Add_Item "OLExtpColumnOffice2007" 
            Set Value        to "OLExtpColumnOffice2003" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue
            Get Value                                  to iValue
            Set piHeaderStyle of (phoReportControl(Self)) to iValue
        End_Procedure
    
    End_Object

    Object oHeaderVisibleState_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 155 494
        Set Label to "HeaderVisibleState"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
    
        Procedure OnChange 
            String sValue
            Get Value                                       to sValue
            Set HeaderVisibleState of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object oFooterVisibleState_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 170 494
        Set Label to "FooterVisibleState"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
    
        Procedure OnChange 
            String sValue
            Get Value                                       to sValue
            Set FooterVisibleState of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object opbFixedRowHeight_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 196 494
        Set Label to "pbFixedRowHeight"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "No" // Default value.
        End_Procedure
        
        // The button cell icons will disappear when set to Yes if
        // the icon size has been set to larger than 16x16.
        Procedure OnChange 
            String sValue
            Get Value                                     to sValue
            Set pbFixedRowHeight of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object oColor_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 211 494
        Set Label to "Color"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "clDefault"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace" 
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clDefault" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue
            Get Value                          to iValue
            Set Color of (phoReportControl(Self)) to iValue
        End_Procedure
    
    End_Object

    Object oTextColor_cf is a cNoChangeUpstartComboForm
        Set Size to 15 100
        Set Location to 227 494
        Set Label to "TextColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "clDefault"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace" 
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clDefault" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue
            Get Value                                    to iValue
            Set TextColor of (phoReportControl(Self)) to iValue
        End_Procedure
    
    End_Object

    Object oHighlightRowState_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 252 494
        Set Label to "HighlightRowState"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
    
        Procedure OnChange 
            String sValue
            Get Value                                      to sValue
            Set HighlightRowState of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object oCurrentRowColor_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 267 494
        Set Label to "CurrentRowColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "clDefault"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace" 
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clDefault" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue       
            Get Value                                    to iValue
            Set CurrentRowColor of (phoReportControl(Self)) to iValue
        End_Procedure
    
    End_Object                                       
    
    Object oCurrentRowTextColor_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 281 494
        Set Label to "CurrentRowTextColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "clDefault"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace" 
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clDefault" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue
            Get Value                                    to iValue
            Set CurrentRowTextColor of (phoReportControl(Self)) to iValue
        End_Procedure
    
    End_Object

    Object oCurrentRowColorNoGridFocus_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 297 494
        Set Label to "CurrentRowColorNoGridFocus"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "clDefault"
            Send Combo_Add_Item "clNone"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clDefault" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue iColor
            Get Value of oCurrentRowColor_cf                        to iColor
            Get Value                                               to iValue
            Set CurrentRowColorNoGridFocus of (phoReportControl(Self)) to iValue
            Set CurrentRowColor            of (phoReportControl(Self)) to iColor
        End_Procedure
    
    End_Object

    Object oCurrentRowTextColorNoGridFocus_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 312 494
        Set Label to "CurrentRowTextColorNoGridFocus"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "clDefault"
            Send Combo_Add_Item "clNone"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace" 
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clDefault" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue iColor
            Get Value of oCurrentRowTextColor_cf                        to iColor
            Get Value                                                   to iValue
            Set CurrentRowTextColorNoGridFocus of (phoReportControl(Self)) to iValue
            Set CurrentRowTextColor            of (phoReportControl(Self)) to iColor
        End_Procedure
    
    End_Object

    Object oResizeColumnState_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 338 494
        Set Label to "ResizeColumnState"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
        
        Procedure OnChange 
            String sValue
            Get Value                                      to sValue
            Set ResizeColumnState of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object opbShadeSortColumn_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 352 494
        Set Label to "pbShadeSortColumn "
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "No" // Default value.
        End_Procedure
    
        Procedure OnChange 
            String sValue
            Get Value                                      to sValue
            Set pbShadeSortColumn of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object opbAllowAllColumnSort_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 367 494
        Set Label to "pbAllowAllColumnSort"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
    
        Procedure OnChange 
            String sValue
            Get Value                                         to sValue
            Set pbAllowAllColumnSort of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object opbAllowColumnReorder_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 382 494
        Set Label to "pbAllowColumnReorder"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
    
        Procedure OnChange 
            String sValue
            Get Value                                         to sValue
            Set pbAllowColumnReorder of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object opbAllowColumnRemove_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 397 494
        Set Label to "pbAllowColumnRemove"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
    
        Procedure OnChange 
            String sValue
            Get Value                                        to sValue
            Set pbAllowColumnRemove of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object oColumnsGroupable_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 338 602
        Set Label to "pbColumnsGroupable"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
        
        Procedure OnChange 
            String sValue
            Get Value                                      to sValue
            Set pbColumnsGroupable of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object opiButtonDownColor_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 422 494
        Set Label to "piButtonDownColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "clNone"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clAqua" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue
            Get Value                                      to iValue
            Set piButtonDownColor of (phoReportControl(Self)) to iValue
        End_Procedure
    
    End_Object        
    
    Object opiButtonDownTextColor_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 436 494
        Set Label to "piButtonDownTextColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "clNone"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clGray" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue
            Get Value                                    to iValue
            Set piButtonDownTextColor of (phoReportControl(Self)) to iValue
        End_Procedure
    
    End_Object         
    
    Object opiButtonBackColor_cf is a cNoChangeUpstartComboForm
        Set Size to 15 100
        Set Location to 451 494
        Set Label to "piButtonBackColor"
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to JMode_Right
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "clNone"
            Send Combo_Add_Item "clAqua"
            Send Combo_Add_Item "clBlack"
            Send Combo_Add_Item "clBlue"
            Send Combo_Add_Item "clBtnFace"
            Send Combo_Add_Item "clDkGray"
            Send Combo_Add_Item "clFuchsia"
            Send Combo_Add_Item "clGray"
            Send Combo_Add_Item "clGreen"
            Send Combo_Add_Item "clLime"
            Send Combo_Add_Item "clLtGray"
            Send Combo_Add_Item "clMaroon"
            Send Combo_Add_Item "clNavy"
            Send Combo_Add_Item "clOlive"
            Send Combo_Add_Item "clPurple"
            Send Combo_Add_Item "clRed"
            Send Combo_Add_Item "clSilver"
            Send Combo_Add_Item "clTeal"
            Send Combo_Add_Item "clWhite"
            Send Combo_Add_Item "clYellow"
            Set Value        to "clNone" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iValue
            Get Value                                      to iValue
            Set piButtonBackColor of (phoReportControl(Self)) to iValue
        End_Procedure
    
    End_Object

    Object oVerify_Delete_Msg_cf is a cNoChangeUpstartComboForm
        Set Size to 15 100
        Set Location to 422 602
        Set Label to "Verify_Delete_Msg"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List 
            Send Combo_Add_Item "get_Delete_Confirmation"
            Send Combo_Add_Item "get_Line_Delete_Confirmation"
            Send Combo_Add_Item "get_No_Confirmation"
            Set Value        to "get_Delete_Confirmation" // Default value.
        End_Procedure
    
        Procedure OnChange 
            Integer iMode
            Get Value                                      to iMode
            Set Verify_Delete_Msg of (phoReportControl(Self)) to iMode
        End_Procedure
    
    End_Object

    Object oCopyCutPasteHint_grp is a Group
        Set Size to 35 147
        Set Location to 2 262
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Object oCopyCutPasteHint_tb is a TextBox
            Set Auto_Size_State to False
            Set Size to 16 115
            Set Location to 10 8
            Set Label to "Use Ctrl+X, Ctrl+C and Ctrl+V to Cut, Copy and Paste rows."
            Set FontWeight to 700
            Set FontSize to 16 0
            Set Justification_Mode to JMode_Left
            Set Typeface to "Arial"
            Set Typeface to "Tahoma"
            Set FontSize to 14 0
        End_Object // oGridHint_tb
    End_Object

    Object oCalcRowColumnFromItemNumber_bn is a Button
        Set Size to 27 100
        Set Location to 97 602
        Set Label to "RowColumn From ItemNumber"
        Set peAnchors to anTopRight
        Set MultiLineState to True
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
    
        Procedure OnClick
            Handle ho 
            Integer iRow iCol iItem 
            Get phoReportControl to ho
            Get CurrentItem   of ho to iItem
            Get RowNumberFromItemNumber    of ho iItem to iRow
            Get ColumnNumberFromItemNumber of ho iItem to iCol
            Send Info_Box ("Check of translation functions: 'RowNumberFromItemNumber' and 'ColumnNumberFromItemNumber'.\nThe current item is:" * String(iItem) * "The current row is:" * String(iRow) * "And the current column is:" * String(iCol) + "\n\n(Note: Item numbers, Rows and Columns are zero based.)")
        End_Procedure // OnClick
    
    End_Object

    Object oPrintHint_grp is a Group
        Set Size to 44 100
        Set Location to 136 602
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Object oPrintHint_tb is a TextBox
            Set Auto_Size_State to False
            Set Size to 27 79
            Set Location to 10 5
            Set Label to "Try the 'Report' menu to preview/print the grid."
            Set FontWeight to 700
            Set FontSize to 16 0
            Set Justification_Mode to JMode_Left
            Set Typeface to "Arial"
        End_Object // oPrintHint_tb
    End_Object

    Object oTypeface_cf is a cNoChangeUpstartComboForm
        Set Size to 16 100
        Set Location to 196 602
        Set Label to "Typeface"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            send Combo_Add_Item "RC_DefaultTypeface"
            Send Combo_Add_Item "Tahoma"           
            Send Combo_Add_Item "Arial"
            Send Combo_Add_Item "MS Sans Serif"
            Set Value        to "RC_DefaultTypeface" // Default value.
        End_Procedure
    
        Procedure OnChange 
            String sValue
            Get Value                                to sValue
            Set Typeface of (phoReportControl(Self)) to sValue
        End_Procedure
    
    End_Object

    Object oFontSize_cf is a cNoChangeUpstartComboForm
        Set Size to 16 100
        Set Location to 227 602
        Set Label to "FontSize"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "RC_DefaultFontSize"
            Send Combo_Add_Item "7"           
            Send Combo_Add_Item "8"
            Send Combo_Add_Item "9"
            Send Combo_Add_Item "10"
            Send Combo_Add_Item "11"
            Send Combo_Add_Item "12"
            Set Value        to "RC_DefaultFontSize" // Default value.
        End_Procedure

        Procedure OnChange 
            String sValue
            Get Value                                to sValue
            Set FontSize of (phoReportControl(Self)) to (Eval(sValue))
        End_Procedure
    
    End_Object

    Object oShowItemsInGroups_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 367 602
        Set Label to "pbShowItemsInGroups"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
        
        Procedure OnChange 
            String sValue
            Get Value                                      to sValue
            Set pbShowItemsInGroups of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object oShadeGroupHeadings_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 252 602
        Set Label to "pbShadeGroupHeadings"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
        
        Procedure OnChange 
            String sValue
            Get Value                                      to sValue
            Set pbShadeGroupHeadings of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object

    Object oSkipGroupsFocus_cf is a cNoChangeUpstartComboForm
        Set Size to 13 100
        Set Location to 397 602
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top
        Set peAnchors to anTopRight
        Set Typeface to "Tahoma"
        Set FontSize to 14 0
        Set Label to "pbSkipGroupsFocus"

        Procedure Combo_Fill_List
            Send Combo_Add_Item "Yes"
            Send Combo_Add_Item "No"
            Set Value        to "Yes" // Default value.
        End_Procedure
        
        Procedure OnChange 
            String sValue
            Get Value                                      to sValue
            Set pbSkipGroupsFocus of (phoReportControl(Self)) to (If(sValue = "No", False, True))
        End_Procedure
    
    End_Object
    
End_Object // oReportGridWithButtonsView