I try to display a popup-menu in a listbox when the user dblclick on a listitem.
But %LB_GETITEMRECT does not seem to return correct values.(Always 0)
Any Ideas How to do this?
------------------
Fred
mailto:[email protected][email protected]</A>
http://www.oxenby.se
But %LB_GETITEMRECT does not seem to return correct values.(Always 0)
Any Ideas How to do this?
Code:
CallBack Function CBF_LISTBOX() Static Li&,LiTxt$,Id&,hPopUp& Local R As RECT If CBCtlMsg = %LBN_DBLCLK Then LiTxt$=Space$(300) Control Send CBHndl,CBCtl,%LB_GETCURSEL,0,0 To Li& If Li& = %LB_ERR Then Exit Function Control Send CBHndl,CBCtl,%LB_GETTEXT,Li&,StrPtr(LiTxt$) To Li& If Li& = %LB_ERR Then Exit Function LiTxt$ = Trim$(Left$(LiTxt$,Li&)) Select Case CBHndl Case ghDlg_Logg Case ghDlg_Gate Case ghDlg_Jobb Case ghDlg_DtaQ Case ghDlg_AlertQue Case ghDlg_AlertHold Case ghDlg_ErrList If Li& > -1 Then SendMessage CBlParam,%LB_GETITEMRECT,Li&,ByVal VarPtr(R) MsgBox Str$(R.nleft)+Str$(R.nTop) Menu New Popup To hPopup& Menu Add String, hPopup&, "Visa Transaktionen",900, %MF_ENABLED Menu Add String, hPopup&, "-",901, %MF_ENABLED Menu Add String, hPopup&, "Radera list-raden", 902, %MF_ENABLED Menu Add String, hPopup&, "Best Choice", 903, %MF_ENABLED Id& =TrackPopupMenu(hPopup&, %TPM_LEFTALIGN Or %TPM_RIGHTBUTTON Or %TPM_RETURNCMD,ByVal R.nRight,ByVal R.nBottom, 0,CBHndl, ByVal 0) MsgBox "Meny = " & Format$(Id&) End If End Select End If End Function
Fred
mailto:[email protected][email protected]</A>
http://www.oxenby.se
Comment