>>m.lcPoint = REPLICATE(CHR(0),8) >>>>
Lparameters lcMenuName >>> >>>Local lnx, lny, lnRow, lnCol, lcFontStyle >>> >>>Declare Integer GetCursorPos In win32api As apiGetCursorPos_pemeditor; >>> String @lpPoint >>> >>>Declare Integer ScreenToClient In win32api As apiScreenToClient_pemeditor ; >>> Integer nhWnd, ; >>> String @lpPoint >>> >>>m.lcPoint = 0h0000000000000000 >>> >>>apiGetCursorPos_pemeditor(@m.lcPoint) >>>apiScreenToClient_pemeditor(_Screen.HWnd, @m.lcPoint) >>> >>>m.lnx = CToBin(Substr(m.lcPoint, 1, 4), "4rs") >>>m.lny = CToBin(Substr(m.lcPoint, 5, 4), "4rs") >>> >>>m.lcFontStyle = "" >>> >>>If _Screen.FontBold = .T. Then >>> m.lcFontStyle = m.lcFontStyle + "B" >>>Endif >>> >>>If _Screen.FontItalic = .T. Then >>> m.lcFontStyle = m.lcFontStyle + "I" >>>Endif >>> >>>m.lnCol = m.lnx/Fontmetric(6, _Screen.FontName, _Screen.FontSize, m.lcFontStyle) >>>m.lnRow = m.lny/Fontmetric(1, _Screen.FontName, _Screen.FontSize, m.lcFontStyle) >>> >>>Define Popup (lcMenuName) shortcut Relative From m.lnRow, m.lnCol