Maybe
Code: Select all
LoadFont(0,"Tahoma",12,#PB_Font_HighQuality)
;LoadFont(1,"Tahoma",12,#PB_Font_HighQuality|#PB_Font_Underline)
OpenWindow(1,0,0,400,500,"Hyperlink Test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
EditorGadget(1,10,10,380,480,#WS_CLIPSIBLINGS)
AddGadgetItem(1,-1,"In case of emergecy Visit PureBasic to get help")
AddGadgetItem(1,-1,"Have fun")
HyperLinkGadget(2,160,12,106,22,"Visit PureBasic", #Red,#PB_HyperLink_Underline|#WS_CLIPSIBLINGS)
SetGadgetColor(2,#PB_Gadget_BackColor,#White)
SetGadgetColor(2,#PB_Gadget_FrontColor,#Gray)
BringWindowToTop_(GadgetID(2))
SetGadgetFont(1,FontID(0))
SetGadgetFont(2,FontID(0))
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Menu
Select EventMenu()
Case 1
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case 1
EndSelect
Case #WM_LBUTTONDOWN
Case #WM_LBUTTONUP,#PB_Event_LeftClick
GetWindowRect_(GadgetID(2),r.RECT)
GetCursorPos_(p.POINT)
If PtInRect_(r,p\y << 32 + p\x)
ShellExecute_(0,"open","http://www.purebasic.com",0,0,#SW_SHOWNORMAL)
EndIf
EndSelect
Until Quit = 1
End