DataFlex Source code formatting
From DataFlex Wiki
(Redirected from Visual DataFlex Source code formatting)
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
