nTargetRow = (OBJTOCLIENT(THIS.Btn1, 1) + THIS.Btn1.HEIGHT)/(_screen.height/srows()) nTargetCol = OBJTOCLIENT(THIS.Btn1, 2)/(_screen.width/scols())?
>* *** i can not use scalemode as this interferes with the Outlook ListBar >* *** (downloadeble in the download section) >* *** OldFormScaleUnit = THISFORM.SCALEMODE >* *** OldScreenScaleUnit = _SCREEN.SCALEMODE >* *** THISFORM.SCALEMODE = 0 >* *** _SCREEN.SCALEMODE = 0 > >* *** THISFORM.SCALEMODE = OldFormScaleUnit >* *** _SCREEN.SCALEMODE = OldScreenScaleUnit > >* *** seems to returns in pixels >nTargetRow = OBJTOCLIENT(THIS.Btn1, 1) + THIS.Btn1.HEIGHT >nTargetCol = OBJTOCLIENT(THIS.Btn1, 2) > >* *** for simplizity i've take out the border/titlebar calculation > >DEFINE POPUP m_MenuButtons SHORTCUT RELATIVE margin >*DEFINE POPUP m_MenuButtons SHORTCUT RELATIVE FROM m.nTargetRow, m.nTargetCol > >DEFINE BAR m.i OF m_MenuButtons ; > PROMPT "Test" > >* *** seems to need need foxels >ACTIVATE POPUP m_MenuButtons at m.nTargetRow, m.nTargetCol>