redimensioner un webgadget

[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)

[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

[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

[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 

[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 ?

[Zapio]

Salut a tous

C'est #PB_Event_SizeWindow pour redessiner une fenêtre a chaque fois qu'on change sa taille

[Oliv]

Merci

[nico]

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 !

[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