PureBasic

Slt à tous
quelqu'un peu me confirmer si ce code fonctionne avec la version 4.10 de PB et surtout en mode unicode.
le problème que j'ai est le suivant: le lien n'apparirait que si le pointeur est le lien

Code : Tout sélectionner

Enumeration 
  #Window_0 
EndEnumeration 
Enumeration 
  #HyperLink_0 
EndEnumeration 
Define.l Event, EventWindow, EventGadget, EventType, EventMenu 
Procedure OpenWindow_Window_0() 
  If OpenWindow(#Window_0, 379, 382, 374, 87, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar) 
    If CreateGadgetList(WindowID(#Window_0)) 
      HyperLinkGadget(#HyperLink_0, 55, 10, 265, 25, "www.pc-dev.new.fr", #Blue) 
    EndIf 
  EndIf 
EndProcedure 

OpenWindow_Window_0() 

Repeat 
  Event = WaitWindowEvent() 
  Select Event 
    Case #PB_Event_Gadget 
      EventGadget = EventGadget() 
      EventType = EventType() 
      If EventGadget = #HyperLink_0 
      EndIf 
    Case #PB_Event_CloseWindow 
      EventWindow = EventWindow() 
      If EventWindow = #Window_0 
        CloseWindow(#Window_0) 
        Break 
      EndIf 
  EndSelect 
ForEver

chez moi ça marche !!

je vois le lien des le debut avant d'aller dessus !!

mode unicode ou pas c'est pareil !! , ça marche !

c'est quand meme bizarre.
edité
parfois j'ai l'impression que les spaciens viennent rendre visite à mon PC.

Merci Dobro

PureBasic

hyperlink gadget a un problème avec le mode unicode ou ?

hyperlink gadget a un problème avec le mode unicode ou ?