very nice!

Code: Select all
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg, oLbx, nItem
DEFINE DIALOG oDlg
@ 0, 0 LISTBOX oLbx VAR nItem
oLbx:bRClicked = { || MyPopup( oLbx ) }
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
STATIC FUNCTION MYPOPUP( oLbx )
LOCAL oMenu
MENU oMenu POPUP
MENUITEM "Test"
ENDMENU
ACTIVATE MENU oMenu OF oLbx
RETURN NIL
Code: Select all
METHOD DrawItem( nIdCtl, nPStruct ) CLASS TListBox
return If( ::lOwnerDraw,;
LbxDrawItem( nPStruct, ::aBitmaps, ::aItems, ::nBmpWidth, ::bDrawItem ),;
Super:DrawItem( nIdCtl, nPStruct ) )
Thank you!Antonio Linares wrote:Thats a listbox bug. This is the fix:Many thanks for your feedbackCode: Select all
METHOD DrawItem( nIdCtl, nPStruct ) CLASS TListBox return If( ::lOwnerDraw,; LbxDrawItem( nPStruct, ::aBitmaps, ::aItems, ::nBmpWidth, ::bDrawItem ),; Super:DrawItem( nIdCtl, nPStruct ) )