Gracias a Carlos Atúncar Hernandez

MANUAL DE REFERENCIA

TXBrowse / XBrowse

FiveWin para Harbour

Propiedades · Métodos · Eventos · Columnas

Basado en ejemplos oficiales de FiveWin

1\. Introducción

TXBrowse (invocado mediante el comando @ X,Y XBROWSE o XBROWSER) es el control de grilla más potente de FiveWin para Harbour. Permite mostrar y editar datos provenientes de tablas DBF/RDD, RecordSets ADO, arrays, objetos TDatabase, árboles (TTree) y archivos de texto.

1.1 Fuentes de Datos Soportadas

1.2 Formas de Crear el Browse

Comando declarativo

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

Programático (clase)

oBrw := TXBrowse():New( oWnd )

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

oBrw:CreateFromCode()

📌 NOTA: Siempre llamar :CreateFromCode() al final de la configuración, antes de activar el diálogo/ventana.

2\. Propiedades del Browse (TXBrowse)

2.1 Apariencia y Estilo

2.2 Desplazamiento y Columnas

2.3 Colores

📌 NOTA: Los bloques de color devuelven un array de 2 elementos: { nColorTexto, nColorFondo }. El fondo puede ser un color RGB o incluso un array de gradiente.

2.4 Fondo (Background)

Ejemplo de gradiente

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

// En el comando XBROWSE: BACKGROUND aGrad VERTICAL

// O en código: oBrw:SetBackGround( aGrad, .T. )

2.5 Edición

2.6 Pies de Columna (Footers)

2.7 Ordenamiento y Búsqueda

2.8 Multiselección

2.9 Grupos de Cabecera (Group Headers)

Ejemplo

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

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

2.10 Árbol (Tree Browse)

2.11 Estado y Persistencia

2.12 Tooltip de Celda

📌 NOTA: bCellToolTips aplica a todas las columnas, pero puede sobrescribirse por columna con oCols\[n\]:bCellToolTip

3\. Eventos del Browse (TXBrowse)

4\. Propiedades de la Columna (TXBrowseCol)

4.1 Identificación y Encabezado

4.2 Datos y Formato

4.3 Colores de Columna

4.4 Imágenes y Bitmaps en Columna

📌 NOTA: Para imágenes transparentes tipo PNG con canal alfa, usar lBmpTransparent := .T. combinado con bAlphaLevel.

4.5 Pie de Columna (Footer)

4.6 Edición de Columna

4.7 Eventos de Columna

4.8 Anclaje (AnchorToCell)

Ejemplo

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

5\. Métodos Principales del Browse

6\. Acceso Dinámico a Columnas

XBrowse permite acceder a las columnas del browse por nombre directamente como propiedad del browse, gracias a la magia de \_\_GetProperty:

6.1 Por nombre (acceso directo)

oBrw:Salary:nFooterType := AGGR\_TOTAL

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

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

6.2 Por método oCol()

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

oCol:lTotal := .T.

oCol:nEditType := EDIT\_GET

endif

6.3 Por índice en aCols

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

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

6.4 Columna computada (fórmula)

// Agrega columna nueva basada en otra

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

WITH OBJECT oBrw:NewSalary

:cHeader := 'NewSalary'

:nFooterType := AGGR\_TOTAL

END

6.5 ADD TO (comando)

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\. Constantes de Referencia

7.1 MARQSTYLE\_\* — Estilo del Selector

7.2 LINESTYLE\_\* — Estilo de Líneas Divisorias

7.3 STRETCHCOL\_\* — Columna Elástica

7.4 EDIT\_\* — Tipos de Editor

7.5 AGGR\_\* — Tipos de Agregado en Footer

7.6 AL\_\* — Alineación

8\. Ejemplos Completos

8.1 Browse básico sobre 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 sobre Array con edición

@ 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 con colores dinámicos

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 con footer y totales

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 Multiselección con 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 con fuente bold

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 Imagen con transparencia alfa

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 Tooltip de celda

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

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

8.9 Merge de celdas (bExtend)

WITH OBJECT :aCols\[ 1 \]

:bExtend := {|o| If(o:oBrw:aRow\[1\]==0, 2, 0)} // extiende 2 cols si es 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 con fondo degradado

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

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

// O dinámicamente:

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

oBrw:SetBackGround( "PAPER" ) // Recurso de imagen

oBrw:SetBackGround() // Limpiar el fondo

9\. Patrón de Uso Recomendado

El siguiente es el orden típico para configurar un XBrowse de forma completa y correcta:

1. Definir la fuente de datos (ALIAS, ARRAY, RECSET, OBJECT)

2. Crear el browse con @ X,Y XBROWSE ... o TXBrowse():New()

3. Configurar propiedades del browse (estilos, colores, marquee, scroll)

4. Configurar propiedades de columnas (encabezados, edición, colores, bitmaps)

5. Definir group headers si aplica (SetGroupHeader)

6. Llamar MakeTotals() si hay footers con agregados

7. Llamar CreateFromCode() — SIEMPRE el último paso

8. Asignar oWnd:oClient := oBrw (para ventanas)

9. Activar la ventana o diálogo con ON INIT oBrw:SetFocus()

📌 NOTA: CreateFromCode() SIEMPRE debe ser la última llamada de configuración. Cualquier propiedad o método de configuración llamado después de CreateFromCode() puede no tener efecto.

10\. Record Selector Avanzado

El selector de registro (la columna izquierda gris) puede personalizarse completamente para mostrar números de fila, nombres, iconos y menús contextuales.

10.1 Propiedades del Record Selector

Ejemplo: Selector con número de fila

WITH OBJECT oBrw

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

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

:bRecSelHeader := "SlNo"

:nRecSelWidth := "9999"

END

Ejemplo: Selector con nombre de región (Array)

WITH OBJECT oBrw

:bRecSelData := { |brw| brw:aRow\[ 1 \] } // nombre en col 1

:bRecSelFooter := "Totals"

:bRecSelHeader := "Region"

:nRecSelWidth := "Americas" // ancho para el texto más largo

END

Ejemplo: Multiselección con totales condicionales

WITH OBJECT oBrw

:SetMultiSelectCol()

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

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

:Salary:nFooterType := AGGR\_SUM

:MakeTotals()

END

11\. Barra de Gets (GetBar) y Filtro Incremental

11.1 GetBar — Gets bajo encabezados

Permite mostrar campos de entrada directamente debajo de los encabezados de columna para filtrar el browse en tiempo real.

Ejemplo

for n := 1 to Len( oBrw:aCols )

WITH OBJECT oBrw:aCols\[ n \]

  if FieldType( n ) \!= 'L'

     :uBarGetVal := uValBlank( fieldGet( n ) )

     if FieldType( n ) \== 'N'

        :cBarGetPic := NumPict( FieldLen(n), FieldDec(n) )

     endif

  END

END

next

oBrw:lGetBar := .T.

oBrw:bClrEdits := { || { CLR\_BLACK, CLR\_YELLOW } }

11.2 Filtro Incremental

Permite filtrar el browse mientras el usuario escribe, sin necesidad de presionar Enter.

Ejemplo

WITH OBJECT oBrw

:lIncrFilter := .T.

:lSeekWild := .T. // contiene (wildcard)

:cFilterFld := "FIRST"

END

// Combo para cambiar campo de filtro:

@ 10,10 COMBOBOX oBrw:cFilterFld ITEMS aHeaders ;

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

12\. Barra de Botones Interna (nTopBarHeight / bOnAdjust)

XBrowse permite incorporar una barra de botones directamente dentro del propio browse, encima de los datos, sin necesidad de un ButtonBar externo.

Ejemplo completo

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 "Agregar"

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

  ACTION oBrw:EditSource() TOOLTIP "Editar"

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

  ACTION oBrw:Delete() TOOLTIP "Eliminar"

return nil

\>

13\. Fuentes y Colores por Línea (Multiline avanzado)

XBrowse permite asignar fuentes y colores distintos a cada línea de texto dentro de una celda multilinea, usando las propiedades aDataFont y aClrText de la columna.

Ejemplo: distintas fuentes y colores por línea

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

Ejemplo: imagen recortada en forma circular

WITH OBJECT oBrw:aCols\[ 3 \]

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

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

// nil \= borde completo, 0.3 \= 30% desde izquierda, 0.7 \= 70% desde izquierda

END

14\. Herencia — Clases Derivadas de TXBrowse

Es posible crear clases derivadas de TXBrowse y TXBrwColumn para personalizar el comportamiento a nivel de clase, aplicando los cambios a todos los browses del mismo tipo automáticamente.

14.1 Crear una clase derivada de TXBrowse

CLASS MyBrowse FROM TXBrowse

CLASSDATA lRegistered AS LOGICAL // OBLIGATORIO

DATA bColClass INIT { || MyXBrCol() } // clase columna propia

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 Clase derivada de 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 Activar la clase derivada

Ejemplo con SAVE PREVIOUS

SET XBROWSE TO MyBrowse() SAVE PREVIOUS TO bXBr

// ... crear browses que usarán MyBrowse ...

SET XBROWSE TO bXBr // restaurar clase original

15\. Totales de Grupo (SetGroupTotal)

Además de los encabezados de grupo, es posible mostrar totales automáticos por grupo y un gran total consolidado.

Ejemplo completo

: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\. Control de Movimiento entre Celdas (nMoveType)

La propiedad nMoveType controla cómo se desplaza el cursor al presionar Enter o Tab después de editar una celda.

Ejemplo

oBrw:nMoveType := MOVE\_RIGHT // al confirmar, ir a la derecha

// o dinamicamente:

oBrw:nMoveType := MOVE\_DOWN // comportamiento tipo planilla de cálculo

17\. Propiedades Adicionales y Técnicas Avanzadas

17.1 Resaltado de Texto (FW\_SayTextHilite)

Permite resaltar palabras específicas dentro del texto de una celda con fuente y color diferente, usando 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

}

📌 NOTA: FW\_SayTextHilite toma un array de {cPalabra, oFont, nClrTexto, nClrFondo} por cada palabra a resaltar.

17.2 DropFile — Arrastrar archivos sobre el browse

Ejemplo

if oBrw:DropFile( nRow, nCol, cFile )

// archivo aceptado

else

MsgInfo( 'Archivo no válido' )

endif

17.3 Generación de Código Fuente (PrgCode)

Ejemplo

aCode := oBrw:PrgCode()

// aCode\[1\] \= estilo ListBox

// aCode\[2\] \= estilo Command

// aCode\[3\] \= estilo Oops

// aCode\[4\] \= código de reporte

17.4 Métodos de Navegación (bGoTop, bGoBottom, bSkip)

En clases derivadas o browses con fuentes de datos personalizadas, se pueden sobreescribir los bloques de navegación:

17.5 Vista Grid/List (TXbrGrid)

Es posible crear un browse que alterne entre vista de lista (una columna por fila) y vista de cuadrícula (múltiples columnas por fila), similar a un explorador de archivos.

17.6 Arrays Irregulares (Ragged Arrays)

XBrowse puede navegar arrays irregulares (donde las filas tienen distinto número de columnas o tipos mezclados) usando XBROWSER directamente:

aData := { { 'Ragged Array' },

       { 123, Date(), 'Texto', 349.23 },

       345.26,

       date()-20 }

XBROWSER aData TITLE 'XBrowse Ragged Arrays' FASTEDIT

17.7 Clase TXBrCode — Browse de Código

18\. Barras de Progreso en Celdas (SetProgBar)

XBrowse permite mostrar una barra de progreso directamente dentro de una celda numérica, visualizando el valor como porcentaje de un máximo dado. Ideal para dashboards y procesos en cola.

Ejemplo — barra proporcional al máximo del campo

DBEval( { || nMaxSal := Max( nMaxSal, FIELD-\>Salary ) } )

WITH OBJECT oBrw:Salary

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

:nDataStrAlign := AL\_RIGHT

END

Ejemplo — barras dinámicas (proceso en cola con cancelación)

WITH OBJECT oBrw:aCols\[ 2 \]

:SetProgBar( 100,, { || { nProgClr, CLR\_WHITE } } )

:cEditPicture := "999.99 %"

:bClrSel := :bClrSelFocus := oBrw:bClrStd // sin resaltar fila activa

END

oBrw:lDisplayZeros := .F.

// Dentro del proceso:

oBrw:nArrayAt := n

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

oBrw:RefreshCurrent()

if oBrw:Cargo \== .F. ; EXIT ; endif // chequeo de cancelación

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

XBrowse expone hooks de pintado a nivel de fila, encabezado y pie completos, permitiendo control total del aspecto visual usando GDI.

19.1 bPaintRow — Pintar filas completas

Ejemplo bPaintRow

oBrw:bPaintRow := { |brw,nRow,nCol,nHt,lHL,lSel,nRowPos,nColSel,oColSel|

PaintRow( brw, nRow, nCol, nHt, lHL, lSel, nRowPos, nColSel, oColSel ) }

static function PaintRow( Self, nRow, nCol, nHeight, lHighLite, lSelect, nRowPos, nColSel, oColSel )

if Empty( ::aRow\[ 1 \] ) ; return .T. ; endif // fila vacía: no pintar

hDC := ::GetDC()

FillRectEx( hDC, { nRow,nCol,nRow+nHeight, ::aCols\[6\]:nDisplayCol }, aColor )

::SayText( ::aRow\[3\]+" : bPaintRow", { nRow,nCol,nRow+nHeight, ::BrwWidth() },

          nil, ::aCols\[1\]:oHeaderFont )

::aCols\[6\]:PaintData( nRow, nil, nHeight, lHighLite, lSelect, 6, nRowPos )

::ReleaseDC()

return .F.

19.2 bPaintHeader y bPaintFooter

Ejemplo bPaintHeader con imagen y texto

oBrw:bPaintHeader := { |brw,hDC,aCols,nLast,...| BrwHeader( brw, hDC, aCols, nLast ) }

function BrwHeader( Self, hDC, aCols, nLast )

FillRect( hDC, { 1,1,::nHeaderHeight,::BrwWidth() }, ::oHeadBrush:hBrush )

::SayText( "MI EMPRESA", aRect, "T", ::oFntLarge, CLR\_HRED )

aBmp := ::ReadImage( "logo.png" ) ; ::DrawImage( aBmp, { 1,1,::nHeaderHeight-24,64 } ) ; PalBmpFree( aBmp )

for n := 1 to Len( ::aCols )

  ::aCols\[n\]:PaintHeader( ::nHeaderHeight-30, nil, 26, .F., hDC )  // enc. estándar abajo

next

return nil

19.3 bPaintText — Pintado individual de celda con GDI

oBrw:aCols\[1\]:bPaintText := { |oCol, hDC, cText, aCoors, aColors, lHighlight|

if lHighlight

  GradientFill( hDC, aCoors\[1\]+10, aCoors\[2\]+10, aCoors\[3\]-10, aCoors\[4\]-10,

     { {2/5, RGB(253,212,168), RGB(251,178,99)}, {3/5, RGB(250,157,52), RGB(252,234,163)} } )

else

  GradientFill( hDC, aCoors\[1\]+10, aCoors\[2\]+10, aCoors\[3\]-10, aCoors\[4\]-10,

     { {2/5, RGB(223,236,255), RGB(197,222,255)}, {3/5, RGB(173,209,255), RGB(189,217,255)} } )

endif

RoundBox( hDC, aCoors\[2\]+10, aCoors\[1\]+10, aCoors\[4\]-10, aCoors\[3\]-10, 20, 20, CLR\_BLUE )

DrawBitmap( hDC, hBmp, aCoors\[1\]+18, aCoors\[2\]+23 )

DrawText( hDC, cText, aCoors )

return nil }

📌 NOTA: En bPaintText: aColors\[1\]=color texto, aColors\[2\]=color fondo. lHighlight indica celda seleccionada con foco.

20\. Edición Avanzada

20.1 EDIT\_BUTTON — Editor popup personalizado

Ejemplo EDIT\_BUTTON con popup memo

oCol:nEditType := EDIT\_BUTTON

oCol:bEditBlock := { |nRow, nCol, oCol| EditNotes( nRow, nCol, oCol ) }

oCol:bOnPostEdit := { |oCol, cVal| If( cVal \!= nil, FIELD-\>Notes := cVal, ) }

static function EditNotes( nRow, nCol, oCol )

aPoint := ClientToScreen( oCol:oBrw:hWnd, { nRow, nCol } )

DEFINE DIALOG oDlg FROM aPoint\[1\], aPoint\[2\] TO aPoint\[1\]+230, aPoint\[2\]+200 PIXEL STYLE WS\_POPUP

@ 2,2 GET oGet VAR cNotes TEXT SIZE 96,96 PIXEL OF oDlg

ACTIVATE DIALOG oDlg

return If( lEdited, cNotes, nil )

Ejemplo EDIT\_LISTBOX con nLbxAt

WITH OBJECT oBrw:Item

:nEditType := EDIT\_LISTBOX

:aEditListTxt := { {1,'uno',10}, {2,'dos',20}, {3,'tres',30} }

:bOnChange := { |oCol| oBrw:aRow\[2\] := aList\[ oCol:nLbxAt, 3 \] }

END

20.2 CurrentRow() — Edición en diálogo independiente

Ejemplo CurrentRow con diálogo no-modal

@ 10,10 XBROWSE oBrw ... ON DBLCLICK RowEdit( oBrw:CurrentRow() )

static function RowEdit( oRow )

DEFINE DIALOG oDlg SIZE 300,200 PIXEL FONT oRow:oBrw:oFont

@ 10,60 GET oRow:First SIZE 80,12 PIXEL OF oDlg UPDATE

@ 40,60 GET oRow:Age SIZE 40,12 PIXEL OF oDlg PICTURE oRow:oBrw:Age:cEditPicture UPDATE

@ 80,78 BUTTON 'Save' WHEN oRow:Modified() ACTION oRow:Save()

@ 80,10 BUTTON 'Undo' WHEN oRow:Modified() ACTION ( oRow:Undo(), oDlg:Update() )

ACTIVATE DIALOG oDlg CENTERED NOMODAL

return nil

21\. Combo de Ordenamiento (oSortCbx / cSortOrder)

XBrowse puede vincularse automáticamente a un ComboBox externo para que el usuario cambie el orden de visualización sin código adicional.

Uso 1 — Combo integrado (más simple)

oBrw:nMarqueeStyle := MARQSTYLE\_SOLIDCELL

oBrw:nColorBox := CLR\_HRED

oBrw:CreateFromCode()

@ 10,20 COMBOBOX oBrw:oSortCbx VAR oBrw:cSortOrder SIZE 100,400 PIXEL OF oDlg

Uso 2 — Combo externo vinculado después

@ 10,20 COMBOBOX oCbx VAR cOrder SIZE 100,400 PIXEL OF oDlg

WITH OBJECT oBrw

:oSortCbx := oCbx

:CreateFromCode()

END

22\. Intercambiar Browses (Swap), SetRDD y TPages

22.1 Mostrar/ocultar browses alternativos

Ejemplo swap con tabs

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

aBrw\[2\]:Hide() // ocultar al inicio

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

Ejemplo SetRDD desde botones

REDEFINE XBROWSE oBrw ID 10 OF oDlg AUTOCOLS ALIAS "Customer"

REDEFINE BUTTON ID 20 OF oDlg ACTION Customer-\>( oBrw:SetRDD() )

REDEFINE BUTTON ID 30 OF oDlg ACTION Clients-\>( oBrw:SetRDD() )

22.2 Browse como selector de páginas (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\. Degradado en Filas Seleccionadas

XBrowse admite arrays de degradado en los bloques de color de selección, creando efectos visuales estilo Office/Vista.

Ejemplo completo

aRowGrad := { {.5, RGB(232,241,252), RGB(232,241,252)}, {.5, RGB(210,225,244), RGB(235,243,253)} }

aSelGrad := { {.5, RGB(255,255,251), RGB(255,237,178)}, {.5, RGB(255,218,103), RGB(255,233,162)} }

oBrw:nMarqueeStyle := MARQSTYLE\_HIGHLROWRC

oBrw:bClrSelFocus := { || { CLR\_BLACK, aSelGrad } }

oBrw:bClrRowFocus := { || { CLR\_BLACK, aRowGrad } }

// Bitmap en columna:

WITH OBJECT oBrw:HireDate

:AddBitmap( '\\fwh\\bitmaps\\Alphabmp\\task.bmp' )

:bBmpData := { || 1 }

END

24\. Imágenes Avanzadas — Imagen \+ Texto y SetColsAsRows

24.1 Imagen y texto en la misma celda

Ejemplo imagen memo \+ nombre abajo

WITH OBJECT oBrw:aCols\[ 1 \]

:bStrImage := { || FIELD-\>IMAGE }

:oDataFont := oBold

:nDataStrAlign := AL\_CENTER \+ AL\_BOTTOM

:nDataBmpAlign := AL\_CENTER

:aImgRect := { nil, nil, \-40, nil } // 40px reservados abajo para el texto

END

Ejemplo SetColsAsRows — nombre de archivo \+ ruta apilados

WITH OBJECT oBrw:aCols\[ 2 \]

:bEditValue := { || cFileNoPath( oBrw:aRow ) }

:oDataFont := oBold

:nCellHeight := 35

:SetColsAsRows( { 2, 3 } ) // col 2 y col 3 apiladas en la misma celda

END

WITH OBJECT oBrw:aCols\[ 3 \]

:bEditValue := { || cFilePath( oBrw:aRow ) }

:nCellHeight := 25

:nDataStrAlign := AL\_TOP

:bClrStd := { || { CLR\_GRAY, CLR\_WHITE } }

END

25\. Misceláneas: UTF-8, Excel, Estructura DBF Sincronizada

25.1 Soporte UTF-8

Ejemplo XBROWSER con UTF-8 y grupos

XBROWSER "UTF8\_01.DBF" ;

COLUMNS "English", "Hindi", "UTF8TOUTF16(HINDI)" ;

SETUP ( oBrw:SetFont( oFont ), oBrw:nWidths := 230, ;

       oBrw:cHeaders := { "English", "Hindi (UTF-8)", "Hindi (UTF-16)" }, ;

       oBrw:lExcelCellWise := .T., ;

       oBrw:SetGroupHeader( "Indian Languages", 2, 5 ) )

25.2 Browse de hoja Excel (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) ) }

25.3 Dos browses sincronizados — Datos y Estructura DBF

Patrón avanzado: un browse muestra los datos y otro muestra la estructura del DBF. Al moverse en el browse de datos, el de estructura resalta el campo correspondiente y viceversa.

oData:bChange := { || oStru:nArrayAt := oData:SelectedCol():nCreationOrder, oStru:Refresh() }

oData:bOnChanges := { || oStru:Refresh() }

oData:lColChangeNotify := .T.

oStru:bChange := { || oData:SelectCol( oData:ColPos( oData:oCol( oStru:nArrayAt ) ), .T. ) }

// Columna 5 de oStru muestra y permite editar el valor actual del campo:

WITH OBJECT oStru:aCols\[ 5 \]

:nEditType := EDIT\_GET

:bEditValue := { |x| If( x==nil, CUST-\>( FieldGet( oStru:nArrayAt ) ), ;

                     CUST-\>( If( DbRLock(), ( FieldPut( oStru:nArrayAt, x ), DbRUnLock() ), nil ) ) ) }

:bOnChange := { || oData:RefreshCurrent() }

END

26\. Subtotales Dinámicos Insertables (Array)

Es posible insertar filas de subtotal dentro de un browse de array, calculadas mediante bloques que se reevalúan automáticamente cuando el usuario edita los datos. Las filas de subtotal se distinguen de los datos normales por un valor centinela en una columna (por ejemplo, la columna 1 vacía).

Patrón completo de subtotales

// Marcar fila de subtotal: aRow\[1\] vacío \= es subtotal

oBrw:bClrStd := { || { CLR\_BLACK, If( IsTotalRow(oBrw:aRow), CLR\_YELLOW, CLR\_WHITE ) } }

// Columnas numéricas: no editar en subtotales, excluir del pie

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 := { || \!IsTotalRow( oBrw:aRow ) }

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

:nFooterType := AGGR\_SUM

:bSumCondition:= { |n,o| \!IsTotalRow( o:oBrw:aRow ) }

END

// Insertar subtotal después de la fila actual:

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

oBrw:aArrayData\[ nRowLast+1, 2 \] := "Sum: " \+ cValToChar(nRowFrom) \+ "-" \+ cValToChar(nRowLast)

oBrw:aArrayData\[ nRowLast+1, nCol \] := MakeSumBlock( oBrw:aArrayData, nCol, nRowFrom, nRowLast )

// MakeSumBlock devuelve: { || FW\_ArrSum( aRows, nCol ) }

27\. Marca de Agua Transparente (bPaintBack / lTransparent)

XBrowse permite dibujar una imagen como marca de agua semitransparente detrás de los datos, usando el hook bPaintBack y la propiedad lTransparent.

Ejemplo completo

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

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

WITH OBJECT oBrw

:lTransparent := .T.

:bPaintBack := { |Self|

  FillRect( ::hDC, GetClientRect(::hWnd), ::oBrush:hBrush )  // fondo normal

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

  ::lTransparent := .T.  // mantener transparencia para el próximo repaint

  return nil }

:CreateFromCode()

END

// Al terminar:

PalBmpFree( aImage )

28\. XBROWSER Avanzado: CALC, Botones Internos y SETUP

El comando XBROWSER tiene opciones adicionales para mostrar browses de inicio rápido con funcionalidades extendidas.

Ejemplo XBROWSER con SETUP personalizado

XBROWSER aArray TITLE "Mi Browse" COLUMNS { 1,2,3,4,5 } ;

SETUP fSetUp( oBrw, aHeaders )

function fSetUp( oBrw, aHead )

local nI

for nI := 1 to Len( aHead )

  oBrw:aCols\[ nI \]:cHeader := aHead\[ nI \]

next

oBrw:bClrStd := { || { CLR\_BLACK, If( oBrw:nArrayAt() % 2 \== 0, CLR\_HCYAN, CLR\_LIGHTGRAY ) } }

oBrw:oWnd:aControls\[ BUTTON\_PRINT \]:cCaption := "Imprimir"

oBrw:oWnd:aControls\[ BUTTON\_PRINT \]:bAction := { || MsgInfo( "Acción propia" ) }

oBrw:oWnd:aControls\[ BUTTON\_SHEET \]:cCaption := "Exportar"

return nil

29\. Exportar Registros Seleccionados a Excel (aSelected)

XBrowse permite exportar a Excel sólo un subconjunto de registros especificando un array de números de registro en la propiedad aSelected antes de llamar ToExcel().

Ejemplo: exportar sólo registros del Estado X

// 1\. Construir array de RecNos que cumplen la condición

local aRecNo := {}

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

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

// 2\. Posicionar en el primer registro que cumple y refrescar

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

oBrw:Refresh()

// 3\. Asignar, exportar y limpiar

oBrw:aSelected := aRecNo

oBrw:ToExcel()

oBrw:aSelected := {}

Apéndice A — Ejemplos Completos de Referencia

Esta sección contiene ejemplos completos y funcionales extraídos directamente de los archivos de ejemplo de FiveWin/XBrowse. Son la referencia más directa para implementar cada característica.

A.1 Browse básico con RDD, edición y pie (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 Browse de Array con barra de botones interna (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 "Agregar"

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

  ACTION oBrw:EditSource() TOOLTIP "Editar"

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

  ACTION oBrw:Delete() TOOLTIP "Eliminar"

return nil

\>

oBrw:nEditTypes := EDIT\_GET

oBrw:CreateFromCode()

A.3 Record Selector con número de fila y 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 Totales de grupo con 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 Filtro incremental con wildcard (xbincflt.prg)

WITH OBJECT oBrw

:lIncrFilter := .T.

:lSeekWild := .T. // buscar 'contiene'

:cFilterFld := "FIRST"

:nStretchCol := STRETCHCOL\_WIDEST

END

@ 10,10 COMBOBOX oBrw:cFilterFld ITEMS aHdrs ;

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

@ 10,70 COMBOBOX nWild ITEMS { "Empieza con", "Contiene" } ;

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

@ 11,160 SAY oBrw:oSeek PROMPT oBrw:cSeek SIZE 200,10 PIXEL COLOR CLR\_BLACK,CLR\_YELLOW

oBrw:CreateFromCode()

A.6 Barras de progreso dinámicas con cancelación (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()

// Proceso con actualización fila a fila:

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 Marca de agua con imagen PNG alpha (xbwaterm.prg)

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

@ 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 )

  ::lTransparent := .T.

  return nil }

:CreateFromCode()

END

A.8 Subtotales dinámicos en array (xbsubtot.prg)

// Filas de subtotal: aRow\[1\] vacío \= es 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

// Insertar la fila de subtotal:

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

oBrw:aArrayData\[nRowLast+1, nCol\] := { || FW\_ArrSum( aRows, nCol ) } // bloque dinámico

A.9 Exportar registros filtrados a Excel (xbxlsel.prg)

// Construir array de RecNos que cumplen la condición

local aRecNo := {}

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

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

oBrw:Refresh()

// Exportar sólo esos registros

oBrw:aSelected := aRecNo

oBrw:ToExcel()

oBrw:aSelected := {}

A.10 Clase derivada con columna y comportamiento propio (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

// Uso puntual:

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

// Uso global:

SET XBROWSE TO MyBrowse() SAVE PREVIOUS TO bXBr

Excelente!!

Muchas gracias Antonio y Carlos

Amigos:

Ardua labora la de Carlos.

Muchas gracias por el aporte

Estimados:

Gran Aporte, Xbrowse es muy potente.

Estoy probando el "Filtro Incremental", me funciona bien y rápido, tengo dos consultas.

1. ¿Como hgo para que aparezca debajo de la cabecera del xBrowse un ombo para selección o un Get para escribir el filtro?
2. ¿Como se resetea el filtro, ya intento con esto al dar click en la cabecera y no me funciona: oBrw:Seek(IF( oBrw:lSeekWild, oBrw:cSeek, "" )?

Saludos

Fernando Espinoza

Estimado Fernando,

Pregunta 1: Mostrar un Combo o Get debajo de la cabecera del XBrowse

XBrowse tiene dos propiedades integradas para esto: lSeekBar y lGetBar. Ambas muestran una barra debajo de la cabecera del browse para escribir el filtro/búsqueda.

• lSeekBar (nBarHdr == 2): Muestra un SAY que refleja lo que se va escribiendo (búsqueda incremental por teclado). 0-cite-0

• lGetBar (nBarHdr == 1): Muestra un GET editable debajo de la cabecera donde se puede escribir directamente el filtro. 0-cite-1

Ejemplo con lSeekBar:

oBrw:lSeekBar      := .t.
oBrw:lSeekWild     := .t.
oBrw:bClrEdits     := { || { CLR_HRED, CLR_YELLOW } }
``` [0-cite-2](#0-cite-2) 

Ejemplo con `lGetBar` (el GET se conecta automáticamente al Seek del browse via `Check_oSeek()`): [0-cite-3](#0-cite-3) 

Si prefieres un enfoque manual con combos (como hace `xbrowser.prg` con `lAutoSort`), puedes colocar controles encima del browse ajustando `oBrw:nTop`:

```prg
nRow        := oBrw:nTop
oBrw:nTop   += 14

@ nRow - 1, 10 COMBOBOX nFilter SIZE 60, 14 PIXEL OF oDlg ;
   ITEMS { "Search For", "Show Only" } ;
   ON CHANGE ( oBrw:Seek( "" ), oBrw:lIncrFilter := nFilter > 1, oBrw:SetFocus() )

@ nRow, 135 SAY oBrw:oSeek PROMPT oBrw:cSeek ;
   SIZE 100, 10 PIXEL UPDATE OF oDlg ;
   COLOR CLR_RED, CLR_YELLOW
``` [0-cite-4](#0-cite-4) 

## Pregunta 2: Resetear el filtro incremental

La forma correcta de resetear el filtro incremental es:

```prg
oBrw:Seek( "" )

No uses oBrw:Seek( IF( oBrw:lSeekWild, oBrw:cSeek, "" ) ) porque eso solo pasa "" cuando lSeekWild es .f., y cuando es .t. pasa el valor actual de cSeek (que no resetea nada).

Cuando se llama oBrw:Seek(""), internamente el método BrwSeek de la fuente de datos detecta que cSeek está vacío y limpia el filtro con SetFilter(""): 0-cite-5 0-cite-6 0-cite-7

Los samples oficiales confirman este patrón. Por ejemplo, al presionar ESC o al cerrar el diálogo:

:bKeyChar := { |nKey| If( nKey == VK_ESCAPE, ( oBrw:Seek( "" ), oDlg:End() ), nil ) }
``` [0-cite-8](#0-cite-8) 

Y en el `VALID` del diálogo:
```prg
VALID ( oBrw:Seek( "" ), .t. )
``` [0-cite-9](#0-cite-9) 

Si `oBrw:Seek("")` no te funciona al hacer click en la cabecera, verifica que:

1. El `bSeek` del browse esté correctamente asignado (se asigna automáticamente con `SetRDD()`, `SetArray()`, etc.)
2. Después del `Seek("")` llames `oBrw:Refresh()` y `oBrw:SetFocus()` para asegurar que se repinte:

```prg
oBrw:Seek( "" )
oBrw:Refresh()
oBrw:SetFocus()

Si estás usando el click en la cabecera para resetear, un ejemplo sería:

oBrw:bLClickHeader := { |nRow, nCol, nFlags, oCol| oBrw:Seek( "" ), oBrw:Refresh(), oBrw:SetFocus() }

Aqui van dos ejemplos completos, uno con lSeekBar y otro con lGetBar, ambos con filtro incremental y reset al hacer click en la cabecera.

Ejemplo 1: Con lSeekBar (SAY que muestra lo que se escribe)

#include "FiveWin.ch"
#include "XBrowse.ch"

REQUEST DBFCDX

function Main()

   local oDlg, oBrw

   USE CUSTOMER NEW SHARED VIA "DBFCDX"
   SET ORDER TO TAG FIRST
   GO TOP

   DEFINE DIALOG oDlg SIZE 600, 400 PIXEL TITLE "Ejemplo lSeekBar + Filtro Incremental"

   @ 10, 10 XBROWSE oBrw SIZE -10, -10 PIXEL OF oDlg ;
      DATASOURCE Alias() ;
      COLUMNS "First", "Last", "City" ;
      AUTOSORT CELL LINES

   WITH OBJECT oBrw
      :lSeekBar      := .t.                              // SAY debajo de la cabecera
      :lIncrFilter   := .t.                              // Filtro incremental (no solo buscar, sino filtrar)
      :lSeekWild     := .t.                              // Busqueda tipo "Containing" (*texto*)
      :bClrEdits     := { || { CLR_HRED, CLR_YELLOW } }  // Colores del SeekBar

      // Reset del filtro al hacer click en la cabecera
      :bLClickHeader := { |nRow, nCol, nFlags, oCol| ;
                           oBrw:Seek( "" ), ;
                           oBrw:Refresh(), ;
                           oBrw:SetFocus() }

      // Reset del filtro al presionar ESC
      :bKeyChar      := { |nKey| If( nKey == VK_ESCAPE, ;
                           ( oBrw:Seek( "" ), oBrw:Refresh() ), nil ) }

      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT oBrw:SetFocus() ;
      VALID ( oBrw:Seek( "" ), .t. )                     // Reset al cerrar

return nil

lSeekBar muestra un SAY debajo de la cabecera que refleja lo que el usuario va tecleando directamente sobre el browse. No necesita un control externo: simplemente se escribe sobre el browse y el SAY muestra el texto de búsqueda. 1-cite-0

Ejemplo 2: Con lGetBar (GET editable debajo de la cabecera)

#include "FiveWin.ch"
#include "XBrowse.ch"

REQUEST DBFCDX

function Main()

   local oDlg, oBrw

   USE CUSTOMER NEW SHARED VIA "DBFCDX"
   SET ORDER TO TAG FIRST
   GO TOP

   DEFINE DIALOG oDlg SIZE 600, 400 PIXEL TITLE "Ejemplo lGetBar + Filtro Incremental"

   @ 10, 10 XBROWSE oBrw SIZE -10, -10 PIXEL OF oDlg ;
      DATASOURCE Alias() ;
      COLUMNS "First", "Last", "City" ;
      AUTOSORT CELL LINES

   WITH OBJECT oBrw
      :lGetBar       := .t.                              // GET editable debajo de la cabecera
      :lIncrFilter   := .t.                              // Filtro incremental
      :lSeekWild     := .t.                              // Busqueda tipo "Containing"
      :bClrEdits     := { || { CLR_HRED, CLR_YELLOW } }

      // Reset del filtro al hacer click en la cabecera
      :bLClickHeader := { |nRow, nCol, nFlags, oCol| ;
                           oBrw:Seek( "" ), ;
                           oBrw:Refresh(), ;
                           oBrw:SetFocus() }

      // Reset del filtro al presionar ESC
      :bKeyChar      := { |nKey| If( nKey == VK_ESCAPE, ;
                           ( oBrw:Seek( "" ), oBrw:Refresh() ), nil ) }

      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT oBrw:SetFocus() ;
      VALID ( oBrw:Seek( "" ), .t. )

return nil

lGetBar muestra un GET editable debajo de la cabecera de la columna activa. El usuario puede hacer click en el GET y escribir directamente. El método Check_oSeek() conecta automáticamente el GET con oBrw:Seek() via bChange: 1-cite-1 1-cite-2

Diferencias clave

En ambos casos, el reset se hace con oBrw:Seek(""), que internamente limpia el filtro llamando SetFilter("") en la fuente de datos. 1-cite-3 1-cite-4

Los samples oficiales yunus.prg y mariainv.prg usan exactamente este patrón de oBrw:Seek("") para resetear al cerrar el diálogo o al presionar ESC. 1-cite-5 1-cite-6

Estimado Antonio:

Realice la prueba con lSeekBar; a su código le realice un agregado:

:cFilterFld := "FIELD" // para que filtre por el campo FIELD

Y funciona la mayoría, incluyendo el reseteo (va muy bien); lo único que no me funciona es que se muestre el texto que se va escribiendo en el SAY que se inserta, no se si será problema de este metodo o algo más:

:bClrEdits := { || { CLR_HRED, CLR_YELLOW } }

No funciona; estoy con FW2512.

Saludos

Fernando Espinoza A.

A ver si esto te sirve:

El problema que describes -- el filtro funciona pero el texto no se muestra en el SeekBar -- es un tema conocido relacionado con cómo se pinta la barra debajo de la cabecera.

Causa probable

Cuando lSeekBar está activo (nBarHdr == 2), el XBrowse pinta una barra debajo de la cabecera donde muestra el texto de cSeek. El método PaintHeader primero rellena toda el área del header (incluyendo la barra) con el brush del header: 2-cite-0

Luego, para cada columna, llama a oCol:CheckBarGet(.t.) que es el responsable de crear/mostrar el control SAY en la barra con los colores de bClrEdits: 2-cite-1

El estilo l2007 (que está activo por defecto con n2KStyle == 2007) aplica un gradiente sobre el header que puede cubrir el área de la barra, haciendo que el texto sea invisible aunque bClrEdits esté configurado. 2-cite-2 2-cite-3

Soluciones a probar

Opción 1: Cambiar a estilo flat, que no aplica gradiente sobre la barra:

oBrw:lFlatStyle := .t.
``` [2-cite-4](#2-cite-4) 

**Opción 2**: Usar `lGetBar` en lugar de `lSeekBar`. El `lGetBar` crea un GET editable real (no un SAY pintado), que tiene su propia ventana y no se ve afectado por el gradiente del header:

```prg
oBrw:lGetBar       := .t.    // en lugar de lSeekBar
oBrw:bClrEdits     := { || { CLR_HRED, CLR_YELLOW } }
``` [2-cite-5](#2-cite-5) 

**Opción 3**: Crear un SAY externo asignado a `oBrw:oSeek` (como hacen los samples oficiales `yunus.prg`, `mariainv.prg` y `xbrowser.prg`). Este enfoque no depende de la barra interna:

```prg
// Después de CreateFromCode():
@ nRow, nCol SAY oBrw:oSeek PROMPT oBrw:cSeek PICTURE "@!" ;
   SIZE 200, 14 PIXEL OF oDlg ;
   COLOR CLR_HRED, CLR_YELLOW
``` [2-cite-6](#2-cite-6) [2-cite-7](#2-cite-7) 

**Opción 4**: Si quieres mantener `lSeekBar` con estilo 2007, prueba desactivar el gradiente completo:

```prg
oBrw:lGradientComplete := .f.
oBrw:lSeekBar          := .t.
oBrw:bClrEdits         := { || { CLR_HRED, CLR_YELLOW } }
``` [2-cite-2](#2-cite-2) 

## Ejemplo completo con Opción 3 (SAY externo, más confiable)

```prg
#include "FiveWin.ch"
#include "XBrowse.ch"

REQUEST DBFCDX

function Main()

   local oDlg, oBrw

   USE CUSTOMER NEW SHARED VIA "DBFCDX"
   SET ORDER TO TAG FIRST
   GO TOP

   DEFINE DIALOG oDlg SIZE 600, 400 PIXEL TITLE "lSeekBar + Filtro Incremental"

   @ 30, 10 XBROWSE oBrw SIZE -10, -10 PIXEL OF oDlg ;
      DATASOURCE Alias() ;
      COLUMNS "First", "Last", "City" ;
      AUTOSORT CELL LINES

   WITH OBJECT oBrw
      :lIncrFilter   := .t.
      :lSeekWild     := .t.
      :cFilterFld    := "FIRST"

      :bLClickHeader := { |nRow, nCol, nFlags, oCol| ;
                           oBrw:Seek( "" ), ;
                           oBrw:Refresh(), ;
                           oBrw:SetFocus() }

      :bKeyChar      := { |nKey| If( nKey == VK_ESCAPE, ;
                           ( oBrw:Seek( "" ), oBrw:Refresh() ), nil ) }

      :CreateFromCode()
   END

   // SAY externo para mostrar el texto de búsqueda
   @ 14, 10 SAY oBrw:oSeek PROMPT oBrw:cSeek PICTURE "@!" ;
      SIZE 200, 14 PIXEL OF oDlg UPDATE ;
      COLOR CLR_HRED, CLR_YELLOW

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT oBrw:SetFocus() ;
      VALID ( oBrw:Seek( "" ), .t. )

return nil

El sample oficial fwfuncs.prg usa lSeekBar con bClrEdits y funciona, pero ese sample usa SetArray() como datasource, no RDD con cFilterFld. Es posible que haya una diferencia de comportamiento específica con FW2512 cuando se combina lSeekBar + lIncrFilter + cFilterFld con RDD. 2-cite-8

Estimado Antonio:

Hice la prueba con la opción FLAT, el problema se mantiene.

saludos

Fernando Espinoza A.

Estimado Fernando,

Arreglado y funcionando bien! :) Incluido en el próximo FWH 26.03

* Fix: XBrowse lSeekBar + lIncrFilter: Multiple fixes for incremental filter
with SeekBar display:

• Fix: oFilterCol was never assigned, so the SeekBar SAY was never painted
  when lIncrFilter was active. Now auto-assigned from SelectedCol() on first Seek.

• Fix: SeekBar text was painted on screen DC instead of the double-buffer DC,
  causing it to be overwritten by DispEnd(). ShowSeek() now uses the active
  hDC (buffer or screen) and draws text with DrawText/SetTextColor directly.

• Fix: Seek(nil) called from GoUp/GoDown/navigation methods was clearing
  cSeek even during active incremental filtering, erasing the search text.
  Now preserves cSeek when lIncrFilter is active.

• Fix: Recursive Seek("") calls during Refresh()/Change() were clearing the
  search state. Added static recursion guard in Seek() for lIncrFilter mode.

• Fix: Search icon (zoom2 bitmap) was not drawn with transparent background.
  Changed from DrawBitmap to DrawTransparent for proper alpha rendering.

• New sample: samples/ui/xbrowse/xbrseek.prg - Demonstrates lSeekBar with
  incremental filtering (lIncrFilter + lSeekWild) using a DBF data source.
  Shows colored SeekBar (bClrEdit), ESC to reset filter, and AUTOSORT.

- bClrEdit es propiedad de cada columna, no del browse

• ShowSeek necesitaba pintar en el buffer DC, no en pantalla
• Seek(nil) desde la navegación borraba el filtro activo
• Recursión de Seek("") durante Refresh() limpiaba el estado
• lFastEdit capturaba las teclas antes de llegar al SeekBar
• oFilterCol nunca se inicializaba para lIncrFilter