FiveTech Software tech support forums

... oTimer DATA nTimer DATA bTimer // ------------------------------------------------------ // 2 Method LButtonDown METHOD LButtonDown( nRow, nCol, nKeyFlags ) CLASS TWBrowse local nClickRow, nSkipped local nColPos := 0, nColInit := ::nColPos - 1 local nAtCol //----- my_modi IF ::bTimer != nil ::nTimer ...

... ) oTree = TTreeView():New( 2, 0, oSelf:oWnd, CLR_BLACK ,nrgb(128,200,240), .T., .F., 300, 350, 'Proyectos' ) oTree:bLDblClick := { | nRow, nCol, nKeyFlags | oSelf:MyClick( nRow, nCol, oTree ) } oTree:SetImageList( oImageList ) While ++i <= Len( oSelf:aEmpresas ) oTree:Add( oSelf:aEmpresas[i] ...

... <uValid> ] ; => ; [ <oBmp> := ] TImage():ReDefine( <nId>, <cResName>, <cBmpFile>,; <oWnd>, [\{ |nRow,nCol,nKeyFlags| <uLClick> \}],; [\{ |nRow,nCol,nKeyFlags| <uRClick> \}],; <.scroll.>, <.adjust.>, <oCursor>, <cMsg>, ...

... ; 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 := {|| ...

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