FiveTech Software tech support forums

... ( oRS1Cli:AbsolutePosition / 2 ) - INT( oRS1Cli:AbsolutePosition / 2 ) > 0, RGB( 193, 221, 255 ), RGB( 221, 245, 255 ) ) } oBrow:GoTop() oBrow:aActions = { "ID","numero", "", "", "Nombre", "Domicilio" } oBrow:aActions[ 1 ] = { || iif ...

... es una array con los nombres de los campos y en base al tamaño del array, hace las acciones Necesito saber que instruccion uso en TXBrowse para :aActions Creo que te refieres a oBrw:bChange:= funcion() Te pongo el ejemplo completo que incluye arrays #Include "FiveWin.ch"#Include ...

... es una array con los nombres de los campos y en base al tamaño del array, hace las acciones Necesito saber que instruccion uso en TXBrowse para :aActions

... Si alguien pudiera ayudarme Pongo esta porcion de codigo de la claseTWBrowse y quisiera conocer el equivalente en xbrowse de la instruccion :aActions do case                   case len(paNombres) = 2                     :aActions      := { { || f_CambiarIndice( pcBaseDatos, ...

... Si alguien pudiera ayudarme Pongo esta porcion de codigo de la claseTWBrowse y quisiera conocer el equivalente en xbrowse de la instruccion :aActions do case                   case len(paNombres) = 2                     :aActions      := { { || f_CambiarIndice( pcBaseDatos, ...

I think that you have to put into an array all actions and them paint each record. local aActions := {} aadd( aActions, {"image",10,10,300,200,"c:\myimage.bmp"} ) aadd( aActions, {"icon",200,200,32,32,"c:\myicon.ico"} ) .... for ...

Darrell

Have a look at oLbx:aActions := aTags

aTags := { {|| codeblock for first header },;
{|| codeblock for second header}}


Hope this helps

Colin

... border="0" alt="Unlimited Free Image and File Hosting at MediaFire"></a> DEFINE FONT oFnt NAME "Ms Sans Serif" SIZE 0,-12 BOLD oBCos:aActions := Array( Len( oBCos:aColSizes ) ) oBCos:aActions[ 2 ] := {|| (oDCos)->(OrdSetFocus("CUENTA")), ; oBCos:aHeaders[ 2 ] := "CUENTA" , ; oBCos:aHeaders[ ...

... LOGICAL CLASSDATA aProperties AS ARRAY ; INIT { "aColumns", "cVarName", "nTop", "nLeft", "nWidth", "nHeight" } CLASSDATA lVScroll, lHScroll DATA aActions // actions to be executed on header's click DATA aColors // the whole colors kit DATA aArray AS ARRAY // browsed array DATA aBitmaps AS ARRAY ...

... of a browse like changing the index information of the field etc Use the ACTION clause of the LISTBOX FIELDS command. Do this : oYour_Brw:aActions := {{|| Action_Col_1()}, {|| Action_Col_2()},......And_So_On.....} -------------------------------------------------------------------------------- ...

... := 16 oLbx:nHeaderHeight := 16 //oLbx:nFreeze := 4 oLbx:aHJustify:={2,2,2,2,2} oLbx:aJustify:={.t.,.f.,.t.,.t.,.t.} oLbx:lDrawFooters :=.T. //oLbx:aActions := Array( 6 ) //oLbx:aActions[1] := { || OrdenArEq( 3, 3 , oPreccos, oLbx,oWndFact01,aGets ) } //oLbx:aActions[2] := { || OrdenArEq( 2, 3 , ...

... "listado_articulos" redefine LISTBOX oBrw; FIELDS arti_pda->codigo, arti_pda->nombre; HEADERS "Código", "Nombre" ID 500 OF oDlg1 oBrw:aActions := {{|| MsgBeep(),ordenar_por_codigo(oBrw),oBrw:Upstable(),oBrw:Refresh()}, {|| MsgBeep(),ordenar_por_nombre(oBrw),oBrw:Upstable(),oBrw:Refresh()}} ...

... := 16 oLbx:nHeaderHeight := 16 oLbx:nFreeze := 4 oLbx:aHJustify:={2,2,2,2,2} oLbx:aJustify:={.t.,.f.,.t.,.t.,.t.} oLbx:lDrawFooters :=.T. oLbx:aActions := Array( 6 ) oLbx:aActions[1] := { || OrdenArEq( 3, 3 , oPreccos, oLbx,oWndFact01,aGets ) } oLbx:aActions[2] := { || OrdenArEq( 2, 3 , oPreccos, ...

... := 16 oLbx:nHeaderHeight := 16 oLbx:nFreeze := 4 oLbx:aHJustify:={2,2,2,2,2} oLbx:aJustify:={.t.,.f.,.t.,.t.,.t.} oLbx:lDrawFooters :=.T. oLbx:aActions := Array( 6 ) oLbx:aActions[1] := { || OrdenArEq( 3, 3 , oPreccos, oLbx,oWndFact01,aGets ) } oLbx:aActions[2] := { || OrdenArEq( 2, 3 , oPreccos, ...

... con Doble Click en en título de la columna. Si quieres hacerlo con un solo click, deberas usar un bloque de código almacenado en la data ::aActions que es un array que deberá tener tantos elementos como columnas hayas definido, aunque no todos los elementos del array necesariamente deberán ...