Code: Select all | Expand

Methods of the TXBrowse Class

Here's a detailed list of the methods of the TXBrowse class, including parameters, return values, and usage examples:

1. New( oWnd )

Description: Constructor for the TXBrowse class. Creates a new TXBrowse object as a child of the specified window.

Parameters:

oWnd: OBJECT - The parent TWindow object for the browse control.

Return Value: OBJECT - Returns the newly created TXBrowse object (Self).

Usage Example:

oBrw := TXBrowse():New( oWnd )
content_copy
download
Use code with caution.
Harbour

2. Destroy()

Description: Destructor for the TXBrowse class. Releases resources associated with the browse control, including bitmaps, pens, brushes, and data connections.

Parameters: None

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:Destroy()
content_copy
download
Use code with caution.
Harbour

3. SetStyle( nStyle )

Description: Sets the visual style of the browse control.

Parameters:

nStyle: NUMERIC or CODEBLOCK - Style number (e.g., 2007, flat) or a codeblock that returns a color gradient specification.

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetStyle( 2007 ) // Sets the style to the 2007 visual style.
oBrw:SetStyle( { |lInvert| { { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, { 2/3, nRGB( 255, 215, 84 ), nRGB( 255, 233, 162 ) } } } ) // Sets a custom gradient.
content_copy
download
Use code with caution.
Harbour

4. SetDarkTheme( nTheme )

Description: Sets the browse control to a dark theme appearance.

Parameters:

nTheme: NUMERIC - Theme number (currently only 1 is supported for dark theme).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetDarkTheme( 1 ) // Enables dark theme.
content_copy
download
Use code with caution.
Harbour

5. SetRecSelBmp( uNew )

Description: Sets the bitmap used for the record selector triangle.

Parameters:

uNew: CHARACTER or NUMERIC - Path to a bitmap file or 0 to use the default arrow bitmap or NIL for no bitmap.

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetRecSelBmp( "myarrow.bmp" ) // Sets a custom bitmap for record selector.
oBrw:SetRecSelBmp( 0 ) // Uses default arrow bitmap.
oBrw:SetRecSelBmp( nil ) // Removes the bitmap.
content_copy
download
Use code with caution.
Harbour

6. SetRecSelSl( nType )

Description: Sets the record selector to display either record numbers or key numbers.

Parameters:

nType: NUMERIC - 1 to display record numbers (RecNo), 2 to display key numbers (KeyNo), or any other value to display nothing.

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetRecSelSl( 1 ) // Displays record numbers in the selector column.
oBrw:SetRecSelSl( 2 ) // Displays key numbers in the selector column.
oBrw:SetRecSelSl( 0 ) // Hides the record number/key number display.
content_copy
download
Use code with caution.
Harbour

7. SetRightFreeze( oCol )

Description: Sets a column as the right-freeze column, which remains visible when horizontally scrolling.

Parameters:

oCol: OBJECT or NUMERIC - TxBrwColumn object or column index (number) to be frozen on the right side, or NIL to remove right-freeze column.

Return Value: OBJECT - Returns the right-freeze TxBrwColumn object or NIL if no right-freeze column is set.

Usage Example:

oBrw:SetRightFreeze( oBrw:aCols[ 3 ] ) // Freezes the 3rd column on the right.
oBrw:SetRightFreeze( 3 ) // Freezes the 3rd column on the right.
oBrw:SetRightFreeze( nil ) // Removes any right-freeze column.
content_copy
download
Use code with caution.
Harbour

8. nAt()

Description: Returns the index of the currently selected column within the displayed columns array.

Parameters: None

Return Value: NUMERIC - Index of the selected column in aDisplay array.

Usage Example:

nColIndex := oBrw:nAt()
content_copy
download
Use code with caution.
Harbour

9. EraseBkGnd()

Description: Erases the background of the browse control.

Parameters: None

Return Value: NUMERIC - Always returns 1.

Usage Example:

oBrw:EraseBkGnd()
content_copy
download
Use code with caution.
Harbour

10. cGenPrg( lDlgUnits )

Description: Generates a code snippet (PRG code) to recreate the browse control with its current settings.

Parameters:

lDlgUnits: LOGICAL - Flag indicating if dialog units should be used for size and position.

Return Value: CHARACTER - String containing the generated PRG code.

Usage Example:

cPrgCode := oBrw:cGenPrg( .T. ) // Generates PRG code using dialog units.
content_copy
download
Use code with caution.
Harbour

11. SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows )

Description: Sets the data source to an RDD (e.g., DBF database).

Parameters:

lAddColumns: LOGICAL - .T. to automatically add columns based on DBF fields, .F. otherwise.

lAutoOrder: LOGICAL - .T. to enable automatic ordering based on index tags, .F. otherwise.

aFldNames: ARRAY - Array of field names to include as columns (optional, if lAddColumns is .T.).

aRows: ARRAY - Array data (optional, if array data is used instead of RDD).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetRDD( .T., .T. ) // Sets DBF as datasource, automatically adding columns and enabling auto-order.
oBrw:SetRDD( .F., .F., { "FIELD1", "FIELD2" } ) // Sets DBF and specifies columns to add.
content_copy
download
Use code with caution.
Harbour

12. SQLRDD_OrdKeyNo( n )

Description: Sets or gets the order key number for SQLRDD data source.

Parameters:

n: NUMERIC - Order key number to set (optional).

Return Value: NUMERIC - Returns the current order key number.

Usage Example:

nKeyNo := oBrw:SQLRDD_OrdKeyNo() // Gets current order key number.
oBrw:SQLRDD_OrdKeyNo( 5 ) // Sets the order key number to 5.
content_copy
download
Use code with caution.
Harbour

13. SQLRDD_OrdkeyGoto( n )

Description: Moves the record pointer in SQLRDD to the specified order key number.

Parameters:

n: NUMERIC - Order key number to go to.

Return Value: None

Usage Example:

oBrw:SQLRDD_OrdkeyGoto( 10 ) // Moves to order key number 10.
content_copy
download
Use code with caution.
Harbour

14. SQLRDD_CalcKeyNo()

Description: Recalculates and returns the current key number for SQLRDD data source.

Parameters: None

Return Value: NUMERIC - Returns the calculated key number.

Usage Example:

nKeyNo := oBrw:SQLRDD_CalcKeyNo()
content_copy
download
Use code with caution.
Harbour

15. SQLRDD_BookMark( nGoTo )

Description: Sets or gets a bookmark for SQLRDD data source based on record number.

Parameters:

nGoTo: NUMERIC - Record number to bookmark (optional).

Return Value: NUMERIC - Returns the current bookmark value (record number).

Usage Example:

nBookmark := oBrw:SQLRDD_BookMark() // Gets current bookmark.
oBrw:SQLRDD_BookMark( 25 ) // Sets bookmark to record number 25.
content_copy
download
Use code with caution.
Harbour

16. SQLRDD_Skipper( n )

Description: Skips records forward or backward in SQLRDD data source.

Parameters:

n: NUMERIC - Number of records to skip (positive for forward, negative for backward).

Return Value: NUMERIC - Returns the number of records actually skipped.

Usage Example:

nSkipped := oBrw:SQLRDD_Skipper( 10 ) // Skips 10 records forward.
nSkipped := oBrw:SQLRDD_Skipper( -5 ) // Skips 5 records backward.
content_copy
download
Use code with caution.
Harbour

17. SQLRDD_Adjust()

Description: Adjusts the browse control for SQLRDD data source (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal use only)

18. SQLRDD_SaveState()

Description: Saves the state of the browse control for SQLRDD data source (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal use only)

19. ResetData( uSrc, aCols )

Description: Resets the browse control's data and columns.

Parameters:

uSrc: - New data source (can be array, DBF alias, or other supported types).

aCols: ARRAY - Array of column specifications for the new data (optional).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:ResetData( "NEW_DBF_ALIAS" ) // Resets data to a new DBF alias.
oBrw:ResetData( myNewArray, myColumnSpecs ) // Resets data to a new array with specified columns.
content_copy
download
Use code with caution.
Harbour

20. SetArray( aData, lAutoOrder, nColOrder, aCols, bOnSkip )

Description: Sets the data source to an array.

Parameters:

aData: ARRAY - Two-dimensional array containing the data to display.

lAutoOrder: LOGICAL - .T. to enable auto-ordering, .F. otherwise.

nColOrder: NUMERIC - Column index to order the array data by (if lAutoOrder is .T.).

aCols: ARRAY - Array of column specifications (optional).

bOnSkip: CODEBLOCK - Codeblock to execute on skip operations (optional).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetArray( myDataArray, .T., 2 ) // Sets array data, enables auto-order by 2nd column.
oBrw:SetArray( myDataArray, .F., , myColumnSpecs ) // Sets array data with custom column specs.
content_copy
download
Use code with caution.
Harbour

21. SetoDbf( oDbf, aCols, lAutoSort, lAutoCols, aRows )

Description: Sets the data source to an ODBF object.

Parameters:

oDbf: OBJECT - ODBF object representing the database table.

aCols: ARRAY - Array of column specifications (optional).

lAutoSort: LOGICAL - .T. to enable auto-sorting, .F. otherwise.

lAutoCols: LOGICAL - .T. to automatically add columns based on DBF fields, .F. otherwise.

aRows: ARRAY - Array data (optional, if array data is used instead of DBF).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetoDbf( myDbfObject, myColumnSpecs, .T., .F. ) // Sets ODBF object as datasource with custom columns and auto-sorting enabled.
content_copy
download
Use code with caution.
Harbour

22. SetExcelRange( oRange, lHeaders, aCols )

Description: Sets the data source to an Excel range object.

Parameters:

oRange: OBJECT - Excel Range object.

lHeaders: LOGICAL - .T. if the first row of the range contains headers, .F. otherwise.

aCols: ARRAY - Array of column specifications (optional).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetExcelRange( myExcelRange, .T. ) // Sets Excel range as data source with headers.
content_copy
download
Use code with caution.
Harbour

23. SetAdo( oRs, lAddCols, lAutoOrder, aFldNames )

Description: Sets the data source to an ADO recordset object.

Parameters:

oRs: OBJECT - ADO Recordset object.

lAddCols: LOGICAL - .T. to automatically add columns based on recordset fields, .F. otherwise.

lAutoOrder: LOGICAL - .T. to enable auto-ordering, .F. otherwise.

aFldNames: ARRAY - Array of field names to include as columns (optional, if lAddColumns is .T.).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetAdo( myAdoRecordset, .T., .T. ) // Sets ADO recordset as data source with auto-columns and auto-order.
content_copy
download
Use code with caution.
Harbour

24. SetTree( oTree, aResource, bOnSkip, aCols )

Description: Sets the data source to a Tree object.

Parameters:

oTree: OBJECT - Tree object.

aResource: - Resource for tree bitmaps (optional).

bOnSkip: CODEBLOCK - Codeblock to execute on skip operations (optional).

aCols: ARRAY - Array of column specifications (optional).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetTree( myTreeObject, "tree_bmp_resource" ) // Sets Tree object as data source.
content_copy
download
Use code with caution.
Harbour

25. SetColsForTree( uData )

Description: Sets columns for a tree browse based on data type.

Parameters:

uData: - Data type indicator for tree browse columns.

Return Value: None

Usage Example: (Internal use, called within SetTree)

26. InvertPivot()

Description: Inverts the pivot of the browse control (rotates data 90 degrees).

Parameters: None

Return Value: None

Usage Example:

oBrw:InvertPivot()
content_copy
download
Use code with caution.
Harbour

27. ArrCalcWidths( aData, aCols, nMaxRows )

Description: Calculates column widths based on array data and column specifications.

Parameters:

aData: ARRAY - Data array.

aCols: ARRAY - Column specifications array.

nMaxRows: NUMERIC - Maximum number of rows to consider for width calculation.

Return Value: ARRAY - Array containing calculated column widths.

Usage Example: (Internal use, called within AutoFit)

28. GetColsData( cData, lByCreationOrder )

Description: Retrieves column data as an array of values for a specified column DATA member.

Parameters:

cData: CHARACTER - Name of the column DATA member to retrieve (e.g., "cHeader", "nWidth").

lByCreationOrder: LOGICAL - .T. to return data in creation order, .F. in display order.

Return Value: ARRAY - Array of values for the specified column DATA member.

Usage Example:

aColumnHeaders := oBrw:GetColsData( "cHeader" ) // Gets all column headers.
aColumnWidths := oBrw:GetColsData( "nWidth", .T. ) // Gets column widths in creation order.
content_copy
download
Use code with caution.
Harbour

29. SetColsData( cData, aValues, lByCreationOrder )

Description: Sets column data based on an array of values for a specified column DATA member.

Parameters:

cData: CHARACTER - Name of the column DATA member to set (e.g., "cHeader", "nWidth").

aValues: ARRAY - Array of values to set for the column DATA member.

lByCreationOrder: LOGICAL - .T. to set data in creation order, .F. in display order.

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetColsData( "cHeader", myColumnHeaders ) // Sets column headers.
oBrw:SetColsData( "nWidth", myWidthValues, .T. ) // Sets column widths in creation order.
content_copy
download
Use code with caution.
Harbour

30. SetGroupHeader( cGrpHdr, nFrom, nUpto, oFont, nAlign, nHeight )

Description: Sets a group header for a range of columns.

Parameters:

cGrpHdr: CHARACTER - Group header text.

nFrom: NUMERIC - Starting column index for the group.

nUpto: NUMERIC - Ending column index for the group.

oFont: OBJECT - Font object for the group header (optional).

nAlign: NUMERIC - Alignment for the group header text (AL_LEFT, AL_CENTER, AL_RIGHT).

nHeight: NUMERIC - Height of the group header (optional).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetGroupHeader( "Customer Information", 1, 3, myHeaderFont, AL_CENTER, 30 ) // Sets group header for columns 1-3.
content_copy
download
Use code with caution.
Harbour

31. SetGroupTotal( aCols, cHead, nType, oFont )

Description: Sets a group total row for specified columns.

Parameters:

aCols: ARRAY - Array of column indices to calculate totals for.

cHead: CHARACTER - Header text for the group total row.

nType: NUMERIC - Aggregation type (AGGR_SUM, AGGR_AVG, AGGR_MIN, AGGR_MAX, AGGR_COUNT, AGGR_STD, AGGR_STDEVP).

oFont: OBJECT - Font object for the group total row (optional).

Return Value: None

Usage Example:

oBrw:SetGroupTotal( { 4, 5 }, "Total Sales", AGGR_SUM, myTotalFont ) // Sets group total row for columns 4 and 5 with sum aggregation.
content_copy
download
Use code with caution.
Harbour

32. ResetBrowse()

Description: Resets the browse control to its initial state, clearing data, columns, and settings.

Parameters: None

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:ResetBrowse()
content_copy
download
Use code with caution.
Harbour

33. SetColFromADO( cnCol, lAutoOrder, aRsColNames, l1900, cAdoDB )

Description: Sets column properties from an ADO field object.

Parameters:

cnCol: - Column identifier (field name or index).

lAutoOrder: LOGICAL - .T. to enable auto-ordering, .F. otherwise.

aRsColNames: ARRAY - Array of ADO column names (optional).

l1900: LOGICAL - Flag for 1900 date handling (optional).

cAdoDB: CHARACTER - ADO database connection string (optional).

Return Value: OBJECT - Returns the TxBrwColumn object.

Usage Example: (Internal use, called within SetADO)

34. ArrCell( nRow, nCol, cPic, lDispZeros )

Description: Retrieves the content of a specific cell in array data source.

Parameters:

nRow: NUMERIC - Row index (1-based).

nCol: NUMERIC - Column index (1-based).

cPic: CHARACTER - Picture format string (optional).

lDispZeros: LOGICAL - .T. to display zeros, .F. otherwise (optional).

Return Value: - Content of the cell (data type depends on array data).

Usage Example:

cellValue := oBrw:ArrCell( 2, 3 ) // Gets value from row 2, column 3.
content_copy
download
Use code with caution.
Harbour

35. ArrCellSet( nRow, nCol, uNewVal, lTrim )

Description: Sets the content of a specific cell in array data source.

Parameters:

nRow: NUMERIC - Row index (1-based).

nCol: NUMERIC - Column index (1-based).

uNewVal: - New value to set for the cell.

lTrim: LOGICAL - .T. to trim string values, .F. otherwise.

Return Value: - Content of the cell after setting the new value.

Usage Example:

oBrw:ArrCellSet( 3, 1, "New Value" ) // Sets value in row 3, column 1.
content_copy
download
Use code with caution.
Harbour

36. ShowMessage( cMsg, nSecs, nClrText, nClrBack )

Description: Displays a temporary message box within the browse control.

Parameters:

cMsg: CHARACTER - Message text to display.

nSecs: NUMERIC - Duration to display the message in seconds (0 for indefinite).

nClrText: - Text color for the message (optional).

nClrBack: - Background color for the message (optional).

Return Value: None

Usage Example:

oBrw:ShowMessage( "Processing data...", 5 ) // Shows message for 5 seconds.
content_copy
download
Use code with caution.
Harbour

37. CloseMessage()

Description: Closes the message box displayed by ShowMessage().

Parameters: None

Return Value: None

Usage Example:

oBrw:CloseMessage()
content_copy
download
Use code with caution.
Harbour

38. SetPos( nRow, nCol, lPixel, bAction )

Description: Sets the browse cursor position to a specific cell.

Parameters:

nRow: NUMERIC - Row index (1-based).

nCol: NUMERIC - Column index (1-based).

lPixel: LOGICAL - .T. if row/col are pixel coordinates, .F. if row/col are row/column indices.

bAction: CODEBLOCK - Codeblock to execute after repositioning (optional).

Return Value: None

Usage Example:

oBrw:SetPos( 10, 2 ) // Sets cursor to row 10, column 2.
oBrw:SetPos( 50, 100, .T. ) // Sets cursor position by pixel coordinates.
content_copy
download
Use code with caution.
Harbour

39. SetBackGround( uBack, uBckMode )

Description: Sets the background appearance of the browse control.

Parameters:

uBack: - Background color or bitmap resource.

uBckMode: - Background mode (gradient style or bitmap tiling, optional).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetBackGround( CLR_WHITE ) // Sets white background color.
oBrw:SetBackGround( "background.bmp", 1 ) // Sets background bitmap with vertical gradient.
content_copy
download
Use code with caution.
Harbour

40. MakeBrush()

Description: Creates a brush object for painting the background (internal method).

Parameters: None

Return Value: OBJECT - Returns the created brush object.

Usage Example: (Internal use only)

41. DataRect()

Description: Returns a TRect object representing the data area of the browse (internal method).

Parameters: None

Return Value: OBJECT - Returns a TRect object.

Usage Example: (Internal use only)

42. cBmpAdjBrush( cFile )

Description: Sets or gets the bitmap brush for background adjustment, creating one if needed.

Parameters:

cFile: CHARACTER - Path to a bitmap file (optional, for SET mode).

Return Value: - In GET mode, returns the bitmap brush object. In SET mode, returns the TXBrowse object (Self).

Usage Example:

oBrw:cBmpAdjBrush( "my_background_brush.bmp" ) // Sets a bitmap brush from file.
hBrush := oBrw:cBmpAdjBrush() // Gets the current bitmap brush.
content_copy
download
Use code with caution.
Harbour

43. ColStretch( nStretchCol )

Description: Stretches a column to fill available space in the browse control.

Parameters:

nStretchCol: NUMERIC - Column index to stretch (optional, if not provided, stretches last column).

Return Value: None

Usage Example:

oBrw:ColStretch( 2 ) // Stretches the 2nd column.
oBrw:ColStretch() // Stretches the last column.
content_copy
download
Use code with caution.
Harbour

44. DestroyToolTip()

Description: Destroys the tooltip control (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal use only)

45. NcMouseMove( nHitTestCode, nRow, nCol )

Description: Handles WM_NCMOUSEMOVE message (non-client mouse move, internal method).

Parameters:

nHitTestCode: NUMERIC - Hit test code.

nRow: NUMERIC - Row index.

nCol: NUMERIC - Column index.

Return Value: None

Usage Example: (Internal use only)

46. MouseLeave( nRow, nCol, nFlags )

Description: Handles mouse leave event (internal method).

Parameters:

nRow: NUMERIC - Row index.

nCol: NUMERIC - Column index.

nFlags: NUMERIC - Mouse event flags.

Return Value: None

Usage Example: (Internal use only)

47. NcMouseMove( nHitTestCode, nRow, nCol )

Description: Handles WM_NCMOUSEMOVE message (non-client mouse move, internal method).

Parameters:

nHitTestCode: NUMERIC - Hit test code.

nRow: NUMERIC - Row index.

nCol: NUMERIC - Column index.

Return Value: None

Usage Example: (Internal use only)

48. MouseLeave( nRow, nCol, nFlags )

Description: Handles mouse leave event (internal method).

Parameters:

nRow: NUMERIC - Row index.

nCol: NUMERIC - Column index.

nFlags: NUMERIC - Mouse event flags.

Return Value: None

Usage Example: (Internal use only)

49. uDataSource()

Description: Accessor for the data source object (ODBF, ADO, MySQL, or Array) (internal method).

Parameters: None

Return Value: - Returns the data source object.

Usage Example: (Internal use only)

50. DataRow( lNew, cFieldList, lSourceData, aInitVals )

Description: Creates or edits a data row object (TXBrwRow).

Parameters:

lNew: LOGICAL - .T. to create a new row, .F. to edit current row.

cFieldList: CHARACTER - Comma-separated string of field names (optional).

lSourceData: LOGICAL - .T. if using source data, .F. otherwise (optional).

aInitVals: ARRAY - Array of initial values for new row (optional).

Return Value: OBJECT - Returns the created or edited TXBrwRow object.

Usage Example:

oNewRow := oBrw:DataRow( .T. ) // Creates a new data row object.
oEditRow := oBrw:DataRow( .F. ) // Edits the current data row.
content_copy
download
Use code with caution.
Harbour

51. EditSource( lNew, cFieldList, lNavigate, aInitVals, bSetup )

Description: Edits the data source (RDD, Array) in a modal dialog.

Parameters:

lNew: LOGICAL - .T. for new record, .F. for edit current record.

cFieldList: CHARACTER - Field list to edit (optional).

lNavigate: LOGICAL - .T. to enable navigation buttons in dialog, .F. otherwise.

aInitVals: ARRAY - Array of initial values for new record (optional).

bSetup: CODEBLOCK - Codeblock to customize the edit dialog (optional).

Return Value: OBJECT - Returns the edited TXBrowse object (Self).

Usage Example:

oBrw:EditSource( .F., "FIELD1, FIELD2" ) // Edits current record in a dialog, displaying only FIELD1 and FIELD2.
content_copy
download
Use code with caution.
Harbour

52. EditBrowse( lNew, cFieldList, lNavigate )

Description: Edits the data source (RDD, Array) in a browse-like modal dialog.

Parameters:

lNew: LOGICAL - .T. for new record, .F. for edit current record.

cFieldList: CHARACTER - Field list to edit (optional).

lNavigate: LOGICAL - .T. to enable navigation buttons in dialog, .F. otherwise.

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:EditBrowse( .T. ) // Opens a browse-like dialog to add a new record.
content_copy
download
Use code with caution.
Harbour

53. Edit( lNew, cFieldList, lSourceData, lNavigate, aInitVals, bSetup )

Description: General method for editing data in a modal dialog, automatically choosing between EditSource and EditBrowse based on lSourceData flag.

Parameters: (Same as EditSource and EditBrowse)

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example: (Used internally, calls either EditSource or EditBrowse based on parameters)

54. Delete( lMsg )

Description: Deletes the current record from the data source.

Parameters:

lMsg: LOGICAL - .T. to display a confirmation message, .F. otherwise.

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:Delete( .T. ) // Deletes current record with confirmation message.
content_copy
download
Use code with caution.
Harbour

55. SetOrderNatural()

Description: Sets the browse order to natural order (no sorting).

Parameters: None

Return Value: None

Usage Example:

oBrw:SetOrderNatural()
content_copy
download
Use code with caution.
Harbour

56. SetChecks( aBmp, lEdit, aPrompt )

Description: Enables checkboxes in a column for logical data type.

Parameters:

aBmp: ARRAY - Array of bitmaps for checkbox states (optional).

lEdit: LOGICAL - .T. to enable editing checkboxes, .F. otherwise.

aPrompt: CHARACTER - Prompt text for checkboxes (optional).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetChecks( , .T. ) // Enables editable checkboxes in the first column (if logical).
content_copy
download
Use code with caution.
Harbour

57. SetMultiSelectCol( uCol, lFooter )

Description: Sets a column as the multi-select column, enabling row selection using checkboxes.

Parameters:

uCol: OBJECT or NUMERIC - TxBrwColumn object or column index for multi-select column.

lFooter: LOGICAL - .T. to show selected row count in footer, .F. otherwise.

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetMultiSelectCol( 1, .T. ) // Makes the first column a multi-select column, showing selected count in footer.
content_copy
download
Use code with caution.
Harbour

58. SafeEval( RetVal_ifFailed, bBlock, params_for_bBlock, ... )

Description: Safely evaluates a codeblock, returning a default value if an error occurs (internal method).

Parameters:

RetVal_ifFailed: - Value to return if codeblock evaluation fails.

bBlock: CODEBLOCK - Codeblock to evaluate.

params_for_bBlock: - Optional parameters to pass to the codeblock.

Return Value: - Result of codeblock evaluation or RetVal_ifFailed if error.

Usage Example: (Internal use only)

59. AddVar( uKey, uVal )

Description: Adds a variable to the hCargo hash table for storing custom data associated with the browse control.

Parameters:

uKey: - Key for the variable in the hCargo hash.

uVal: - Value to store for the variable.

Return Value: None

Usage Example:

oBrw:AddVar( "MyCustomSetting", "Some Value" ) // Adds a custom setting to the browse.
content_copy
download
Use code with caution.
Harbour

60. lPasteReady()

Description: Checks if clipboard content is in a paste-ready format (internal method).

Parameters: None

Return Value: LOGICAL - .T. if paste-ready, .F. otherwise.

Usage Example: (Internal use only)

61. OnError()

Description: Default error handler for the TXBrowse class (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal use only)

62. SetColumns( nRow, nCol, nFlags, oColumn )

Description: Sets properties of a specific column (internal method).

Parameters:

nRow: NUMERIC - Row index.

nCol: NUMERIC - Column index.

nFlags: NUMERIC - Flags.

oColumn: OBJECT - TxBrwColumn object.

Return Value: None

Usage Example: (Internal use only)

63. GoNextCtrl( hWnd )

Description: Moves focus to the next control in the window (internal method).

Parameters:

hWnd: - Handle to the current control window.

Return Value: None

Usage Example: (Internal use only)

64. GoPrevCtrl()

Description: Moves focus to the previous control in the window (virtual method).

Parameters: None

Return Value: None

Usage Example: (Internal use only, Virtual method for overriding)

65. SelFont()

Description: Selects the current font for the browse control (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal use only)

66. SetFont( oFont, lResizeCols )

Description: Sets the font for the browse control.

Parameters:

oFont: OBJECT - Font object to set.

lResizeCols: LOGICAL - .T. to resize columns to fit new font, .F. otherwise.

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetFont( myFontObject ) // Sets a new font for the browse.
oBrw:SetFont( myFontObject, .T. ) // Sets new font and resizes columns to fit.
content_copy
download
Use code with caution.
Harbour

67. FontSize( nPlus )

Description: Adjusts the font size by a specified increment.

Parameters:

nPlus: NUMERIC - Font size increment (positive to increase, negative to decrease).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:FontSize( 2 ) // Increases font size by 2 points.
oBrw:FontSize( -1 ) // Decreases font size by 1 point.
content_copy
download
Use code with caution.
Harbour

68. ReCalcWH()

Description: Recalculates width and height of browse elements based on current settings (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal use only)

69. DrawSelect()

Description: Draws the selection indicator line (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal use only)

70. RefreshCurrent()

Description: Refreshes the currently selected row (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal use only)

71. oRow()

Description: Accessor for the current row data in array data source (internal method).

Parameters: None

Return Value: - Returns the current row data as an array element.

Usage Example: (Internal use only)

72. oCol( u )

Description: Retrieves a TxBrwColumn object by its index or object reference.

Parameters:

u: NUMERIC or OBJECT - Column index (1-based) or TxBrwColumn object.

Return Value: OBJECT - Returns the TxBrwColumn object or NIL if not found.

Usage Example:

oColumn := oBrw:oCol( 2 ) // Gets the TxBrwColumn object for the 2nd column.
content_copy
download
Use code with caution.
Harbour

73. RefreshHeaders()

Description: Refreshes the header area of the browse control (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal use only)

74. RefreshFooters()

Description: Refreshes the footer area of the browse control (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal use only)

75. ClpRow( lFullRow, aCols, lFormatted )

Description: Copies a row to the clipboard in text format.

Parameters:

lFullRow: LOGICAL - .T. to copy the entire row, .F. to copy only selected columns.

aCols: ARRAY - Array of column indices to copy (if lFullRow is .F., optional).

lFormatted: LOGICAL - .T. to format data for MSWord export, .F. otherwise.

Return Value: CHARACTER - String containing the row data in text format.

Usage Example:

cRowText := oBrw:ClpRow( .T. ) // Copies the entire current row to clipboard.
content_copy
download
Use code with caution.
Harbour

76. Copy( laRows, aCols )

Description: Copies rows to the clipboard.

Parameters:

laRows: LOGICAL or ARRAY - .T. to copy all rows, FALSE to copy current row, or ARRAY of row indices to copy.

aCols: ARRAY - Array of column indices to copy (optional).

Return Value: None

Usage Example:

oBrw:Copy( .T. ) // Copies all rows to clipboard.
oBrw:Copy( .F. ) // Copies current row to clipboard.
oBrw:Copy( { 1, 3, 5 } ) // Copies rows 1, 3, and 5.
content_copy
download
Use code with caution.
Harbour

77. Paste( cText )

Description: Pastes text from the clipboard into the browse control.

Parameters:

cText: CHARACTER - Text to paste (optional, if not provided, reads from clipboard).

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:Paste() // Pastes from clipboard to current cell.
oBrw:Paste( "Some Text to Paste" ) // Pastes provided text to current cell.
content_copy
download
Use code with caution.
Harbour

78. aCellCoor( nRow, nCol )

Description: Returns coordinates of a cell in pixels (internal method).

Parameters:

nRow: NUMERIC - Row index.

nCol: NUMERIC - Column index.

Return Value: ARRAY - Array containing cell coordinates {nTop, nLeft, nBottom, nRight}.

Usage Example: (Internal use only)

79. CellBitmap( nRow, nCol )

Description: Creates a bitmap of a cell (internal method).

Parameters:

nRow: NUMERIC - Row index.

nCol: NUMERIC - Column index.

Return Value: OBJECT - Returns the bitmap handle.

Usage Example: (Internal use only)

80. ShowMessage( cMsg, nSecs, nClrText, nClrBack )

Description: Displays a message in the browse control (same as DATA member, method version for codeblock usage).

Parameters: (Same as DATA member ShowMessage)

Return Value: None

Usage Example:

oBrw:ShowMessage( { || "Loading Data..." }, 0 ) // Shows message using a codeblock.
content_copy
download
Use code with caution.
Harbour

81. CloseMessage()

Description: Closes the message box (same as DATA member, method version for codeblock usage).

Parameters: None

Return Value: None

Usage Example:

oBrw:CloseMessage( { || .t. } ) // Closes message using a codeblock.
content_copy
download
Use code with caution.
Harbour

82. SetPos( nRow, nCol, lPixel, bAction )

Description: Sets the cursor position (same as DATA member, method version for codeblock usage).

Parameters: (Same as DATA member SetPos)

Return Value: None

Usage Example:

oBrw:SetPos( 1, 1, .F., { || MsgInfo( "Cursor repositioned" ) } ) // Repositions cursor and executes codeblock.
content_copy
download
Use code with caution.
Harbour

83. SetBackGround( uBack, uBckMode )

Description: Sets the background appearance (same as DATA member, method version for codeblock usage).

Parameters: (Same as DATA member SetBackGround)

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetBackGround( CLR_BLUE, 2 ) // Sets blue background with gradient using a codeblock.
content_copy
download
Use code with caution.
Harbour

84. MakeBrush()

Description: Creates a brush (same as DATA member, method version for codeblock usage).

Parameters: None

Return Value: OBJECT - Returns the created brush object.

Usage Example: (Internal use only - method version for codeblock usage)

85. DataRect()

Description: Returns DataRect (same as DATA member, method version for codeblock usage).

Parameters: None

Return Value: OBJECT - Returns a TRect object.

Usage Example: (Internal use only - method version for codeblock usage)

86. cBmpAdjBrush( cFile )

Description: Sets or gets bitmap brush (same as DATA member, method version for codeblock usage).

Parameters: (Same as DATA member cBmpAdjBrush)

Return Value: - In GET mode, returns the bitmap brush object. In SET mode, returns the TXBrowse object (Self).

Usage Example: (Internal use only - method version for codeblock usage)

87. ColStretch( nStretchCol )

Description: Stretches column (same as DATA member, method version for codeblock usage).

Parameters: (Same as DATA member ColStretch)

Return Value: None

Usage Example: (Internal use only - method version for codeblock usage)

88. DestroyToolTip()

Description: Destroys tooltip (same as DATA member, method version for codeblock usage).

Parameters: None

Return Value: None

Usage Example: (Internal use only - method version for codeblock usage)

89. NcMouseMove( nHitTestCode, nRow, nCol )

Description: Handles WM_NCMOUSEMOVE (same as DATA member, method version for codeblock usage).

Parameters: (Same as DATA member NcMouseMove)

Return Value: None

Usage Example: (Internal use only - method version for codeblock usage)

90. MouseLeave( nRow, nCol, nFlags )

Description: Handles MouseLeave (same as DATA member, method version for codeblock usage).

Parameters: (Same as DATA member MouseLeave)

Return Value: None

Usage Example: (Internal use only - method version for codeblock usage)

91. uDataSource()

Description: Accessor for DataSource (same as DATA member, method version for codeblock usage).

Parameters: None

Return Value: - Returns the data source object.

Usage Example: (Internal use only - method version for codeblock usage)

92. DataRow( lNew, cFieldList, lSourceData, aInitVals )

Description: Creates DataRow (same as DATA member, method version for codeblock usage).

Parameters: (Same as DATA member DataRow)

Return Value: OBJECT - Returns the created or edited TXBrwRow object.

Usage Example: (Internal use only - method version for codeblock usage)

93. EditSource( lNew, cFieldList, lNavigate, aInitVals, bSetup )

Description: Edits Source (same as DATA member, method version for codeblock usage).

Parameters: (Same as DATA member EditSource)

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example: (Internal use only - method version for codeblock usage)

94. EditBrowse( lNew, cFieldList, lNavigate )

Description: Ed

Code: Select all | Expand

Get-ChildItem -Path c:\www\htdocs\fwforum\data\forumsext\POST_TEXT_memo -Recurse -Filter *.txt | Select-String -Pattern "My program creates a PDF" | ForEach-Object { $_.Path } | Out-File -FilePath "search_results.txt" -Encoding ASCII

Code: Select all | Expand

// The example shows two approaches for building a custom index.
// In the first approach, the controlling index is a regular index
// which allows for relative database navigation. The second approach
// uses the custome index as controlling index and requires absolute
// database navigation. The first five logical records and physical records
// are added to the custome index.

   REQUEST Dbfcdx

   PROCEDURE Main
      USE Customer VIA "DBFCDX"
      INDEX ON Upper(LastName+FirstName) TAG NAME    TO Cust01
      INDEX ON Upper(LastName+FirstName) TAG NAMESET TO Cust01t CUSTOM

      // relative navigation with non-custom index
      OrdSetFocus( "NAME" )
      GO TOP
      FOR i:=1 TO 5
         OrdKeyAdd( "NAMESET" )
         SKIP
      NEXT

      GO TOP
      Browse()

      // absolute navigation with custom index
      OrdSetFocus( "NAMESET" )
      FOR i:=1 TO 5
         DbGoto( i )
         OrdKeyAdd( "NAMESET" )
      NEXT

      GO TOP
      Browse()

      USE
   RETURN

Code: Select all | Expand

#include "fivewin.ch"

REQUEST DBFCDX
REQUEST DBFFPT
static nCount := 0
function main
    local cDBF_Dir := ".\dataTest\pages"
    local cDBF_file_noPath := "c:\fwh\samples\DataTest"
    local cDBF_file_memo := ""
    local cDBF_fil_new := "PAGES_NEW"
    local aStruc := {}
    local cTmpDbf := ""
    local cSrc := "c:\forumposts\forums.dbf" // "c:\fwh\samples\DataTest\PAGES.DBF"
    local cDst := "c:\forumposts\forumsext.dbf"   // "c:\fwh\samples\DataTest\PAGESext.dbf"
    local cTempMatchcode := ""
    local aFeld := {}  
    local aField := {}  
    local nField
    local cFieldSubdir
	 local cDBF_memofiles := ""
	 
    use (cSrc) new
    aStruc := DBStruct()
    use    

 

//cFilePath( cSrc )   // returns path of a filename
//cFileNoExt( cSrc ) // returns the filename without ext


cDBF_memofiles := cFilePath( cSrc ) + cFileNoExt( cSrc ) + "ext"

IF lisdir(cDBF_memofiles) = .f.
	lmkdir(cDBF_memofiles)
ENDIF

 
    // Adjust structure: Replace memo fields with character fields of length 50 and add prefix M_
    FOR EACH aField IN aStruc
        IF aField[2] == "M"
            aField[1] := "M_" + aField[1]  // Add prefix M_
            aField[2] := "C"
            aField[3] := 50
        ENDIF
    NEXT

    if file(cDst) = .F.
        DbCreate(cDst, aStruc)
    endif

    use

    use(cDst) new ALIAS neuedbf
    use(cSrc) new ALIAS altedbf

    select altedbf
    do while .not. eof()
        aFeld := getrec()

        // Export memo fields to txt files and save the file name in the character field
        FOR nField := 1 TO fcount()
            IF fieldType(nField) == "M"
                cFieldSubdir := cDBF_memofiles + "\" + fieldName(nField) + "_memo"
 
                // Create subdirectory for the memo field if not existing
                IF lisdir(cFieldSubdir) = .f.
                    lmkdir(cFieldSubdir)
                ENDIF
					 nCount += 1	
                cTempMatchcode := alltrim(str(recno())) + "-" + ShortUniqueIDNUM() + ALLTRIM( STR(nCount) )
                MEMOWRIT(cFieldSubdir + "\" + cTempMatchcode + ".txt", fieldGet(nField), .F. )
                aFeld[nField] := cTempMatchcode
            ENDIF
        NEXT

        select neuedbf
        APPEND_BLANK()
        saverec(aFeld)

        select altedbf
        skip
    enddo

    ? "Ende"
return 

INIT PROCEDURE PrgInit
    
    SET CENTURY ON
    SET EPOCH TO YEAR(DATE())-98
    
    SET DELETED ON
    SET EXCLUSIVE OFF
    
    REQUEST HB_Lang_DE
    
    HB_LangSelect("DE")
    
    SET DATE TO GERMAN
    
    rddsetdefault("DBFCDX")
    
    EXTERN DESCEND
    
RETURN

//----------------------------------------------------------------------------//
FUNCTION ShortUniqueIDNUM()
    local cUniqueIDNUM := substr(dtos(date()),3) + "_" +;
                       substr(time(),1,2) + ;
                       substr(time(),4,2) + ;
                       substr(time(),7,2) 

    return (cUniqueIDNUM)

//----------------------------------------------------------------------------//
FUNCTION RLOK
    if rlock()
        RETURN ""
    endif
    DO WHILE .T.
        if rlock()
            exit
        else
            MsgInfo("Infobox","Datensatz gesperrt!")
        endif
        INKEY(.01)
    ENDDO
    RETURN ""

FUNCTION FLOK
    if flock()
        RETURN ""
    endif
    DO WHILE .T.
        if flock()
            exit
        else
            MsgInfo("Infobox","Datensatz gesperrt!")
        endif
        INKEY(.01)
    ENDDO
    RETURN ""

//----------------------------------------------------------------------------//
FUNCTION APPEND_BLANK
    APPEND BLANK
    DO WHILE NETERR()
        APPEND BLANK
        INKEY(.1)
    ENDDO
    unlock
    rlok()
RETURN ""
//----------------------------------------------------------------------------//

FUNCTION unlok
    
    unlock
    
RETURN (NIL)
//----------------------------------------------------------------------------//

FUNCTION net_use(vcFile,vlExclus,vnWait,vcAlias)
    * tries to open a file for exclusive or shared use
    *
    * Syntax: NET_USE(expC1,expL1,expN1,expC2)
    * where:  expC1 = database to use, character string
    *         expL1 = .T. to use file exclusively, .F. for multi-user
    *         expN1 = seconds to wait if file isnt opened (0=forever), if >0,
    *                 the calling routine must be constructed to handle cases
    *                 where the file is not opened!
    *         expC2 = data driver
    *
    local forever := (vnWait=0)
    *
    do while (forever .or. vnWait>0)
        
        if vlExclus                               && exclusive
            use (vcFile) exclusive new
        else
            use (vcFile) shared new
        endif
        if .not. neterr()                         && USE succeeds
            RETURN (.T.)
        endif
        *
        inkey(1)                                  && wait 1 second
        vnWait--
    ENDDO
    RETURN (.F.)                                    && database opening unsuccessful!
//----------------------------------------------------------------------------//

FUNCTION getRec()
    local ary := {}
    local nFcnt, nFnum

    nFcnt = fcount()
    FOR nFnum = 1 to nFcnt
        aAdd(ary, fieldGet(nFnum))
    NEXT
    
    RETURN (ary)
//----------------------------------------------------------------------------//

FUNCTION saveRec(ary)
    local nFcnt, nFnum

    nFcnt = fcount()
    FOR nFnum = 1 to nFcnt
        fieldPut(nFnum, ary[nFnum])
    NEXT
    
    RETURN (NIL)

//----------------------------------------------------------------------------//

Code: Select all | Expand

# Pfade zu den zu durchsuchenden Verzeichnissen
$verzeichnisse = @(
    "C:\www\htdocs\fwforum\data\forumsext\Dir1",
    "C:\www\htdocs\fwforum\data\forumsext\Dir2",
    "C:\www\htdocs\fwforum\data\forumsext\Dir3",
    "C:\www\htdocs\fwforum\data\forumsext\Dir4",
    "C:\www\htdocs\fwforum\data\forumsext\Dir5",
    "C:\www\htdocs\fwforum\data\forumsext\Dir6",
    "C:\www\htdocs\fwforum\data\forumsext\Dir7",
    "C:\www\htdocs\fwforum\data\forumsext\Dir8"
)

# Pfad zur Indexdatei
$indexFile = "C:\suchergebnis\index.txt"

# Ergebnisverzeichnis sicherstellen
$ergebnisVerzeichnis = "C:\suchergebnis"
if (-not (Test-Path -Path $ergebnisVerzeichnis)) {
    New-Item -ItemType Directory -Path $ergebnisVerzeichnis | Out-Null
}

# Indexdatei initialisieren (leeren oder erstellen)
if (Test-Path $indexFile) {
    Clear-Content $indexFile
} else {
    New-Item -Path $indexFile -ItemType File | Out-Null
}

# Funktion zur Indexerstellung
function Build-Index {
    param (
        [string[]]$Directories,
        [string]$IndexPath
    )

    foreach ($dir in $Directories) {
        Write-Host "Indexiere Verzeichnis: $dir" -ForegroundColor Green
        # Alle .prg und .txt Dateien durchsuchen
        $files = Get-ChildItem -Path $dir -Recurse -Include *.prg, *.txt -File

        foreach ($file in $files) {
            Write-Host "  Verarbeite Datei: $($file.FullName)" -ForegroundColor Yellow
            try {
                # Dateiinhalt lesen
                $content = Get-Content -Path $file.FullName -Raw

                # Tokenisierung: Wörter extrahieren (nur alphanumerische Zeichen)
                $words = $content -split '\W+' | Where-Object { $_ -match '\w+' } | ForEach-Object { $_.ToLower() }

                # Einzigartige Wörter
                $uniqueWords = $words | Sort-Object -Unique

                foreach ($word in $uniqueWords) {
                    # Indexzeile: Wort<TAB>Dateipfad
                    "$word`t$($file.FullName)" | Out-File -FilePath $IndexPath -Append -Encoding ASCII
                }
            }
            catch {
                Write-Host "    Fehler beim Verarbeiten von $($file.FullName): $_" -ForegroundColor Red
            }
        }
    }

    Write-Host "Indexierung abgeschlossen." -ForegroundColor Green
}

# Funktion zur Suche im Index
function Search-Index {
    param (
        [string]$SearchTerm,
        [string]$IndexPath
    )

    $searchTerm = $SearchTerm.ToLower()
    Write-Host "Suche nach: '$searchTerm'" -ForegroundColor Cyan

    # Suche nach dem Wort am Anfang der Zeile (um genaue Übereinstimmung zu gewährleisten)
    $pattern = "^$searchTerm`t"

    $results = Select-String -Path $IndexPath -Pattern $pattern | ForEach-Object { $_.Line.Split("`t")[1] }

    # Ausgabe der gefundenen Dateien
    if ($results) {
        Write-Host "Gefundene Dateien:" -ForegroundColor Green
        $results | Sort-Object -Unique | ForEach-Object { Write-Host $_ }
    }
    else {
        Write-Host "Keine Treffer gefunden." -ForegroundColor Yellow
    }

    return $results
}

# Zeitmessung starten
$startzeit = Get-Date

# Index erstellen
Build-Index -Directories $verzeichnisse -IndexPath $indexFile

# Zeitmessung beenden
$endzeit = Get-Date
$dauer = $endzeit - $startzeit

# Dauer anzeigen
Write-Host "Indexierungsdauer: $($dauer.TotalSeconds) Sekunden" -ForegroundColor Cyan

# Größe der Indexdatei messen
$indexSize = (Get-Item $indexFile).Length
Write-Host "Größe der Indexdatei: $indexSize Bytes" -ForegroundColor Cyan

# Beispielhafte Suchanfrage
$searchBegriff = "volltxtSearch"
$gefunden = Search-Index -SearchTerm $searchBegriff -IndexPath $indexFile

# Größe der Originaldateien messen
$originalSize = ($verzeichnisse | ForEach-Object {
    Get-ChildItem -Path $_ -Recurse -Include *.prg, *.txt -File | Measure-Object -Property Length -Sum
}).Sum

Write-Host "Gesamtgröße der Originaldateien: $originalSize Bytes" -ForegroundColor Cyan

# Vergleich der Größen
$sizeRatio = [math]::Round(($indexSize / $originalSize) * 100, 2)
Write-Host "Indexgröße als Prozentsatz der Originaldateien: $sizeRatio%" -ForegroundColor Cyan

Code: Select all | Expand

cNombre := "SARAH"

fast_filter( "*"+ alltrim( cNombre ) + "?", 4, 22, 28 )
Browse()


Ahora, ya estaría el filtro activado basado en subindices.

/* 
 Sustituto de SET FILTER
 cExpr  
    Expresion a buscar que forme parte del indice, podemos 
    poner *Texto? , para buscar palabra que forme parte

 nOrder
    Sobre que indice activo vamos a recorrer la lista.
    Por defecto es el indice activo.

 nRow, nCol 
     Posicion fila,columna para mostrar progreso. Se ejecuta en 
     un hilo aparte

 Return: Indice anterior

*/
function fast_filter( cExpr, nOrder, nRow, nCol )
      local PantaAnt := savescreen(0,0,MaxRow(),MaxCol())
      Local p := hb_threadStart( @Pajaritos(), nRow, nCol )
      Local nIndice := OrdNumber()

      DEFAULT nOrder TO OrdNumber()

      set order to nOrder
      INDEX ON &(IndexKey()) TAG _TEMP_ TO tHarbourt ;
               CUSTOM ADDITIVE MEMORY
       
      set order to nOrder
      go top

      DO WHILE OrdWildSeek( cExpr, .T. )
         OrdKeyAdd( "_TEMP_" )
      ENDDO
      OrdSetFocus( "_TEMP_" )
       
      hb_threadTerminateAll()
      restscreen(0 ,0 ,MaxRow(), MaxCol(), PantaAnt)

return nIndice

PROCEDURE Pajaritos( nRow, nCol )
        Local pajarito := "|",n := 0
        
        DEFAULT nRow := MaxRow(), nCol := 1

        DO WHILE .T.

           do case
              case n = 1 
                   pajarito = "|" 
              case n = 2 
                   pajarito = "/" 
              case n = 3  
                   pajarito = "-" 
              case n = 4 
                   pajarito = "\" 
              Otherwise 
                   n := 0
           end case

           DispOutAt( nRow, nCol, "Generando Consulta....[ " +  pajarito +" ]" ) //, "GR+/N" )
           ThreadSleep( 500 )
           n++
       ENDDO
RETURN

Code: Select all | Expand

#include "fivewin.ch"

function Main()

   local o

#ifdef __XHARBOUR__
   EXTEND CLASS TestClass WITH MESSAGE Multiply  METHOD Multiply
#else
   __CLSADDMSG( TestClass():classH, "Multiply", HB_FUNCPTR( "MULTIPLY" ), HB_OO_MSG_METHOD )
#endif


   o  := TestClass():New()
   ? o:Value
   ? o:Multiply( 10 )


return nil

CLASS TestClass

   VAR Value INIT 9

ENDCLASS

function Multiply( n )

   local Self := HB_QSelf()

return ::Value * n

Code: Select all | Expand

//----------------------------------------------------------------------------//
//   Author: Cristobal Navarro
//   Sample demo Features MENUS, using databases and arrays
//----------------------------------------------------------------------------//

#include "FiveWin.ch"

Static oWnd
Static oFontMnu

function Main()

   local oMenu

   DEFINE FONT oFontMnu NAME "Segoe UI Symbol" SIZE 0, -14
   
   DbUseArea( .T., , "Customer.dbf" )
   DbUseArea( .T., , "utf8_01.dbf" )
   DbUseArea( .T., , "states.dbf" )
   //DbGoto( 3 )
   DEFINE WINDOW oWnd TITLE "Test Menu From Databases and Arrays: " MENU MenuDatabase() ;
      FROM 20, 40 TO 650, 1200 PIXEL

   oWnd:bRClicked  := { | nR, nC | MenuDatabase( .T., .F., nR, nC ) }
   CtrlMove( oWnd )

   ACTIVATE WINDOW oWnd ON INIT MenuDatabase( .F., .T., , ) MAXIMIZED

   RELEASE oFontMnu

return nil

//----------------------------------------------------------------------------//

Function MenuDatabase( lPopup, lSys, nR, nC )

   local oMenu
   DEFAULT lPopup  := .F.
   DEFAULT lSys    := .F.

   if !lPopup
      if !lSys
         MENU oMenu 2013 ;
            COLORMENU METRO_STEEL, CLR_WHITE ;
            COLORLEFT CLR_WHITE, METRO_STEEL ;
            COLORRIGHT CLR_WHITE, METRO_STEEL ;
            COLORSELECT CLR_HCYAN, CLR_HCYAN, Rgb( 0, 0, 1 ) ; //CLR_WHITE, CLR_WHITE, CLR_BLUE ;
            COLORSEPARATOR CLR_RED ;
            COLORBOX CLR_WHITE
      else
         REDEFINE SYSMENU oMenu OF oWnd 2013 ;
            COLORMENU METRO_STEEL, CLR_WHITE ;
            COLORLEFT CLR_WHITE, METRO_STEEL ;
            COLORRIGHT CLR_WHITE, METRO_STEEL ;
            COLORSELECT CLR_WHITE, CLR_WHITE, CLR_BLUE ;
            COLORSEPARATOR CLR_RED ;
            COLORBOX CLR_WHITE
         
         SEPARATOR
      endif
   else
      MENU oMenu 2013 POPUP FONT oFontMnu ;
         COLORMENU METRO_STEEL, CLR_WHITE ;
         COLORLEFT CLR_WHITE, METRO_STEEL ;
         COLORRIGHT CLR_WHITE, METRO_STEEL ;
         COLORSELECT CLR_WHITE, CLR_WHITE, CLR_BLUE ;
         COLORSEPARATOR CLR_RED ;
         COLORBOX CLR_WHITE
   endif
   if lPopup
      MENUITEM "Databases and Arrays Test and Font" SEPARATOR OF oMenu BOLD //ITALIC
      SEPARATOR
   endif
   MENUITEM Alias( 1 ) // COLORMENU CLR_RED, CLR_YELLOW
      MENU SELECT Alias( 1 ) LIMIT 16 COLUMNS 1, 4, 5
      ENDMENU
   MENUITEM Alias( 2 )
      MENU SELECT Alias( 2 ) LIMIT 06 COLUMNS 1, 2, 3
      ENDMENU
   MENUITEM Alias( 3 )
      MENU SELECT Alias( 3 ) LIMIT -1 COLUMNS 2
      ENDMENU
   MENUITEM Alias( 2 ) + "_EXPAND"
      MENU SELECT Alias( 2 ) LIMIT 06 COLUMNS 1, 2, 3 EXPAND
      ENDMENU
   MENUITEM Upper( "FieldNames_" ) + Alias( 1 )
      MENU SELECT ( Alias( 1 ) )->( DbStruct() ) LIMIT -1 COLUMNS 2, 1, 3 //, 4
      ENDMENU
   MENUITEM Upper( "FieldNames_" ) + Alias( 1 ) + "_EXPAND"
      MENU SELECT ( Alias( 1 ) )->( DbStruct() ) LIMIT -1 COLUMNS 1, 2, 3, 4 ;
         EXPAND NOFORM HEADERS "Name", "Type", "Length", "Decs"
      ENDMENU
   MENUITEM Upper( "FieldNames" ) + "_EXPAND_FORM_ACTIONS"
      MENU SELECT ( Alias( 1 ) )->( DbStruct() ) LIMIT -1 COLUMNS 1, 2, 3, 4 EXPAND ;
         HEADERS "Name", "Type", "Length", "Decs" ACTION { | oI | MyAction( oI ) }
         //LEFTWIDTH if( lSys, 24, 1 ) ;
         //LOGOMENU "..\bitmaps\fivetechv.png" ;
      ENDMENU
   MENUITEM "EXIT" ACTION oWnd:End() WHEN ( !lPopup .and. !lSys )
   if lPopup
      ENDMENU
      if nC < oWnd:nRight - 400
         ACTIVATE MENU oMenu AT nR, nC OF oWnd  // Limit zone for show menu
      else
         oMenu:End()    // Release Menus created
      endif
   else
      if lSys
         SEPARATOR
         MENUITEM "Reset Menu"  ACTION oMenu:Reset()
         ENDSYSMENU
      else
         ENDMENU
      endif
   endif

Return oMenu

//----------------------------------------------------------------------------//

Function MyAction( oI )
     //oI:SetCheck(.T.)
     ? "Object Item: ", oI, ;
       "Position into Menu Parent: ", oI:nPos, ;
       "oItem cPrompt:", oI:cPrompt, ;
       "oItem Id: ", oI:nId, ;
       "Object Menu Parent of Item: ", oI:oMenu, ;
       "Position of Menu Parent: ", oI:oMenu:nPos
     ? "Object Menu Principal: ", Valtype( GetaMenusAux()[ 1 ] ), GetaMenusAux()[ 1 ]:lMenuBar
     ? "Items of Menu Principal: ", Len( GetaMenusAux()[ 1 ]:aMenuItems )
     ? "Menu Parent of Menu of Item Selected", GetParentAuxMenus( oI:oMenu ), ;
       "Items of this Menu: ", Len( GetParentAuxMenus( oI:oMenu ):aMenuItems ), ;
       "Separators, they are also counted"
     ? "Len Items Menu 5: ", Len( GetaMenusAux()[ 5 ]:aMenuItems )
     ? "Total Menus Create: ", Len( GetaMenusAux() )

Return nil

//----------------------------------------------------------------------------//

Function CtrlMove( oDlg )

   local oFontWD2
   local nRow      := oDlg:nBottom - 150
   local nCol      := oDlg:nRight  - 350
   local nSize     := 32
   local oSay

   @ nRow - 64, 20 GROUP TO nRow + 54, oDlg:nRight - 460 OF oDlg PIXEL PROMPT "  Notes:  "
   @ nRow - 64, oDlg:nRight - 450 GROUP TO nRow + 54, oDlg:nRight - 80 OF oDlg PIXEL PROMPT "  Menu " + Alias( 1 ) + " Changes: "
   @ nRow - 24, 80 SAY " - Press RIGHT BUTTON of Mouse for Test Menu POPUP: [ MAX -> oWnd:nRight - 400 ]" ;
      PIXEL OF oDlg COLOR CLR_WHITE, METRO_OLIVE FONT oFontMnu SIZE 550, 24
   @ nRow + 12, 80 SAY " - Press over ICON Application for Test SYSMENU" PIXEL ;
      OF oDlg COLOR CLR_WHITE, METRO_OLIVE FONT oFontMnu SIZE 550, 24
   @ nRow - 24, nCol - nSize - 24 SAY oSay PROMPT " Controls for movement: " + Alias( 1 ) PIXEL ;
      OF oDlg COLOR CLR_WHITE, METRO_OLIVE FONT oFontMnu SIZE 230, 22

   oFontWD2 := TFont():New( 'Wingdings 3', 0, -21, .f., .f., 0, 0, 400, .f., .f., .f., 2,3, 2, 1,, 18 )
   @ nRow, nCol BTNBMP PROMPT Chr( HexToDec( "72" ) ) SIZE nSize, nSize + 1 PIXEL OF oDlg FLAT  ; //BITMAP aBmp[ 1 ]
      TOOLTIP FWString( "Top" ) + " " + Alias( 1 ) FONT oFontWD2 ACTION ( ATTop() )
   @ nRow, nCol + nSize * 1 + 1 BTNBMP PROMPT Chr( HexToDec( "76" ) ) SIZE nSize, nSize + 1 PIXEL OF oDlg FLAT ;
      TOOLTIP FWString( "Move Up" ) + " " + Alias( 1 ) FONT oFontWD2  ACTION ( Retrocede() )
   @ nRow, nCol + nSize * 2 + 2 BTNBMP PROMPT Chr( HexToDec( "77" ) ) SIZE nSize, nSize + 1 PIXEL OF oDlg FLAT ;
      TOOLTIP FWString( "Move Down" ) + " " + Alias( 1 ) FONT oFontWD2  ACTION ( Avanza() )
   @ nRow, nCol + nSize * 3 + 3 BTNBMP PROMPT Chr( HexToDec( "73" ) ) SIZE nSize, nSize + 1 PIXEL OF oDlg FLAT ;
      TOOLTIP FWString( "Bottom" ) + " " + Alias( 1 ) FONT oFontWD2  ACTION ( ATBottom() )
   oFontWD2:End()
   AEval( oDlg:aControls, { |o| If( o:ClassName() == "TBTNBMP", ( o:SetColor( CLR_WHITE, METRO_OLIVE ), o:nRound := 0 ), nil ) } )
Return nil

//----------------------------------------------------------------------------//

Function Avanza( nAr )

   local nRec    := ( Alias( 1 ) )->( RecNo() )
   local nPos    := 0
   local x
   local oMnu    := GetaMenusAux()[ 2 ]
   local n
   local aItems  := {}
   DEFAULT nAr   := 1
   //? oWnd:oMenu:hMenu, Len( GetaMenusAux()[ 1 ]:aMenuItems ), GetaMenusAux()[ 2 ]:aMenuItems[ 4 ]:cPrompt
   //? GetaMenusAux()[ 1 ]:aMenuItems[ 1 ]:bAction:hMenu, oMnu:hMenu
   if !Empty( oMnu )
      if oMnu:nLimit > 0
         ( Alias( nAr ) )->( DbGoTo( ( oMnu:nLimit * oMnu:nPage ) + 1 ) )
         if ( Alias( nAr ) )->( !Eof() )
            oMnu:nPage++
            aItems   := oMnu:aMenuItems
            x        := 0
            Do While ( Alias( nAr ) )->( !Eof() )
                x++
                if x > oMnu:nLimit
                   Exit
                endif
                For n = 1 to Len( oMnu:aCols )
                   aItems[ x +  ( 2 * n ) + oMnu:nLimit * ( n - 1 ) ]:SetPrompt( ( Alias( nAr ) )->( FieldGet( oMnu:aCols[ n ] ) ) )
                Next n
                ( Alias( nAr ) )->( DbSkip() )
            Enddo
         endif
      endif
   endif
   ( Alias( nAr ) )->( DbGoTo( nRec ) )

Return nil

//----------------------------------------------------------------------------//

Function Retrocede( nAr )

   local nRec    := ( Alias( 1 ) )->( RecNo() )
   local nPos    := 0
   local x
   local oMnu    := GetaMenusAux()[ 2 ]
   local n
   local aItems  := {}
   DEFAULT nAr   := 1
   if !Empty( oMnu )
      if oMnu:nLimit > 0
         ( Alias( nAr ) )->( DbGoTo( ( oMnu:nLimit * ( oMnu:nPage - 2 ) ) + 1 ) )
         if ( Alias( nAr ) )->( !Bof() )
            oMnu:nPage--
            aItems   := oMnu:aMenuItems
            x        := 0
            Do While ( Alias( nAr ) )->( !Bof() )
                x++
                if x > oMnu:nLimit
                   Exit
                endif
                For n = 1 to Len( oMnu:aCols )
                   aItems[ x +  ( 2 * n ) + oMnu:nLimit * ( n - 1 ) ]:SetPrompt( ( Alias( nAr ) )->( FieldGet( oMnu:aCols[ n ] ) ) )
                Next n
                ( Alias( nAr ) )->( DbSkip( 1 ) )
            Enddo
         endif
      endif
   endif
   ( Alias( nAr ) )->( DbGoTo( nRec ) )   

Return nil

//----------------------------------------------------------------------------//

Function ATTop( nAr )

   local nRec    := ( Alias( 1 ) )->( RecNo() )
   local nPos    := 0
   local x
   local oMnu    := GetaMenusAux()[ 2 ]
   local n
   local aItems  := {}
   DEFAULT nAr   := 1
   if !Empty( oMnu )
      if oMnu:nLimit > 0
         ( Alias( nAr ) )->( DbGoTop() )
         if ( Alias( nAr ) )->( !Eof() )
            oMnu:nPage := 1
            aItems   := oMnu:aMenuItems
            x        := 0
            Do While ( Alias( nAr ) )->( !Eof() )
                x++
                if x > oMnu:nLimit
                   Exit
                endif
                For n = 1 to Len( oMnu:aCols )
                   aItems[ x +  ( 2 * n ) + oMnu:nLimit * ( n - 1 ) ]:SetPrompt( ( Alias( nAr ) )->( FieldGet( oMnu:aCols[ n ] ) ) )
                Next n
                ( Alias( nAr ) )->( DbSkip() )
            Enddo
         endif
      endif
   endif
   ( Alias( nAr ) )->( DbGoTo( nRec ) )

Return nil

//----------------------------------------------------------------------------//

Function ATBottom( nAr )

   local nRec    := ( Alias( 1 ) )->( RecNo() )
   local nPos    := 0
   local x
   local oMnu    := GetaMenusAux()[ 2 ]
   local n
   local aItems  := {}
   DEFAULT nAr   := 1
   if !Empty( oMnu )
      if oMnu:nLimit > 0
         ( Alias( nAr ) )->( DbGoTo( ( Alias( 1 ) )->( LastRec() ) - oMnu:nLimit + 1 ) )
         if ( Alias( nAr ) )->( !Eof() )
            oMnu:nPage := if( ( ( Alias( nAr ) )->( LastRec() ) % oMnu:nLimit ) = 0, ;
                              ( ( Alias( nAr ) )->( LastRec() ) / oMnu:nLimit ), ;
                              Int( ( Alias( nAr ) )->( LastRec() ) / oMnu:nLimit ) + 1 )
            aItems   := oMnu:aMenuItems
            x        := 0
            Do While ( Alias( nAr ) )->( !Eof() )
                x++
                if x > oMnu:nLimit
                   Exit
                endif
                For n = 1 to Len( oMnu:aCols )
                   aItems[ x +  ( 2 * n ) + oMnu:nLimit * ( n - 1 ) ]:SetPrompt( ( Alias( nAr ) )->( FieldGet( oMnu:aCols[ n ] ) ) )
                Next n
                ( Alias( nAr ) )->( DbSkip() )
            Enddo
         endif
      endif
   endif
   ( Alias( nAr ) )->( DbGoTo( nRec ) )

Return nil

//----------------------------------------------------------------------------//

Code: Select all | Expand

fld:={1,2}

  MENU oPop POPUP 2015  COLUMNS fld ;
    MENUITEM oCl  PROMPT {"one", "two"}
  ENDMENU

Code: Select all | Expand

//----------------------------------------------------------------------------//
#include "Fivewin.ch"
//----------------------------------------------------------------------------//

Function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "Test Menu MultiColumn: " ;
      FROM 20, 40 TO 650, 1200 PIXEL

   oWnd:bRClicked  := { | nR, nC | MyPopMnu( oWnd, nR, nC ) }

   ACTIVATE WINDOW oWnd

Return nil

//----------------------------------------------------------------------------//

Function MyPopMnu( oWnd, nR, nC )

   local oPop

   MENU oPop POPUP 2015
      MENUITEM "Array" 
      MENU SELECT { { "one1", "two1" }, { "one2", "two2" } }  COLUMNS 1, 2 HEADERS "Col-1", "Col-2"
      ENDMENU
   ENDMENU
   ACTIVATE MENU oPop  AT nR, nC OF oWnd

Return oPop

//----------------------------------------------------------------------------//

Code: Select all | Expand

//----------------------------------------------------------------------------//
#include "Fivewin.ch"
//----------------------------------------------------------------------------//

Static oFontMnu

Function Main()

   local oWnd

   DEFINE FONT oFontMnu NAME "Segoe UI Symbol" SIZE 0, -14

   DEFINE WINDOW oWnd TITLE "Test Menu MultiColumn: " ; // MENU MenuDatabase() ;
      FROM 20, 40 TO 650, 1200 PIXEL

   oWnd:bRClicked  := { | nR, nC | MyPopMnu( oWnd, nR, nC ) }

   ACTIVATE WINDOW oWnd // ON INIT MenuDatabase( .F., .T., , ) MAXIMIZED

Return nil

//----------------------------------------------------------------------------//

Function MyPopMnu( oWnd, nR, nC )

   local oPop
   // local fld := { 1, 2 }

   MENU oPop 2013 POPUP FONT oFontMnu ;
         COLORMENU METRO_STEEL, CLR_WHITE ;
         COLORLEFT CLR_WHITE, METRO_STEEL ;
         COLORRIGHT CLR_WHITE, METRO_STEEL ;
         COLORSELECT CLR_WHITE, CLR_WHITE, CLR_BLUE ;
         COLORSEPARATOR CLR_RED ;
         COLORBOX CLR_WHITE

   // MENU oPop POPUP 2015   //;       COLUMNS fld 
      MENUITEM "Array"   // oCl // PROMPT {"one", "two"}
      MENU SELECT { { "one1", "two1" }, { "one2", "two2" } }  COLUMNS 2, 1 HEADERS "Col-1", "Col-2"
      ENDMENU
   ENDMENU
   ACTIVATE MENU oPop  AT nR, nC OF oWnd

Return oPop

//----------------------------------------------------------------------------//

Code: Select all | Expand

   @ 70, 10 XBROWSE xControl ;
      DATASOURCE Alias() ;
      SIZE nDlgWidth - 24, nDlgHeight - 100 PIXEL ;
      OF xDlg ;
      ON DBLCLICK ( (nRow), (nCol), (nFlags), FWBrowseENTER( xDlg, xControl ) )

   WITH OBJECT xControl
      :SetRdd()
      :bGoTop    := { || ( nSelect )->( FazBrowseTop() ) }
      :bGoBottom := { || ( nSelect )->( FazBrowseBottom() ) }
      :bSkip     := { | n | ( nSelect )->( FazBrowseSkip( n ) ) }
      //:bBof      := { || Bof() }
      //:bEof      := { || Eof() }
      //:bBookMark := { | n | iif( n == nil, RecNo(), DbGoto( n ) ) }
   ENDWITH
   ...
   STATIC FUNCTION FazBrowseSkip( nSkip )

   LOCAL nSkipped := 0

   IF Empty( nSkip  )
      RETURN 0
   ENDIF
   IF nSkip > 0
      DO WHILE nSkipped < nSkip
         SKIP
         IF Eof()
            SKIP -1
            EXIT
         ENDIF
         nSkipped++
      ENDDO
   ELSE
      DO WHILE nSkipped > nSkip
         SKIP -1
         IF Bof()
            SKIP
            EXIT
         ENDIF
         nSkipped--
      ENDDO
   ENDIF

   RETURN nSkipped
   

Code: Select all | Expand

      SIZE nDlgWidth - 24, nDlgHeight - 100 PIXEL ;

Code: Select all | Expand

 SIZE -24,-100 PIXEL

Code: Select all | Expand

xControl:CreateFromCode()

Code: Select all | Expand

::bGoTop    := {|| ( ::cAlias )->( DbGoTop() ) }
::bGoBottom := {|| ( ::cAlias )->( DbGoBottom() ) }
::bSkip     := {| n | ( ::cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) }
::bBof      := {|| ( ::cAlias )->( Bof() ) }
::bEof      := {|| ( ::cAlias )->( Eof() ) }
::bBookMark := {| n | iif( n == nil
                          ( ::cAlias )->( RecNo() )
                          ( ::cAlias )->( DbGoto( n );
                         ) ) }

::bKeyNo    := {| n | iif( n == nil
                         ( ::cAlias )->( OrdKeyNo() )
                         ( ::cAlias )->( OrdKeyGoto( n );
                         ) ) }
::bKeyCount := {|| ( ::cAlias )->( If( eof() .and. bof(), 0, OrdKeyCount() ) ) }

Code: Select all | Expand

function MyDbfSkipper( nRecs )

   local nKeyFrom := OrdKeyNo()
   
   DBSKIP( nRecs )
   if Eof()
      DbGoBottom()
   elseif Bof(
      DbGoTop()
   endif
   
return OrdKeyNo() - nKeyFrom

Code: Select all | Expand

#include "hbclass.ch"

PROCEDURE Main()

   LOCAL a, b, x

   SetMode(30,100)
   CLS

   a := AnyClass():New()
   b := AnyClass():New()

   WITH OBJECT a
      :Value := 10
      x := { || :Value } // created here, seems a:Value
   ENDWITH
   WITH OBJECT b
      ? a:Value
      ? b:Value
      ? eval( x ) // executed here, results b:Value
   ENDWITH
   Inkey(0)

   RETURN

CREATE CLASS AnyClass

   VAR Value INIT 0

   ENDCLASS

Code: Select all | Expand

   WITH OBJECT xControl
      xControl:SetRdd()
      xControl:bGoTop    := {|| ( xControl:cAlias )->( DbGoTop() ) }
      xControl:bGoBottom := {|| ( xControl:cAlias )->( DbGoBottom() ) }
      xControl:bSkip     := {| n | ( xControl:cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) }
      xControl:bBof      := {|| ( xControl:cAlias )->( Bof() ) }
      xControl:bEof      := {|| ( xControl:cAlias )->( Eof() ) }
      xControl:bBookMark := {| n | iif( n == nil,;
         ( xControl:cAlias )->( RecNo() ),;
         ( xControl:cAlias )->( DbGoto( n );
         ) ) }

Code: Select all | Expand

WITH OBJECT xbrowse
   :bGoTop := { || :Rs:MoveFirst() } // may use wrong object, anything:Rs:MoveFirst()
ENDWITH   

Code: Select all | Expand

WITH OBJECT xBrowse
   :bGoTop := RS:MoveNext() // use right object, RS
ENDWITH

Code: Select all | Expand

   // Code-blocks for navitation
   // Caution: Use allways full name for codeblocks, WITH OBJECT may fail

   DATA bGoTop,;     // codeblock for going to first row
        bGoBottom,;  // codeblock for going to last row
        bSkip,;      // codeblock for skiping rows, it receives the number of rows

Code: Select all | Expand

      xControl:bSkip     := {| n | ( xControl:cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) }

Code: Select all | Expand

METHOD Skip( n ) CLASS TXBrowse

   local nStart
   local nSkipped := 0

   if !::lClosed
      TRY
         if Empty( ::aFilter )
            nSkipped := Eval( ::bSkip, n, Self )
         else
            nStart      := ::nFltRow
            ::GoFltRow( ::nFltRow + IfNil( n, 1 ) )
            nSkipped    := ::nFltRow - nStart
         endif
      CATCH
         ::nLen      := 0
         ::lClosed   := .t.
      END
   endif

return nSkipped

Code: Select all | Expand

hb_Default( @n, 1 )

Code: Select all | Expand

FUNCTION hb_Default( a, b )
   IF valType( a ) != ValType( b )
       a := b
     ENDIF
     RETURN Nil

Code: Select all | Expand

METHOD Skip( n ) CLASS TXBrowse

   local nStart
   local nSkipped := 0

   if !::lClosed
      TRY
         hb_Default( @n, 1 )
         if Empty( ::aFilter )
            nSkipped := Eval( ::bSkip, n, Self )
         else
            nStart      := ::nFltRow
            ::GoFltRow( ::nFltRow + n )
            nSkipped    := ::nFltRow - nStart
         endif
      CATCH
         ::nLen      := 0
         ::lClosed   := .t.
      END
   endif

return nSkipped

Code: Select all | Expand

::bGoTop := { || ::oRs:MoveFirst() }

Code: Select all | Expand

WITH OBJECT xBrowse
   :bGoTop := { || :oRs:MoveFirst() } // internal may fail, not defined main object on codeblock
   :bGoTop := { || xBrowse:oRs:MoveFirst() } // internal ok, main object on codeblock is defined
   :bGoTop := { || oRs:MoveFirst() } // external ok, main object on codeblock is defined
ENDWITH

Code: Select all | Expand

  Function MyColors( oBrw )
        local aColors := { , }

       If (cust->resstatus = "###Cancelled" .and. cust->BOOKINGOK = " ")
           aColors := { CLR_BLACK, CLR_STORNO }
       else
          if ((cust->resstatus = "Waitlisted" .or. cust->resstatus = "Reserved"  ).and. cust->BOOKINGOK = " ")
              aColors := {CLR_BLACK,  CLR_BUCHUNG}    
          else
             aColors  := { CLR_BLACK,CLR_WHITE }
       	  endif
       endif

   Return aColors

//-----------------------
  Function MyColors_Focus( oBrw )
        local aColors := { , }
	
				
       If (cust->resstatus = "###Cancelled" .and. cust->BOOKINGOK = " ")
           aColors := { CLR_WHITE, CLR_STORNO_FOKUS }
       else
          if ((cust->resstatus = "Waitlisted" .or. cust->resstatus = "Reserved"  ).and. cust->BOOKINGOK = " ")
              aColors := {CLR_WHITE,  CLR_BUCHUNG_FOKUS}    
          else
             aColors  := { CLR_BLACK,CLR_WHITE }
        endif
       endif
    Return aColors

Code: Select all | Expand

   WITH OBJECT oBrw
      :MakeTotals()
      :lFooter          := .T.
      :l2007            := .f.
      :lRecordSelector  := .F.
      :nMarqueeStyle    := MARQSTYLE_HIGHLROW
      :bClrStd          :=  { || MyColors( oBrw ) } 			//{ || { CLR_GREEN,  CLR_WHITE } }
      :bClrSelFocus     :=  { || MyColors_Focus( oBrw ) }	//{ CLR_WHITE, RGB( 0x33, 0x66, 0xCC ) } }
      :bClrSel          :=  { || MyColors_Focus( oBrw ) }	//{ CLR_WHITE, RGB( 0x33, 0x66, 0xCC ) } }
      :SetColor( CLR_BLUE, CLR_WHITE)		//@IA 20200819
      :nRowHeight       := 80
     // :oFont						:= oFntFocus
      
    
      :CreateFromCode()
   END
//------------

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

    local oChat := TOLlama():New( "deepseek-r1:32b" )

    oChat:Send( "tell me the meaning of life" )
    ? oChat:GetValue()

    oChat:End()

return nil

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

    local oChat := TOLlama():New( "deepseek-r1:32b" )
    local cPrompt

    TEXT INTO cPrompt
Create journal entries in the format: Account, Counteraccount, Description, Net Amount, VAT Rate

Used accounts (SKR03 as base):

1400 - Accounts receivable from goods and services (Debtor) 8400 - Sales of goods (20%/10% VAT) 4800 - VAT (20%) 2500 - Input VAT (10%) 5000 - Goods receipt (for credit notes) Positions:

Laptop Computer - 1 unit, €1273, 20% VAT Return of book “Advanced Computing” - -1 unit, €3.96, 10% VAT Book “Computing for Dummies” - 2 units, €2.48, 10% VAT Return of IBM 5150 Desktop - -1 unit, €25, 0% VAT Network cables - 250 units, €0.75, 20% VAT
If specific accounts are missing, a list of required additions should be output.'    
   ENDTEXT

    oChat:Send( cPrompt )
    fw_memoEdit( oChat:GetValue() )

    oChat:End()

return nil    

Code: Select all | Expand

#include "FiveWin.ch"

static oChat, oOutput
static nStartTime, nTokenCount

function Main()

   local oDlg, cOutput := "", oBtn, oFont
   local oPrompt, cPrompt := Space( 100 )
   
   oChat = TOLlama():New( "deepseek-r1:32b" )
   FW_SetUnicode( .T. )
   
   DEFINE FONT oFont NAME "system-ui" SIZE 0, -16 BOLD

   DEFINE DIALOG oDlg TITLE "Ollama DeepSeek" SIZE 1200, 600

   @ 5.5, 0.7 GET oOutput VAR cOutput MULTILINE SIZE 590, 200 READONLY FONT oFont

   @ 18.7, 1 SAY "Prompt:" 
   @ 21.5, 4 GET oPrompt VAR cPrompt SIZE 510, 15 
   @ 15.5, 92 BUTTON oBtn PROMPT "Send" SIZE 40, 15 ACTION SendPrompt( cPrompt, oOutput, oBtn, oPrompt ) DEFAULT
   
   ACTIVATE DIALOG oDlg CENTERED

   oChat:End()
   oFont:End()

return nil

function SendPrompt( cPrompt, oOutput, oBtn, oPrompt )

   local cToken

   nStartTime = Seconds()  
   nTokenCount = 0  

   oBtn:Disable()
   oChat:SendStream( AllTrim( cPrompt ), { | cBuffer | ShowTokens( cBuffer ) } )
   ShowTokenStats()
   oBtn:Enable()
   oPrompt:SetFocus()
    
return nil    

function ShowTokens( cBuffer )

    local hResponse := hb_jsonDecode( cBuffer )

    oOutput:Append( hResponse[ "message" ][ "content" ] )
    nTokenCount++
    SysRefresh()

return nil    

function ShowTokenStats()

    local nElapsedTime := Seconds() - nStartTime
    local nTokensPerSecond := iif(nElapsedTime > 0, nTokenCount / nElapsedTime, 0)
 
    oOutput:Append( StrTran( "Tokens por segundo: " + Str( nTokensPerSecond, 10, 2 ), ".", "," ) )
    SysRefresh()
 
 return nil

Code: Select all | Expand

#include "Fivewin.ch"

FUNCTION MAIN()
        LOCAL   oWnd, oBtn1, oBtn2

        DEFINE WINDOW oWnd TITLE "TEST" COLOR "N/W" FROM 10, 10 TO 30, 70 VSCROLL

        @ 8, 10 BUTTON oBtn1 PROMPT "GO ON" SIZE 50, 20 ACTION ShowScrollBar( oWnd:hWnd, .T. ) OF oWnd
        
        @ 8, 20 BUTTON oBtn2 PROMPT "GO OFF" SIZE 50, 20 ACTION ShowScrollBar( oWnd:hWnd, .F. ) OF oWnd

        ACTIVATE WINDOW oWnd
RETURN NIL

#pragma BEGINDUMP

#include <windows.h>
#include <winioctl.h>
#include <stdio.h>
#include <shlobj.h>
#include "hbapi.h"
#include "hbapiitm.h"
#include "hbapifs.h"
#include "hbvm.h"
#include "hbstack.h"

HB_FUNC( SHOWSCROLLBAR )

{
        ShowScrollBar( (HWND)hb_parnl( 1 ), SB_VERT, hb_parl( 2 ) ) ;
}

#pragma ENDDUMP

Code: Select all | Expand

   vwirts@ig.com.br

Code: Select all | Expand

mailto:  vwirts@terra.com.br

Code: Select all | Expand

@ 10, 550 COMBOBOX oBrw:oSortCbx VAR oBrw:cSortOrder  SIZE 150,400 PIXEL OF oDlg

Code: Select all | Expand

@ 10, 70 COMBOBOX nWild ITEMS { "Starting With", "Containing" } ;
      ON CHANGE ( oBrw:lSeekWild := ( nWild == 2 ), ;
                  oBrw:Seek( If( oBrw:lSeekWild, oBrw:cSeek, "" ) ), ;
                  oBrw:SetFocus() ) ;
      SIZE 70,400 PIXEL OF oDlg

Code: Select all | Expand

oRs := oBD:Query("SELECT field1,field2,field3,Concat(field1,field2) AS chave FROM tablecust ORDER BY chave
oRs:Seek( vGet1+vGet2 )

Code: Select all | Expand

#include "FiveWin.ch"
#include "Constant.ch"

 #define DLG_nColorDlg     RGB(245,245,235)
 #define DLG_nColortitle1  RGB(219,230,244)
 #define DLG_nColortitle2  RGB(207,221,239)
 #define DLG_nColorBar1    RGB(250,250,245)
 #define DLG_nColorBar2    RGB(245,245,235)
 #define DLG_nColorBtn1    RGB(245,245,235)
 #define DLG_nColorBtn2    RGB(250,250,245)
 #define DLG_nColorBtnB    RGB(195,195,185)


Function test()
 local oDlg
 local aGet:=array(2)
  local oSay:=array(2)
 local oBtnSel:= array(2)
 local cCodEmail:=space(30)
 local cCodEmailPec:=space(30)
 local cMailName:=""

 local nRow:=10,nCol:=10
 local nInterlinea:= 30
 local nSizeHGet:= 24

   local nBottom:= 20
   local nRight := 100
   local nHt    := nBottom * DLG_CHARPIX_H
   local nWd    := Max( nRight * DLG_CHARPIX_W, 180 )
   local oCursorBtn :=TCursor():New(,'HAND')

   local  oFont := TFont():New("Tahoma", 0, 18, , )
   local  oBold := TFont():New("Tahoma", 0, 16, , .t.)


DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL TRUEPIXEL ;
       FONT oFont  TiTle "Account Invio" COLOR CLR_BLACK, DLG_nColorDlg  ;
       STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;
                  WS_MINIMIZEBOX)

    @ nRow, 320 SAY oSay[1] PROMPT  "email" SIZE 100,25  PIXEL OF oDlg TRANSPARENT  FONT oFont
    @ nRow, 420 GET aGet[1] VAR cCodEmail SIZE 160,nSizeHGet PIXEL OF oDlg;
    ON CHANGE ( oDlg:AEvalWhen(), oDlg:Update() )

   @  nRow, oDlg:nWidth-148  BTNBMP oBtnSel[1] ;
      PROMPT "Account Invio" LEFT                 ;
      RESOURCE "SEL_PIE", "", "SEL_VUO", "" ;
      SIZE 130, nSizeHGet PIXEL FLAT NOROUND GDIP  OF oDlg ;
      WHEN ValidaEmail( cCodEmail )  UPDATE  ;
      ACTION  Account_Invio_Email()

                        /*  ACTION (Account_Invio_Email(), ;
                        IIF(  !empty(cMailName),;
                        oBtnSel[2]:SETFILE("SEL_PIE"),;
                        oBtnSel[2]:SETFILE("SEL_VUO") ) ) ; */

    nRow+=nInterlinea
   @ nRow, 320 SAY oSay[2] PROMPT  "email PEC" SIZE 100,25  PIXEL OF oDlg TRANSPARENT  FONT oFont
   @ nRow, 420 GET aGet[2] VAR cCodEmailPec SIZE 160,nSizeHGet PIXEL OF oDlg;
                     ON CHANGE ( oDlg:AEvalWhen(), oDlg:Update() )



   @  nRow, oDlg:nWidth-148  BTNBMP oBtnSel[2] ;
      PROMPT "Account Invio" LEFT                 ;
      RESOURCE "SEL_PIE", "", "SEL_VUO", "" ;
      SIZE 130, nSizeHGet PIXEL FLAT NOROUND GDIP  OF oDlg ;
      WHEN ValidaEmail( cCodEmailPec )  UPDATE  ;
      ACTION Account_Invio_Email()




            /*  ACTION (Account_Invio_Email(), ;
                        IIF(  !empty(cMailName),;
                        oBtnSel[2]:SETFILE("SEL_PIE"),;
                        oBtnSel[2]:SETFILE("SEL_VUO") ) ) ; */





                For n= 1 to 2
             oBtnSel[n]:bClrGrad := { | lPressed | If( ! lPressed,;
                 { { 1, DLG_nColorBar1, DLG_nColorBar1} },;
                 { { 1, DLG_nColorBar2, DLG_nColorBar2} } ) }
             oBtnSel[n]:nClrBorder := DLG_nColorBtnB
             oBtnSel[n]:oCursor:=   oCursorBtn
             oBtnSel[n]:nClrFocusRect := DLG_nColorBar2
             oBtnSel[n]:nDeepFocusRect := 0
             next

             ACTIVATE DIALOG oDlg CENTERED


RETURN NIL

function validaEmail(cEmail) //Nageswarao
   static preCompiled
   DEFAULT preCompiled := hb_regexComp("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$")
      return !Empty( hb_regex( preCompiled, alltrim( cEmail ) ) )

function  Account_Invio_Email ()
            Msginfo("Email")
   return nil

Code: Select all | Expand

FUNCTION Marc_SETFILTER( oBrw ) 

   LOCAL cFilter := ""
   LOCAL n, oCol, uVal, cType, cVal1, cVal2, nGevonden
   LOCAL nZoekKnop, cExprt
   LOCAL cAlias:= alias()
   FOR n := 1 TO Len( oBrw:aCols )
      oCol  := oBrw:aCols[ n ]
      IF ! Empty( uVal := oCol:uBarGetVal )
         IF !Empty( cFilter )
            cFilter  += " .AND. "
         ENDIF
         cType    := ValType( uVal )
         if cType = "C"
           nGevonden = at("++",uVal)  //  I do this for multiple search in 1 go
         endif
         if cType = "C"
           nZoekKnop = at("²",uVal)  //  To force a extra key to activated the search in browse
         endif

         DO CASE
          CASE cType == 'C' .and. nZoekKnop > 0  
            uVal     := Upper( AllTrim( uVal ) )
            cVal1 = substr(uVal,1,nZoekknop-2)
            cFilter += '"' + cVal1 + '" $ UPPER( ' + oCol:CExpr + " )"
          CASE cType == 'C' .and. nGevonden > 0
            uVal     := Upper( AllTrim( uVal ) )
            cVal1 = substr(uVal,1,nGevonden-1)
            cVal2 = substr(uVal,nGevonden+2)

            cFilter += '"' + cVal1 + '" $ UPPER( ' + oCol:CExpr + " )"
            cFilter += " .AND. "
            cFilter += '"' + cVal2 + '" $ UPPER( ' + oCol:CExpr + " )"
         CASE cType == 'C'
            uVal     := Upper( AllTrim( uVal ) )
            cFilter += '"' + uVal + '" $ UPPER( ' + oCol:CExpr + " )"
         CASE cType == 'D'
            cFilter  += oCol:cExpr + " = " + ( uVal )
         OTHERWISE
            cFilter  += oCol:cExpr + " == " + cValToChar( uVal )
         ENDCASE
      ENDIF
   NEXT
   IF Empty( cFilter )
      IF ! Empty( dbFilter() )
         dbClearFilter()
         oBrw:Refresh()
      ENDIF
   ELSE

      IF !( dbFilter() == cFilter )
         oClp:SetText(cFilter)  // For personel creating of Indexes to use more times
         if !empty(cAlias)
           SET FILTER TO &cFilter
           oClp:SetText(cFilter)
           GO TOP
         else
           msginfo("Error.... Geen Alias beschikbaar")
         endif

         oBrw:Refresh()
      ENDIF

   ENDIF
   oBrw:maketotals() 
   oBrw:SetFocus()
RETURN NIL

Code: Select all | Expand

PROCEDURE CreateURLShortcut(cFileName, cURL)
   LOCAL hFile

   // Ensure the filename ends with .url
   IF AT(".url", LOWER(cFileName)) == 0
      cFileName += ".url"
   ENDIF

   // Create and write to the file
   hFile := FCreate(cFileName)
   IF hFile != -1
      FWrite(hFile, "[InternetShortcut]" + Chr(13) + Chr(10))
      FWrite(hFile, "URL=" + cURL + Chr(13) + Chr(10))
      FClose(hFile)
   ELSE
      ? "Error creating file:", cFileName
   ENDIF
RETURN

// Usage:
CreateURLShortcut("MyWebShortcut.url", "https://www.example.com")

Code: Select all | Expand

PROCEDURE CreateLNKShortcut(cLnkPath, cURL)
   LOCAL oShell, oShortcut

   // Initialize COM (if not already done)
   IF !Empty(GetActiveObject("WScript.Shell"))
      oShell := CreateObject("WScript.Shell")
   ELSE
      ? "COM initialization failed."
      RETURN
   ENDIF

   // Create the shortcut
   oShortcut := oShell:CreateShortcut(cLnkPath)
   oShortcut:TargetPath := "rundll32.exe"
   oShortcut:Arguments := "url.dll,FileProtocolHandler " + cURL
   oShortcut:Save()
RETURN

// Usage:
CreateLNKShortcut("MyWebShortcut.lnk", "https://www.example.com")

Code: Select all | Expand

 
#include "FiveWin.ch"



request dbfcdx
request dbffpt

request hb_lang_it
request hb_codepage_itwin



 function Main()
    local nRow:= 10,nCol:= 2
    local nInterlinea:= 40
    local oWnd

       RddSetDefault( "DBFCDX" )
       HB_LANGSELECT( "IT" )
       HB_SETCODEPAGE( "ITWIN" )
       SetHandleCount( 100 )
       FWNumFormat( "E", .t. )

       SET DATE FORMAT "dd-mm-yyyy"
       SET DELETED     ON
       SET CENTURY     ON
       SET EPOCH TO    year( date() ) - 20
       SET MULTIPLE    OFF
       SetGetColorFocus(nRGB( 203, 225, 252 ))
       SetMGetColorFocus(nRGB( 203, 225, 252 ))

         test()

         return nil


Function test()
local cUser

cUser:="silvio"

? Calcola_TempoAccesso(cUser)

return nil


Function Calcola_TempoAccesso(cUser)
   Local oUtenti, oTabAct, cString := ""
   Local cStatus, dAccessDate, nTotalTime := 0
   Local tEntrata, tUscita
   Local nMinutes, nSeconds, nHours
   Local nArea := Select()

   tEntrata := ""
   tUscita  := ""
   nMinutes := 0
   nSeconds := 0
   nHours   := 0

   // Apri l'archivio oUtenti e controlla lo stato dell'utente
   oUtenti := TDatabase():Open( , "Utenti", "DBFCDX", .T. )
   oUtenti:SetOrder(1) // username
   oUtenti:GoTop()

   Do While !oUtenti:Eof()
      If AllTrim(oUtenti:UserName) == AllTrim(cUser)  
         cStatus := AllTrim(oUtenti:Status)
         dAccessDate := oUtenti:Fecha
         Exit
      EndIf
      oUtenti:Skip()
   EndDo

   // Se l'utente è ancora connesso, restituisci "Attualmente connesso"
   IF cStatus == "Ã"
      oUtenti:Close()
      Select (nArea)
      Return "Attualmente connesso"
   ELSE
      // Se l'utente non è connesso, calcola il tempo di accesso per quella data
      oTabAct := TDatabase():Open( , "tabact", "DBFCDX", .T. )
      oTabAct:SetOrder(2)
      oTabAct:GoTop()

      Do While !oTabAct:Eof()
         If AllTrim(oTabAct:Usuario) == AllTrim(cUser) .And. oTabAct:Fecha == dAccessDate
            If At("Entrata", AllTrim(oTabAct:Accion)) > 0
               tEntrata := AllTrim(oTabAct:Hora)  // Memorizza l'orario di entrata

               // Debug: Mostra l'orario di entrata appena letto
            *   ? "Orario di Entrata letto: ", tEntrata

               // Verifica il formato di tEntrata
               If Len(tEntrata) == 5
                  tEntrata := tEntrata + ":00"  // Aggiungi ":00" se non ci sono i secondi
               EndIf

               // Debug: Mostra l'orario di entrata dopo modifica
               * ? "Orario di Entrata dopo modifica: ", tEntrata
               logfile("silvio.txt", "Orario di Entrata dopo modifica: "+ tEntrata)

            ElseIf At("Uscita", AllTrim(oTabAct:Accion)) > 0
               tUscita := AllTrim(oTabAct:Hora)  // Memorizza l'orario di uscita
               // Debug: Mostra l'orario di uscita
              * ? "Orario di Uscita (tUscita): ", tUscita

               // Verifica il formato di tUscita
               If Len(tUscita) == 5
                  tUscita := tUscita + ":00"  // Aggiungi ":00" se non ci sono i secondi
               EndIf

               // Debug: Mostra l'orario di uscita dopo modifica

               logfile("silvio.txt", "Orario di Uscita dopo modifica: "+ tUscita)

               // Calcola la differenza in secondi
               nTotalTime += TimeDifferenceInSeconds(tEntrata, tUscita)
            EndIf
         EndIf
         oTabAct:Skip()
      EndDo

      If nTotalTime > 0
         // Converto la differenza in secondi nei formati giusti (ore, minuti, secondi)
         nHours   := Int(nTotalTime / 3600)            // Ore intere (3600 secondi in un'ora)
         nMinutes := Int((nTotalTime % 3600) / 60)    // Minuti rimanenti
         nSeconds := nTotalTime % 60                  // Secondi rimanenti

         If nHours > 0
            cString := Str(nHours, 6, 0) + " ore, " + Str(nMinutes, 2, 0) + " minuti e " + Str(nSeconds, 2, 0) + " secondi"
         ElseIf nMinutes > 0
            cString := Str(nMinutes, 6, 0) + " minuti e " + Str(nSeconds, 2, 0) + " secondi"
         Else
            cString := Str(nSeconds, 6, 0) + " secondi"
         EndIf
      Else
         cString := "Nessun dato di accesso trovato per la data " + dtoc(dAccessDate)
      EndIf

      oTabAct:Close()
   EndIf

   Select (nArea)
   oUtenti:Close()

   Return cString

   Function TimeDifferenceInSeconds(cStartTime, cEndTime)
   Local nStartHour, nStartMinute, nStartSecond
   Local nEndHour, nEndMinute, nEndSecond
   Local nStartSeconds, nEndSeconds
   Local nTimeDifference


    logfile("silvio.txt", "*Orario di Entrata : "+ cStartTime)
    logfile("silvio.txt", "*Orario di Uscita : "+ cEndTime)

   // Verifica se i parametri sono in formato stringa "hh:mm:ss"
   If Len(cStartTime) == 8 .And. Len(cEndTime) == 8
      // Estrarre ore, minuti e secondi
      nStartHour   := Val(SubStr(cStartTime, 1, 2)) // ore di inizio
      nStartMinute := Val(SubStr(cStartTime, 4, 2)) // minuti di inizio
      nStartSecond := Val(SubStr(cStartTime, 7, 2)) // secondi di inizio

      nEndHour   := Val(SubStr(cEndTime, 1, 2)) // ore di fine
      nEndMinute := Val(SubStr(cEndTime, 4, 2)) // minuti di fine
      nEndSecond := Val(SubStr(cEndTime, 7, 2)) // secondi di fine

      // Calcola i secondi totali dall'inizio della giornata
      nStartSeconds := (nStartHour * 3600) + (nStartMinute * 60) + nStartSecond
      nEndSeconds   := (nEndHour * 3600) + (nEndMinute * 60) + nEndSecond

      // Calcola la differenza in secondi
      nTimeDifference := nEndSeconds - nStartSeconds

      // Restituisci la differenza in secondi
      Return nTimeDifference
   Else
     * ? "Errore: Gli orari non sono nel formato corretto"
      Return 0
   EndIf

Code: Select all | Expand

// from cmd run: ollama serve

#include "FiveWin.ch"

static oChat, oOutput
static nStartTime, nTokenCount

function Main()

   local oDlg, cOutput := "", oBtn, oFont
   local oPrompt, cPrompt := Space( 100 )
   
   oChat = TOLlama():New( "phi4" ) 
   FW_SetUnicode( .T. )
   
   DEFINE FONT oFont NAME "system-ui" SIZE 0, -16 BOLD

   DEFINE DIALOG oDlg TITLE "Ollama Phi4" SIZE 1200, 600

   @ 5.5, 0.7 GET oOutput VAR cOutput MULTILINE SIZE 590, 200 READONLY FONT oFont

   @ 18.7, 1 SAY "Prompt:" 
   @ 21.5, 4 GET oPrompt VAR cPrompt SIZE 510, 15 
   @ 15.5, 92 BUTTON oBtn PROMPT "Send" SIZE 40, 15 ACTION SendPrompt( cPrompt, oOutput, oBtn, oPrompt ) DEFAULT
   
   ACTIVATE DIALOG oDlg CENTERED

   oChat:End()
   oFont:End()

return nil

function SendPrompt( cPrompt, oOutput, oBtn, oPrompt )

   local cToken

   nStartTime = Seconds()  
   nTokenCount = 0  

   oBtn:Disable()
   oChat:SendStream( AllTrim( cPrompt ), { | cBuffer | ShowTokens( cBuffer ) } )
   ShowTokenStats()
   oBtn:Enable()
   oPrompt:SetFocus()
    
return nil    

function ShowTokens( cBuffer )

    local hResponse 
    
    hb_jsonDecode( cBuffer, @hResponse )

    oOutput:Append( hResponse[ "message" ][ "content" ] )
    nTokenCount++
    SysRefresh()

return nil    

function ShowTokenStats()

    local nElapsedTime := Seconds() - nStartTime
    local nTokensPerSecond := iif(nElapsedTime > 0, nTokenCount / nElapsedTime, 0)
 
    oOutput:Append( StrTran( "Tokens por segundo: " + Str( nTokensPerSecond, 10, 2 ), ".", "," ) )
    SysRefresh()
 
 return nil

Code: Select all | Expand

 DEFINE BUTTONBAR oBar OF oDlg  SIZE 100,70  TOP NOBORDER  2015

Code: Select all | Expand

Btnbar(1,oDlg:oBar,oDlg,oDbf,oBrw,aBtnBrow[4]),;

Code: Select all | Expand

 
 Error description: Error BASE/1004  Metodo non disponibile: ACONTROLS
   Args:
     [   1] = U   

Stack Calls
===========
   Called from: source\PConti.prg => ACONTROLS( 0 )
   Called from: source\PConti.prg => HIDE_RADIO2( 681 )
   
   

Code: Select all | Expand

// developed by Cristobal Navarro

#include 'fivewin.ch'
#include 'xbrowse.ch'
#include "constant.ch"

Function test()

   local oDlg,oDbf,oFont
   local oBar

   local  nBottom   := 27.2
   local  nRight    := 89
   local  nWd       := Max( nRight * DLG_CHARPIX_W, 180 )
   local  nHt       := nBottom * DLG_CHARPIX_H

   DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL TRUEPIXEL;
         TiTle "test"
      oDlg:lHelpIcon := .F.      

   @ 90,  10 Button "Second bar" size 100,18 PIXEL OF oDlg action Btnbar(2,oDlg:oBar,oDlg)
   @ 90, 200 Button "First bar"  size 100,18 PIXEL OF oDlg action Btnbar(1,oDlg:oBar,oDlg)

   @ 90, 400 Button "hide/show button"  size 100,18 PIXEL OF oDlg action Hide_button(oDlg:oBar)

   ACTIVATE DIALOG oDlg  CENTER   ;
          ON INIT ( Btnbar(0,oBar,oDlg), Btnbar(1,oDlg:oBar,oDlg ))
RETURN NIL

//----------------------------------------------------------------------------//

Function Btnbar(nBar,oBar,oDlg)  // ,aBtnBar

   local aBtnBar
   local x

   if Valtype( oBar ) = "O"
      For x := Len( oBar:aControls ) to 1 step - 1
         oBar:Del( x )
      Next x
   endif

  Do case
  case nbar = 0
     DEFINE BUTTONBAR oBar OF oDlg  SIZE 80,70  TOP NOBORDER  2015

  case nbar = 1
   aBtnBar := array(6)
   DEFINE BUTTON aBtnBar[1] OF oBar PROMPT "New"       action msginfo()
   DEFINE BUTTON aBtnBar[2] OF oBar PROMPT "Modify"    action msginfo()
   DEFINE BUTTON aBtnBar[3] OF oBar PROMPT "Duplicate" action msginfo()
   DEFINE BUTTON aBtnBar[4] OF oBar PROMPT "Del"       action msginfo()
   DEFINE BUTTON aBtnBar[5] OF oBar PROMPT "Print"     action msginfo()
   DEFINE BUTTON aBtnBar[6] OF oBar PROMPT "Help"      action msginfo("Help")
   
              aBtnBar[6]:hide()
              
  case nbar = 2
   aBtnBar := array(2)
   DEFINE BUTTON aBtnBar[1] OF oBar PROMPT "Del"       action msginfo("Del")
   DEFINE BUTTON aBtnBar[2] OF oBar PROMPT "Print"     action msginfo("Print")

  endcase

return oBar

//----------------------------------------------------------------------------//


Function Hide_button(oBar)
        oBar:arcontrols[6]:show()
   return nil

Code: Select all | Expand

rror description: Error BASE/1071  Argument error: =
   Args:
     [   1] = L   .T.
     [   2] = C   .T.

Stack Calls
===========
   Called from: .\source\classes\database.prg => (b)COMPILE( 1305 )

Code: Select all | Expand

cFilter:= "MARRIED=.T."

Code: Select all | Expand

#include "fivewin.ch"

function Main()

   local oDlg, aBtn[ 4 ]

   DEFINE DIALOG oDlg SIZE 600,300 PIXEL TRUEPIXEL

   @ 40,180 BTNBMP aBtn[ 2 ] PROMPT "btnbmp" SIZE 100,40 PIXEL OF oDlg CENTER ;
      ACTION ::ShowPopUp( PopupObject( Self ) )

   ACTIVATE DIALOG oDlg CENTERED

return nil

function PopupObject(oBtn)

   local oPop

   MENU oPop POPUP
      MENUITEM "One"   ACTION test(oPop,oBtn);
      CHECKED

      MENUITEM "Two"
   ENDMENU

return oPop


Function test(oPop,oBtn)
   local n
   Msginfo("change")
   
for n=1 to len(oPop:aItems)
oPop:aItems[n]:SetCheck(.f.)
next n

oBtn:refresh()

return nil





  

Code: Select all | Expand

#!/bin/bash
cUser='admin'
cPass='Max61'
cServer='125.15.13.12'
cQuery="SELECT ut codice_cliente, rag nominativo, cf codice_fiscale, piv partita_iva FROM ute WHERE rag like '%MAX%'"
/opt/mssql-tools18/bin/sqlcmd -S $cServer -U $cUser -P $cPass -d BEG_DATI -p -Q "$cQuery" -C
exit 0

Code: Select all | Expand

#require "hbodbc"
***********************************
Function Main()

LOCAL cConnString, hDbc, hStmt, cQuery, cResult, nFetch 

REQUEST HB_LANG_IT
HB_LANGSELECT("IT")
REQUEST DBFCDX
REQUEST DBFFPT
RddRegister( "DBFCDX", 1 )
RddSetDefault("DBFCDX")
SET(_SET_AUTORDER,1)
SET AUTOPEN ON

SET DATE BRITISH
SET DELETED ON
SET CENTURY ON
SET EPOCH TO YEAR(DATE())

// Define the ODBC connection string (replace with your actual details)
cConnString := "Driver={ODBC Driver 18 for SQL Server};Server=125.15.13.12;Database=SQL_DATI;UID=admin;PWD=Max61;"

// Initialize the connection handle (hDbc) using SQLConnect
hDbc := SQLConnect( cConnString )

// Check if the connection was successful

IF hDbc == NIL
    ? "Connection failed!"
    RETURN
ENDIF
   
Return nil 

Code: Select all | Expand

         static PNG_CONST png_uint_32 row_mask[2/*PACKSWAP*/][3/*depth*/][6] =
         {
            /* Little-endian byte masks for PACKSWAP */
            { S_MASKS(1,0), S_MASKS(2,0), S_MASKS(4,0) },  <--- LINE 3349
            /* Normal (big-endian byte) masks - PNG format */
            { S_MASKS(1,1), S_MASKS(2,1), S_MASKS(4,1) }
         };

Code: Select all | Expand

xLINK: error: Unresolved external symbol '_xCCGetLargestConsoleWindowSize referenced from gtwin.lib(gtwin.obj)'.

Code: Select all | Expand

/*
ZE_GRAFTEMPO - GRAFICOS DE PROCESSAMENTO
1990.05 - José Quintas
*/

#include "inkey.ch"
#include "set.ch"

#define GRAFMODE 1
#define GRAFTIME 2
#define GRAF_SEC_OLD  1
#define GRAF_SEC_INI  2
#define GRAF_TXT_BAR  3
#define GRAF_TXT_TEXT 4

FUNCTION GrafProc( nRow, nCol )

   THREAD STATIC GrafInfo := { 1, "X" }
   LOCAL mSetDevice

   hb_Default( @nRow, MaxRow() - 1 )
   hb_Default( @nCol, MaxCol() - 2 )
   IF GrafInfo[ GRAFTIME ] != Time()
      mSetDevice := Set( _SET_DEVICE, "SCREEN" )
      @ nRow, nCol SAY "(" + Substr( "|/-\", GrafInfo[ GRAFMODE ], 1 ) + ")" COLOR SetColorMensagem()
      GrafInfo[ GRAFMODE ] = iif( GrafInfo[ GRAFMODE ] == 4, 1, GrafInfo[ GRAFMODE ] + 1 )
      Set( _SET_DEVICE, mSetDevice )
      GrafInfo[ GRAFTIME ] := Time()
   ENDIF

   RETURN .T.

FUNCTION GrafTempo( xContNow, xContTotal )

   THREAD STATIC aStatic := { 0, 0, "", "" }
   LOCAL nSecondsNow, nSecondsRemaining, nSecondsElapsed, nCont, nPos, cTxt, cCorAnt
   LOCAL nPercent, cTexto, mSetDevice

   xContNow := iif( xContNow == NIL, "", xContNow )
   IF Empty( aStatic[ GRAF_TXT_BAR ] )
      aStatic[ GRAF_TXT_BAR ] := Replicate( ".", MaxCol() )
      FOR nCont = 1 to 10
         nPos := Int( Len( aStatic[ GRAF_TXT_BAR ] ) / 10 * nCont )
         cTxt := lTrim( Str( nCont, 3 ) ) + "0%" + Chr(30)
         aStatic[ GRAF_TXT_BAR ] := Stuff( aStatic[ GRAF_TXT_BAR ], ( nPos - Len( cTxt ) ) + 1, Len( cTxt ), cTxt )
      NEXT
      aStatic[ GRAF_TXT_BAR ] := Chr(30) + aStatic[ GRAF_TXT_BAR ]
   ENDIF
   mSetDevice := Set( _SET_DEVICE, "SCREEN" )
   DO CASE
   CASE ValType( xContNow ) == "C"
      cTexto                  := xContNow
      aStatic[ GRAF_SEC_INI ] := Int( Seconds() )
   CASE xContTotal == NIL
      nPercent := xContNow
   CASE xContNow >= xContTotal
      nPercent := 100
   CASE xContTotal == 0
      nPercent := 0
   OTHERWISE
      nPercent := xContNow / xContTotal * 100
   ENDCASE
   xContNow   := iif( ValType( xContNow ) != "N", 0, xContNow )
   xContTotal := iif( ValType( xContTotal ) != "N", 0, xContTotal )

   cCorAnt := SetColor()
   SetColor( SetColorMensagem() )
   nSecondsNow := Int( Seconds() )
   IF nPercent == NIL
      aStatic[ GRAF_SEC_OLD ] := nSecondsNow
      Mensagem()
      @ MaxRow(), 0 SAY aStatic[ GRAF_TXT_BAR ]
      aStatic[ GRAF_TXT_TEXT ] := cTexto

   ELSEIF nPercent == 100 .OR. ( nSecondsNow != aStatic[ GRAF_SEC_OLD ] .AND. nPercent != 0 )
      aStatic[ GRAF_SEC_OLD ] := nSecondsNow
      nSecondsElapsed   := nSecondsNow - aStatic[ GRAF_SEC_INI ]
      DO WHILE nSecondsElapsed < 0
         nSecondsElapsed += ( 24 * 3600 ) // Acima de 24 horas
      ENDDO
      nSecondsRemaining := nSecondsElapsed / nPercent * ( 100 - nPercent )
      @ MaxRow()-1, 0 SAY aStatic[ GRAF_TXT_TEXT ] + " " + Ltrim( Transform( xContNow, PicVal(14,0) ) ) + "/" + Ltrim( Transform( xContTotal, PicVal(14,0) ) )
      cTxt := "Gasto:"
      cTxt += " " + Ltrim( Str( Int( nSecondsElapsed / 3600 ), 10 ) ) + "h"
      cTxt += " " + Ltrim( Str( Mod( Int( nSecondsElapsed / 60 ), 60 ), 10, 0 ) ) + "m"
      cTxt += " " + Ltrim( Str( Mod( nSecondsElapsed, 60 ), 10, 0 ) ) + "s"
      cTxt += Space(3)
      cTxt += "Falta:"
      cTxt += " " + Ltrim( Str( Int( nSecondsRemaining / 3600 ), 10 ) ) + "h"
      cTxt += " " + Ltrim( Str( Mod( Int( nSecondsRemaining / 60 ), 60 ), 10, 0 ) ) + "m"
      cTxt += " " + Ltrim( Str( Mod( nSecondsRemaining, 60 ), 10, 0 ) ) + "s"
      @ Row(), Col() SAY Padl( cTxt, MaxCol() - Col() - 4 )
      GrafProc()
      @ MaxRow(), 0 SAY Left( aStatic[ GRAF_TXT_BAR ], Len( aStatic[ GRAF_TXT_BAR ] ) * nPercent / 100 ) COLOR SetColorFocus()
   ENDIF
   SetColor( cCorAnt )
   SET( _SET_DEVICE, mSetDevice )

   RETURN .T.

Code: Select all | Expand

USE ( file )
GrafTempo( "processing" )
DO WHILE ! Eof()
   GrafTempo( RecNo(), LastRec() )
   SKIP
ENDDO

Code: Select all | Expand

USE ( file )
INDEX ON field->x FOR GrafTempo( RecNo(), LastRec() )

Code: Select all | Expand

USE ( File ) INDEX ( file )
nAtual := 0
nTotal := LastRec()
DO WHILE ! Eof()
   GrafTempo( nAtual++, nTotal )
   SKIP
ENDDO

Code: Select all | Expand

#include "hmg.ch"
#include "i_altsyntax.ch"

REQUEST HB_CODEPAGE_PTISO

PROCEDURE Main

   LOCAL oControl, aControlList := Array(6), nColor, nRow
   LOCAL nCurrent := 0, nTotal := 100, xDlg := "A"

   DEFINE WINDOW (xDlg) ;
      ROW 0 COL 0 ;
      WIDTH 1024 HEIGHT 768 ;
      TITLE "test" ;
      WINDOWTYPE MAIN ;
      ON INIT SetBackImage( xDlg )

      FOR EACH oControl, nRow, nColor IN aControlList, ;
         { 80, 160, 240, 320, 400, 480 }, ;
         { COLOR_SKYBLUE, COLOR_PERU, COLOR_GOLD, COLOR_VIOLET, COLOR_PEACHPUFF, COLOR_YELLOWGREEN }
         oControl := GraphTime():New( "A", nRow, 10, 500, 50, "working", nColor )
      NEXT

      DEFINE BUTTON BUTTON_1
         ROW      40
         COL      10
         CAPTION      'Click Me!'
         ACTION      AEval( aControlList, { | e | e:SetValues( nCurrent += 2, nTotal ) } )
         DEFAULT      .T.
      END BUTTON

   END WINDOW

   ACTIVATE WINDOW A

   RETURN

FUNCTION SetBackImage( xDlg )

   LOCAL hBrush

   DoMethod( xDlg, "DISABLEUPDATE" )
   DEFINE BKGBRUSH hBrush PATTERN IMAGE "imw10.png" IN ( xDlg )
   DoMethod( xDlg, "ENABLEUPDATE" )
   (hBrush)

   RETURN Nil

Code: Select all | Expand

/*
graphtime - graphic with time calculate
*/

#include "hmg.ch"
#include "i_altsyntax.ch"
#include "i_wincolor.ch"
#include "hbclass.ch"

STATIC nWindow := 1

CREATE CLASS GraphTime

   VAR xDlg
   VAR Parent
   VAR cTimeShow   INIT Time()
   VAR nSecondsInit
   VAR nSecondsOld
   VAR cText
   METHOD New( Parent, nRow, nCol, nWidth, nHeight, cTitle, xColor )
   METHOD SetValues( nCurrent, nTotal )

   ENDCLASS

METHOD SetValues( nCurrent, nTotal ) CLASS GraphTime

   LOCAL nSecNow, nSecElapsed, nSecRemaining, nPercent, nNewWidth, cCaption

   nCurrent := Min( nCurrent, nTotal )
   nSecNow := Int( Seconds() )
   IF nSecNow != ::nSecondsOld .AND. nCurrent != 0
      nNewWidth := Int( GetProperty( ::xDlg, "label1", "WIDTH" ) * nCurrent / nTotal )
      SetProperty( ::xDlg, "label3", "WIDTH", nNewWidth )
      ::nSecondsOld := nSecNow

      nSecElapsed   := nSecNow - ::nSecondsInit
      nSecRemaining := nSecElapsed / nCurrent * ( nTotal - nCurrent )
      nPercent := nCurrent * 100 / nTotal
      SetProperty( ::xDlg, "label1", "VALUE", ;
         Ltrim( Str( nCurrent ) ) + "/" + Ltrim( Str( nTotal ) ) + " " + ;
         "Elapsed " + SecToTime( nSecElapsed ) + ;
         " Remain " + SecToTime( nSecRemaining ) )
      cCaption := ::cText + " " + Ltrim( Str( nPercent ) ) + "%"
      SetProperty( ::xDlg, "label2", "VALUE", cCaption )
      SetProperty( ::xDlg, "label3", "VALUE", cCaption )
   ENDIF

   RETURN Nil

METHOD New( Parent, nRow, nCol, nWidth, nHeight, cTitle, xColor ) CLASS GraphTime

   ::cText := cTitle
   ::Parent := Parent
   ::nSecondsInit := Int( Seconds() )
   ::nSecondsOld  := Int( Seconds() )
   ::xDlg := "GTIME" + StrZero( nWindow++, 3 )

   DEFINE WINDOW ( ::xDlg ) ;
      ROW nRow ;
      COL nCol ;
      WIDTH nWidth ;
      HEIGHT nHeight ;
      WINDOWTYPE PANEL

      DEFINE LABEL ( "label1" )
         PARENT ( ::xDlg )
         ROW 10
         COL 10
         VALUE ""
         BORDER .T.
         WIDTH nWidth - 30
         HEIGHT 20
         BORDER .T.
      END LABEL

      DEFINE LABEL ( "label2" )
         PARENT ( ::xDlg )
         ROW 30
         COL 10
         VALUE ::cText
         BORDER .T.
         WIDTH nWidth - 30
         HEIGHT 20
         BORDER .T.
      END LABEL

      DEFINE LABEL ( "label3" )
         PARENT ( ::xDlg )
         ROW 30
         COL 10
         VALUE ::cText
         WIDTH 1
         HEIGHT 20
         BACKCOLOR xColor
         BORDER .T.
      END LABEL
   END WINDOW

   RETURN Self

Code: Select all | Expand

   Mensagem( "Fazendo backup da base SQL" )

   WITH OBJECT cnSQL
      :Execute( "SHOW PROCEDURE STATUS WHERE db = DATABASE()" )
      nTotal += :RecordCount()
      :CloseRecordset()
      :Execute( "SHOW FUNCTION STATUS WHERE db = DATABASE()" )
      nTotal += :RecordCount()
      :CloseRecordset()
      :Execute( "SELECT table_name FROM information_schema.TABLES" + ;
         " WHERE table_schema = " + StringSQL( Lower( AppEmpresaApelido() ) ) + ;
         " AND  TABLE_TYPE = 'BASE TABLE'" )
      DO WHILE ! :Eof()
         nTotal += 1
         oTableRec := cnSQL:ExecuteReturnRS( "SELECT COUNT(*) AS QTD FROM " + cnSQL:String( "table_name" ) )
         nTotal += oTableRec:Fields( "QTD" ):Value
         oTableRec:Close()
         :MoveNext()
      ENDDO
      :CloseRecordset()
   ENDWITH

   GrafTempo( "Backup SQL" )
   nAtual := 0

   hFileOutput := fCreate( "backup" + Str( nBackupFileNum, 1 ) + ".sql", FC_NORMAL )
...
GrafTempo( nAtual, nTotal )
...

Code: Select all | Expand

FUNCTION Mensagem( cTexto )
   LOCAL cColorOld
   cColorOld := SetColor()
   hb_Default( @cTexto, "" )
   SetColor( SetColorMensagem() )
   Scroll( MaxRow() - 1, 0, MaxRow(), MaxCol(), 0 )
   @ MaxRow() - 1, 0 SAY cTexto
   SetColor( cColorOld )
   RETURN Nil

FUNCTION SetColorMensagem()
   RETURN "W/N"

FUNCTION SetColorFocus()
   RETURN "W/GR+"

FUNCTION PicVal( nLen, nDec )
   LOCAL cPicture
   hb_Default( @nDec, 0 )
   cPicture := Replicate( "9", nLen )
   cPicture := Ltrim( Transform( Val( cPicture ), "999,999,999,999,999" ) )
   IF nDec != 0
      cPicture += "." + Replicate( "9", nDec )
   ENDIF
   cPicture := "@E " + cPicture
   RETURN cPicture
   

Code: Select all | Expand

WITH OBJECT oBrw
                    :SetMultiSelectCol()

Code: Select all | Expand

// C:\FWH\SAMPLES\MULTSEL.PRG by mister Rao.

#include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"
#include "hbcompat.ch"

REQUEST DBFCDX

FUNCTION Main()

   LOCAL oDlg, oBrw, oFont

   XbrNumFormat( 'A', .T. )

   USE CUSTOMER NEW ALIAS "CUST" SHARED VIA "DBFCDX"

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0, - 14 BOLD

   DEFINE DIALOG oDlg SIZE 700, 400 PIXEL FONT oFont

   oDlg:lHelpIcon := .F.

   @ 10, 10 XBROWSE oBrw SIZE - 10, - 10 PIXEL OF oDlg ;
      DATASOURCE "CUST"                                ;
      COLUMNS "FIRST", "CITY", "AGE", "SALARY"         ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw:InsCol( 1 )

      :bEditValue    := {|| AScan( oBrw:aSelected, oBrw:BookMark ) > 0 }
      :SetCheck()
      :nHeadBmpNo    := {|| If( Len( oBrw:aSelected ) == oBrw:nLen, 1, 2 ) }

   END

   WITH OBJECT oBrw

      :nMarqueeStyle := MARQSTYLE_HIGHLROWMS // multisel does the job
      // :nMarqueeStyle := MARQSTYLE_HIGHLROW
      :lMultiSelect  := .F.
      :bClrSelFocus  := {|| { CLR_BLACK, CLR_HGRAY } }
      :nStretchCol   := 3

      :aCols[ 1 ]:bClrSelFocus := {|| {  CLR_BLACK, CLR_WHITE } }

      :bLClicked     := {| r, c, f, oBrw | If( oBrw:MouseColPos( c ) == 1, ;
         If( ( f := AScan( oBrw:aSelected, oBrw:BookMark ) ) == 0,         ;
         AAdd( oBrw:aSelected, oBrw:BookMark ),                            ;
         ADel( oBrw:aSelected, f, .T. ) ), NIL ),                          ;
         oBrw:RefreshCurrent() }

   :CreateFromCode()

   END

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont

RETURN NIL

// FIN / END

Code: Select all | Expand

#include "FiveWin.ch"
function Main()
	msginfo("Hola Mundo")
return nil

Code: Select all | Expand

-gui

#los prgs
.\PRG\test.prg

#recursos
#.\res\test.rc

-info

#-traceonly
#aqui es para colocar los archivo o y c que se generan en la compilacion incremental 
-workdir=.\obj

-optim-
-ldflag+=-aa -n- 
-Ic:\fwh64_2409\include
-Lc:\fwh64_2409\lib

-lFivehx64
-lFiveHC64

-lct
-lhbzip
-ltip
-lhbcomm
-lhbcurl
-llibcurl
-lhbzebra

-lsixapi
-ltip
-lpng
-lhbhpdf
-llibharu
-lhbmxml
-llibmysql
-llibcrypto

-opruebas
#-inc
-run

Code: Select all | Expand

@setlocal
call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" amd64
C:\xHar_msvc_2409\bin\hbmk2 xtest.hbp -xhb -comp=msvc64
@endlocal

Code: Select all | Expand

C:\cmplar_xtest_64>call "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" amd64
**********************************************************************
** Visual Studio 2022 Developer Command Prompt v17.11.3
** Copyright (c) 2022 Microsoft Corporation
**********************************************************************
[vcvarsall.bat] Environment initialized for: 'x64'
xHarbour 1.3.1 Intl. (SimpLex) (Build 20250119)
Copyright 1999-2024, http://www.xharbour.org http://www.harbour-project.org/
Compiling '.\PRG\test.prg'...
Generating C source output to 'obj\test.c'...
Done.
Lines 6, Functions/Procedures 2, pCodes 19
test.c
hbmk2: Linking... pruebas.exe
LINK : warning LNK4044: opci¢n '/aa' no reconocida; omitida
LINK : warning LNK4098: la biblioteca predeterminada'MSVCRT' entra en conflicto con otras bibliotecas; use la biblioteca /NODEFAULTLIB:biblioteca
LINK : warning LNK4217: "ceil" importa el s¡mbolo "libucrt.lib(ceil.obj)" definido en "ct.lib(ctmath2.obj)" en la funci¢n "HB_FUN_CEILING"
LINK : warning LNK4286: "ceil" importa el s¡mbolo "libucrt.lib(ceil.obj)" definido en "dbfntx.lib(dbfntx1.obj)"
LINK : warning LNK4286: "ceil" importa el s¡mbolo "libucrt.lib(ceil.obj)" definido en "dbfcdx.lib(dbfcdx1.obj)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zipcentraldir.obj)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zippathcomponent.obj)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zipplatformcomm.obj)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zipstring.obj)"
LINK : warning LNK4217: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zipexception.obj)" en la funci¢n ""protected: class CZipString __cdecl CZipException::GetInternalErrorDescription(int,bool)" (?GetInternalErrorDescription@CZipException@@IEAA?AVCZipString@@H_N@Z)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zipfile.obj)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zipmemfile.obj)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(ziparchive.obj)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zipstorage.obj)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zipcompatibility.obj)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zipplatform.obj)"
LINK : warning LNK4217: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zip.obj)" en la funci¢n ""char * __cdecl std::_Maklocstr<char>(char const *,char *,struct _Cvtvec const &)" (??$_Maklocstr@D@std@@YAPEADPEBDPEADAEBU_Cvtvec@@@Z)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zipnew.obj)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zipcomp.obj)"
LINK : warning LNK4286: "calloc" importa el s¡mbolo "libucrt.lib(calloc.obj)" definido en "hbzip.lib(zipfileheader.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "rtl.lib(gtclip.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zipcentraldir.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zippathcomponent.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zipplatformcomm.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "rtl.lib(hbwinole.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zipstring.obj)"
LINK : warning LNK4217: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zipexception.obj)" en la funci¢n ""protected: class CZipString __cdecl CZipException::GetInternalErrorDescription(int,bool)" (?GetInternalErrorDescription@CZipException@@IEAA?AVCZipString@@H_N@Z)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zipfile.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zipmemfile.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(ziparchive.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zipstorage.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zipcompatibility.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zipplatform.obj)"
LINK : warning LNK4217: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zip.obj)" en la funci¢n ""wchar_t * __cdecl std::_Maklocwcs(wchar_t const *)" (?_Maklocwcs@std@@YAPEA_WPEB_W@Z)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zipnew.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zipcomp.obj)"
LINK : warning LNK4286: "wcslen" importa el s¡mbolo "libucrt.lib(strnlen.obj)" definido en "hbzip.lib(zipfileheader.obj)"
LINK : warning LNK4286: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zippathcomponent.obj)"
LINK : warning LNK4217: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zipplatformcomm.obj)" en la funci¢n ""class std::basic_string<char,struct std::char_traits<char>,class std::allocator<char> > __cdecl std::operator+<char,struct std::char_traits<char>,class std::allocator<char> >(class std::basic_string<char,struct std::char_traits<char>,class std::allocator<char> > const &,class std::basic_string<char,struct std::char_traits<char>,class std::allocator<char> > const &)" (??$?HDU?$char_traits@D@std@@V?$allocator@D@1@@std@@YA?AV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@0@AEBV10@0@Z)"
LINK : warning LNK4217: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zipexception.obj)" en la funci¢n ""int `public: __cdecl CZipString::CZipString(char const *)'::`1'::dtor$0" (?dtor$0@?0???0CZipString@@QEAA@PEBD@Z@4HA)"
LINK : warning LNK4286: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zipfile.obj)"
LINK : warning LNK4286: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zipmemfile.obj)"
LINK : warning LNK4286: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zipcentraldir.obj)"
LINK : warning LNK4286: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zipstorage.obj)"
LINK : warning LNK4286: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zipcompatibility.obj)"
LINK : warning LNK4286: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zipplatform.obj)"
LINK : warning LNK4217: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zipstring.obj)" en la funci¢n ""int (__cdecl CZipString::*__cdecl GetCZipStrCompFunc(bool,bool))(char const *)const " (?GetCZipStrCompFunc@@YAP8CZipString@@EBAHPEBD@Z_N1@Z)"
LINK : warning LNK4217: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zipnew.obj)" en la funci¢n ""void * __cdecl std::_Allocate_manually_vector_aligned<struct std::_Default_allocate_traits>(unsigned __int64)" (??$_Allocate_manually_vector_aligned@U_Default_allocate_traits@std@@@std@@YAPEAX_K@Z)"
LINK : warning LNK4217: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zipcomp.obj)" en la funci¢n "hb_CmpTdSpan"
LINK : warning LNK4286: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(zipfileheader.obj)"
LINK : warning LNK4286: "_invalid_parameter_noinfo_noreturn" importa el s¡mbolo "libucrt.lib(invalid_parameter.obj)" definido en "hbzip.lib(ziparchive.obj)"
LINK : warning LNK4217: "_errno" importa el s¡mbolo "libucrt.lib(errno.obj)" definido en "hbzip.lib(ziparchive.obj)" en la funci¢n ""public: virtual unsigned int __cdecl CZipFile::Read(void *,unsigned int)" (?Read@CZipFile@@UEAAIPEAXI@Z)"
LINK : warning LNK4286: "_errno" importa el s¡mbolo "libucrt.lib(errno.obj)" definido en "hbzip.lib(zipstorage.obj)"
LINK : warning LNK4286: "_errno" importa el s¡mbolo "libucrt.lib(errno.obj)" definido en "hbzip.lib(zipexception.obj)"
LINK : warning LNK4286: "_errno" importa el s¡mbolo "libucrt.lib(errno.obj)" definido en "hbzip.lib(zipfile.obj)"
LINK : warning LNK4217: "__stdio_common_vsprintf" importa el s¡mbolo "libucrt.lib(output.obj)" definido en "hbzip.lib(ziparchive.obj)" en la funci¢n ""public: void __cdecl CZipString::Format(char const *,...)" (?Format@CZipString@@QEAAXPEBDZZ)"
LINK : warning LNK4286: "__stdio_common_vsprintf" importa el s¡mbolo "libucrt.lib(output.obj)" definido en "hbzip.lib(zipstorage.obj)"
LINK : warning LNK4286: "__stdio_common_vsprintf" importa el s¡mbolo "libucrt.lib(output.obj)" definido en "hbzip.lib(zipexception.obj)"
LINK : warning LNK4286: "__stdio_common_vsprintf" importa el s¡mbolo "libucrt.lib(output.obj)" definido en "pcrepos.lib(pcreposix.obj)"
LINK : warning LNK4286: "free" importa el s¡mbolo "libucrt.lib(free.obj)" definido en "zlib.lib(zutil.obj)"
LINK : warning LNK4286: "free" importa el s¡mbolo "libucrt.lib(free.obj)" definido en "vm.lib(mainwin.obj)"
.....

FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipAddPathStringI sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipAddPathEllipseI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::GraphicsPath::AddEllipse(int,int,int,int)" (?AddEllipse@GraphicsPath@Gdiplus@@QEAA?AW4Status@2@HHHH@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipAddPathEllipseI sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipAddPathPieI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::GraphicsPath::AddPie(int,int,int,int,float,float)" (?AddPie@GraphicsPath@Gdiplus@@QEAA?AW4Status@2@HHHHMM@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipCreateMatrix sin resolver al que se hace referencia en la funci¢n "public: __cdecl Gdiplus::Matrix::Matrix(void)" (??0Matrix@Gdiplus@@QEAA@XZ)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipCreateMatrix sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDeleteMatrix sin resolver al que se hace referencia en la funci¢n "public: __cdecl Gdiplus::Matrix::~Matrix(void)" (??1Matrix@Gdiplus@@QEAA@XZ)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipTranslateMatrix sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Matrix::RotateAt(float,class Gdiplus::PointF const &,enum Gdiplus::MatrixOrder)" (?RotateAt@Matrix@Gdiplus@@QEAA?AW4Status@2@MAEBVPointF@2@W4MatrixOrder@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipTranslateMatrix sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipScaleMatrix sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Matrix::Scale(float,float,enum Gdiplus::MatrixOrder)" (?Scale@Matrix@Gdiplus@@QEAA?AW4Status@2@MMW4MatrixOrder@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipScaleMatrix sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipRotateMatrix sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Matrix::RotateAt(float,class Gdiplus::PointF const &,enum Gdiplus::MatrixOrder)" (?RotateAt@Matrix@Gdiplus@@QEAA?AW4Status@2@MAEBVPointF@2@W4MatrixOrder@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipRotateMatrix sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipCreateRegionRectI sin resolver al que se hace referencia en la funci¢n "public: __cdecl Gdiplus::Region::Region(class Gdiplus::Rect const &)" (??0Region@Gdiplus@@QEAA@AEBVRect@1@@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipCreateRegionPath sin resolver al que se hace referencia en la funci¢n "public: __cdecl Gdiplus::Region::Region(class Gdiplus::GraphicsPath const *)" (??0Region@Gdiplus@@QEAA@PEBVGraphicsPath@1@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipCreateRegionPath sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDeleteRegion sin resolver al que se hace referencia en la funci¢n "public: __cdecl Gdiplus::Region::~Region(void)" (??1Region@Gdiplus@@QEAA@XZ)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipCloneBrush sin resolver al que se hace referencia en la funci¢n "public: virtual class Gdiplus::Brush * __cdecl Gdiplus::Brush::Clone(void)const " (?Clone@Brush@Gdiplus@@UEBAPEAV12@XZ)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipCloneBrush sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDeleteBrush sin resolver al que se hace referencia en la funci¢n "public: virtual __cdecl Gdiplus::Brush::~Brush(void)" (??1Brush@Gdiplus@@UEAA@XZ)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipDeleteBrush sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipCreateTexture sin resolver al que se hace referencia en la funci¢n "public: __cdecl Gdiplus::TextureBrush::TextureBrush(class Gdiplus::Image *,enum Gdiplus::WrapMode)" (??0TextureBrush@Gdiplus@@QEAA@PEAVImage@1@W4WrapMode@1@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipCreateTexture sin resolver
....
GetHBITMAP@Bitmap@Gdiplus@@QEAA?AW4Status@2@AEBVColor@2@PEAPEAUHBITMAP__@@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipCreateHBITMAPFromBitmap sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipCreateBitmapFromResource sin resolver al que se hace referencia en la funci¢n "public: __cdecl Gdiplus::Bitmap::Bitmap(struct HINSTANCE__ *,wchar_t const *)" (??0Bitmap@Gdiplus@@QEAA@PEAUHINSTANCE__@@PEB_W@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipCreateBitmapFromResource sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipCloneBitmapAreaI sin resolver al que se hace referencia en la funci¢n "public: class Gdiplus::Bitmap * __cdecl Gdiplus::Bitmap::Clone(int,int,int,int,int)" (?Clone@Bitmap@Gdiplus@@QEAAPEAV12@HHHHH@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipCloneBitmapAreaI sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipBitmapLockBits sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Bitmap::LockBits(class Gdiplus::Rect const *,unsigned int,int,class Gdiplus::BitmapData *)" (?LockBits@Bitmap@Gdiplus@@QEAA?AW4Status@2@PEBVRect@2@IHPEAVBitmapData@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipBitmapLockBits sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipBitmapUnlockBits sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Bitmap::UnlockBits(class Gdiplus::BitmapData *)" (?UnlockBits@Bitmap@Gdiplus@@QEAA?AW4Status@2@PEAVBitmapData@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipBitmapUnlockBits sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipBitmapGetPixel sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Bitmap::GetPixel(int,int,class Gdiplus::Color *)" (?GetPixel@Bitmap@Gdiplus@@QEAA?AW4Status@2@HHPEAVColor@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipBitmapGetPixel sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipBitmapSetPixel sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Bitmap::SetPixel(int,int,class Gdiplus::Color const &)" (?SetPixel@Bitmap@Gdiplus@@QEAA?AW4Status@2@HHAEBVColor@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipBitmapSetPixel sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipBitmapApplyEffect sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Bitmap::ApplyEffect(class Gdiplus::Effect *,struct tagRECT *)" (?ApplyEffect@Bitmap@Gdiplus@@QEAA?AW4Status@2@PEAVEffect@2@PEAUtagRECT@@@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipBitmapSetResolution sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Bitmap::SetResolution(float,float)" (?SetResolution@Bitmap@Gdiplus@@QEAA?AW4Status@2@MM@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipBitmapSetResolution sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipCreateImageAttributes sin resolver al que se hace referencia en la funci¢n "public: __cdecl Gdiplus::ImageAttributes::ImageAttributes(void)" (??0ImageAttributes@Gdiplus@@QEAA@XZ)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipCreateImageAttributes sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipSetImageAttributesColorMatrix sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::ImageAttributes::SetColorMatrix(struct Gdiplus::ColorMatrix const *,enum Gdiplus::ColorMatrixFlags,enum Gdiplus::ColorAdjustType)" (?SetColorMatrix@ImageAttributes@Gdiplus@@QEAA?AW4Status@2@PEBUColorMatrix@2@W4ColorMatrixFlags@2@W4ColorAdjustType@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipSetImageAttributesColorMatrix sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipSetImageAttributesGamma sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::ImageAttributes::SetGamma(float,enum Gdiplus::ColorAdjustType)" (?SetGamma@ImageAttributes@Gdiplus@@QEAA?AW4Status@2@MW4ColorAdjustType@2@@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipSetImageAttributesColorKeys sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::ImageAttributes::SetColorKey(class Gdiplus::Color const &,class Gdiplus::Color const &,enum Gdiplus::ColorAdjustType)" (?SetColorKey@ImageAttributes@Gdiplus@@QEAA?AW4Status@2@AEBVColor@2@0W4ColorAdjustType@2@@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipSetImageAttributesRemapTable sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::ImageAttributes::SetRemapTable(unsigned int,struct Gdiplus::ColorMap const *,enum Gdiplus::ColorAdjustType)" (?SetRemapTable@ImageAttributes@Gdiplus@@QEAA?AW4Status@2@IPEBUColorMap@2@W4ColorAdjustType@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipSetImageAttributesRemapTable sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipCreateFromHDC sin resolver al que se hace referencia en la funci¢n "public: __cdecl Gdiplus::Graphics::Graphics(struct HDC__ *)" (??0Graphics@Gdiplus@@QEAA@PEAUHDC__@@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipCreateFromHDC sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDeleteGraphics sin resolver al que se hace referencia en la funci¢n "public: __cdecl Gdiplus::Graphics::~Graphics(void)" (??1Graphics@Gdiplus@@QEAA@XZ)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipDeleteGraphics sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipSetSmoothingMode sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::SetSmoothingMode(enum Gdiplus::SmoothingMode)" (?SetSmoothingMode@Graphics@Gdiplus@@QEAA?AW4Status@2@W4SmoothingMode@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipSetSmoothingMode sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipSetTextRenderingHint sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::SetTextRenderingHint(enum Gdiplus::TextRenderingHint)" (?SetTextRenderingHint@Graphics@Gdiplus@@QEAA?AW4Status@2@W4TextRenderingHint@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipSetTextRenderingHint sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipSetInterpolationMode sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::SetInterpolationMode(enum Gdiplus::InterpolationMode)" (?SetInterpolationMode@Graphics@Gdiplus@@QEAA?AW4Status@2@W4InterpolationMode@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipSetInterpolationMode sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipSetWorldTransform sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::SetTransform(class Gdiplus::Matrix const *)" (?SetTransform@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVMatrix@2@@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipResetWorldTransform sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::ResetTransform(void)" (?ResetTransform@Graphics@Gdiplus@@QEAA?AW4Status@2@XZ)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipResetWorldTransform sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipGetPageUnit sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Unit __cdecl Gdiplus::Graphics::GetPageUnit(void)const " (?GetPageUnit@Graphics@Gdiplus@@QEBA?AW4Unit@2@XZ)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipGetPageScale sin resolver al que se hace referencia en la funci¢n "public: float __cdecl Gdiplus::Graphics::GetPageScale(void)const " (?GetPageScale@Graphics@Gdiplus@@QEBAMXZ)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipGetDpiX sin resolver al que se hace referencia en la funci¢n "public: float __cdecl Gdiplus::Graphics::GetDpiX(void)const " (?GetDpiX@Graphics@Gdiplus@@QEBAMXZ)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipGetDpiY sin resolver al que se hace referencia en la funci¢n "public: float __cdecl Gdiplus::Graphics::GetDpiY(void)const " (?GetDpiY@Graphics@Gdiplus@@QEBAMXZ)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawLine sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawLine(class Gdiplus::Pen const *,float,float,float,float)" (?DrawLine@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@MMMM@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipDrawLine sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawLinesI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawLines(class Gdiplus::Pen const *,class Gdiplus::Point const *,int)" (?DrawLines@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@PEBVPoint@2@H@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawArcI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawArc(class Gdiplus::Pen const *,int,int,int,int,float,float)" (?DrawArc@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@HHHHMM@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawBeziersI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawBeziers(class Gdiplus::Pen const *,class Gdiplus::Point const *,int)" (?DrawBeziers@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@PEBVPoint@2@H@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawRectangleI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawRectangle(class Gdiplus::Pen const *,int,int,int,int)" (?DrawRectangle@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@HHHH@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawEllipseI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawEllipse(class Gdiplus::Pen const *,int,int,int,int)" (?DrawEllipse@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@HHHH@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawPieI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawPie(class Gdiplus::Pen const *,int,int,int,int,float,float)" (?DrawPie@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@HHHHMM@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawPolygonI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawPolygon(class Gdiplus::Pen const *,class Gdiplus::Point const *,int)" (?DrawPolygon@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@PEBVPoint@2@H@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawPath sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawPath(class Gdiplus::Pen const *,class Gdiplus::GraphicsPath const *)" (?DrawPath@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@PEBVGraphicsPath@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipDrawPath sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawCurve2I sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawCurve(class Gdiplus::Pen const *,class Gdiplus::Point const *,int,float)" (?DrawCurve@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@PEBVPoint@2@HM@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawClosedCurve2I sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawClosedCurve(class Gdiplus::Pen const *,class Gdiplus::Point const *,int,float)" (?DrawClosedCurve@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@PEBVPoint@2@HM@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipGraphicsClear sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::Clear(class Gdiplus::Color const &)" (?Clear@Graphics@Gdiplus@@QEAA?AW4Status@2@AEBVColor@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipGraphicsClear sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipFillRectangle sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::FillRectangle(class Gdiplus::Brush const *,float,float,float,float)" (?FillRectangle@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVBrush@2@MMMM@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipFillRectangle sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipFillRectangleI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::FillRectangle(class Gdiplus::Brush const *,int,int,int,int)" (?FillRectangle@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVBrush@2@HHHH@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipFillRectangleI sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipFillPolygonI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::FillPolygon(class Gdiplus::Brush const *,class Gdiplus::Point const *,int,enum Gdiplus::FillMode)" (?FillPolygon@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVBrush@2@PEBVPoint@2@HW4FillMode@2@@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipFillEllipse sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::FillEllipse(class Gdiplus::Brush const *,float,float,float,float)" (?FillEllipse@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVBrush@2@MMMM@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipFillEllipse sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipFillEllipseI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::FillEllipse(class Gdiplus::Brush const *,int,int,int,int)" (?FillEllipse@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVBrush@2@HHHH@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipFillPieI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::FillPie(class Gdiplus::Brush const *,int,int,int,int,float,float)" (?FillPie@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVBrush@2@HHHHMM@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipFillPath sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::FillPath(class Gdiplus::Brush const *,class Gdiplus::GraphicsPath const *)" (?FillPath@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVBrush@2@PEBVGraphicsPath@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipFillPath sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipFillClosedCurve2I sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::FillClosedCurve(class Gdiplus::Brush const *,class Gdiplus::Point const *,int,enum Gdiplus::FillMode,float)" (?FillClosedCurve@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVBrush@2@PEBVPoint@2@HW4FillMode@2@M@Z)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawImageI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawImage(class Gdiplus::Image *,int,int)" (?DrawImage@Graphics@Gdiplus@@QEAA?AW4Status@2@PEAVImage@2@HH@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2001: s¡mbolo externo GdipDrawImageI sin resolver
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipDrawImageRectI sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawImage(class Gdiplus::Image *,int,int,int,int)" (?DrawImage@Graphics@Gdiplus@@QEAA?AW4Status@2@PEAVImage@2@HHHH@Z)
...
ace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::RotateTransform(float,enum Gdiplus::MatrixOrder)" (?RotateTransform@Graphics@Gdiplus@@QEAA?AW4Status@2@MW4MatrixOrder@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2019: s¡mbolo externo GdipSetPageUnit sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::SetPageUnit(enum Gdiplus::Unit)" (?SetPageUnit@Graphics@Gdiplus@@QEAA?AW4Status@2@W4Unit@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2019: s¡mbolo externo GdipDrawArc sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawArc(class Gdiplus::Pen const *,float,float,float,float,float,float)" (?DrawArc@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@MMMMMM@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2019: s¡mbolo externo GdipDrawRectangle sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawRectangle(class Gdiplus::Pen const *,float,float,float,float)" (?DrawRectangle@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@MMMM@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2019: s¡mbolo externo GdipDrawEllipse sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawEllipse(class Gdiplus::Pen const *,float,float,float,float)" (?DrawEllipse@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@MMMM@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2019: s¡mbolo externo GdipDrawPie sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::DrawPie(class Gdiplus::Pen const *,float,float,float,float,float,float)" (?DrawPie@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVPen@2@MMMMMM@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2019: s¡mbolo externo GdipFillPie sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::FillPie(class Gdiplus::Brush const *,float,float,float,float,float,float)" (?FillPie@Graphics@Gdiplus@@QEAA?AW4Status@2@PEBVBrush@2@MMMMMM@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2019: s¡mbolo externo GdipIsClipEmpty sin resolver al que se hace referencia en la funci¢n "public: int __cdecl Gdiplus::Graphics::IsClipEmpty(void)const " (?IsClipEmpty@Graphics@Gdiplus@@QEBAHXZ)
FiveHC64.lib(gdiplus.obj) : error LNK2019: s¡mbolo externo GdipCreateMetafileFromStream sin resolver al que se hace referencia en la funci¢n "public: __cdecl Gdiplus::Metafile::Metafile(struct IStream *)" (??0Metafile@Gdiplus@@QEAA@PEAUIStream@@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2019: s¡mbolo externo GdipDeleteFontFamily sin resolver al que se hace referencia en la funci¢n "public: __cdecl Gdiplus::FontFamily::~FontFamily(void)" (??1FontFamily@Gdiplus@@QEAA@XZ)
FiveHC64.lib(gdiplus.obj) : error LNK2019: s¡mbolo externo GdipMeasureString sin resolver al que se hace referencia en la funci¢n "public: enum Gdiplus::Status __cdecl Gdiplus::Graphics::MeasureString(wchar_t const *,int,class Gdiplus::Font const *,class Gdiplus::PointF const &,class Gdiplus::StringFormat const *,class Gdiplus::RectF *)const " (?MeasureString@Graphics@Gdiplus@@QEBA?AW4Status@2@PEB_WHPEBVFont@2@AEBVPointF@2@PEBVStringFormat@2@PEAVRectF@2@@Z)
FiveHC64.lib(gdiplus.obj) : error LNK2019: s¡mbolo externo GdipStringFormatGetGenericDefault sin resolver al que se hace referencia en la funci¢n "public: static class Gdiplus::StringFormat const * __cdecl Gdiplus::StringFormat::GenericDefault(void)" (?GenericDefault@StringFormat@Gdiplus@@SAPEBV12@XZ)
FiveHC64.lib(gdiplus.obj) : error LNK2019: s¡mbolo externo GdipStringFormatGetGenericTypographic sin resolver al que se hace referencia en la funci¢n "public: static class Gdiplus::StringFormat const * __cdecl Gdiplus::StringFormat::GenericTypographic(void)" (?GenericTypographic@StringFormat@Gdiplus@@SAPEBV12@XZ)
FiveHC64.lib(richedi5.obj) : error LNK2019: s¡mbolo externo OleUIPasteSpecialA sin resolver al que se hace referencia en la funci¢n HB_FUN_REPASTESPECIAL5
FiveHC64.lib(richedit.obj) : error LNK2001: s¡mbolo externo OleUIPasteSpecialA sin resolver
ct.lib(ctmath2.obj) : error LNK2019: s¡mbolo externo __imp_floor sin resolver al que se hace referencia en la funci¢n HB_FUN_FLOOR
ct.lib(ascpos.obj) : error LNK2019: s¡mbolo externo __imp_isdigit sin resolver al que se hace referencia en la funci¢n do_ascpos
macro.lib(macroslx.obj) : error LNK2001: s¡mbolo externo __imp_isdigit sin resolver
hbzip.lib(zipnew.obj) : error LNK2019: s¡mbolo externo __imp__localtime64 sin resolver al que se hace referencia en la funci¢n hb___GetFileNamesFromZip
hbzip.lib(zipfileheader.obj) : error LNK2001: s¡mbolo externo __imp__localtime64 sin resolver
hbzip.lib(zipfileheader.obj) : error LNK2019: s¡mbolo externo __imp__mktime64 sin resolver al que se hace referencia en la funci¢n "public: __int64 __cdecl CZipFileHeader::GetTime(void)const " (?GetTime@CZipFileHeader@@QEBA_JXZ)
macro.lib(macroslx.obj) : error LNK2001: s¡mbolo externo __imp_realloc sin resolver
hbzip.lib(ziparchive.obj) : error LNK2001: s¡mbolo externo __imp_realloc sin resolver
hbzip.lib(zipstorage.obj) : error LNK2001: s¡mbolo externo __imp_realloc sin resolver
hbzip.lib(zipexception.obj) : error LNK2001: s¡mbolo externo __imp_realloc sin resolver
vm.lib(fm.obj) : error LNK2001: s¡mbolo externo __imp_realloc sin resolver
hbzip.lib(ziparchive.obj) : error LNK2019: s¡mbolo externo __imp_srand sin resolver al que se hace referencia en la funci¢n "protected: void __cdecl CZipArchive::CryptCryptHeader(long,class CZipAutoBuffer &)" (?CryptCryptHeader@CZipArchive@@IEAAXJAEAVCZipAutoBuffer@@@Z)
rtl.lib(hbrandom.obj) : error LNK2001: s¡mbolo externo __imp_srand sin resolver
hbzip.lib(ziparchive.obj) : error LNK2019: s¡mbolo externo __imp_rand sin resolver al que se hace referencia en la funci¢n "protected: void __cdecl CZipArchive::CryptCryptHeader(long,class CZipAutoBuffer &)" (?CryptCryptHeader@CZipArchive@@IEAAXJAEAVCZipAutoBuffer@@@Z)
rtl.lib(hbrandom.obj) : error LNK2001: s¡mbolo externo __imp_rand sin resolver
hbzip.lib(ziparchive.obj) : error LNK2019: s¡mbolo externo __imp_strcoll sin resolver al que se hace referencia en la funci¢n "public: int __cdecl CZipString::Collate(char const *)const " (?Collate@CZipString@@QEBAHPEBD@Z)
hbzip.lib(zipstring.obj) : error LNK2001: s¡mbolo externo __imp_strcoll sin resolver
hbzip.lib(ziparchive.obj) : error LNK2019: s¡mbolo externo __imp__time64 sin resolver al que se hace referencia en la funci¢n "public: bool __cdecl CZipArchive::AddNewFile(struct CZipAddNewFileInfo &)" (?AddNewFile@CZipArchive@@QEAA_NAEAUCZipAddNewFileInfo@@@Z)
hbzip.lib(zipplatform.obj) : error LNK2001: s¡mbolo externo __imp__time64 sin resolver
rtl.lib(hbrandom.obj) : error LNK2001: s¡mbolo externo __imp__time64 sin resolver
hbzip.lib(ziparchive.obj) : error LNK2019: s¡mbolo externo __imp__tell sin resolver al que se hace referencia en la funci¢n "public: virtual unsigned __int64 __cdecl CZipFile::GetPosition(void)const " (?GetPosition@CZipFile@@UEBA_KXZ)
hbzip.lib(zipstorage.obj) : error LNK2001: s¡mbolo externo __imp__tell sin resolver
hbzip.lib(zipfile.obj) : error LNK2001: s¡mbolo externo __imp__tell sin resolver
hbzip.lib(zipplatform.obj) : error LNK2019: s¡mbolo externo __imp__stat64i32 sin resolver al que se hace referencia en la funci¢n "bool __cdecl ZipPlatform::GetFileModTime(char const *,__int64 &)" (?GetFileModTime@ZipPlatform@@YA_NPEBDAEA_J@Z)
hbzip.lib(zipplatform.obj) : error LNK2019: s¡mbolo externo __imp__access sin resolver al que se hace referencia en la funci¢n "int __cdecl ZipPlatform::FileExists(char const *)" (?FileExists@ZipPlatform@@YAHPEBD@Z)
hbzip.lib(zipplatform.obj) : error LNK2019: s¡mbolo externo __imp__utime64 sin resolver al que se hace referencia en la funci¢n "bool __cdecl ZipPlatform::SetFileModTime(char const *,__int64)" (?SetFileModTime@ZipPlatform@@YA_NPEBD_J@Z)
hbzip.lib(zipplatform.obj) : error LNK2019: s¡mbolo externo __imp__chdir sin resolver al que se hace referencia en la funci¢n "bool __cdecl ZipPlatform::ChangeDirectory(char const *)" (?ChangeDirectory@ZipPlatform@@YA_NPEBD@Z)
hbzip.lib(zipexception.obj) : error LNK2019: s¡mbolo externo __imp_strncpy sin resolver al que se hace referencia en la funci¢n "public: int __cdecl CZipException::GetErrorMessage(char *,unsigned int,unsigned int *)" (?GetErrorMessage@CZipException@@QEAAHPEADIPEAI@Z)
pcrepos.lib(pcreposix.obj) : error LNK2001: s¡mbolo externo __imp_strncpy sin resolver
hbzip.lib(zippathcomponent.obj) : error LNK2019: s¡mbolo externo __imp__splitpath sin resolver al que se hace referencia en la funci¢n "public: void __cdecl CZipPathComponent::SetFullPath(char const *)" (?SetFullPath@CZipPathComponent@@QEAAXPEBD@Z)
common.lib(hbdate.obj) : error LNK2001: s¡mbolo externo __imp_modf sin resolver
common.lib(hbprintf.obj) : error LNK2001: s¡mbolo externo __imp_modf sin resolver
vm.lib(hvm.obj) : error LNK2001: s¡mbolo externo __imp_modf sin resolver
vm.lib(itemapi.obj) : error LNK2001: s¡mbolo externo __imp_modf sin resolver
rtl.lib(fstemp.obj) : error LNK2001: s¡mbolo externo __imp_modf sin resolver
common.lib(hbstr.obj) : error LNK2001: s¡mbolo externo __imp_modf sin resolver
vm.lib(hvm.obj) : error LNK2019: s¡mbolo externo __imp_div sin resolver al que se hace referencia en la funci¢n hb_vmSubDate
common.lib(hbdate.obj) : error LNK2001: s¡mbolo externo __imp_div sin resolver
vm.lib(itemapi.obj) : error LNK2019: s¡mbolo externo __imp__finite sin resolver al que se hace referencia en la funci¢n hb_itemStrBuf
rtl.lib(is.obj) : error LNK2019: s¡mbolo externo __imp_isxdigit sin resolver al que se hace referencia en la funci¢n HB_FUN_ISXDIGIT
rtl.lib(is.obj) : error LNK2019: s¡mbolo externo __imp_isspace sin resolver al que se hace referencia en la funci¢n HB_FUN_ISSPACE
macro.lib(macroslx.obj) : error LNK2001: s¡mbolo externo __imp_isspace sin resolver
common.lib(hbstr.obj) : error LNK2001: s¡mbolo externo __imp_isspace sin resolver
rtl.lib(is.obj) : error LNK2019: s¡mbolo externo __imp_ispunct sin resolver al que se hace referencia en la funci¢n HB_FUN_ISPUNCT
rtl.lib(is.obj) : error LNK2019: s¡mbolo externo __imp_isprint sin resolver al que se hace referencia en la funci¢n HB_FUN_ISPRINT
rtl.lib(is.obj) : error LNK2019: s¡mbolo externo __imp_isgraph sin resolver al que se hace referencia en la funci¢n HB_FUN_ISGRAPH
rtl.lib(is.obj) : error LNK2019: s¡mbolo externo __imp_iscntrl sin resolver al que se hace referencia en la funci¢n HB_FUN_ISCNTRL
rtl.lib(dirdrive.obj) : error LNK2019: s¡mbolo externo __imp_remove sin resolver al que se hace referencia en la funci¢n HB_FUN_HB_DISKREADY
rtl.lib(filesys.obj) : error LNK2019: s¡mbolo externo __imp__chdrive sin resolver al que se hace referencia en la funci¢n hb_fsChDrv
rtl.lib(filesys.obj) : error LNK2019: s¡mbolo externo __imp__getdrive sin resolver al que se hace referencia en la funci¢n hb_fsChDrv
rtl.lib(fparse.obj) : error LNK2019: s¡mbolo externo __imp_fgetc sin resolver al que se hace referencia en la funci¢n HB_FUN_FCHARCOUNT
common.lib(hbstr.obj) : error LNK2019: s¡mbolo externo __imp_toupper sin resolver al que se hace referencia en la funci¢n hb_str2number
common.lib(hbstr.obj) : error LNK2019: s¡mbolo externo __imp_tolower sin resolver al que se hace referencia en la funci¢n hb_strAtI
common.lib(hbstr.obj) : error LNK2019: s¡mbolo externo __imp_strerror_s sin resolver al que se hace referencia en la funci¢n hb_strerror
common.lib(hbprintf.obj) : error LNK2019: s¡mbolo externo __imp__dclass sin resolver al que se hace referencia en la funci¢n hb_vsnprintf
common.lib(hbprintf.obj) : error LNK2019: s¡mbolo externo __imp__dsign sin resolver al que se hace referencia en la funci¢n put_dbl
common.lib(hbtrace.obj) : error LNK2019: s¡mbolo externo __imp__dup sin resolver al que se hace referencia en la funci¢n hb_tr_trace
pruebas.exe : fatal error LNK1120: 200 externos sin resolver
hbmk2[xtest]: Error: Running linker. 1120
link.exe @C:\Users\leandro\AppData\Local\Temp\4\f88jtl.lnk

hbmk2: Error: Referenced, missing, but unknown function(s): CEILING(), SET(),
       HB_UTF8STRTRAN(), HB_I18NGETBASELANGUAGE(), WEBVIEW2_SHOWDOWNLOADS(),
       GDIPLUSSTARTUP(), GDIPLUSSHUTDOWN(), REPASTESPECIAL5(), FLOOR(),
       ISXDIGIT(), ISSPACE(), ISPUNCT(), ISPRINT(), ISGRAPH(), ISCNTRL(),
       HB_DISKREADY(), FCHARCOUNT()

Code: Select all | Expand

-gui

#los prgs
.\PRG\test.prg

#recursos
#.\res\test.rc

-info

#-traceonly
#aqui es para colocar los archivo o y c que se generan en la compilacion incremental 
-workdir=.\obj

-Ic:\fwh64\include
-Lc:\fwh64\lib

-lFivehx64
-lFiveHC64

-lct
-lhbzip
-ltip
-lhbcomm
-lhbcurl
-llibcurl
-lhbzebra

-lsixapi
-ltip
-lpng
-lhbhpdf
-llibharu
-lhbmxml
-llibmysql
-llibcrypto

-lgdiplus
-lucrt
-lole32
-loledlg

-ldflag=/NODEFAULTLIB:libucrt
-ldflag+=/NODEFAULTLIB:msvcrt 

-opruebas
#-inc
-run

Code: Select all | Expand

C:\cmplar_xtest_64>call "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" amd64
**********************************************************************
** Visual Studio 2022 Developer Command Prompt v17.11.3
** Copyright (c) 2022 Microsoft Corporation
**********************************************************************
[vcvarsall.bat] Environment initialized for: 'x64'
xHarbour 1.3.1 Intl. (SimpLex) (Build 20250119)
Copyright 1999-2024, http://www.xharbour.org http://www.harbour-project.org/
Compiling '.\PRG\test.prg'...
Generating C source output to 'obj\test.c'...
Done.
Lines 6, Functions/Procedures 1, pCodes 16
test.c
hbmk2: Linking... pruebas.exe
Fivehx64.lib(twebview2.obj) : error LNK2001: s¡mbolo externo HB_FUN_WEBVIEW2_SHOWDOWNLOADS sin resolver
pruebas.exe : fatal error LNK1120: 1 externos sin resolver
hbmk2[xtest]: Error: Running linker. 1120
link.exe @C:\Users\leandro\AppData\Local\Temp\5\ulxzrs.lnk

hbmk2: Error: Referenced, missing, but unknown function(s):
       WEBVIEW2_SHOWDOWNLOADS()

C:\cmplar_xtest_64>

Code: Select all | Expand

C:\cmplar_64>call "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" amd64
**********************************************************************
** Visual Studio 2022 Developer Command Prompt v17.11.3
** Copyright (c) 2022 Microsoft Corporation
**********************************************************************
[vcvarsall.bat] Environment initialized for: 'x64'
xHarbour 1.3.1 Intl. (SimpLex) (Build 20250119)
Copyright 1999-2024, http://www.xharbour.org http://www.harbour-project.org/
Compiling '.\PRG\conodbc.prg'...
.\PRG\conodbc.prg(7) Error E0001  Statement not allowed outside of procedure or function
1 error

No code generated
hbmk2[conodbc]: Error: Running Harbour compiler. 1
C:\xHar_msvc_2409\bin\harbour.exe -n .\PRG\conodbc.prg -oobj\ -iC:\xHar_msvc_2409\include -ic:\fwh64_2409\include -undef:.ARCH. -D__PLATFORM__WINDOWS

Code: Select all | Expand

-gui

#los prgs
.\PRG\conodbc.prg

#recursos
.\res\conodbc.res

-info

#-traceonly
#aqui es para colocar los archivo o y c que se generan en la compilacion incremental 
-workdir=.\obj

-Ic:\fwh64_2409\include
-Lc:\fwh64_2409\lib

-lFivehx64
-lFiveHC64

-lct
-lhbzip
-ltip
-lhbcomm
-lhbcurl
-llibcurl
-lhbzebra

-lsixapi
-ltip
-lpng
-lhbhpdf
-llibharu
-lhbmxml
-llibmysql
-llibcrypto

-lgdiplus
-lucrt
-lole32
-loledlg

-ldflag=/NODEFAULTLIB:libucrt
-ldflag+=/NODEFAULTLIB:msvcrt 

-oconodb
#-inc
-run

Code: Select all | Expand

@setlocal
call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" amd64
C:\xHar_msvc_2409\bin\hbmk2 conodbc.hbp -xhb -comp=msvc64
@endlocal

Code: Select all | Expand

-gui

#los prgs
.\PRG\conodbc.prg

#recursos
.\res\conodbc.res

-info

#-traceonly
#aqui es para colocar los archivo o y c que se generan en la compilacion incremental 
-workdir=.\obj

-Ic:\fwh64_2409\include
-Lc:\fwh64_2409\lib

-lFivehx64
-lFiveHC64

-lct
-lhbzip
-ltip
-lhbcomm
-lhbcurl
-llibcurl
-lhbzebra

-lsixapi
-ltip
-lpng
-lhbhpdf
-llibharu
-lhbmxml
-llibmysql
-llibcrypto

-lgdiplus
-lucrt
-lole32
-loledlg

-optim-

-ldflag=/NODEFAULTLIB:libucrt
-ldflag+=/NODEFAULTLIB:msvcrt 
-ldflag+= -n- 

-oconodbc
#-inc
-run

Code: Select all | Expand

@setlocal
call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" amd64
C:\xHarbour64\bin\hbmk2 test.hbp -xhb -comp=msvc64
@endlocal

Code: Select all | Expand

-gui

-n-

#los prgs
test.prg

-Ic:\fwh64\include
-Lc:\fwh64\lib

-lFivehx64
-lFiveHC64

-lct
-lhbzip
-ltip
-lhbcomm
-lhbcurl
-llibcurl
-lhbzebra

-lsixapi
-ltip
-lpng
-lhbhpdf
-llibharu
-lhbmxml
-llibmysql
-llibcrypto

-lgdiplus
-lucrt
-lole32
-loledlg

-ldflag=/NODEFAULTLIB:libucrt
-ldflag+=/NODEFAULTLIB:msvcrt 

-oconodbc
#-inc
-run

Code: Select all | Expand

#include "FiveWin.ch"

Otro()

function Otro()

    MsgInfo( "ok" )

return nil    

Code: Select all | Expand

C:\cmplar_cnt_64>xgo64

C:\cmplar_cnt_64>call "C:\Program Files\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" amd64
**********************************************************************
** Visual Studio 2022 Developer Command Prompt v17.11.3
** Copyright (c) 2022 Microsoft Corporation
**********************************************************************
[vcvarsall.bat] Environment initialized for: 'x64'
xHarbour 1.3.1 Intl. (SimpLex) (Build 20250119)
Copyright 1999-2024, http://www.xharbour.org http://www.harbour-project.org/
Compiling '.\PRG\Hl_menu.prg'...
.\PRG\Hl_menu.prg(1524) Error E0032  Can't create output file: 'obj\Hl_menu.c'
Lines 1525, Functions/Procedures 15, pCodes 0
hbmk2[xhl_cnt_64]: Error: Running Harbour compiler. 1
C:\xHar_msvc_2409\bin\harbour.exe -n .\PRG\Hl_menu.prg -n- -oobj\ -iC:\xHar_msvc_2409\include -ic:\fwh64_2409\include -undef:.ARCH. -D__PLATFORM__WINDOWS

C:\cmplar_cnt_64>

Code: Select all | Expand

-gui

-n-

#los prgs
.\PRG\Hl_menu.prg
.\PRG\Alyma.prg
.\PRG\Funciones.prg
.\PRG\Abusc.prg
.\PRG\Ajson.prg
.\PRG\Asql.prg
.\PRG\Photos.prg
.\PRG\Ainve.prg
.\PRG\Amete.prg

#recursos
.\RES\hl_cnt.res

-info

#-traceonly
#aqui es para colocar los archivo o y c que se generan en la compilacion incremental 
-workdir=.\obj

-Ic:\fwh64_2409\include
-Lc:\fwh64_2409\lib

-lFivehx64
-lFiveHC64

-lct
-lhbzip
-ltip
-lhbcomm
-lhbcurl
-llibcurl
-lhbzebra

-lsixapi
-ltip
-lpng
-lhbhpdf
-llibharu
-lhbmxml
-llibmysql
-llibcrypto

-lgdiplus
-lucrt
-lole32
-loledlg

-optim-

-ldflag=/NODEFAULTLIB:libucrt
-ldflag+=/NODEFAULTLIB:msvcrt 

-ohl_cnt
#-inc
-run

Code: Select all | Expand

@setlocal
call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" amd64
C:\xHar_msvc_2409\bin\hbmk2 xhl_cnt_64.hbp -xhb -comp=msvc64
@endlocal

Code: Select all | Expand

@ 40, 45 GET oGnro VAR oFac:hEncabezado["numero"] SIZE 100, 30 PIXEL OF oDlgFct UPDATE FONT oFont2 RIGHT PASSWORD

Code: Select all | Expand

METHOD DispText() CLASS TGet



         /* //-> Mudei em 25/10/2016 - Para Aparecer um * no PASSWORD-WS Joao
         SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 149 ), "*" ),;
                                           Len( Trim( ::oGet:buffer ) ) ) )
         */
         // cambiado:
         SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 42 ), "*" ),;
                                          Len( Trim( ::oGet:buffer ) ) ) )

Code: Select all | Expand

         SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 149 ), "*" ),;
                                           Len( Trim( ::oGet:buffer ) ) ) )

Code: Select all | Expand

SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 42 ), "*" ),;
                                           Len( Trim( ::oGet:buffer ) ) ) )

Code: Select all | Expand

1 24 \\WinXP\\WindowsXP.Manifest

Code: Select all | Expand

aBmp  := { If( lDuplicate, DuplicateIcon( uBmp ), uBmp ), 0, 32, 32, .f., "ICON", .f., "" }

Code: Select all | Expand

aBmp  := { If( lDuplicate, DuplicateIcon( uBmp ), uBmp ), 0, 32, 32, .f., "ICON", .f., "", nil, "" }

Code: Select all | Expand

REDEFINE GROUP oGgrRt ID 4007 OF oFld:aDialogs[ 2 ] TRANSPARENT 

Code: Select all | Expand

// C:\FWH\SAMPLES\LEANDGRP.PRG

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL oDlg, oFont, oBold, aVar[ 2 ], cTitle

   AFill( aVar, Space( 60 ) )

   cTitle := "GROUPBOX con xHarbour de 64 bits - Funciona?"

   DEFINE FONT oFont NAME "ARIAL" SIZE 0, - 14
   DEFINE FONT oBold NAME "ARIAL" SIZE 0, - 14 BOLD

   DEFINE DIALOG oDlg SIZE 500, 250 PIXEL TRUEPIXEL TITLE cTitle FONT oFont ;
      TRANSPARENT

   oDlg:lHelpIcon := .F.

   @  70, 50 GET aVar[ 1 ] SIZE 200, 20 PIXEL OF oDlg

   @ 100, 50 GET aVar[ 2 ] SIZE 200, 20 PIXEL OF oDlg

   oDlg:bPainted := < | hDC |
   RoundBox( hDC, 20, 40, 300, 150, 10, 10, CLR_HRED, 1 )
   oDlg:SayText( "Group Title-64 bits", { 30, 30, 50, 200 }, NIL, oBold, ;
                 { CLR_GREEN, oDlg:nClrPane } )
   RETURN NIL
   >

   @ 200, 200 BUTTON "Ok" SIZE 50, 20 OF oDlg PIXEL ;
      ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont, oBold

RETURN NIL

Code: Select all | Expand

   TGet():lClrFocus := (.T.)
   TGet():nClrFocus := nRGB( 213, 219, 255 )

Code: Select all | Expand

   TMultiGet():bColorBlock := { |oGet| If( oGet:lFocused, { CLR_WHITE, CLR_GREEN },;
                                        If( ! oGet:lActive, { CLR_RED, CLR_YELLOW }, { CLR_BLACK, CLR_WHITE } ) ) }

Code: Select all | Expand

#include "fivewin.ch"

function Main()

   local oDlg, oFont
   local aVar  := { PadR( "get1", 10 ), PadR( "edit", 10 ), Space( 10 ), PadR( "pwd", 10 ) }
   local aGet[ 4 ]

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg RESOURCE "TESTGETS" FONT oFont

   REDEFINE GET  aGet[ 1 ] VAR aVar[ 1 ] ID 101
   REDEFINE EDIT aGet[ 2 ] VAR aVar[ 2 ] ID 102
   REDEFINE EDIT aGet[ 3 ] VAR aVar[ 3 ] ID 103
   REDEFINE GET  aGet[ 4 ] VAR aVar[ 4 ] ID 104

   REDEFINE BUTTON ID 1 ACTION oDlg:End()
   REDEFINE BUTTON ID 2 ACTION oDlg:End()

   oDlg:bInit     := { || SetResize( oDlg ) }
   oDlg:bResized  := { || ResizeCtrls( oDlg ) }

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

function SetResize( oDlg )

   local oCtrl

   oDlg:Cargo  := { oDlg:nWidth, oDlg:nHeight, oDlg:oFont:nHeight }
   for each oCtrl in oDlg:aControls
      WITH OBJECT oCtrl
         :Cargo := { :nTop, :nLeft, :nWidth, :nHeight, :oFont:nHeight }
      END
   next

return nil

function ResizeCtrls( oDlg )

   local xRatio, yRatio
   local oCtrl, h, f

   xRatio   := oDlg:nWidth  / oDlg:Cargo[ 1 ]
   yRatio   := oDlg:nHeight / oDlg:Cargo[ 2 ]

   for each oCtrl in oDlg:aControls
      WITH OBJECT oCtrl
         :nTop    := Int( yRatio * :Cargo[ 1 ] )
         :nHeight := Int( yRatio * :Cargo[ 4 ] )
         :nLeft   := Int( xRatio * :Cargo[ 2 ] )
         :nWidth  := Int( xRatio * :Cargo[ 3 ] )
         h  := Int( :Cargo[ 5 ] * yRatio )
         if h != :oFont:nInpHeight
            :SetFont( f := :oFont:Modify( h ) )
            f:End()
         endif
      END
   next

return nil

Code: Select all | Expand

TESTGETS DIALOG 99, 89, 194, 200
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MAXIMIZEBOX | WS_MINIMIZEBOX
CAPTION "TESTGETS"
FONT 8, "MS Sans Serif"
{
 EDITTEXT 101, 33, 51, 131, 12, WS_BORDER | WS_TABSTOP
 EDITTEXT 102, 33, 71, 131, 12, WS_BORDER | WS_TABSTOP
 EDITTEXT 103, 33, 91, 131, 12, WS_BORDER | WS_TABSTOP
 EDITTEXT 104, 33,111, 131, 12, ES_PASSWORD | WS_BORDER | WS_TABSTOP
 DEFPUSHBUTTON "OK", 1, 42, 150, 50, 14
 PUSHBUTTON "Cancel", 2, 102, 150, 50, 14
}

Code: Select all | Expand

function TestStr2Val()

   local aStr  := { "34512.01", "1,234.56", "3.456,34", "12.5%", "true", "FALSO",  ;
                    "10/20/2020", "25-02-1998", "10 jan 2010", "feb 15, 78" }

   SET DATE ITALIAN
   SET CENTURY ON
   FWNumFormat( "A", .t. )


   AEval( aStr, { |c,i| aStr[ i ] := { c, uCharToVal( c ), nil } } )
   AEval( aStr, { |a,i| a[ 3 ] := ValType( a[ 2 ] ) } )


   XBROWSER aStr TITLE "uCharToVal(c)" SETUP ( ;
      oBrw:cHeaders := { "FUNCTION", "RESULT", "TYPE" }, ;
      oBrw:aCols[ 1 ]:bStrData := { |x,o| 'uCharToVal( "' + o:Value + '" ) =' }, ;
      oBrw:aCols[ 1 ]:nDataStrAlign := AL_RIGHT, ;
      oBrw:aCols[ 3 ]:nDataStrAlign := AL_CENTER )

return nil

Code: Select all | Expand

//--------------------------------------------------------------------------
METHOD MenuFolders( oButton, nRow, nCol ) CLASS TMdiChildFolder


LOCAL aVentanasMdi:=::Genera_botones_mdi()
LOCAL I:=1
local oMenu
LOCAL nRowMenu:=oButton:nTop+oButton:oWnd:nTop+oButton:nHeight
LOCAL nColMenu:=oButton:nLeft

MENU oMenu POPUP
   FOR I=1 TO LEN(aVentanasMdi)
      IF aVentanasMdi[i]==Self:cCaption
         MENUITEM aVentanasMdi[i] OF oMenu CHECKED
      ELSE
         MENUITEM aVentanasMdi[i] OF oMenu
      ENDIF
   NEXT I
ENDMENU

FOR I=1 TO LEN(aVentanasMdi)
   oMenu:aItems[i]:bAction := HazBlock(i)
NEXT I

oMenu:Activate( nRowMenu,nColMenu, Self , .f. )

RETURN(NIL)

//-----------------------------------------------------------------------------

Code: Select all | Expand

///////////////////////////////////////////////////////////////////////////////
// Proyecto: hdbc
// Fichero: test008.prg
// Autor: Manu Exposito
// Fecha: 
// Descripcion: Traspasa test.dbf de los ejemplos de Harbour a SQL.
//              Si no existe la bases de datos la crea.
//              Si no existe la tabla test la crea.
//              Uso de bindParam
///////////////////////////////////////////////////////////////////////////////

//------------------------------------------------------------------------------

#include "hdbc.ch" 
#include "postgresql_connect.ch" 

#define ID_CARGA	500

//------------------------------------------------------------------------------
// Programa principal

procedure main()

    local oDb, e
    local cCreaTable 

    TEXT INTO cCreaTable
    CREATE TABLE IF NOT EXISTS test
    (
        id          SERIAL,
        first       VARCHAR( 20 ),
        last        VARCHAR( 20 ),
        street      VARCHAR( 30 ),
        city        VARCHAR( 30 ),
        state       VARCHAR( 2 ),
        zip         VARCHAR( 10 ),
        hiredate    DATE,
        married     BOOLEAN,
        age         INTEGER,
        salary      DECIMAL( 9, 2 ),
        notes       VARCHAR( 70 ),
        PRIMARY KEY ( id )
    )

    ENDTEXT
 
    cls

    msg( "Traspaso de datos..." )

    try
        oDb := THDbc():new( _DRIVER_ )

        oDb:connect( _CONN_STRING_ )        
        oDb:exec( cCreaTable )
        
        traspasa( oDb )

    catch  e
        eval( errorBlock(), e )
    finally
        oDb:disconnect()
        msg( "Esto es todo!!!" )
    end	
return

//------------------------------------------------------------------------------
// Usa sentencias preparadas en el lado del servidor y transacciones.

static procedure traspasa( oDb )

    local n := 0, nSec
    local oInsert
    local first, last, street, city, state, zip, hiredate, married, age, salary, notes

    local cSentencia := "INSERT INTO test ( first, last, street, city, state, zip, "  + ;
        "hiredate, married, age, salary, notes ) " + ;
        "VALUES ( $1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11 );"

    if file( "test.dbf" )
		
        use test new
		
        oInsert := oDb:prepareStatement( cSentencia ) // Crea el objeto y prepara la sentencia

        // Vincula las variables harbour con cada una de las "?" por su posicion
        oInsert:bindParam(  1, @first  )
        oInsert:bindParam(  2, @last  )
        oInsert:bindParam(  3, @street )
        oInsert:bindParam(  4, @city )
        oInsert:bindParam(  5, @state )
        oInsert:bindParam(  6, @zip )
        oInsert:bindParam(  7, @hiredate )
        oInsert:bindParam(  8, @married )
        oInsert:bindParam(  9, @age )
        oInsert:bindParam( 10, @salary )
        oInsert:bindParam( 11, @notes )

        nSec := hb_milliSeconds()
	
        oDb:startTransaction()
		
        while n < ID_CARGA	
	
            while test->( !eof() )
                first    := test->first
                last     := test->last
                street   := test->street
                city     := test->city
                state    := test->state
                zip      := test->zip
                hiredate := test->hiredate 
                married  := test->married
                age      := test->age
                salary   := test->salary
                notes    := test->notes
		
                oInsert:execute()
                
                ++n

                test->( dbskip( 1 ) )
            end
	
            test->( DbGoTop() )
        end

        oDb:commit()		

        nSec := hb_milliSeconds() - nSec 

        msg( "Se han pasado " + Hb_NToS( n ) + " registros en " + Hb_NToS( nSec ) + " milisegundos", "Uso de bindParam" )
    else
        msg( "Fichero test.dbf no existe" )
    endif

return

//------------------------------------------------------------------------------

Code: Select all | Expand

#INCLUDE "fivewin.ch"
#INCLUDE "tdolphin.ch"
FUNCTION Armando()
LOCAL oBrw, oCn, oRs, oForm, oBtn
   CONNECT oCn HOST 'localhost' ;
                    USER 'root' ;
                    PASSWORD 'secret' ;
                    PORT 3306 ;
                    FLAGS 0;
                    DATABASE 'test'
   if oCn == nil
      ? "can not connect to server"
      return nil
   endif
   //Creo una tabla temporal
   oCn:Execute("";
    + "CREATE TEMPORARY TABLE IF NOT EXISTS armando ";
    +"( `id` INT(10) NOT NULL AUTO_INCREMENT, ";    
    +"`nombre` VARCHAR(50) NOT NULL,";    
    +"`orden` INT(10) NOT NULL,";
    +"PRIMARY KEY (`id`)) ENGINE=INNODB DEFAULT CHARSET=utf8")
   //Inserto lo basico 
   oCn:Execute("INSERT INTO armando (orden,nombre) VALUES (1,'Manzana'),(2, 'Pera'),(3, 'Naranja'),(4, 'Mandarina')")
   oRs   := oCn:query("SELECT * FROM armando ORDER BY orden ")
   DEFINE DIALOG oForm TITLE "Armando" FROM 05,15 TO 36,99    
   @05,05 XBROWSE oBrw DATASOURCE oRs;
              COLUMNS "orden","nombre";
              HEADERS "Orden","Nombre";
              SIZES 80,200;
              OF oForm CELL SIZE 200,200 PIXEL       
   oBrw:CreateFromCode()
   @ 05,220 BUTTON oBtn PROMPT "Insertar" SIZE 30,10 OF oForm PIXEL ACTION Insertar(oRs,oCn,oBrw)
   ACTIVATE DIALOG oForm CENTER 
RETURN nil


STATIC FUNCTION Insertar(oRs,oCn,oBrw)
LOCAL oDlg1, nOrden := 0, cNombre := SPACE(50), oGet := ARRAY(2), oBtn := ARRAY(2), lRta := .f.
    DEFINE DIALOG oDlg1 TITLE "Insertar Registro" FROM 03,20 TO 14,60 
       
       @ 07, 05 SAY "Nombre:" OF oDlg1 PIXEL RIGHT SIZE 40,10
       @ 22, 05 SAY "Orden:"  OF oDlg1 PIXEL RIGHT SIZE 40,10       
       @ 05, 50 GET      oGet[1] VAR cNombre  OF oDlg1 PIXEL
       @ 20, 50 GET      oGet[2] VAR nOrden PICTURE "9999" OF oDlg1 PIXEL RIGHT       
       
       @ 35,30 BUTTON oBtn[1] PROMPT "&Grabar" OF oDlg1 SIZE 30,10 ;
               ACTION ((lRta := .t.), oDlg1:End() ) PIXEL
       @ 35,80 BUTTON oBtn[2] PROMPT "&Cancelar" OF oDlg1 SIZE 30,10 ;
               ACTION ((lRta := .f.), oDlg1:End() ) PIXEL
    ACTIVATE DIALOG oDlg1 CENTER 
IF !lRta .or. nOrden <=0   
   RETURN nil 
ENDIF 
oCn:Execute("UPDATE armando SET orden = orden + 1 WHERE orden >= "+str(nOrden))
oCn:Execute("INSERT INTO armando (nombre,orden) VALUES ('"+cNombre+"',"+STR(nOrden)+")")  
oRs:Refresh()
oBrw:Refresh(.t.)

RETURN nil

Code: Select all | Expand

#include "fivewin.ch"
#include "adodef.ch"

//----------------------------------------------------------------------------//

function Main()

   local oCn, oRs
   local aInsert

   oCn   := Fw_OpenAdoConnection( "MYSQL,209.250.245.152,fwh,fwhuser,FiveTech@2022", .t. )
   oRs   := CreateTableFruits( oCn )

   // Right-click to insert new fruits
   aInsert  := { "APPLES", "APRICOT", "MELON", "DATES" }

   XBROWSER oRs TITLE "FRUITS" SETUP ( ;
      oBrw:bRClicked := { |r,c,f,o| InsertFruits( oRs, aInsert ), o:Refresh() } )

   oRs:Close()
   oCn:Close()

return nil

//----------------------------------------------------------------------------//

function CreateTableFruits( oCn )

   local oRs, v

   oCn:Execute( "DROP TABLE IF EXISTS fruits" )
   FWAdoCreateTable( "fruits", { { "fruit", "C", 15, 0 } }, oCn )

   oRs   := FW_OpenRecordSet( oCn, "fruits" )
   oRs:Sort := "id"
   for each v in { "Manzana", "Pera", "Naranja", "Mandarina", "Mango", "Banana", "Papaya", "Grape", "Guva", "Durian"  }
      oRs:AddNew( "fruit", v )
   next

return oRs

//----------------------------------------------------------------------------//

function InsertFruits( oRs, aFruits )

   local oCn      := oRs:ActiveConnection
   local nSave    := oRs:AbsolutePosition
   local nId, aList, aRows, cSql

   CursorWait()

   aList    := {}
   AEval( aFruits, { |c| AAdd( aList, { nil, c } ) } )

   aRows := RsGetRows( oRs )
   AEval( aRows, { |a,i| AAdd( aList, { nil, a[ 2 ] } ), ;
                         aList[ i, 1 ] := a[ 1 ] } )

   cSql  := SQL INSERT INTO fruits ( id, fruit ) ARRAY aList
   cSql  := "REPLACE" + SubStr( cSql, 7 )
   oCn:Execute( cSql )
   // done
   oRs:Requery()
   oRs:MoveLast()
   nId   := oRs:Fields( "id" ):Value
   oCn:Execute( "ALTER TABLE fruits AUTO_INCREMENT = " + LTrim( Str( nID + 1 ) ) )
   oRs:AbsolutePosition := nSave
   CursorArrow()

return nil

//----------------------------------------------------------------------------//

Code: Select all | Expand

#include "fivewin.ch"

function Main()

   local oDlg, oFont
   local oGet[ 20 ]
   local aVar := { Space(10), "1234567890", Space(10), Space(10), 0, ;
                  1, "multiline", Space(10), Space(10), 0, ;
                  0, 0, 0, Space(10), Space(10), ;
                  0, 0 }
   local vCbx := { "4A-BOBINAS", "10-OP.GRAVIDAS", "One" }
   local oBtn[ 2 ]
   local oCbx[ 3 ], oChk
   local lVar  := .f.
   local oRadio, nRadio := 1

   SetGetColorFocus()

   DEFINE FONT oFont NAME "VERDANA" SIZE 0,-12
   DEFINE DIALOG oDlg RESOURCE "MERCADERIA" FONT oFont

   REDEFINE GET oGet[ 1 ] VAR aVar[ 1 ] ID 100 OF oDlg
   REDEFINE GET oGet[ 2 ] VAR aVar[ 2 ] ID 101 OF oDlg
   REDEFINE GET oGet[ 3 ] VAR aVar[ 3 ] ID 102 OF oDlg
   REDEFINE GET oGet[ 4 ] VAR aVar[ 4 ] ID 103 OF oDlg
   REDEFINE COMBOBOX oCbx[ 1 ] VAR vCbx[ 1 ] ID 104 OF oDlg ITEMS { "4A-BOBINAS", "Two", "Three" }
   REDEFINE GET oGet[ 5 ] VAR aVar[ 5 ] ID 105 OF oDlg PICTURE "999.9999"
   REDEFINE GET oGet[ 6 ] VAR aVar[ 6 ] ID 106 OF oDlg PICTURE "999"
   REDEFINE COMBOBOX oCbx[ 2 ] VAR vCbx[ 2 ] ID 107 OF oDlg ITEMS { "10-OP.GRAVIDAS", "Two", "Three" }
   REDEFINE GET oGet[ 7 ] VAR aVar[ 7 ] TEXT ID 108 OF oDlg
   REDEFINE GET oGet[ 8 ] VAR aVar[ 8 ] ID 109 OF oDlg
   REDEFINE GET oGet[ 9 ] VAR aVar[ 9 ] ID 110 OF oDlg
   REDEFINE CHECKBOX oChk VAR lVar ID 117 OF oDlg
   REDEFINE GET oGet[ 10 ] VAR aVar[ 10 ] ID 111 OF oDlg PICTURE "999.9999"
   REDEFINE GET oGet[ 11 ] VAR aVar[ 11 ] ID 112 OF oDlg PICTURE "999.9999"
   REDEFINE GET oGet[ 12 ] VAR aVar[ 12 ] ID 113 OF oDlg PICTURE "999.9999"
   REDEFINE GET oGet[ 13 ] VAR aVar[ 13 ] ID 114 OF oDlg PICTURE "999.9999"
   REDEFINE GET oGet[ 14 ] VAR aVar[ 14 ] ID 115 OF oDlg
   REDEFINE GET oGet[ 15 ] VAR aVar[ 15 ] ID 116 OF oDlg
   REDEFINE RADIO oRadio VAR nRadio ID 118, 119 OF oDlg
   REDEFINE COMBOBOX oCbx[ 3 ] VAR vCbx[ 3 ] ID 120 OF oDlg ITEMS { "One", "Two", "Three" }
   REDEFINE GET oGet[ 16 ] VAR aVar[ 16 ] ID 121 OF oDlg PICTURE "999.9999"
   REDEFINE GET oGet[ 17 ] VAR aVar[ 17 ] ID 122 OF oDlg PICTURE "999.9999"

   REDEFINE BTNBMP oBtn[ 1 ] ID 202 OF oDlg FILE 0xE109
   REDEFINE BTNBMP oBtn[ 2 ] ID 203 OF oDlg FILE 0xE109

   REDEFINE BUTTON ID 200 OF oDlg ACTION oDlg:End
   REDEFINE BUTTON ID 201 OF oDlg ACTION oDlg:End

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

Code: Select all | Expand

MERCADERIA DIALOG MOVEABLE PURE LOADONCALL DISCARDABLE 0, 0, 419, 367
STYLE DS_FIXEDSYS |DS_SETFONT |WS_POPUP |WS_VISIBLE |WS_SYSMENU |WS_THICKFRAME |WS_CAPTION
CAPTION "Mantenimiento de Mercaderia"
FONT 8, "Ms Shell Dlg"
LANGUAGE LANG_NEUTRAL, 0
BEGIN
  CONTROL "Caracteristicas del Producto",-1,"BUTTON",BS_GROUPBOX |WS_CHILD |WS_VISIBLE ,5,1,405,155
  CONTROL "Valorizaciones",-1,"BUTTON",BS_GROUPBOX |WS_CHILD |WS_VISIBLE ,5,157,405,38
  CONTROL "Contabilidad",65535,"BUTTON",BS_GROUPBOX |WS_CHILD |WS_VISIBLE ,5,195,405,38
  CONTROL "Detracción",65535,"BUTTON",BS_GROUPBOX |WS_CHILD |WS_VISIBLE ,5,233,405,86
  CONTROL "Codigo del Proveedor :",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,10,15,80,8
  CONTROL "Nombre del Producto :",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,10,60,80,8
  CONTROL "Unidad de Medida :",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,10,75,80,8
  CONTROL "Caracteristicas :",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,12,114,79,8
  CONTROL "Grupo  :",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,10,30,80,8
  CONTROL "Sub Grupo  :",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,10,45,80,8
  CONTROL "Peso  Bruto:",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,220,75,44,8
  CONTROL "Piezas x Envase :",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,33,90,56,8
  CONTROL "Afectacion del IGV :",-1,"STATIC",SS_LEFT |WS_CHILD |WS_GROUP |WS_VISIBLE ,213,95,66,8
  CONTROL "Costo S/. :",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,10,172,41,8
  CONTROL "Precio :",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,102,172,28,8
  CONTROL "Precio Minimo :",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,187,172,53,8
  CONTROL "Stock Minimo :",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,293,172,53,8
  CONTROL "Laboratorio :",65535,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,230,110,45,8
  CONTROL "Proveedor :",65535,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,230,125,45,8
  CONTROL "...",300,"STATIC",SS_LEFT |WS_CHILD |WS_GROUP |WS_VISIBLE ,165,30,173,8
  CONTROL "...",301,"STATIC",SS_LEFT |WS_CHILD |WS_GROUP |WS_VISIBLE ,165,45,173,8
  CONTROL "Cuenta de Compras :",-1,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,63,211,77,8
  CONTROL "Cuenta de Ventas :",65535,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,223,211,77,8
  CONTROL "Edit1",100,"EDIT",ES_LEFT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,95,15,93,12
  CONTROL "1234567890",101,"EDIT",ES_LEFT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,95,30,65,12
  CONTROL "Edit1",102,"EDIT",ES_LEFT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,95,45,65,12
  CONTROL "Edit4",103,"EDIT",ES_MULTILINE |ES_LEFT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,95,60,300,12
  CONTROL "",104,"COMBOBOX",CBS_DROPDOWN |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,95,75,92,49
  CONTROL "Edit1",105,"EDIT",ES_RIGHT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,273,74,35,12
  CONTROL "Edit1",106,"EDIT",ES_RIGHT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,95,90,35,12
  CONTROL "",107,"COMBOBOX",CBS_DROPDOWN |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,280,95,121,37
  CONTROL "Edit7",108,"EDIT",ES_MULTILINE |ES_LEFT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,95,105,129,32
  CONTROL "Edit8",109,"EDIT",ES_LEFT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,280,110,99,12
  CONTROL "Edit8",110,"EDIT",ES_LEFT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,280,125,59,12
  CONTROL "Producto de entrega Gratuita",117,"BUTTON",BS_CHECKBOX |BS_LEFT |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,96,140,140,10
  CONTROL "Edit8",111,"EDIT",ES_RIGHT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,55,172,40,12
  CONTROL "Edit8",112,"EDIT",ES_RIGHT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,136,172,40,12
  CONTROL "Edit8",113,"EDIT",ES_RIGHT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,246,172,40,12
  CONTROL "Edit8",114,"EDIT",ES_RIGHT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,352,172,40,12
  CONTROL "Edit13",115,"EDIT",ES_LEFT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,147,211,60,12
  CONTROL "Edit13",116,"EDIT",ES_LEFT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,307,211,60,12
  CONTROL "Tipo de Registro :",IDC_STATIC,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,10,250,100,8
  CONTROL "Código de Bien/Servicio :",65535,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,10,265,100,8
  CONTROL "Base Imponible Documto ;",65535,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,10,280,100,8
  CONTROL "Porcentaje de Detracción :",65535,"STATIC",SS_RIGHT |WS_CHILD |WS_GROUP |WS_VISIBLE ,10,295,100,8
  CONTROL "BIenes",118,"BUTTON",BS_RADIOBUTTON |BS_LEFT |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,118,250,44,10
  CONTROL "Servicios",119,"BUTTON",BS_RADIOBUTTON |BS_LEFT |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,172,250,44,10
  CONTROL "",120,"COMBOBOX",CBS_DROPDOWN |WS_CHILD |WS_VSCROLL |WS_TABSTOP |WS_VISIBLE ,118,265,273,89
  CONTROL "Edit15",121,"EDIT",ES_RIGHT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,118,280,65,12
  CONTROL "Edit15",122,"EDIT",ES_RIGHT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,118,295,65,12
  CONTROL "&Aceptar",200,"BUTTON",BS_PUSHBUTTON |BS_VCENTER |BS_CENTER |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,103,330,79,17
  CONTROL "&Cancelar",201,"BUTTON",BS_PUSHBUTTON |BS_VCENTER |BS_CENTER |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,238,330,79,17
  CONTROL "",202,"BUTTON",BS_PUSHBUTTON |BS_VCENTER |BS_CENTER |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,190,75,22,14
  CONTROL "",203,"BUTTON",BS_PUSHBUTTON |BS_VCENTER |BS_CENTER |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,381,110,22,14
END

Code: Select all | Expand

 DEFINE DIALOG oDlg RESOURCE "mercaderia" TRANSPARENT ICON oIco

Code: Select all | Expand

"TBAR;TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO;TDATEPICK;TTIMEPICK" .and. ;

Code: Select all | Expand

"TBAR;TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO;TDATEPICK;TTIMEPICK;TCHECKBOX" .and. ;

Code: Select all | Expand

   aGet[ 1 ]:cTooltip :={ "Nota Fiscal Inicial Para Enviar o(s) Email(s).",  ; // 1,2,3
                          "Nota Fiscal Inicial Para Enviar o(s) Email(s)..", 1, CLR_WHITE, CLR_HBLUE }

Code: Select all | Expand

...
      if ValType( cToolTip ) == 'A'
         ASize( cToolTip, 8 ) //5 )
         cText    = cValToChar( cToolTip[ 1 ] )
         cTitle   = cToolTip[ 2 ]
         hIcon    = nil
         if ! Empty( cTitle )
            cIcon = cToolTip[ 3 ]
            if ValType( cIcon ) == 'C'
               if Empty( cFileExt( cIcon ) )
                  hIcon    := LoadIcon( GetResources(), cIcon )                        // <--------- aqui debe cargar una imagen desde recursos
               elseif Upper( cFileExt( cIcon ) ) == "ICO" .and. File( cIcon )
                  hIcon    := ExtractIcon( cIcon )
               endif
            elseif ValType( cIcon ) == 'N'
               hIcon    := cIcon
               cIcon    := nil
            else
               cIcon    := nil
            endif
            if Empty( hIcon )
               hIcon    := TTI_INFO
               cIcon    := nil
            endif
         endif

         nClrFore = cToolTip[ 4 ]
         nClrBack = cToolTip[ 5 ]
         nWidth   = cToolTip[ 6 ]
         nDelayTime = cToolTip [ 7 ]
         nDelayType = cToolTip [ 8 ]
      else
         cText    = cValToChar( cToolTip )
      endif
...

Code: Select all | Expand

function ToolTipIcon()

   local oDlg, oBtn

   SetBalloon( .t. )

   DEFINE DIALOG oDlg SIZE 300,100 PIXEL TRUEPIXEL ;
      TITLE "TOOLTIP ICON"

   @ 20,50 BTNBMP oBtn PROMPT "TEST" SIZE 100,60 PIXEL OF oDlg ;
      2007 CENTER ;
      TOOLTIP { "This is the text", "TOOLTIP", "FACE" }

   ACTIVATE DIALOG oDlg CENTERED

return nil

Code: Select all | Expand

FACE ICON "..\icons\face.ico"

Code: Select all | Expand

Column oCol[02] Title "     Q. 1a","Fecha"   Data COLECTAR->FEC1 	SIZE 7 SHADOW

Code: Select all | Expand

oReporte:aColumns[02]:aTitle[1] := {|| oReporte:Say(02,"         Q. 1a") }

Code: Select all | Expand

#include "fivewin.ch"

Function Main(importe,vencimiento)
local oWnd,oWebView
local cUrl := "https://casoftsystemweb.com/service-notice.html?deuda="+importe+"&vencimiento="+vencimiento


DEFINE WINDOW oWnd FROM 0,0 TO 50,60 TITLE "AVISO DE VENCIMIENTO DE SERVICIOS" STYLE nOr(WS_SYSMENU)
oWnd:Show()
oWebView = TWebView2():New( oWnd )
oWebView:Navigate( cUrl )
oWebView:SetUserAgent( "Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.5060.53 Mobile Safari/537.36" )

ACTIVATE WINDOW oWnd CENTER ;
   ON RESIZE oWebView:SetSize( nWidth, nHeight-50 )
   oWebView:End()

Return

Code: Select all | Expand

ACTIVATE WINDOW oWnd CENTER 

oWebView:End()

Code: Select all | Expand

oBrw:bClrStd := {|| { CLR_BLACK, CLR_GREEN} } // Color Standar
oBrw:bClrSel := {|| { CLR_WHITE, CLR_RED} } // Color de las rows seleccionadas cuando Xbrowse no tiene el foco
oBrw:bClrSelFocus := {|| { CLR_WHITE, CLR_YELLOW} } // Color de las rows seleccionadas cuando Xbrowse tiene el Foco

Code: Select all | Expand

cValida := cstrings 
deta[2]:= substr(cValida, 74, 160)
msginfo(deta[2])

Code: Select all | Expand

#include "FiveWin.ch"

REQUEST FWZEBRA    // *** Indispensable para dibujar código QR

Function Inicio()
   LOCAL oDlg, hBmp
   LOCAL cTxt4QR := "Prueba de Copy - Paste" + CRLF + "FiveWin 2025" 

   hBmp := FW_BarCodeBmp( cTxt4QR, "QRCODE", 250, 250 )
   hBmp := bmp2alpha( hBmp )   // *** Sin esta línea QRcode tiene un feo marco negro
 // *** Siguiente línea hace la magia y guarda en el portapapeles, luego,
 // *** puedes hacer PASTE (Ctrl+V) en Paint, PhotoShop, Word,  etc., y recuperas tu código QR
   FW_CopyToClipboard(hBmp)
   
   DEFINE DIALOG oDlg SIZE 400,300 PIXEL TRUEPIXEL
        @ 20,20 XIMAGE oImg SIZE -20,-20 OF oDlg PIXEL RESOURCE hBmp
   ACTIVATE DIALOG oDlg CENTERED
return nil
//-----------------------------------------------------------------------//

Function bmp2alpha( hBmp1 )
   local hBmp, oBmp
   oBmp  := GdiBmp():New()
   oBmp:CreateFromRes( hBmp1, 0 )
   oBmp:Conver24to32Alpha( .F. )
   hBmp  := oBmp:GetGDIHbitmap()
   oBmp:Set32Bits(.F.)
   oBmp:Destroy()
   DeleteObject( hBmp1 )
return hBmp
//------------------------------------------------------------------------------//

Code: Select all | Expand

#include "FiveWin.ch"

REQUEST FWZEBRA    // *** Indispensable para dibujar código QR

Function Inicio()
   LOCAL oDlg, hBmp
   LOCAL cTxt4QR := "Prueba de Copy - Paste" + CRLF + "FiveWin 2025" 

   hBmp := FW_BarCodeBmp( cTxt4QR, "QRCODE", 250, 250 )
   hBmp := bmp2alpha( hBmp )   // *** Sin esta línea QRcode tiene un feo marco negro
 // *** Siguiente línea hace la magia y guarda en el portapapeles, luego,
 // *** puedes hacer PASTE (Ctrl+V) en Paint, PhotoShop, Word,  etc., y recuperas tu código QR
 //  FW_CopyToClipboard(hBmp)    // *** También genera marco negro al hacer paste.
   
   DEFINE DIALOG oDlg SIZE 400,350 PIXEL TRUEPIXEL
        @ 03,20 BUTTON oBtn PROMPT "Copy" OF oDlg PIXEL SIZE 80,25 ACTION oImg:CopytoClipBoard(.T.)  

        @ 40,20 XIMAGE oImg SIZE -20,-20 OF oDlg PIXEL RESOURCE hBmp
        oImg:bPainted := {||oImg:CopytoClipBoard(.T.)}   // *** Hace el paste correcto, sin el cuadro negro.

   ACTIVATE DIALOG oDlg CENTERED
return nil
//-----------------------------------------------------------------------//

Function bmp2alpha( hBmp1 )
   local hBmp, oBmp
   oBmp  := GdiBmp():New()
   oBmp:CreateFromRes( hBmp1, 0 )
   oBmp:Conver24to32Alpha( .F. )
   hBmp  := oBmp:GetGDIHbitmap()
   oBmp:Set32Bits(.F.)
   oBmp:Destroy()
   DeleteObject( hBmp1 )
return hBmp
//------------------------------------------------------------------------------//

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   FW_CopyToClipBoard( bmp2Alpha( FW_BarCodeBmp( "Hola", "QRCODE", 400.0, 400.0 ) ) )

return nil

Function bmp2alpha( hBmp1 )
   local hBmp, oBmp
   oBmp := GdiBmp():New()
   oBmp:CreateFromRes( hBmp1, 0 )
   oBmp:Conver24to32Alpha( .F. )
   hBmp := oBmp:GetGDIHbitmap()
   oBmp:Set32Bits(.F.)
   oBmp:Destroy()
   DeleteObject( hBmp1 )
   return hBmp