DataFlex Source code formatting: Difference between revisions
From DataFlex Wiki
Jump to navigationJump to search
No edit summary |
m use dataflex source tag, not vdf |
||
(8 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
= Testing | = 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 | class HelloWorld | ||
{ | { | ||
public static int Main(String[] args) | public static int Main(String[] args) | ||
Line 17: | Line 17: | ||
<source lang="vdf"> | <source lang="dataflex"> | ||
//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