Requiero hacer una operación sobre la data de un txBrowse cuando se hace click sobre un encabezado de columna.
Ya sé que puedo definir oCol:bLClickHeader, pero nada me indica que existe esta opción de hacer click.
¿ Se puede pintar un header con un btnbmp?
Gracias.
[FWH9.07 + xHb1.21 + BCC55]
#include "fivewin.ch"
#include "xbrowse.ch"
function main()
local oWnd
local aArray := {}, n
local nTot
for n = 1 to 100 step 4
AAdd( aArray, { n, n + 1, n + 2, n + 3 } )
next
DEFINE WINDOW oWnd TITLE "Bitmaps on browse and bold font on first column"
@ 0, 0 XBROWSE oBrw OF oWnd ARRAY aArray AUTOCOLS
oBrw:aCols[ 1 ]:bLClickHeader = { | nMRow, nMCol, nFlags, Self | MsgInfo( "Click Over column 1" ) }
oBrw:aCols[ 2 ]:bLClickHeader = ;
{ | nMRow, nMCol, nFlags, Self | nTot := 0, AEval( ::oBrw:aArrayData, {| uItem | nTot += uItem[ 2 ] } ), ;
MsgInfo( "Total Column 2:" + str( nTot ) ) }
oBrw:CreateFromCode()
oWnd:oClient := oBrw
ACTIVATE WINDOW oWnd ON INIT oBrw:SetFocus()
return nil