FiveTech Software tech support forums

Hi All I recently re-built an application which uses TSbrowse with oBrw:lAutoEdit := .t. and oBrw:SetAppendMode(.t.) I didn't make any changes to the application programs, however when compiled with FWH 13.4, the edit & append options do not work. When I ...

... := CHEADFRONT oLbx:aJustify := eval(bAdjust) oLbx:nLineStyle := 1 oLbx:nLineHeight := 22 oLbx:nFreeze := 11 oLbx:lCellStyle = TRUE oLbx:lAutoEdit = TRUE Regards Colin

... bro_campo, bro_subtit) Brw1:bDropOver = { | uDropInfo, nRow, nCol, nKeyFlags | ; Brw1:Add( uDropInfo ), MsgBeep() } Brw1:lCellStyle = .T. Brw1:lAutoEdit = .T. Brw1:lAutoSkip = .T. Brw1:ladjlastcol:=.F. Brw1:lDrawFocusRect:=.F. Brw1:nLineStyle:= 2 Brw1:Set3DStyle() Brw1:nHeaderHeight := 18 Brw1:nLineHeight ...

... POSTEDIT {|uVal| if(uVal != nil, CheckBox44(oBrw1,oBrw2,padr(uVal,255),2),) } ; EDITABLE MOVE DT_MOVE_NEXT // Activate continuous edit mode oBrw1:lAutoEdit := pTRUE oBrw1:lNoGrayBar := pTRUE oBrw1:lNoHScroll := pTRUE oBrw1:lFixCaret := pFALSE // True for blocky cursor //oBrw1:l2007 := pTRUE oBrw1:nAdjColumn ...

... browsing flags DATA lAppendMode AS LOGICAL INIT .F. READONLY // automatic append flag DATA lAutoCtx AS LOGICAL // compatibility with TCBrowse DATA lAutoEdit AS LOGICAL INIT .F. // activates continuous edition mode DATA lAutoSkip AS LOGICAL INIT .F. // compatibility with TCBrowse DATA lIconView ...

Rolando,

Es suficiente con que hagas oXBrowse:lAutoEdit := .T.

Marco,

You may modify that line this way:

if ( ( nCol := ::nAtCol( nColPix ) ) != 0 .and. ::aColumns[ nCol ]:lEdit .and. ::lAutoEdit

... array that is crashing. If you look at the lDblClick() method you will see this line: if ::aColumns[ nCol := ::nAtCol( nColPix ) ]:lEdit .and. ::lAutoEdit Your error message seems to be indicating that nCol is zero. So when the program gets to this line: Eval( ::aColumns[ nCol ]:bData, uTemp ...

... oTbr:aColSizes:= anTam oTbr:nClrPane = { | nCol | if( acDatos[ oTbr:nAt, nCol ] = "X", CLR_HRED, CLR_WHITE ) } oTbr:lCellStyle = .t. oTbr:lAutoEdit = .f. oTbr:lAutoSkip = .t. * da error de acceso al array por motivo de la línea: oTbr:nClrPane = { | nCol | if( acDatos[ oTbr:nAt, nCol ] ...

... can be defined as text or as code block. See sample 7 32.- Same code applyes for dialogs and windows, with no tricks. 33.- Continuows edition with lAutoEdit instance variable. See sample 6 34.- New Multiselect feature with SetSelectMode() Method. See samples 1 and 3 35.- New BtnGet editing with ...

... // fjhg 28-may-07 DATA nMaxFilter // Maximum number of records to count // on indexed filters DATA lHitTop, lHitBottom, lCaptured, lMChange DATA lAutoEdit, lAutoSkip DATA lCellStyle AS LOGICAL INIT .f. DATA aHeaders, aColSizes DATA nClrBackHead, nClrForeHead DATA nClrBackFocus, nClrForeFocus ...

... cPic ), ; Transform( aDatos[nAt,5], cPic ) } ) } oLbx:aJustify:= { 2, 2, .f., .t., .t. , .t. } oLbx:SetArray( aDatos ) oLbx:lAdjLastCol:= .f. oLbx:lAutoEdit := .t. oLbx:lAutoSkip := .t. oLbx:nLineStyle := 2 oLbx:nHeaderStyle:= 2 oLbx:bBkColor:= {|nRow,nCol,nStyle| ; if( nStyle==1,if( nCol%2==0, ...

... := 3 oLbxCompra:aJustify := {.T.,.F.,.F.,.T.,.T.,.T.} oLbxCompra:lAutoEdit = .T. oLbxCompra:Refresh() RETURN Nil FUNCION PARA ADICIONAR O EXCLUIR UNA LINEA FUNCTION fAdicionarLinha() AADD(aItens,{ ...

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 ...

Ahora si funciono con el STR(), pero ahora no se puede modificar ese campo los demas si a pesar de que lautoedit=.t.



Jaime