Page 1 sur 1
redimensioner un webgadget
Publié : lun. 14/juin/2004 18:09
par garzul
Bonjour je voudrais redimensioner ma fenetre en prenan en compte le webgadget quil y a dedans regardez et essayez
Code : Tout sélectionner
If OpenWindow(1,0,0,600,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget |#PB_Window_MaximizeGadget |#PB_Window_SizeGadget ,"WebGadget") And CreateGadgetList(WindowID(1))
WebGadget(1,20,30,WindowWidth()-20,WindowHeight()-60,"http://www.purebasic.fr")
StringGadget(0,150, 5,306,20,"http://www.")
AddKeyboardShortcut(1, #PB_Shortcut_Return, 1)
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Menu
MenuID = EventMenuID()
If MenuID = 1
url$=GetGadgetText(0)
If Left(url$, 7) = "http://"
SetGadgetText(1, url$)
EndIf
EndIf
EndIf
Delay(1)
Until Event = #PB_Event_CloseWindow
EndIf
AIDEZ MOI (HELP ME)
Publié : lun. 14/juin/2004 18:36
par Oliv
Code : Tout sélectionner
If OpenWindow(1,0,0,600,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget |#PB_Window_MaximizeGadget |#PB_Window_SizeGadget ,"WebGadget") And CreateGadgetList(WindowID(1))
WebGadget(1,20,30,WindowWidth()-20,WindowHeight()-60,"http://www.purebasic.fr")
StringGadget(0,150, 5,306,20,"http://www.")
AddKeyboardShortcut(1, #PB_Shortcut_Return, 1)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Menu
MenuID = EventMenuID()
If MenuID = 1
url$=GetGadgetText(0)
If Left(url$, 7) = "http://"
SetGadgetText(1, url$)
EndIf
EndIf
Case #WM_SIZE
WebGadget(1,20,30,WindowWidth()-20,WindowHeight()-60,"http://www.purebasic.fr")
EndSelect
Delay(1) ; POURQUOI ?????
Until Event = #PB_EventCloseWindow
EndIf
Publié : lun. 14/juin/2004 20:34
par Oliv
Par contre, mon exemple gène un peu pour le reste du prog qu'il veut faire, quelqu'un pourrait donner la constante du style #WM_MaximizeWindow parce que je m'en rappelle plus
Publié : mar. 15/juin/2004 8:48
par Jacobus
Salut,
J'avais pris ça sur le Forum plutôt que de rechercher
je le remet ici :
Code : Tout sélectionner
;Maximiser une fenêtre:
SendMessage_(WindowID(0),#WM_SYSCOMMAND,#SC_MAXIMIZE,0)
;Minimiser une fenêtre:
SendMessage_(WindowID(0),#WM_SYSCOMMAND,#SC_MINIMIZE,0)
;Dans le même genre:
;active le menu démarrer!
SendMessage_(WindowID(0),#WM_SYSCOMMAND,#SC_TASKLIST,0)
;Pour minimiser: #SC_MINIMIZE
;Pour restaurer:#SC_RESTORE
;exemple code de fenêtre
OpenWindow(1, 200, 200, 100, 100, #PB_Window_SystemMenu |#PB_Window_MaximizeGadget | #WS_MAXIMIZE, "Maximizer")
Repeat
Until WaitWindowEvent() = #WM_CLOSE
Publié : mar. 15/juin/2004 10:54
par Oliv
oui ça c'est quand on veut l'agrandir, mais la constante que l'on a avec WaitWindowEvent() quand on agrandi une fenêtre, c'est quoi ?
Publié : ven. 18/juin/2004 13:54
par Zapio
Salut a tous
C'est #PB_Event_SizeWindow pour redessiner une fenêtre a chaque fois qu'on change sa taille
Publié : ven. 18/juin/2004 15:05
par Oliv
Merci
Publié : ven. 18/juin/2004 15:43
par nico
Zapio a écrit :Salut a tous
C'est #PB_Event_SizeWindow pour redessiner une fenêtre a chaque fois qu'on change sa taille
Mais tu l'utilises dans ton prog, #WM_SIZE c'est pareil Oliv !
Publié : ven. 18/juin/2004 15:49
par Fred
If vaut mieux utiliser ResizeGadget() au lieu de recreer un nouveau gadget a chaque fois. C'est bien plus rapide:
Code : Tout sélectionner
If OpenWindow(1,0,0,600,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget |#PB_Window_MaximizeGadget |#PB_Window_SizeGadget ,"WebGadget") And CreateGadgetList(WindowID(1))
WebGadget(1,20,30,WindowWidth()-20,WindowHeight()-60,"http://www.purebasic.fr")
StringGadget(0,150, 5,306,20,"http://www.")
AddKeyboardShortcut(1, #PB_Shortcut_Return, 1)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Menu
MenuID = EventMenuID()
If MenuID = 1
url$=GetGadgetText(0)
If Left(url$, 7) = "http://"
SetGadgetText(1, url$)
EndIf
EndIf
Case #WM_SIZE
ResizeGadget(1,-1,-1,WindowWidth()-20,WindowHeight()-60)
EndSelect
Delay(1) ; POURQUOI ?????
Until Event = #PB_EventCloseWindow
EndIf