XBROWSER with SETUP possible?

[Horizon]

Hi,

I have changed mr. rao's example like this. but does not run properly.

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local aData    := { { "ONE  ", 2000 }, { "TWO  ", -5000 }, { "THREE", 2000 } }

   XBROWSER aData SETUP BrwSetup( oBrw )

return nil

static function BrwSetup( oBrw )
    oBrw:nMarqueeStyle := 5
    oBrw:bLDblClick := {|nRow, nCol, nFlags|Dummy(oBrw,2)}
return nil
Function Dummy(obrw, nnn)
  ? "here"
return
 

Should I use traditional method xbrowse?

[Antonio Linares]

Dear Hakan,

I have just tested your code and here it is working fine

What is missing there ?

[Horizon]

Hi Antonio,

yes, this code compiled with buildh32 without any error and run. But does not work brwsetup function.

[cnavarro]

Hi Antonio,

yes, this code compiled with buildh32 without any error and run. But does not work brwsetup function.

Your sample work OK for me and execute your SETUP xbrowser function correctly

[FiveWiDi]

Hi,

I have changed mr. rao's example like this. but does not run properly.

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local aData    := { { "ONE  ", 2000 }, { "TWO  ", -5000 }, { "THREE", 2000 } }

   XBROWSER aData SETUP BrwSetup( oBrw )

return nil

static function BrwSetup( oBrw )
    oBrw:nMarqueeStyle := 5
    oBrw:bLDblClick := {|nRow, nCol, nFlags|Dummy(oBrw,2)}
return nil
Function Dummy(obrw, nnn)
  ? "here"
return
 

Should I use traditional method xbrowse?

Try this:

Code: Select all  Expand view

function Main()

   local aData    := { { "ONE  ", 2000 }, { "TWO  ", -5000 }, { "THREE", 2000 } }

   XBROWSER aData SETUP ( oBrw:nMarqueeStyle := 5, oBrw:bLDblClick := {|nRow, nCol, nFlags|Dummy(oBrw,2)} )

return nil

Function Dummy(obrw, nnn)
  ? "here"
return

 

But if Antonio and Cristobal say your code work ok ...

Try delete de .EXE, .C, .OBJ files before compiling