Thanks to Carlos Atúncar Hernandez

REFERENCE MANUAL

TXBrowse / XBrowse

FiveWin for Harbour

Properties · Methods · Events · Columns

Based on official FiveWin examples

1. Introduction

TXBrowse (invoked via the command @ X,Y XBROWSE or XBROWSER) is the most powerful grid control in FiveWin for Harbour. It allows displaying and editing data from DBF/RDD tables, ADO RecordSets, arrays, TDatabase objects, trees (TTree), and text files.

1.1 Supported Data Sources

1.2 Methods of Creating the Browse

Declarative Command

@ nRow, nCol XBROWSE oBrw OF oParent ALIAS 'CUST' AUTOCOLS LINES CELL

Programmatic (Class)

oBrw := TXBrowse():New( oWnd )
oBrw:SetRDD() // or :SetArray( aData ) / :SetRecordSet( oRs )
oBrw:CreateFromCode()

📌 NOTE: Always call :CreateFromCode() at the end of the configuration, before activating the dialog/window.

2. Browse Properties (TXBrowse)

2.1 Appearance and Style

2.2 Scrolling and Columns

2.3 Colors

📌 NOTE: Color blocks return an array: { nTextColor, nBackColor }. Background can be RGB or a gradient array.

2.4 Background

3. Browse Events (TXBrowse)

4. Column Properties (TXBrwColumn)

4.1 Identification and Header

4.2 Data and Formatting

4.3 Images and Bitmaps

5. Main Methods

6. Dynamic Column Access

XBrowse allows accessing columns by name directly as a property:

• Direct: oBrw:Salary:nFooterType := AGGR_TOTAL
• Via Method: oBrw:oCol("Salary"):lTotal := .T.
• Computed Column: oBrw:NewSalary := { || oBrw:Salary:Value * 1.1 }

7. Reference Constants

7.1 MARQSTYLE_* (Selector Style)

• MARQSTYLE_DOTCELL (1): Dotted frame.
• MARQSTYLE_SOLIDCELL (2): Solid frame.
• MARQSTYLE_HIGHLCELL (3): Highlight cell.
• MARQSTYLE_HIGHLROW (5): Highlight full row.
• MARQSTYLE_HIGHLWIN7: Win7/10 gradient style.

7.2 EDIT_* (Editor Types)

• EDIT_NONE (0): No editing.
• EDIT_GET (1): Standard Textbox.
• EDIT_LISTBOX: Dropdown list.
• EDIT_GET_BUTTON: GET with action button.

7.3 AGGR_* (Footer Aggregates)

• AGGR_TOTAL / AGGR_SUM: Sum.
• AGGR_AVERAGE: Mean.
• AGGR_COUNT: Count.

8. Recommended Usage Pattern

1. Define Data Source (ALIAS, ARRAY, etc.).
2. Create browse via @ X,Y XBROWSE or New().
3. Set Browse properties (Styles, Marquee, Colors).
4. Configure Column properties (Headers, Editing, Bitmaps).
5. Call MakeTotals() if using footers.
6. Call CreateFromCode() (Always the last configuration step).
7. Assign oWnd:oClient := oBrw.
8. Activate window and call oBrw:SetFocus().

9. Advanced Features

9.1 Incremental Filter

WITH OBJECT oBrw
   :lIncrFilter := .T.
   :lSeekWild   := .T. // "Contains" search
   :cFilterFld  := "FIRST"
END

REFERENCE MANUAL

TXBrowse / XBrowse

FiveWin for Harbour

Properties · Methods · Events · Columns

Based on official FiveWin examples

1\. Introduction

TXBrowse (invoked via the @ X,Y XBROWSE or XBROWSER command) is the most powerful grid control in FiveWin for Harbour. It allows displaying and editing data from DBF/RDD tables, ADO RecordSets, arrays, TDatabase objects, trees (TTree), and text files.

1.1 Supported Data Sources

1.2 Ways to Create the Browse

Declarative command

@ nRow, nCol XBROWSE oBrw OF oParent ALIAS 'CUST' AUTOCOLS LINES CELL

Programmatic (class)

oBrw := TXBrowse():New( oWnd )

oBrw:SetRDD() // or :SetArray( aData ) / :SetRecordSet( oRs )

oBrw:CreateFromCode()

📌 NOTE: Always call :CreateFromCode() at the end of configuration, before activating the dialog/window.

2\. Browse Properties (TXBrowse)

2.1 Appearance and Style

2.2 Scrolling and Columns

2.3 Colors

📌 NOTE: Color blocks return a 2-element array: { nTextColor, nBkgColor }. The background can be an RGB color or even a gradient array.

2.4 Background

Gradient example

local aGrad := {{ .5, CLR\_BLUE, RGB(202,202,255) }, { .5, RGB(202,202,255), CLR\_BLUE }}

// In the XBROWSE command: BACKGROUND aGrad VERTICAL

// Or in code: oBrw:SetBackGround( aGrad, .T. )

2.5 Editing

2.6 Column Footers

2.7 Sorting and Searching

2.8 Multi-Selection

2.9 Group Headers

Example

oBrw:SetGroupHeader( 'EMPLOYEE' \+ CRLF \+ 'NAME', 1, 2, oBold )

oBrw:SetGroupHeader( 'ADDRESS', 3, 6, oBold )

2.10 Tree Browse

2.11 State and Persistence

2.12 Cell Tooltip

📌 NOTE: bCellToolTips applies to all columns, but can be overridden per column with oCols\[n\]:bCellToolTip

3\. Browse Events (TXBrowse)

4\. Column Properties (TXBrowseCol)

4.1 Identification and Header

4.2 Data and Formatting

4.3 Column Colors

4.4 Images and Bitmaps in Column

📌 NOTE: For transparent PNG images with alpha channel, use lBmpTransparent := .T. combined with bAlphaLevel.

4.5 Column Footer

4.6 Column Editing

4.7 Column Events

4.8 Cell Anchoring (AnchorToCell)

Example

oDlg:bInit := { || oCol:AnchorToCell( oDlg ) }

5\. Main Browse Methods

6\. Dynamic Column Access

XBrowse allows accessing browse columns by name directly as a browse property, thanks to the magic of \_\_GetProperty:

6.1 By name (direct access)

oBrw:Salary:nFooterType := AGGR\_TOTAL

oBrw:Married:SetCheck( { "GREEN", "RED" }, .T. )

oBrw:HireDate:cEditPicture := 'dd mmm yyyy'

6.2 Via oCol() method

if \!Empty( oCol := oBrw:oCol( "Salary" ) )

oCol:lTotal := .T.

oCol:nEditType := EDIT\_GET

endif

6.3 By index in aCols

oBrw:aCols\[ 1 \]:bClrStd := {|| {CLR\_WHITE, CLR\_RED} }

oBrw:aCols\[ 2 \]:nHeadStrAlign := AL\_CENTER

6.4 Computed column (formula)

// Adds new column based on another

oBrw:NewSalary := { || oBrw:Salary:Value \* 1.1 }

WITH OBJECT oBrw:NewSalary

:cHeader := 'NewSalary'

:nFooterType := AGGR\_TOTAL

END

6.5 ADD TO (command)

ADD TO oBrw DATA (cAlias)-\>CITY HEADER "City" CARGO { 1, 2 }

ADD TO oBrw DATA oRs:Fields("TotSalary"):Value / oRs:Fields("Employees"):Value ;

HEADER "AVERAGE" PICTURE "999,999,999"

7\. Reference Constants

7.1 MARQSTYLE\_\* — Selector Style

7.2 LINESTYLE\_\* — Divider Line Style

7.3 STRETCHCOL\_\* — Elastic Column

7.4 EDIT\_\* — Editor Types

7.5 AGGR\_\* — Footer Aggregate Types

7.6 AL\_\* — Alignment

8\. Complete Examples

8.1 Basic browse over DBF

@ 0,0 XBROWSE oBrw OF oWnd ALIAS 'CUSTOMER' AUTOCOLS LINES CELL

oBrw:nMarqueeStyle := MARQSTYLE\_HIGHLROW

oBrw:nRowDividerStyle := LINESTYLE\_BLACK

oBrw:CreateFromCode()

oWnd:oClient := oBrw

8.2 Browse over Array with editing

@ 0,0 XBROWSE oBrw OF oDlg ARRAY aData AUTOCOLS LINES CELL FASTEDIT

oBrw:lHScroll := .F.

oBrw:lVScroll := .F.

AEval( oBrw:aCols, {|o| o:nEditType := EDIT\_GET} )

oBrw:CreateFromCode()

8.3 Browse with dynamic colors

oBrw:bClrStd := {|| {CLR\_WHITE, iif(Field-\>Married, CLR\_RED, CLR\_GREEN)} }

oBrw:aCols\[10\]:bClrStd := {|| {iif(Field-\>Salary\>100000, CLR\_HRED, CLR\_HBLUE), CLR\_GRAY}}

8.4 Browse with footer and totals

WITH OBJECT oBrw:Salary

:nFooterType := AGGR\_TOTAL

:bLClickFooter := {|r,c,f,o| FooterAggrClick(r,c,f,o)}

END

oBrw:lFooter := .T.

oBrw:MakeTotals()

oBrw:CreateFromCode()

8.5 Multi-selection with Windows 7 style

oBrw:nMarqueeStyle := MARQSTYLE\_HIGHLWIN7

WITH OBJECT oBrw:InsCol( 1 )

:cHeader := " "

:bEditValue := {|| If(AScan(oBrw:aSelected, oBrw:BookMark)\>0, .T., nil)}

:SetCheck()

:nHeadBmpNo := {|| If(Len(oBrw:aSelected)==oBrw:nLen, 1, 2)}

:bLClickHeader := {|r,c,f,oCol| If(Len(oBrw:aSelected)==oBrw:nLen, ;

  oBrw:SelectNone(), oBrw:SelectAll())}

END

8.6 Group Headers with bold font

DEFINE FONT oBold NAME 'VERDANA' SIZE 0,-14 BOLD

oBrw:SetGroupHeader( 'EMPLOYEE' \+ CRLF \+ 'NAME', 1, 2, oBold )

oBrw:SetGroupHeader( 'ADDRESS', 3, 6, oBold )

oBrw:SetGroupHeader( 'OTHER', 8, 9, oBold )

oBrw:lAllowColReGroup := .T.

8.7 Image with alpha transparency

oBrw:aCols\[ 1 \]:nEditType := TYPE\_IMAGE

oBrw:aCols\[ 1 \]:lBmpStretch := .F.

oBrw:aCols\[ 1 \]:lBmpTransparent := .T.

oBrw:aCols\[ 1 \]:bStrImage := {|oCol, oBrw| oBrw:aRow\[ 2 \]}

oBrw:aCols\[ 1 \]:nDataBmpAlign := AL\_CENTER

oBrw:aCols\[ 1 \]:bAlphaLevel := {|o| o:oBrw:aRow\[ 3 \]}

8.8 Cell tooltip

oBrw:bCellToolTips := {|oCol| {oCol:Value, oCol:cHeader}}

oBrw:aCols\[1\]:bCellToolTip := {|oCol| TRIM(FIELD-\>FIRST) \+ CRLF \+ TRIM(FIELD-\>LAST)}

8.9 Cell merging (bExtend)

WITH OBJECT :aCols\[ 1 \]

:bExtend := {|o| If(o:oBrw:aRow\[1\]==0, 2, 0)} // extends 2 cols if subtotal

:bDataStrAlign := {|o| If(o:oBrw:aRow\[1\]==0, AL\_CENTER, AL\_LEFT)}

:bClrStd := {|| {CLR\_BLACK, If(oBrw:aRow\[1\]==0, CLR\_YELLOW, CLR\_WHITE)}}

END

8.10 Browse with gradient background

local aGrad := {{ .5, CLR\_BLUE, RGB(202,202,255) }, { .5, RGB(202,202,255), CLR\_BLUE }}

@ 10,10 XBROWSE oBrw ... BACKGROUND aGrad VERTICAL

// Or dynamically:

oBrw:SetBackGround( aGrad, .T. ) // .T. \= vertical

oBrw:SetBackGround( "PAPER" ) // Image resource

oBrw:SetBackGround() // Clear background

9\. Recommended Usage Pattern

The following is the typical order for configuring an XBrowse completely and correctly:

1. 1\. Define the data source (ALIAS, ARRAY, RECSET, OBJECT)

2. 2\. Create the browse with @ X,Y XBROWSE ... or TXBrowse():New()

3. 3\. Configure browse properties (styles, colors, marquee, scroll)

4. 4\. Configure column properties (headers, editing, colors, bitmaps)

5. 5\. Define group headers if applicable (SetGroupHeader)

6. 6\. Call MakeTotals() if there are footers with aggregates

7. 7\. Call CreateFromCode() — ALWAYS the last step

8. 8\. Assign oWnd:oClient := oBrw (for windows)

9. 9\. Activate the window or dialog with ON INIT oBrw:SetFocus()

📌 NOTE: CreateFromCode() MUST always be the last configuration call. Any property or method called after CreateFromCode() may have no effect.

10\. Advanced Record Selector

The record selector (the left gray column) can be fully customized to show row numbers, names, icons, and context menus.

10.1 Record Selector Properties

Example: Selector with row number

WITH OBJECT oBrw

:bRecSelData := { |brw| brw:KeyNo }

:bRecSelFooter := { |brw| brw:nLen }

:bRecSelHeader := "SlNo"

:nRecSelWidth := "9999"

END

Example: Selector with region name (Array)

WITH OBJECT oBrw

:bRecSelData := { |brw| brw:aRow\[ 1 \] } // name in col 1

:bRecSelFooter := "Totals"

:bRecSelHeader := "Region"

:nRecSelWidth := "Americas" // width for the longest text

END

Example: Multi-selection with conditional totals

WITH OBJECT oBrw

:SetMultiSelectCol()

:bClrStd := { || { CLR\_BLACK, If( oBrw:SelectRow(), 0x88EDFB, CLR\_WHITE ) } }

:Salary:bSumCondition := { || oBrw:SelectRow() }

:Salary:nFooterType := AGGR\_SUM

:MakeTotals()

END

11\. GetBar and Incremental Filter

11.1 GetBar — Gets below headers

Allows displaying input fields directly below column headers to filter the browse in real time.

11.2 Incremental Filter

Allows filtering the browse while the user types, without needing to press Enter.

12\. Internal Button Bar (nTopBarHeight / bOnAdjust)

XBrowse allows embedding a button bar directly inside the browse itself, above the data, without needing an external ButtonBar.

Complete example

oBrw:nTopBarHeight := 30

oBrw:bOnAdjust := \<||

local oBtn

@ 05,05 BTNBMP oBtn FILE "new.bmp" SIZE 30,20 PIXEL OF oBrw NOBORDER ;

  ACTION oBrw:EditSource( .T. ) TOOLTIP "Add"

@ 05,45 BTNBMP oBtn FILE "edit.bmp" SIZE 30,20 PIXEL OF oBrw NOBORDER ;

  ACTION oBrw:EditSource() TOOLTIP "Edit"

@ 05,85 BTNBMP oBtn FILE "delete.bmp" SIZE 30,20 PIXEL OF oBrw NOBORDER ;

  ACTION oBrw:Delete() TOOLTIP "Delete"

return nil

\>

13\. Fonts and Colors per Line (Advanced Multiline)

XBrowse allows assigning different fonts and colors to each line of text within a multiline cell, using the aDataFont and aClrText properties of the column.

Example: different fonts and colors per line

DEFINE FONT aFont1\[ 1 \] NAME "VIVALDI" SIZE 0,-30

DEFINE FONT aFont1\[ 2 \] NAME "Verdana" SIZE 0,-20

WITH OBJECT oBrw:Name

:aDataFont := aFont1

:aClrText := { CLR\_HBLUE, CLR\_HRED }

END

Example: image cropped in circular shape

WITH OBJECT oBrw:aCols\[ 3 \]

:bStrImage := { || "c:\\\\images\\\\photo.jpg" }

:aImgRect := { nil, 0.3, 0.7, nil, "CIRCLE" }

// nil \= full edge, 0.3 \= 30% from left, 0.7 \= 70% from left

END

14\. Inheritance — Derived Classes from TXBrowse

It is possible to create classes derived from TXBrowse and TXBrwColumn to customize behavior at the class level, automatically applying changes to all browses of the same type.

14.1 Creating a derived class from TXBrowse

CLASS MyBrowse FROM TXBrowse

CLASSDATA lRegistered AS LOGICAL // MANDATORY

DATA bColClass INIT { || MyXBrCol() } // own column class

METHOD New( oWnd ) CONSTRUCTOR

ENDCLASS

METHOD New( oWnd ) CLASS MyBrowse

Super:New( oWnd )

::nMarqueeStyle := MARQSTYLE\_HIGHLROWMS

::bClrStd := { || { CLR\_BLACK, RGB(255,255,206) } }

::bClrSelFocus := { || { CLR\_WHITE, CLR\_BLUE } }

::bClrRowFocus := { || { CLR\_BLACK, RGB(150,231,255) } }

return Self

14.2 Derived class from TXBrwColumn

CLASS MyXbrCol FROM TXBrwColumn

METHOD Adjust()

ENDCLASS

METHOD Adjust() CLASS MyXBrCol

if ::cDataType \== 'D'

  ::cEditPicture := 'dd-mmm-yyyy'

endif

Super:Adjust()

return Self

14.3 Activating the derived class

Example with SAVE PREVIOUS

SET XBROWSE TO MyBrowse() SAVE PREVIOUS TO bXBr

// ... create browses that will use MyBrowse ...

SET XBROWSE TO bXBr // restore original class

15\. Group Totals (SetGroupTotal)

In addition to group headers, it is possible to show automatic totals per group and a consolidated grand total.

Complete example

:SetGroupHeader( 'Americas', 2, 3, oBold )

:SetGroupHeader( 'Europe', 4, 5, oBold )

:lAllowColReGroup := .T.

:SetGroupTotal( 'Americas', 'Total' )

:SetGroupTotal( 'Europe', 'Total' )

:SetGroupTotal( { 'Americas\_Total', 'Europe\_Total' }, 'Grand' \+ CRLF \+ 'Total', AGGR\_SUM, oBold )

AEval( oBrw:aCols, { |o| o:bOnChange := { || oBrw:MakeTotals(), oBrw:RefreshFooters() } }, 2 )

16\. Cell Movement Control (nMoveType)

The nMoveType property controls how the cursor moves when pressing Enter or Tab after editing a cell.

Example

oBrw:nMoveType := MOVE\_RIGHT // on confirm, go right

// or dynamically:

oBrw:nMoveType := MOVE\_DOWN // spreadsheet-style behavior

17\. Additional Properties and Advanced Techniques

17.1 Text Highlighting (FW\_SayTextHilite)

Allows highlighting specific words within cell text with a different font and color, using bPaintText.

oBrw:aCols\[ 2 \]:bPaintText := {|oCol, hDC, cText, aRect, aColors|

FW\_SayTextHilite( hDC, cText, aRect, oFont, aColors\[1\], aColors\[2\],

  { { AllTrim(cWordHL), oBold, CLR\_HRED, CLR\_HGREEN } } )

return nil

}

📌 NOTE: FW\_SayTextHilite takes an array of {cWord, oFont, nTextClr, nBkgClr} for each word to highlight.

17.2 DropFile — Dragging files onto the browse

17.3 Source Code Generation (PrgCode)

17.4 Navigation Methods (bGoTop, bGoBottom, bSkip)

18\. Progress Bars in Cells (SetProgBar)

XBrowse allows displaying a progress bar directly within a numeric cell, visualizing the value as a percentage of a given maximum. Ideal for dashboards and queued processes.

19\. Advanced Painting (bPaintRow / bPaintHeader / bPaintFooter)

XBrowse exposes painting hooks at the row, header, and full footer level, allowing full visual control using GDI.

19.1 bPaintRow — Painting complete rows

19.2 bPaintHeader and bPaintFooter

20\. Advanced Editing

20.1 EDIT\_BUTTON — Custom popup editor

20.2 CurrentRow() — Editing in independent dialog

21\. Sort Combo (oSortCbx / cSortOrder)

XBrowse can be automatically linked to an external ComboBox so the user can change the display order without additional code.

22\. Swapping Browses, SetRDD and TPages

22.1 Showing/hiding alternate browses

Example: swap with tabs

aBrw\[1\]:CreateFromCode() ; aBrw\[2\]:CreateFromCode()

aBrw\[2\]:Hide() // hide at start

static function ChangeBrw( nNew, nOld, aBrw )

aBrw\[ nOld \]:Hide()

aBrw\[ nNew \]:oWnd:oClient := aBrw\[ nNew \]

aBrw\[ nNew \]:Enable() ; aBrw\[ nNew \]:Show() ; aBrw\[ nNew \]:oWnd:Resize()

return nil

22.2 Browse as page selector (TPages)

@ 10,20 XBROWSE oXBrw DATASOURCE { "First", "Second" } AUTOCOLS HEADERS "Page" NOBORDER

oXBrw:bChange := { || oPages:SetOption( oXBrw:BookMark ) }

oXBrw:CreateFromCode()

oPages := TPages():New( 10, 200, 380, 580, oDlg )

23\. Gradient in Selected Rows

XBrowse supports gradient arrays in selection color blocks, creating Office/Vista-style visual effects.

24\. Advanced Images — Image \+ Text and SetColsAsRows

24.1 Image and text in the same cell

25\. Miscellaneous: UTF-8, Excel, Synchronized DBF Structure

25.1 UTF-8 Support

25.2 Excel sheet browse (oRange)

oRange := GetExcelRange( cFile, "Customers", "A1:E12" )

@ 0,0 XBROWSE oBrw OF oWnd AUTOCOLS DATASOURCE oRange CELL LINES FOOTERS

oBrw:Sales:bFooter := { || oRange:Application:WorkSheetFunction:Sum( oRange:Columns(5) ) }

26\. Insertable Dynamic Subtotals (Array)

It is possible to insert subtotal rows within an array browse, calculated via blocks that are automatically re-evaluated when the user edits data.

27\. Transparent Watermark (bPaintBack / lTransparent)

XBrowse allows drawing an image as a semi-transparent watermark behind the data, using the bPaintBack hook and the lTransparent property.

28\. Advanced XBROWSER: CALC, Internal Buttons and SETUP

The XBROWSER command has additional options for displaying quick-start browses with extended functionality.

29\. Exporting Selected Records to Excel (aSelected)

XBrowse allows exporting to Excel only a subset of records by specifying an array of record numbers in the aSelected property before calling ToExcel().

Example: export only records from State X

// 1\. Build array of RecNos that meet the condition

local aRecNo := {}

local bCondi := { || (oBrw:cAlias)-\>STATE \== cState }

(oBrw:cAlias)-\>( DBEVAL( { || AAdd( aRecNo, RECNO() ) }, bCondi ) )

// 2\. Position on first matching record and refresh

(oBrw:cAlias)-\>( DBSeek( cState, .T. ) )

oBrw:Refresh()

// 3\. Assign, export and clear

oBrw:aSelected := aRecNo

oBrw:ToExcel()

oBrw:aSelected := {}

Appendix A — Complete Reference Examples

This section contains complete, functional examples extracted directly from the FiveWin/XBrowse example files. They are the most direct reference for implementing each feature.

A.1 Basic browse with RDD, editing and footer (testxbr3.prg)

\#include 'fivewin.ch'

\#include 'xbrowse.ch'

USE CUSTOMER NEW ALIAS CUST SHARED VIA "DBFCDX"

SET ORDER TO TAG FIRST

GO TOP

DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12

DEFINE DIALOG oDlg SIZE 700,400 PIXEL FONT oFont TITLE "XBrowse RDD"

@ 10,10 XBROWSE oBrw SIZE \-10,-10 PIXEL OF oDlg ;

DATASOURCE "CUST" AUTOCOLS AUTOSORT ;

CELL LINES NOBORDER FOOTERS

WITH OBJECT oBrw

:nEditTypes := EDIT\_GET

:Married:SetCheck()

:Salary:nFooterType := AGGR\_SUM

:nStretchCol := STRETCHCOL\_WIDEST

:MakeTotals()

:CreateFromCode()

END

ACTIVATE DIALOG oDlg CENTERED ON INIT ( CUST-\>(dbGoTop()), oBrw:SetFocus(), .F. )

A.2 Array browse with internal button bar (xbrbar.prg)

@ 20,20 XBROWSE oBrw SIZE \-20,200 PIXEL OF oDlg ;

DATASOURCE "STATES" AUTOCOLS CELL LINES NOBORDER

oBrw:nTopBarHeight := 30

oBrw:bOnAdjust := \<||

@ 05,05 BTNBMP oBtn FILE "new.bmp" SIZE 30,20 PIXEL OF oBrw NOBORDER ;

  ACTION oBrw:EditSource( .T. ) TOOLTIP "Add"

@ 05,45 BTNBMP oBtn FILE "edit.bmp" SIZE 30,20 PIXEL OF oBrw NOBORDER ;

  ACTION oBrw:EditSource() TOOLTIP "Edit"

@ 05,85 BTNBMP oBtn FILE "delete.bmp" SIZE 30,20 PIXEL OF oBrw NOBORDER ;

  ACTION oBrw:Delete() TOOLTIP "Delete"

return nil

\>

oBrw:nEditTypes := EDIT\_GET

oBrw:CreateFromCode()

A.3 Record selector with row number and popup (xbrecsel.prg)

WITH OBJECT oBrw

:nHeaderHeight := 60

:SetChecks()

:bRecSelData := { |brw| brw:KeyNo }

:bRecSelFooter := { |brw| brw:nLen }

:bRecSelHeader := "SlNo"

:bRecSelClick := { || RecSelPopUp( oBrw ) }

:nRecSelWidth := "9999"

:AutoFit()

:CreateFromCode()

END

A.4 Group totals with grand total (xbgrpsum.prg)

WITH OBJECT oBrw

:SetGroupHeader( 'Americas', 2, 3, oBold )

:SetGroupHeader( 'Europe', 4, 5, oBold )

:lAllowColReGroup := .T.

:SetGroupTotal( 'Americas', 'Total' )

:SetGroupTotal( 'Europe', 'Total' )

:SetGroupTotal( { 'Americas\_Total', 'Europe\_Total' }, 'Grand' \+ CRLF \+ 'Total', AGGR\_SUM, oBold )

END

AEval( oBrw:aCols, { |o|

o:cEditPicture := '99,999.99'

o:nFooterType := AGGR\_SUM

o:bOnChange := { || oBrw:MakeTotals(), oBrw:RefreshFooters() } }, 2 )

oBrw:MakeTotals()

oBrw:CreateFromCode()

A.5 Incremental filter with wildcard (xbincflt.prg)

WITH OBJECT oBrw

:lIncrFilter := .T.

:lSeekWild := .T. // search 'contains'

:cFilterFld := "FIRST"

:nStretchCol := STRETCHCOL\_WIDEST

END

@ 10,10 COMBOBOX oBrw:cFilterFld ITEMS aHdrs ;

ON CHANGE ( oBrw:Seek(""), oBrw:SetFocus() )

@ 10,70 COMBOBOX nWild ITEMS { "Starts with", "Contains" } ;

ON CHANGE ( oBrw:lSeekWild := (nWild==2), oBrw:Seek(""), oBrw:SetFocus() )

A.6 Dynamic progress bars with cancellation (xbrprogd.prg)

WITH OBJECT oBrw:aCols\[ 2 \]

:SetProgBar( 100,, { || { RGB(161,224,255), CLR\_WHITE } } )

:cEditPicture := "999.99 %"

:bClrSel := :bClrSelFocus := oBrw:bClrStd

END

oBrw:lDisplayZeros := .F.

oBrw:nStretchCol := 2

oBrw:CreateFromCode()

// Process with row-by-row update:

for n := 1 to oBrw:nLen

nTotal := HB\_RandomInt( 100, 2000 )

oBrw:aArrayData\[ n, 4 \] := nTotal

oBrw:RefreshCurrent()

for i := 1 to nTotal STEP 10

  SysWait( 0.01 )

  oBrw:nArrayAt := n

  oBrw:aArrayData\[ n, 2 \] := i / nTotal \* 100

  oBrw:aArrayData\[ n, 3 \] := i

  oBrw:RefreshCurrent()

  if oBrw:Cargo \== .F. ; EXIT ; endif

next

if oBrw:Cargo \== .F. ; EXIT ; endif

next

A.7 Watermark with alpha PNG image (xbwaterm.prg)

aImage := oWnd:ReadImage( "c:\\\\fwh\\\\bitmaps\\\\pngs\\\\logo.png",, .T. ) // .T. \= with alpha

@ 20,20 XBROWSE oBrw ... DATASOURCE "CUSTOMER" AUTOCOLS NOBORDER CELL LINES

WITH OBJECT oBrw

:lTransparent := .T.

:bPaintBack := { |Self|

  FillRect( ::hDC, GetClientRect(::hWnd), ::oBrush:hBrush )

  ::DrawImage( aImage, ::DataRect():aRect, nil, nil, 64 ) // 64 \= 25% opaque

  ::lTransparent := .T.

  return nil }

:CreateFromCode()

END

// When done:

PalBmpFree( aImage )

A.8 Dynamic subtotals in array (xbsubtot.prg)

// Subtotal rows: aRow\[1\] empty \= is subtotal

oBrw:bClrStd := { || { CLR\_BLACK, If( Empty(oBrw:aRow\[1\]), CLR\_YELLOW, CLR\_WHITE ) } }

WITH OBJECT oBrw:aCols\[ nCol \]

:bEditValue := { |x,o| If( x==nil .or. ValType(oBrw:aRow\[o:nArrayCol\])=='B',

  XEval( oBrw:aRow\[o:nArrayCol\] ),

  oBrw:aRow\[o:nArrayCol\] := x ) }

:bEditWhen := { || \!Empty( oBrw:aRow\[1\] ) }

:bSumCondition := { |n,o| \!Empty( o:oBrw:aRow\[1\] ) }

:bOnChange := { || oBrw:Refresh() }

:nFooterType := AGGR\_SUM

END

// Insert the subtotal row:

AIns( oBrw:aArrayData, nRowLast+1, Array(Len(oBrw:aRow)), .T. )

oBrw:aArrayData\[nRowLast+1, nCol\] := { || FW\_ArrSum( aRows, nCol ) } // dynamic block

A.9 Export filtered records to Excel (xbxlsel.prg)

// Build array of RecNos meeting the condition

local aRecNo := {}

(oBrw:cAlias)-\>( DBEVAL( { AAdd( aRecNo, RECNO() ) }, { STATE \== cState } ) )

(oBrw:cAlias)-\>( DBSeek( cState, .T. ) )

oBrw:Refresh()

// Export only those records

oBrw:aSelected := aRecNo

oBrw:ToExcel()

oBrw:aSelected := {}

A.10 Derived class with column and own behavior (xbrchild.prg)

CLASS MyBrowse FROM TXBrowse

CLASSDATA lRegistered AS LOGICAL

DATA bColClass INIT { || MyXBrCol() }

METHOD New( oWnd ) CONSTRUCTOR

ENDCLASS

METHOD New( oWnd ) CLASS MyBrowse

Super:New( oWnd )

::nMarqueeStyle := MARQSTYLE\_HIGHLROWMS

::bClrStd := { || { CLR\_BLACK, RGB(255,255,206) } }

::bClrSelFocus := { || { CLR\_WHITE, CLR\_BLUE } }

::bClrRowFocus := { || { CLR\_BLACK, RGB(150,231,255) } }

return Self

CLASS MyXbrCol FROM TXBrwColumn

METHOD Adjust()

ENDCLASS

METHOD Adjust() CLASS MyXBrCol

if ::cDataType \== 'D'

  ::cEditPicture := 'dd-mmm-yyyy'

endif

Super:Adjust()

return Self

// Specific use:

@ 10,10 XBROWSE oBrw CLASS MyBrowse() OF oDlg ALIAS 'SALES' AUTOCOLS SIZE 200,70 PIXEL

// Global use:

SET XBROWSE TO MyBrowse() SAVE PREVIOUS TO bXBr

Great, Philippe