PureBasic

;- Window Constants
;
Enumeration
     #Window_navig
EndEnumeration

;- Gadget Constants
;
Enumeration
     #String_adresse
     #Button_ok
     #ButtonImage_retour
     #ButtonImage_aller
     #ButtonImage_repete
     #ButtonImage_stop
     #Web_0
EndEnumeration


EcranX = GetSystemMetrics_ ( #SM_CXSCREEN ): ;=largeur de l'ecran
EcranY = GetSystemMetrics_ ( #SM_CYSCREEN ): ;=hauteur de l'ecran


;- Image Plugins

;- Image Globals
Global Image0, EcranX,EcranY
Global Image1
Global Image2
Global Image3

;- Catch Images
; Image0 = CatchImage(0, ?Image0)
; Image1 = CatchImage(1, ?Image1)
; Image2 = CatchImage(2, ?Image2)
; Image3 = CatchImage(3, ?Image3)

; ;- Images
; DataSection
; Image0:
; IncludeBinary "D:\purebasic\PureBasic\dobro\Dobro creation\colorer\retour.bmp"
; Image1:
; IncludeBinary "D:\purebasic\PureBasic\dobro\Dobro creation\colorer\aller.bmp"
; Image2:
; IncludeBinary "D:\purebasic\PureBasic\dobro\Dobro creation\colorer\repete.bmp"
; Image3:
; IncludeBinary "D:\purebasic\PureBasic\dobro\Dobro creation\colorer\stop.bmp"
; EndDataSection

Procedure Open_Window_navig()
     If OpenWindow ( #Window_navig , 206, 0, EcranX, 692, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar|#PB_Window_ScreenCentered , "navig_colorer" )
         If CreateGadgetList ( WindowID ())
             StringGadget ( #String_adresse , 40, 30, 600, 20, "http://purebasic.hmt-forum.com/index.php" )
             ButtonGadget ( #Button_ok , 650, 20, 50, 30, "OK" )
             ; ***************** Bouton avec images ************************
             ; ButtonImageGadget(#ButtonImage_retour, 40, 60, 50, 40, Image0)
             ; ButtonImageGadget(#ButtonImage_aller, 100, 60, 50, 40, Image1)
             ; ButtonImageGadget(#ButtonImage_repete, 160, 60, 50, 40, Image2)
             ; ButtonImageGadget(#ButtonImage_stop, 220, 60, 50, 40, Image3)
             ; ************************************************************
             ButtonGadget ( #ButtonImage_retour , 40, 60, 50, 40, "RET" )
             ButtonGadget ( #ButtonImage_aller , 100, 60, 50, 40, "AV" )
             ButtonGadget ( #ButtonImage_repete , 160, 60, 50, 40, "REPT" )
             ButtonGadget ( #ButtonImage_stop , 220, 60, 50, 40, "STOP" )
             ; ************************************************************
             WebGadget ( #Web_0 , 20, 110, EcranX-50, 570, "http://purebasic.hmt-forum.com/index.php" ) ;40, 110, 850, 570
            
         EndIf
     EndIf
EndProcedure



Open_Window_navig()

Repeat ; Start of the event loop
    
    Event = WaitWindowEvent () ; This line waits until an event is received from Windows
     WindowID = EventWindowID () ; The Window where the event is generated, can be used in the gadget procedures
     GadgetID = EventGadgetID () ; Is it a gadget event?
     EventType = EventType () ; The event type
    
     ;You can place code here, and use the result as parameters for the procedures
    
     If Event = #PB_EventGadget
         If GadgetID = #String_adresse ; une adresse a été entrée ?
         ElseIf GadgetID = #Button_ok
            Adresse$ = GetGadgetText ( #String_adresse ) ; on recup l'adresse
             If Adresse$= ""
                Adresse$= "http://purebasic.hmt-forum.com/index.php"
             EndIf
            
             SetGadgetText ( #Web_0 , Adresse$) ; on la pose dans le webgadget
         ElseIf GadgetID = #ButtonImage_retour ; on appuie sur le bouton retour
             SetGadgetState ( #Web_0 , #PB_Web_Back ) ; on envoie la commande au webgadget
         ElseIf GadgetID = #ButtonImage_aller ; on appuie sur le bouton aller
             SetGadgetState ( #Web_0 , #PB_Web_Forward ) ; on envoie la commande au webgadget
         ElseIf GadgetID = #ButtonImage_repete ; on appuie sur le bouton repete
             SetGadgetState ( #Web_0 , #PB_Web_Refresh ) ; on envoie la commande au webgadget
         ElseIf GadgetID = #ButtonImage_stop ; on appuie sur le bouton stop
             SetGadgetState ( #Web_0 , #PB_Web_Stop ) ; on envoie la commande au webgadget
         ElseIf GadgetID = #Web_0
         EndIf
     EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop

End
;

Mais il faut d'abord attribuer des images bitmap existantes pour que cela fonctionne !

lors de la redaction d'un message sur le Forum
on ecrit le text , tout vas bien , mais lors d'un click sur un Smilies
a gauche de la fenetre de redaction du message , le text s'efface
dans la fenetre de redaction

Donc, à mon avis, ça n'est pas tellement un bug du WebGadget, mais plutôt un bug du code php du forum.