No Message from oBrw:bChange on Buttonaction ?

[ukoenig]

Hello,

I noticed in all ArrayBrowsers, Setting the Row-Position from a Button with :

oBrw:nArrayAt := newposition
oBrw:nRowSel := newPosition

oBrw:bChange returns nothing.

Using a Control-Alert inside bChange :
From KeyBoard and with Mouseclick it works, but not changing the Position from a Button.



Selecting a Color with a Button


The new Row-Position is selected, but no Message from oBrw:bChange.


Color-Selection from Button and new Browser-Row-Position
with no Message from oBrw:bChange :

Code: Select all  Expand view

REDEFINE BTNBMP oBtn1 ID 20 OF oFld:aDialogs[1]  2007 ;
FILENAME c_path + "\Images\select.bmp" ;
LEFT ;
PROMPT "  &Select  " FONT oProgFont ;
ACTION ( newColor := ChooseColor(), ;
   oNewColor:Refresh(), ;
   oBrw:nArrayAt := 10, oBrw:nRowSel := 10, oBrw:refresh() )

// The  Lines from the Browser
// ---------------------------------
oBrw:bChange   := { || W_POS1 := oBrw:nRowSel, ;
   W_COLOR1 := NEW_COLOR1(), ;
   msgalert( w_pos1, "Position" ), ;  //  Control-ALERT !!!!
   oW_COLOR1:Refresh(), oBMP9:Refresh(), oBMP10:Refresh(), ;
   GET_SOURCE(), oRESULT1:Refresh(), oRESULT2:Refresh() }   

 

Best Regards
Uwe

[nageswaragunupudi]

Instead of

Code: Select all  Expand view

oBrw:nArrayAt := 10, oBrw:nRowSel := 10, oBrw:refresh()
 

Please try

Code: Select all  Expand view

oBrw:SetPos( 10 )

[ukoenig]

Thank You very much,

I changed in all Browsers the Syntax like :
oLbx3:nArrayAt := 10, oLbx3:nRowSel := 10
to :
oLbx3:SetPos( 10 )

it works fine now on Button-Action !!!

Best Regards
Uwe