load a popmenu from urlink

[Silvio.Falconi]

Code: Select all  Expand view  RUN

#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

[Cgallegoa]

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "URLLink.ch"

function Main()

   local oDlg, oUrlLink, oFont1

   DEFINE FONT oFont1 NAME "Verdana" SIZE 0,-18

   DEFINE DIALOG oDlg SIZE 800,400 COLOR "N/B" PIXEL TRUEPIXEL FONT oFont1

  // oUrlLink = TUrlLink():Redefine( 100, oDlg,,, "www.fivetechsoft.com",, CLR_GRAY, CLR_WHITE, CLR_YELLOW, .T. )
   @ 10,10 URLLINK oUrlLink OF oDlg PIXEL URL "www.fivetechsoft.com" FONT oFont1;
            CLRINIT nRGB(100,255,0) CLROVER nRGB(50,150,0)

   oUrlLink:bAction = { || ShowPopupMenu(oDlg, oUrlLink) }

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont1
return nil

Function ShowPopupMenu(oDlg, oUrlLink)
local oMenu, nRow := oUrlLink:nTop + oUrlLink:nHeight - 1
MENU oMenu POPUP
   MenuItem "one"
   MenuItem "two"
  // endMenu
endmenu

ACTIVATE POPUP oMenu OF oDlg AT nRow , 20  

return oMenu

Regards,