WITH OBJECT oBrw
IF lmore
:nDataLines := 2
ELSE
:nDataLines := 1
ENDIF
...
END
- Code: Select all Expand view
- :bStrData := { || oDbf:Street + CRLF +oDbf:city+" "+ oDbf:state }
the user by a menu popup can change the configuration and set more rows
on command of menu I made
- Code: Select all Expand view
Function oBtnMenu2(oBrw,oDbf,oParent,cSection,nRow,nCol)
local oMenu,oItem1
MENU oMenu POPUP
MENUITEM oItem1 PROMPT "More Rows" ;
ACTION (lMore := !lMore,;
( IIF( lMore,oBrw:nDataLines := 2,oBrw:nDataLines := 1 ),;
oBrw:refresh()) )
ENDMENU
oItem1:SetCheck(lMore)
ACTIVATE POPUP oMenu OF oParent AT oBrw:nTop+nRow, oBrw:nLeft+nCol
return nil
Why not refresh the oBrw ?