FiveTech Software tech support forums

local oGets[ len( aFlds ) ] ... for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] @ nRw, nCol GET oGets[ nGt ] VAR aGets[ nGt ] PICTURE aPct[ nGt ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, cFld ) next It seems that this isn't working .. :-(( I remmember something about ...

... to assign gets in for .. next . Here is a small sample : local oGets[ len( aFlds ) ] ... for nGt := 1 to len( aFlds ) cFld := aFlds[ nGt ] @ nRw, nCol GET oGets[ nGt ] VAR aGets[ nGt ] PICTURE aPct[ nGt ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, cFld ) next It seems that this isn't working .. ...

... BmpTiled( hDC, _oWnd, oBmp ) STATIC FUNCTION BmpTiled( hDC, oWnd, oBmp ) local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() if oBmp:hBitmap == 0 return nil endif while nRow < nHeight nCol = 0 while ...

... ; HEADERS "Pot","Rolls","Current Vol" SIZE 200,250 OF oWnd ; FIELDSIZES 30,40,40 UPDATE oLbx:blClicked := ; {|nRow,nCol,nKeyFlags| if(oLbx:nAtCol(nCol)=2,ShowRolls(),nil)} oLbx:lCellStyle := .T. oLBx:bSkip := {|nRecs| STOCKLOC->(DbSkipper(nRecs))} oLbx:bLine := ...

... := { "1:One", "2:CHANGED", "3:Three" } , .T. ) BUT , THIS IS NOT EXECUTED , MSGINFO HAS NO EFFECT !!!!!!!!! Frank Try this codeblock : @ nRow, nCol COMBOBOX oCbx VAR cPav PIXEL UPDATE VALID !empty( cPav ) OF oDlg SIZE n, nFh * 4 aeval( MyArray, { |x| aadd( oCbx:aItems, x[ 2 ] ) } ) // for multidimensional ...

Many thanks,

I used oLbx:bLClicked := {|nRow,nCol,nKeyFlags| MyFunction(oLbx,nCol)}

Then

FUNCTION MyFunction(oLbx,nCol)
LOCAL iActualCol := oLbx:nAtCol(nCol)

do case
case iActualCol=1
endc
... Etc

... color and underline with other color active cell . Is it possible ? Here is my own background painting for bBkColor color : METHOD GrPair( nRow, nCol, nStyle, oSel, nFtr ) CLASS TWBrowse // Rimantas U. local nClr := ::nClrPane default nFtr := NIL if nStyle == 1 .or. nStyle == 2 // headers and ...