FiveTech Support Forums

A test : 

This doesn't work ( evaluates the message twice ) !!!
oLbx:bChange   := { || MsgAlert( "Show Run" ) }

This is OK ( works only once ) !!!
oLbx:bLClicked := { | nRow, nCol | MsgAlert( "Show Run" ) }

What is the difference ?
I need a action also without clicking inside the browser ( using keyboard ).

----- the original source testing a value and run a application -------------

oLbx:bChange   := { || DLG_GET(), ;
   lOpen := .F., ;  // it doesn't help !!!
   cXNVIEW1 := cXNVIEW + " " + c_Path + "\" + ALLTRIM(cSUBDIR) + cIMAGE, ;
   MOVE1 := 0.0, ;
   oSlider1:Set(MOVE1), ;
   oSlider1:Refresh(), ;
   oFolder:aDialogs[1]:Update(), ; // Folder-Update
   oBMP10:Refresh(), ; // The preview is empty, because format is not supported.
   nWIDTH1 := nWIDTH, ; 
   nHEIGHT1 := nHEIGHT, ;
   oDlg3:Update(), ;  // Main-Dialog-Update
   msgalert( lOpen ), ;  // This is allways .F. because runs twice !!!
   IIF( (1)->dFWH = .F. .and. lOpen = .F., ; // doesn't help
      ( WINEXEC ("&cXNVIEW1"), lOpen := .T.), NIL ) } // added .T., to run only once.

//-------- A test with a part from sample : Testxbrw5.prg ----------------//

STATIC FUNCTION BasicRow( oWnd )
local oChild, oBrw

DEFINE WINDOW oChild TITLE "Basic Row selector browse" MDICHILD OF oWnd

oBrw := TXBrowse():New( oWnd )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW

oBrw:SetRDD()
oBrw:CreateFromCode()

oChild:oClient := oBrw

// Is evulated twice !!!
oBrw:bChange := {|| msgalert( "Count run" ) }

ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()

RETURN NIL