Saludos amigos
Visto que a un TWBrowse se le pueden asociar "actions" a los header de cada columna me pregunto como es posible saber en cual header (columna) se ha hecho clic
Entiendo que si cada bloque de codigo asociado al action de la columna tiene una funcion al estilo MsgInfo(x), donde "x" es la columna, es posible saberlo pero me gustaria encontrar otro metodo ya que el indicado obliga a construir los actions para cada grid de forma independiente
Gracias por su ayuda
Williams,
METHOD nAtCol( nColPixel ) CLASS TWBrowse
aArray := {
{ 1, "Activo" }, ;
{ 11, "Activo Corriente" }, ;
{ 111, "Efectivo en Caja" }, ;
{ 11101, "Efectivo en Caja General" } ;
}
nPos := ShowTable( aArray, ; // Tabla
"Seleccione Cuenta", ; // Titulo
{ 190, 115 }, ; // TamaƱo
aCoord, ; // Coordenadas
{ { 1, "Codigo", 100, 0 }, ;
{ 2, "Nombre", 270, 0 } ;
} )/*********************************************************************************************
ShowTable() : Muestra un array en un browse y permite opcionalmente escoger un valor
*********************************************************************************************/
function ShowTable( aTable, cTitle, aSize, aCoord, aCols, aCargo, bColor )
local oDlg, oLbx, oSay, vSay, aData, n, m, oFont[1], nRetVal := 0
local aColSize, aJustify, aRecord, aAction, nActiveCol := 0
default aCargo := { 0 }
bColor := if( bColor = nil, { || SelColor( oLbx:nAt, 2 ) }, &( bColor ) )
default aSize := { 160, 115 }
default aCoord := { oCfg:nRow+85, oCfg:nCol }
if ValType( aTable ) == "A"
define font oFont[1] name "Tahoma" size 0,-12
define dialog oDlg title cTitle font oFont[1]
oDlg:lHelpIcon := .F.
aData := {}
aColSize := {}
aHeader := {}
aJustify := {}
aAction := {}
for n := 1 to Len( aTable )
aRecord := {}
for m := 1 to Len( aCols )
AADD( aRecord, if( ValType( aTable[n,aCols[m,1]] ) = "D", DtoC( aTable[n,aCols[m,1]] ), ;
if( ValType( aTable[n,aCols[m,1]] ) = "N", Transform( aTable[n,aCols[m,1]], aCols[m,5] ), ;
aTable[n,aCols[m,1]] )) )
if n = 1
AADD( aHeader, aCols[m,2] )
AADD( aColSize, aCols[m,3] )
AADD( aJustify, aCols[m,4] )
AADD( aAction, { |Self, nRow, nCol| nLbxCol := oLbx:nAtCol(nCol), ;
if( oLbx:cargo[1] <> nLbxCol, ;
( cSearch := "", vSay := Space(200), oSay:Refresh(), ;
aData := ASort( aData,,, { |x,y| x[nLbxCol] < y[nLbxCol] } ), ;
oLbx:nColHPressed := nLbxCol, oLbx:cargo[1] := nLbxCol, ;
oLbx:Refresh() ), ;
nil ) } )
nActiveCol := if( Len(aCols[m]) >= 5 .and. aCols[m,5], m, nActiveCol )
endif
next
AADD( aRecord, Str(n,4) )
AADD( aData, AClone( aRecord ) )
next
// Se agrega otra columna para el control del orden original
AADD( aHeader, "No." )
AADD( aColSize, 10 )
AADD( aJustify, 1 )
AADD( aAction, { nil } )
vSay := ""
@ aSize[2]+3, 5 say oSay var vSay of oDlg size 100,12 pixel
oLbx := TWBrowse():New( 0, 0, aSize[1], aSize[2],,,,,,,,,,,,,,,,,,.t.,,,,, )
LbxConfig( oLbx )
oLbx:SetArray( aData )
oLbx:bLine := { |nAt| nAt := oLbx:nAt, ;
if( Len( aData ) < 1 .or. nAt > Len( aData ), ;
Array(6), ;
aData[nAt] ) }
oLbx:aHeaders := aHeader
oLbx:aColSizes := aColSize
oLbx:aJustify := aJustify
oLbx:aActions := aAction
oLbx:bUpdateBuffer := { || oLbx:cBuffer := Upper(oLbx:cBuffer), ;
vSay := if( Len(oLbx:cBuffer) > 0, PadR( "Buscando: " + oLbx:cBuffer, 200 ), Space(200) ), ;
oSay:Refresh() ;
}
oLbx:bSeek := { || if( oLbx:cargo[1] = 0, ;
MsgStop( 'Haga clic en el titulo de la columna' + CRLF + ;
'por la que desea buscar', 'AtenciĆ³n' ), ;
( cSearch := Upper( oLbx:cBuffer ), ;
nLen := Len( cSearch ), ;
vSay := if( Len(cSearch) > 0, PadR( "Buscando: " + cSearch, 200 ), Space(200) ), ;
oSay:Refresh(), ;
nCol := oLbx:cargo[1], ;
if( nLen > 0, ;
( nAt := AScan( aData, { |x,y| Upper( SubStr( x[nCol], 1, nLen )) == cSearch } ), ;
if( nAt > 0, ;
( oLbx:nAt := nAt, ;
if( oLbx:oVScroll != nil, oLbx:oVScroll:SetPos(nAt), nil ), ;
oLbx:Refresh() ), ;
nil )), ;
nil )) ) }
oLbx:nBuffer := 10
oLbx:lAutoEdit := .f.
oLbx:lAutoSkip := .f.
oLbx:lAdjLastCol := .t.
oLbx:cargo := { nActiveCol }
oLbx:nHeaderHeight := 18
oLbx:nLineStyle := 1
oLbx:nClrLine := nRGB( 200, 200, 215 )
oLbx:lDrawFocusRect := .f.
oLbx:nClrPane := bColor
oLbx:nClrLine := nRGB( 200, 200, 215 )
oLbx:nClrBackHead := nRGB( 215, 215, 215 )
oLbx:nClrForeHead := nRGB( 0, 0, 0 )
oLbx:nClrForeFocus := nRGB( 255, 255, 255 )
oLbx:nClrBackFocus := nRGB( 0, 0, 0 )
oLbx:nClrNFFore := nRGB( 0, 0, 0 )
oLbx:nClrNFBack := nRGB( 180, 180, 180 )
oLbx:bBkColor := { |nRow,nCol,nStyle| if( nCol = oLbx:cargo[1] .and. ( nStyle = 0 .or. nStyle = 1 ), ;
oCfg:aLbxColors[2], ;
nil ) }
oLbx:bKeyDown := { | nKey | if( nKey == VK_RETURN, ;
( nAt := oLbx:nAt, ;
nRetVal := Val( aData[nAt,Len(aData[nAt])] ), ;
oDlg:End() ), ;
nil ) }
oLbx:bLDblClick := { | nKey | nRetVal := oLbx:nAt, oDlg:End() }
activate dialog oDlg on init ( oDlg:SetSize( oLbx:nWidth+8, oLbx:nHeight+60 ), ;
oDlg:Move( aCoord[1],aCoord[2]), ;
oDlg:Update() )
AEval( oFont, {|o| o:End() } )
endif
return nRetVal ===================================================================================================
// SelColor() : Configura las filas del grid en bi-color
// ===================================================================================================
function SelColor( nVal, nColor, cAlias, cColor )
local nClr, nIndex
if cAlias <> nil
if !Empty( (cAlias)->( OrdBagName() ) )
nIndex := (cAlias)->( OrdKeyNo() ) % 2
else
nIndex := (cAlias)->( RecNo() ) % 2
endif
else
nIndex := if( nVal == nil, 0, nVal % 2 )
endif
if nIndex = 0
do case
case nColor == 1
nClr := oCfg:aLbxColors[1]
case ncolor == 2
nClr := oCfg:aLbxColors[2]
case nColor == 3
nClr := RGB(238,238,238) // RGB( 163, 202, 197 )
case nColor == 4
nClr := RGB( 160, 160, 128 )
case nColor == 5
nClr := RGB( 245, 235, 195 )
case nColor == 0
nClr := ColorName( AllTrim( cColor ))
endcase
else
nClr := CLR_WHITE
endif
return nClrWilliams,
gracias!