FiveTech Software tech support forums

Marc Vanzegbroeck wrote:Do you mean

Code: Select all  Expand view

o:nAtcol(y)

nAtCol doesn't exist in XBrowse.

EMG

... Sample run OK. Delete and create your databases and index No other users have reported any problems with this theme GetDateFromPos( nAtRow, nAtCol ) INLINE ::dStart + ( Max( nAtRow - 1, 0 ) * 7 ) + nAtCol - 1 This is for double click over name day: ¿ what has to do with the issue of being ...

... the application and recall the exe you can see it this is not a doubt but it is a certainty then you sad me to change this GetDateFromPos( nAtRow, nAtCol ) INLINE ::dStart + ( Max( nAtRow - 1, 0 ) * 7 ) + nAtCol - 1 Not run here it not refresh then I cannot see any appointment Where is the syncro ...

... about how 'translate' wbrowse to xbrowse. 1 - oLbx:bRClicked := {|nRow, nCol| MsgInfo("Row:"+str(oLbx:nAt,3)+" Col:"+str(oLbx:nAtCol(nCol),3)) } 2 - oLbx:ShowSizes() TIA, Euclides

Aunque, evidentemente la indicacion correcta es la que indica Mr. Rao, creo que el metodo ::nAtCol( nPix ) devolvia la columna en la que te encuentras

Encontre la solucion y la comparto

Para congelar del incio hasta la columna 3 :

oLbxArticulos:nFreeze:=3

Y para encontrar la columna que edité :

oLbxArticulos:nAtCol(nCol)

Bye

... ON INIT oDlg:SetControl( oBrw ); CENTER CLOSE DELETEOBJECT( hBmp1 ) DELETEOBJECT( hBmp2 ) RETURN NIL STATIC FUNCTION CAMBIA( oBrw, nCol ) IF oBrw:nAtCol( nCol ) = 3 REPLACE FIELD -> married WITH !FIELD -> married oBrw:Refresh( .F. ) ENDIF RETURN NIL After putting in oDlg:SetControl( oBrw ...

... ) METHOD MouseMove( nRowPix, nColPix, nKeyFlags ) METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) METHOD MoveColumn( nColPos, nNewPos ) METHOD nAtCol( nColPix, lActual ) METHOD nAtIcon( nRow, nCol ) METHOD nColCount() INLINE Len( ::aColumns ) METHOD nLogicPos() METHOD nRowCount() INLINE ; CountRows( ...

thanks you for the response. You wrote: You are using TXBrowse. You are using oBrw:nAtCol in your function EditCell, but there is no data / method with the name nAtCol in TXBrowse. You need to correct your function editCell Editcell is not my function it comes from: ...

You are using TXBrowse. You are using oBrw:nAtCol in your function EditCell, but there is no data / method with the name nAtCol in TXBrowse. You need to correct your function editCell

... bytes Time from start: 0 hours 0 mins 7 secs Error occurred at: 07/19/08, 16:30:22 Error description: Error BASE/1004 Message not found: TXBROWSE:NATCOL Args: [ 1] = O Object Stack Calls =========== Called from: => __ERRRT_SBASE(0) Called from: => TXBROWSE:ERROR(170) Called from: source\rtl\tobject.prg ...

Marco,

You may modify that line this way:

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

... it looks like it is the aColumns 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( ...

... ; HEADERS "","D E S C R I P C I O N","","CANT","PRECIO","IMPORTE" ; SIZES 16,262,17,64,77,82 ; ON DBLCLICK ( IF(oBTmp:nAtCol(nCol)==1,BorraPartidas(),) ) ; WHEN (!DbEmpty(oDTmp) .AND. !lPago) ID 108 OF oDlg oBTmp:cAlias := oDTmp oBTmp:SetFont(oFnt[2]) oBTmp:bLogicLen ...

... bLDblClick, bRClick, oFont,; oCursor, nClrFore, nClrBack, cMsg, lUpdate,; cAlias, bWhen, bValid, bLClick, aActions, aSkipCol ) CONSTRUCTOR METHOD nAtCol( nCol ) INLINE ::nWCol( nCol ) METHOD nAtIcon( nRow, nCol ) METHOD lCloseArea() INLINE ; If( ! Empty( ::cAlias ), ( ::cAlias )->( DbCloseArea() ...