485
edits
mNo edit summary |
m (use dataflex source tag, not vdf) |
||
(7 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 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> |