FiveTech Software tech support forums

... usando AUTOSORT sin tener que escribir ninguna función adicional. Al intercambiar ó mover las columnas, bien por el usuario ó por llamar a oBrw:SwapCols() o oBrw:MoveCol() no modifica la cebecera de la columna ó nCreationOrder. la function OrdenaColumna( oCol ) está recibiendo un valor erróneo ...

... la rueda, ja-ja-ja) Function InterCamb(oBrw,nCol1,nCol2) local n, nPosAct:=nCol1 local nNvaPos:=0 For n:= 1 to nCol1 nNvaPos:= nPosAct-1 oBrw:SwapCols(nPosAct,nNvaPos) oBrw:Refresh() nPosAct-=1 Next Return nil Saludos

... y lo que quiero es que queden: Apellido, No., Nombre o sea pasar la ultima columna al 1er lugar y recorrer a la derecha las otras 2. Al hacer oBrw:SwapCols(3,1) el resultado es: Apellido, Nombre, No. o sea intercambio posiciones en lugar de insertar la 3er columna en la 1ra.

Rodolfo, intenta con: oBrw:SwapCols(3,2,.t.), //donde 3 y 2 son las cols a intercambiar

Tambien, si lo quieres arrastrando el header de la columna hasta la posicion deseada, debes configurar xBrowse así:
oBrw:lAllowColSwapping := .f. // If true col swapping is allowed

Saludos

... } , {"aOne","ztwo","bthree"}} AUTOCOLS AUTOSORT oBrw:Swapcols(1,2,.T.) FOR EACH oCol IN oBrw:aCols oCol:bClrStd := {||{CLR_BLACK, iif( oBrw:nArrayAt % 2 = ...

... NEXT I don't understand why this code doesn't work when two columns are swapped (uncomment line oBrw:Swapcols(1,2,.T.) ) or moved (clicking and draging in the header). You will see that a wrong column has the color for ordered column. I will try to ...

Daniel,

Tendrías que hacer una pequeña modificación en la clase TXBrowse bien en el método SwapCols() ó en el método HeaderLButtonUp() de la clase columna.

Cualquiera de los dos podría servirte posiblemente.

... la opción por defecto para mantener la compatibilidad con versiones anteriores. 8. Nuevo método: MoveCol( nFrom, nTo ): En contraste con el método SwapCols que intercambia la posición de dos columnas, este método mueve una columna desde la posición "nFrom" a la nueva posición "nTo", desplazando ...

... the last widest text column. STRETHCOL_NONE is default for keeping backward comaptibility. 8. New Method: MoveCol( nFrom, nTo ): In contrast to SwapCols method which swaps the position of two columns, this method moves a column from position nFrom to the new position at nTo, shifting the columns ...

... 0 ) ), ; oBrw5:SetFocus(), ; oBrw5:GoTop(), oBrw5:VGoTop(), oBrw5:Refresh(), ; l_INDEX := .T., oINDKEY:Refresh(), ; oFilter:Refresh(), ; oBrw5:SwapCols( 1, nOrder ), ; // Bring selected col to 1 oBrw5:GoLeftMost(), ; // Go to 1. Col ( indexed ) oBrw5:nFreeze := 1 } // Freeze 1. Col next oBrw5:bChange ...

... ; SET_INDEX(oBrw5,cFELD), ; IIF(DBFTYP = "CDX", ; cINDKEY := ORDKEY( "NEUINDEX" ), ; cINDKEY := INDEXKEY( 0 ) ), ; oBrw5:Refresh(), ; oBrw5:SwapCols( 1, oBrw5:nAt() ), ; oBrw5:nFreeze := 1 } next // fixed NEW !! // -------------- for nFor := 1 to Fcount() oBrw5:aCols[ nFor ]:bRClickHeader ...

... 0 ) ), ; oBrw5:SetFocus(), ; oBrw5:GoTop(), oBrw5:VGoTop(), oBrw5:Refresh(), ; l_INDEX := .T., oINDKEY:Refresh(), ; oFilter:Refresh(), ; oBrw5:SwapCols( 1, nOrder ), ; // Bring selected col to 1 oBrw5:GoLeftMost(), ; // Go to 1. Col ( indexed ) oBrw5:nFreeze := 1 } // Freeze 1. Col next oBrw5:bChange ...

... including autosort. Then hide the columns you dont want. ( eg. oBrw:aCols[n]:Hide() ). You can also swap cols for repositioning them ( eg oBrw:SwapCols( 2,7 ) ) You can then get what you want

Hello Robert, oBrw:aCols[3]:lHide = .t. ACTIVATE WINDOW oChild ON INIT (oBrw:SwapCols( oBrw:aCols[1], oBrw:aCols[2] ), oBrw:SetFocus()) This is from FWH/SAMPLES/TESTXBRW.prg I implemented the changes. STATIC FUNCTION ArraySort( oWnd ) local oChild, oBrw, oCol ...

Otto ELEM 2 ELEM 3 ELEM 1 instead the default ELEM 1 ELEM 2 ELEM 3 WITH OBJECT oBrw :Swapcols(:aCols[1],:aCols[2]) ; :Swapcols[:aCols[2],:aCols[3]) END Or look at oBrw:setarray to see how oBrw:bstrdata is set oCol := :aCols[1] oCol:bStrData := GenArrayBlock( { || ...