load a popmenu from urlink
Posted: Tue Feb 21, 2023 12:15 pm
- Code: Select all Expand view
- #include "FiveWin.ch"
function Main()
local oDlg, oUrlLink
DEFINE DIALOG oDlg RESOURCE "test" COLOR "N/B"
oUrlLink = TUrlLink():Redefine( 100, oDlg,,, "www.fivetechsoft.com",, CLR_GRAY, CLR_WHITE, CLR_YELLOW, .T. )
oUrlLink:bAction = { || ShowPopup() }
ACTIVATE DIALOG oDlg CENTERED
return nil
Function ShowPopMenu()
local oMenu
MENU oMenu POPUP
MenuItem "one"
MenuItem "two"
endMenu
endmenu
return oMenu