multi-column popup menu

[reinaldocrespo]

Hello Everyone;

I made a small change to Mr Rao's and Mr. Cristobal's function so that I can use it on a get to show a multi-column dropdown list:

Code: Select all | Expand

//----------------------------------------------------------------------------//
Function MyPopMnu( oWnd, nR, nC, aChoices, aHeaders )

   local oPop, oMenuItem 

   MENU oPop POPUP 2015 ;
      SELECT aChoices  COLUMNS 1, 2 HEADERS aHeaders ACTION {|x| oMenuItem := x }  
   ENDMENU
   
   ACTIVATE MENU oPop  AT nR, nC OF oWnd

Return oMenuItem 

That works on my end.

Thank you.