Page 1 of 1

Activate first item on popup menu

Posted: Wed Jun 13, 2007 8:46 am
by 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

Posted: Wed Jun 13, 2007 8:59 am
by Antonio Linares
Alex,

In samples\TestPop.prg please insert this line:

Code: Select all

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

Highlighting

Posted: Tue Jun 19, 2007 12:11 pm
by 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

Posted: Tue Jun 19, 2007 5:54 pm
by Antonio Linares
Alex,

You could try to send a WM_KEYDOWN to the popup:

SendMessage( oPopup:hMenu, WM_KEYDOWN, VK_DOWN )