PureBasic Forums - English

Code: Select all

UseJPEGImageDecoder()
InitNetwork()

Enumeration
  #MainWindow
  #WebWindow
  #HyperLink1
  #HyperLink2
  #HyperLink3
  #img1
  #img2
  #img3
EndEnumeration

ReceiveHTTPFile("https://www.dropbox.com/s/igu72odknllgcaf/purebasicLogo.jpg?dl=1", 
                GetTemporaryDirectory() + "purebasicLogo.jpg")
imageFile.s = GetTemporaryDirectory() + "purebasicLogo.jpg"
LoadImage(#img1, imageFile)

ReceiveHTTPFile("https://www.dropbox.com/s/ewrlaf3vlobb0k0/googleLogo.jpg?dl=1", 
                GetTemporaryDirectory() + "googleLogo.jpg")
imageFile.s = GetTemporaryDirectory() + "googleLogo.jpg"
LoadImage(#img2, imageFile)

ReceiveHTTPFile("https://www.dropbox.com/s/g0iite3ucfyy196/purebasicForum.jpg?dl=1", 
                GetTemporaryDirectory() + "purebasicForum.jpg")
imageFile.s = GetTemporaryDirectory() + "purebasicForum.jpg"
LoadImage(#img3, imageFile)

wFlags = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
OpenWindow(#MainWindow, #PB_Any, #PB_Any, 700, 500, "Hyperlinked Images", wFlags)
WebGadget(#WebWindow, 10, 120, 680, 360, "http://www.purebasic.com") 
ImageGadget(#HyperLink1, 10, 10, 200, 100, ImageID(#img1))
ImageGadget(#HyperLink2, 250, 10, 200, 100, ImageID(#img2))
ImageGadget(#HyperLink3, 490, 10, 200, 100, ImageID(#img3))

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      appQuit = 1
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #HyperLink1
          Select EventType()
            Case #PB_EventType_LeftClick
              SetGadgetText(#WebWindow, "http://www.purebasic.com")
          EndSelect
        Case #HyperLink2
          Select EventType()
            Case #PB_EventType_LeftClick
              SetGadgetText(#WebWindow, "http://www.google.com")
          EndSelect
        Case #HyperLink3
          Select EventType()
            Case #PB_EventType_LeftClick
              SetGadgetText(#WebWindow, "http://www.purebasic.fr/english/viewtopic.php?p=445070#p445070")
          EndSelect
      EndSelect
  EndSelect
Until appQuit = 1