FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour multi-column popup menu
Posts: 990
Joined: Thu Nov 17, 2005 05:49 PM
Re: multi-column popup menu
Posted: Mon Mar 03, 2025 02:32 PM
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:
//----------------------------------------------------------------------------//
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.

Continue the discussion