et voici le problemme rencontré :
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 !!!
pouvez vous confirmer ce fait en testant a votre tour ?
ps : mon petit navigateur se connecte sur le forum si il n'y a rien dans la barre d'adresse , et que l'on clique sur OK
Merci pour vos Rapports
c'est peut etre bien un Bug decouvert !
voici le code de base (il devrai marcher directe chez vous ..)
;- 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
;
aille amme note une-dere-stande ! 
