CreatePanel:TGadget(10,10,80,80,Window:TGadget,PANEL_ACTIVE,"PlainPanel1")

   Local Button1:TGadget = CreateButton:TGadget("Button1",26,23,75,23,Window1:TGadget,BUTTON_PUSH)
      Local Pixmap_Button1:TPixmap = LoadPixmapPNG:TPixmap ( "MyPixmap.png" )
      SetGadgetPixmap( Button1:TGadget , Pixmap_Button1:TPixmap ,GADGETPIXMAP_ICON|GADGETPIXMAP_NOTEXT )

Strict

Import maxgui.drivers


Function MyFunction ()
   Print "Hallo, ich bin der Callback und du hast mich aktiviert"
End Function


Local Window:TGadget = CreateWindow ("Hyperlink-Callback-Test",100,100,200,200,Desktop())
Local HyperTest:TGadget = CreateMyHyperLink ("www.blitzforum.de",10,10,200,20,Window,0,"BlitzBasicPortal-Callback", MyFunction)
Local HyperTest2:TGadget = CreateMyHyperLink ("www.blitzforum.de",10,30,200,20,Window,0,"BlitzBasicPortal-RealLink",Null)

Repeat
   Select WaitEvent ()
      Case EVENT_WINDOWCLOSE
         End
   End Select
Forever
End


Rem
bbdoc: Creates a basic hyperlink gadget that opens the specified @url$ in the default browser when clicked.
about: The underlying gadget is a label, and so the @style parameter can take all the #CreateLabel flags apart from LABEL_SEPARATOR.

The normal and roll-over text color can be set individually using #SetGadgetTextColor and #SetGadgetColor respectively.

The optional @customtext$ parameter allows you to set user-friendly text that masks the URL in the label. If this is specified in #CreateHyperlink
then the label's tooltip is automatically set to the URL the link refers to. This masking text can be changed at any time by calling #SetGadgetText.
Finally, the @url$ that the hyperlink gadget opens can be modified/retrieved using #SetGadgetExtra and String( #GadgetExtra )
respectively (see code example).
End Rem
Function CreateMyHyperlink:TGadget( url$,x,y,w,h,group:TGadget,style=0,customtext$ = "", CallBack () = Null)
   Local Gadget:TMyHyperlinkGadget = New TMyHyperlinkGadget.Create(url,x,y,w,h,group,style,customtext)
   Gadget.CallBack = CallBack
   Return Gadget
EndFunction

Type TMyHyperlinkGadget Extends TProxyGadget
   
   Global lstHyperlinkGadgets:TList
   
   Global fntDefault:TGuiFont, fntHoverDefault:TGuiFont
   
   Field hyperlinkstyle%
   Field colors[][] = [[0,0,255],[255,0,0]]
   
   Field lastclick[] = [-1, -1]
   Field Callback()
   
   
   Method New()
      If Not lstHyperlinkGadgets Then Initialize()
   EndMethod
   
   Method Create:TMyHyperlinkGadget(pUrl$,x,y,w,h,group:TGadget,style,customtext$)
      
      If Not customtext Then customtext = pUrl$
      If (style&LABEL_SEPARATOR) = LABEL_SEPARATOR Then style:&~LABEL_SEPARATOR
      
      Local tmpLabel:TGadget = CreateLabel( customtext, x, y, w, h, group, style&31 )
      If Not tmpLabel Then Return Null Else SetGadgetSensitivity(tmpLabel, SENSITIZE_MOUSE)
      
      SetGadgetFont(tmpLabel,fntDefault)   
      
      If customtext <> pUrl Then SetGadgetToolTip( tmpLabel, pUrl )
      
      SetProxy( tmpLabel );Super.SetTextColor(colors[0][0], colors[0][1], colors[0][2])
      
      hyperlinkstyle = style;extra = pUrl
      lstHyperlinkGadgets.AddLast Self
      
      
      Self.Callback = Callback
      
      Return Self
      
   EndMethod
   
   Method EventHook:TEvent( pEvent:TEvent )
      
      Select pEvent.id
      
         Case EVENT_MOUSEENTER
            Super.SetTextColor(colors[1][0], colors[1][1], colors[1][2]);SetPointer(POINTER_HAND)
            Super.SetFont( fntHoverDefault )
         Case EVENT_MOUSELEAVE
            Super.SetTextColor(colors[0][0], colors[0][1], colors[0][2]);SetPointer(POINTER_DEFAULT)
            Super.SetFont( fntDefault )
            
         Case EVENT_MOUSEDOWN
            If lastclick[0] <> pEvent.x Or lastclick[1] <> pEvent.y
               lastclick = [pEvent.x,pEvent.y]

               '-----------------------------------------------------
               ' Callback aufrufen wenn vorhanden sonst Hyperlink
               '-----------------------------------------------------
               If Self.Callback
                  Self.Callback ()
               Else
                  OpenURL(String(extra))
               EndIf
            EndIf
      EndSelect
      
      Return Null
   
   EndMethod
   
   Method SetFont( font:TGuiFont )
      fntDefault = font;fntHoverDefault = font
      Super.SetFont(font)
   EndMethod
   
   Method SetColor(r,g,b)
      colors[1][0] = r;colors[1][1] = g;colors[1][2] = b
   EndMethod
   
   Method SetTextColor(r,g,b)
      colors[0][0] = r;colors[0][1] = g;colors[0][2] = b
      Super.SetTextColor(colors[0][0], colors[0][1], colors[0][2])
   EndMethod
   
   Method Free()
      lstHyperlinkGadgets.Remove(Self)
      Super.Free()
   EndMethod
   
   Function Initialize()
      lstHyperlinkGadgets = New TList
      AddHook EmitEventHook, eventHandler, Null, 1
      fntDefault = LookupGuiFont( GUIFONT_SYSTEM, 0, 0 )
      fntHoverDefault = LookupGuiFont( GUIFONT_SYSTEM, 0, FONT_UNDERLINE )
   EndFunction
   
   Function eventHandler:Object( pID%, pData:Object, pContext:Object )
      Local pEvent:TEvent = TEvent(pData)
      
      If pEvent Then
         For Local tmpHyperlinkGadget:TMyHyperlinkGadget = EachIn lstHyperlinkGadgets
            If tmpHyperlinkGadget.proxy = pEvent.source Then Return tmpHyperlinkGadget.EventHook( pEvent )
         Next
      EndIf
      
      Return pData
   EndFunction
   
EndType

SuperStrict

Import maxgui.drivers

Local Window1:TGadget = CreateWindow:TGadget("Window1",269,130,319,148,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_STATUS |WINDOW_CLIENTCOORDS )
   Local Label1:TGadget = CreateLabel:TGadget("Oeffne Arbeitsplatz",22,30,106,17,Window1:TGadget,Null)
      SetGadgetSensitivity( Label1:TGadget,SENSITIZE_MOUSE )

Repeat
   WaitEvent()
   Select EventID()
      Case EVENT_WINDOWCLOSE
         Select EventSource()
            Case Window1   Window1_WC( Window1:TGadget )
         End Select

      Case EVENT_MOUSEDOWN
         Select EventSource()
            Case Label1   Label1_MD( Label1:TGadget , EventData() , Window1:TGadget )
         End Select

   End Select
Forever

Function Window1_WC( Window:TGadget )
   DebugLog "Window Window1 wants to be closed"

   End
End Function

Function Label1_MD( Label:TGadget , MouseButton:Int , Window:TGadget=Null , expanded:Int=True)
   DebugLog "Label Label1 detected Mouse Button "+ MouseButton +" pressed down"
   'hier dein code einsetzen
   
   'z.b. einen explorer oeffnen
   Local str:String
   If expanded Then str="/e,"
   system_("explorer.exe "+str+"::{20D04FE0-3AEA-1069-A2D8-08002B30309D}") 'Arbeitsplatz oeffnen
   
End Function