FiveTech Software tech support forums

... aUserFunc[1] ) ENDIF oMru:Save(lower(cScrFile)) lNeedCmp := .t. endif RETURN NIL //27/06/2005 STATIC FUNCTION buscaScript(modo) Local nFor,cLine,cText:=space(200) Local nLines := len(oMemo:aLines) If MsgGet("Busca","Texto",@cText) cText:=alltrim(UPPE(cText)) ;nFor := 1 eltexto:=cText ...

... aUserFunc[1] ) ENDIF oMru:Save(lower(cScrFile)) lNeedCmp := .t. endif RETURN NIL //27/06/2005 STATIC FUNCTION buscaScript(modo) Local nFor,cLine,cText:=space(200) Local nLines := len(oMemo:aLines) If MsgGet("Busca","Texto",@cText) cText:=alltrim(UPPE(cText)) ;nFor := 1 eltexto:=cText ...

Hi,
Sometimes, when current col at the left one of the rightmost, press right arrow key, the browse repaints ,gets run time error :

array bound error

call from METHOD ColAtPos( nPos )
call from paint() methd oCol := ::ColAtPos( nFor )

Regards !
Shuming Wang

... Called from: => TWINDOW:ACTIVATE(0) Called from: => TAPP:ACTIVATE(52) Called from: TMAIN.PRG => MAIN(17) This is line 91 : oBrw:aCols[ nFor ]:oDataFont := oFont // Line 91 method browser() CLASS TSurvey *------------------------------------- local oDlg,oBrw,oSurvey,oFont,oCol,nFor,oChild ...

... METHOD ParsePict( cPicture ) CLASS Get Local cChar, cMask Local nAt Local nFor Local cNum := "" Local nPos := AT("@", cPicture ) Local nLen,nDec Local nMaxLen /* E.F. 2006/MAY/31 - Search by last occurrence of "@" into picture ...

... function RPreview( oDevice ) local aFiles := oDevice:aMeta local hOldRes := GetResources() local oSay local nFor local oWndMain := WndMain(), oIcon, oCursor, oMenu, oBrush, oFont local l97Look := oWndMain != nil .and. oWndMain:oBar != nil .and. ; Len( oWndMain:oBar:aControls ...

... oBrw5:lColDividerComplete := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:SetRDD() lClrFlag:=.f. for nFor := 1 to len( oBrw5:aCols ) oCol := oBrw5:aCols[ nFor ] oBrw5:bSkip:={| nRecs | ( if(nRecs == nil, nRecs := 1,), ; nRecs:= (1)->(dbskipper( nRecs ...

Hello Wanderson I add this in xBrowse.prg // nAdjColumn is the colums to expand DATA nAdjColumn AS NUMERIC METHOD Adjust() CLASS TXBrowse local nFor, nLen, nHeight, nStyle Local nTot := 0 LOcal nMaxWidth := ::nWidth() - 5 nLen := len( ::aCols ) nHeight := 0 ::GetDC() for nFor := 1 to nLen ::aCols[ ...

Hello Wanderson I add this in xBrowse.prg // nAdjColumn is the colums to expand DATA nAdjColumn AS NUMERIC METHOD Adjust() CLASS TXBrowse local nFor, nLen, nHeight, nStyle Local nTot := 0 LOcal nMaxWidth := ::nWidth() - 5 nLen := len( ::aCols ) nHeight := 0 ::GetDC() for nFor := 1 to nLen ::aCols[ ...

... := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:lOemToAnsi := lOemAnsi // New OemToAnsi oBrw5:SetRDD() lClrFlag:=.f. for nFor := 1 to len( oBrw5:aCols ) // Error-Message // NO WORKAREA in USE !!!! // as a ARRAYS it is OK // ------------------------------------ oCol := ...

... to use. before you open the database you set the var. The database is shown with the mode you defined in lOemAnsi. // Celledit // --------- for nFor := 1 to len( oBrw5:aCols ) oCol := oBrw5:aCols[ nFor ] oCol:nEditType := 1 oCol:bOnPostEdit := {|o, v, n| IIF( n != VK_ESCAPE, ; ( IIF( Net_Lock(), ...

Hello from Germany I had a small problem to switch columns in xBrowse SAMPLES : // Old for nFor := 1 to Fcount() oBrw5:aCols[ nFor ]:bRClickHeader := {|r,c,f,o| cFELD := :cHeader, ; SET_INDEX(oBrw5,cFELD), ; IIF(DBFTYP = "CDX", ; cINDKEY := ORDKEY( "NEUINDEX" ), ; cINDKEY ...

... oBrw5:lColDividerComplete := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:SetRDD() lClrFlag:=.f. for nFor := 1 to len( oBrw5:aCols ) oCol := oBrw5:aCols[ nFor ] oBrw5:bSkip:={| nRecs | ; ( if(nRecs == nil, nRecs := 1,),nRecs:= (1)->(dbskipper( nRecs ...

... Self ) hBrush := CreateSolidBrush( aColors[ 2 ] ) FillRect( hDC, {nRow, 2, nRow + nHeight, nBrwWidth}, hBrush ) DeleteObject( hBrush ) for nFor := 1 to nLast nCol := aCols[ nFor ] oCol := ::ColAtPos( nFor ) oCol:PaintHeader( nRow, nCol, nHeight ) next // paint space right col header, 2007 ...

... en modo de edicion y despues tambien he modificado el metodo blank y me funciona perfectamente. un saludo METHOD Blank() CLASS TDataBase local nFor, nLen local cType .... La modificación del metodo, es para no mover el registro de la tabla?