FiveTech Software tech support forums

... TControl DATA cAlias, cField, uValue1, uValue2 DATA bLine, bSkip, bGoTop, bGoBottom, bLogicLen, bChange, bAdd DATA nRowPos, nColPos, nLen, nAt, nColAct // nColPos -> 1ra. Columna que se muestra en pantalla // nColAct -> Columna Activa DATA aSkipCol // no posicionamiento de columnas // ...

That would be most welcome.

Other requests are :
1. To add the method SetAdo to TWBrowse and TCBrowse also.
2. To bring uniformity of naming the methods like DrawSelect and Drawline, nAt of xBrowse and nColAct, etc.

Hola, aumente una data DATA nkey luego en el metodo METHOD KeyChar( nKey, nFlags ) CLASS TWBrowse : CASE ::LAutoedit ::edit( :::nColAct,, nKey ) otherwise : Luego el metodo queda asi METHOD Edit( nCol, lModal, nkey ) CLASS TWBrowse : ::nKey := nKey : y por ultimo en el metodo STATIC Function ...

... oBCliente:nColAct:=1 oBCliente:nLineStyle:=6 oBCliente:lCellStyle:=.T. oBCliente:nClrForeHead:=CLR_BLUE oBCliente:aColSizes := {80,260} oBCliente:bLDblClick:={|| ...

... del Foro, hasta ahora no se como obtener el numero de columna actual de un ListBox :( tengo el siguiente ListBox un DBF de 3 campos pero "oBrw2:nColAct" siempre retorna 1 a pesar de que el puntero esta en la 2da o 3ra columna, ¿como hago para que retorne 2 o 3? @ 01,01 ListBox oBrw2 ; Fields ...

... &hb_symEval ); la llamada cambia a hb_vmPushEvalSym(); Corrección: El método Resize() de la clase TWBrowse actualiza correctamente el DATA nColAct cuando se localiza fuera de los límites visibles. Corrección: Pequeña corrección en la clase TImageList. Corrección: Los métodos GoLeft() y ...

... Enhancement: hb_vmPushSymbol( &hb_symEval ); call changed into hb_vmPushEvalSym(); * Fix: Class TWBrowse Method Resize() properly updates DATA nColAct when it is located out of the visible bounds. * Fix: Minor fix on Class TImageList. * Fix: Class TWBrowse Methods GoLeft() and GoRight() were ...

... ::aHJustify y ::aFJustify que guardan las alineaciones de columnas de datos, headers y footers 5) Verificar que ::oLbx:nColPos:= 1 y ::oLbx:nColAct:= 1 NO superen la cantidad de columnas activas. 6) ::oLbx:lSyncH:= .T., ::oLbx:lSyncF:= .T. , ::oLbx:Refresh() Parece un Rollo, pero es SENCILLO, ...

... procedure ColVarChg(oLbx, aItems) local lColNumber, lRowNumber, lVarToEdit lColNumber := oLbx:nColAct // Get actual Column in focus lRowNumber := oLbx:nAt // Get actual Row in focus DO CASE // Check which column edit is to be performed CASE lColNumber ...

... aTotal ) } Algo similar podes hacer con browses sobre dbfs: oBcli:lAutoEdit := .t. oBcli:bKeyChar := {|nK| if( nK==VK_RETURN,oBcli:Edit(oBcli:nColAct,.t.),) } oBcli:bEdit:= {|nCol, cBuffer, lFirstEdit|; Edita2Celda( oDlg,oBcli, nCol,cBuffer,lFirstEdit )} Function Edita2Celda( oFld,oLbx, nCol, ...

... Toda la gracia esta en el evento que edita la celda, que recibe como parametro POR REFERENCIA la variable que deseas editar: oBrw:lEditCol(oBrw:nColAct,@xVar,cPict,bValid,RGB(0,0,0),Rgb(255,255,255)) @xVar es el valor que tu quieres editar, puedes hacer por ejemplo xVar := 0 o bien xVar := SPACE(20) ...

... Toda la gracia esta en el evento que edita la celda, que recibe como parametro POR REFERENCIA la variable que deseas editar: oBrw:lEditCol(oBrw:nColAct,@xVar,cPict,bValid,RGB(0,0,0),Rgb(255,255,255)) @xVar es el valor que tu quieres editar, puedes hacer por ejemplo xVar := 0 o bien xVar := SPACE(20) ...

... o NIL // aCampos : arreglo con los nombres de los campos del alias del browse // FUNCTION EditCelda(oxBrw,aPict,aCampos) #DEFINE nColActual oxBrw:nColAct #DEFINE nLargo oxBrw:aColSizes[nColActual] #DEFINE cPict IIF( ValType(aPict[nColActual])="B", ...

... FW wBrowse: ::nMaxCol := Len( GetColSizes() ) Second: define the HSCroll range like this : 'RANGE 1,::nMaxCol' Third: In GoRight method type: IF ::nColAct < ::nMaxCol // It means if most left visible column is less than ::nMaxCol then GoRight() it doesn't process. ... GORIGHT USUAL METHOD ... ...

... hay que establecer el rango del HSCroll: 'RANGE 1,::nMaxCol' Finalmente en el Método GoRight() habrá que añadir, al principio del todo: IF ::nColAct < ::nMaxCol // Significa que si la columna más a la izquierda no es menor que ::nMaxCol no se procesa GoRight() ... RESTO DEL METODO TAL ...