FiveTech Software tech support forums

... ) IF !EOF() dbSkip(1) ENDIF NEXT oDlg:Activate( Upper("maximized"), oDlg:bLClicked, oDlg:bRClicked, oDlg:bMoved, oDlg:bResized, oDlg:bPainted, oDlg:bKeyDown, oDlg:bInit,,,,,,,,,,, oDlg:bLButtonUp ) return nil 

... .t. ) ::oFld:SetOption( ::nFld ) ::oFld:bChange := { || ::nOldFld := ::nFld, ::nFld := ::oFld:nOption, ::FldChg() } ::oFld:aDialogs[ ::nFld ]:bLClicked := { || ::nOldFld := ::nFld, ::nFld := ::oFld:nOption, ::FldChg() } ::oFld:SetFont( wndMain():oFont ) if ::nWd == 1 ::oWnd:SetControl( ::oFld ...

... ; 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))} ...

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