by Cgallegoa » Wed Feb 22, 2023 9:26 pm
- Code: Select all Expand view
#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,
Saludos,
Carlos Gallego
*** FWH-24.07, xHarbour 1.3.1 Build 20240624, Borland C++7.70, PellesC ***