Stringadget qui ne s'affiche pas convenablement.
Publié : sam. 25/mars/2006 19:40
Salut,
J'ai un stringadget qui me fait les 400 coups lol
Je m'explique, la fenêtre s'ouvre, les textgadget s'affiche bien, mais si je ne bouge pas la fenêtre et bien le stringgadget n'est pas visible (ou alors cliquer sur l'endroit où il se trouve).
voici une partie du code :
Les procedures d'ouvertures des fenêtres :
L'ouverture de la fenêtre préférences :
Pouvez vous me dire d'où vien le problème ?
Merci d'avance pour votre aide.
J'ai un stringadget qui me fait les 400 coups lol
Je m'explique, la fenêtre s'ouvre, les textgadget s'affiche bien, mais si je ne bouge pas la fenêtre et bien le stringgadget n'est pas visible (ou alors cliquer sur l'endroit où il se trouve).
voici une partie du code :
Les procedures d'ouvertures des fenêtres :
Procedure fenetre_principale()
If OpenWindow ( #fenetre_principale , 0, 0, 355, 90, #PB_Window_WindowCentered | #PB_Window_BorderLess | #WS_THICKFRAME , "RapidSend" )
AddSysTrayIcon (0, WindowID (), LoadImage ( #image_systray , "systray.ico" ))
SetWindowCallback (@WindowCallback())
CreateGadgetList ( WindowID ())
TextGadget ( #gadget_text_recepteur , 10, 10, 90, 17, "IP récepteur : " )
StringGadget ( #gadget_string_recepteur , 115, 10, 100, 17, "" )
;ButtonGadget(#gadget_bouton_listerecepteur, 225, 10, 60, 17, "Liste")
TextGadget ( #gadget_text_fichier , 10, 40, 90, 17, "Chemin du fichier :" )
StringGadget ( #gadget_string_fichier , 115, 40, 160, 17, "" )
ButtonImageGadget ( #gadget_bouton_parcourir , 285, 40, 70, 20, UseImage (bouton_parcourir))
ButtonImageGadget ( #gadget_bouton_envoyer , 147, 65, 75, 25, UseImage ( #image_b_envoyer ))
ButtonImageGadget ( #gadget_bouton_close , 332, 0, 23, 23, UseImage ( #image_b_close ))
ButtonImageGadget ( #gadget_bouton_help , 310, 0, 23, 23, UseImage ( #image_b_help ))
EndIf
EndProcedure
Procedure fenetre_preferences()
If OpenWindow ( #fenetre_preferences , 0, 0, 355, 90, #PB_Window_SystemMenu | #PB_Window_WindowCentered , "Préférences" )
CreateGadgetList ( WindowID ())
TextGadget ( #gadget_text_client , 127, 10, 100, 20, "Informations client" , #PB_Text_Center )
TextGadget ( #gadget_text_utilisateur , 10, 30, 95, 20, "Nom d'utilisateur :" )
StringGadget ( #gadget_string_utilisateur , 100, 30, 80, 20, "Utilisateur" )
EndIf
EndProcedure
L'ouverture de la fenêtre préférences :
If Event = #PB_Event_SysTray
If EventType () = #PB_EventType_RightClick
DisplayPopupMenu (0, WindowID ())
EndIf
EndIf
If event = #PB_Event_Menu
Select EventMenuID ()
Case 1
fenetre_preferences()
Case 2
End
EndSelect
EndIf
Pouvez vous me dire d'où vien le problème ?
Merci d'avance pour votre aide.
(je vais reverifier ces point encore... c'est bizar car je suis sur de ne pas avoir fait de faute.. enfin bon c'est pas grave je vais encore regarder)