Activate first item on popup menu

[AlexSchaft]

Hi,

When a popup menu is activated, the highlight is not show, and the user must first press up or down to see the highlight. Is there a way to automatically highlight the first item?

Alex

[Antonio Linares]

Alex,

In samples\TestPop.prg please insert this line:

Code: Select all  Expand view  RUN

function ShowPopup( nRow, nCol )

   oMenu := BuildPopup()

   // This one!
   oMenu:aItems[ 1 ]:bWhen = { || oMenu:oWnd := oWnd, oMenu:Hilite( 1 ), oMenu:aItems[ 1 ]:bWhen := nil }

   ACTIVATE POPUP oMenu WINDOW oWnd AT nRow, nCol

return nil


[AlexSchaft]

Hi,

The highlight seems to work, but the menu still "thinks" it is not highlighted, as you must press down twice to get off the first row. Is there a way around this?

Alex

[Antonio Linares]

Alex,

You could try to send a WM_KEYDOWN to the popup:

SendMessage( oPopup:hMenu, WM_KEYDOWN, VK_DOWN )