PureBasic

Salut tous le monde,

Comment faire sur un Web gaget pour mettre un scroolbar horizontale car par default il y en a un mais que en verticale, et pour mon application il me faudrais les deux.Merci.

En regardant l'exemple(pb4) fournis , il y a bien les 2 scroolbar. Tu utilises quel version de PB, ton problème peut venir de là ?

Code : Tout sélectionner

If OpenWindow(0,0,0,600,300,"WebGadget",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
    WebGadget(0,10,10,580,280,"http://www.purebasic.com")
    ; Note: si vous désirez utiliser un fichier local, changez le dernier paramètre en "file://" + chemin + nomdufichier
    Repeat 
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

@++

Ben pourtant j'utilise la version 4 de pb mais j'ais fait l'interface de mon application avec visual designer c peut etre pour ca.

Rajoute l'url dans windows designer, tu veras que tu auras les 2 scroolbars.

Le webgadget fait en fonction de la page à afficher.

@++

Bon g reinstaller pb et tous remarche maintenant, c du délir lol. J'aurais une autre question, à savoir comment ont fait pour mettre en pleine ecran le webgadget en meme temp que je maximize le window?

Un coup de ResizeGadget()? Arrange toi pour garder une proportion H/L
Afin de ne pas de mauvaise surprises

V'la un truc codé vite fait pour garder la proportion d'une valeur par rapport à une taille

- Size Correspond à la taille d'origine
- NewResolution , c'est la nouvelle resolution (ecran, taille de fenetre, etc...)

Code : Tout sélectionner

Procedure Echelle(Size,NewResolution.l)
Static Resultat.f
Resultat = NewResolution * Size / 1024  ; 1024 Largeur de mon ecran
  ProcedureReturn Resultat
   EndProcedure
   
   
   Debug "Convertion de taille d'une taille d'origine de 128px"
   Debug "----------------------------------------------------"
   Debug "Taille pour un ecran de 1024 = "+ Str(Echelle(128,1024))
   Debug "Taille pour un ecran de 512  = "+ Str(Echelle(128,512))
   Debug "Taille pour un ecran de 384  = "+ Str(Echelle(128,384))

@++

Comment fait tu pour appliquer ton code sur le webgadget ?

Ba, en utilisant resizegadget().

Un code parle toujours mieux

Code : Tout sélectionner

Procedure Convert(Size,NewResolution.l,OriginWindowSize.l) 
Static Resultat.f 
Resultat = NewResolution * Size / OriginWindowSize 
  ProcedureReturn Resultat 
   EndProcedure 
   

 If OpenWindow(0,0,0,600,300,"WebGadget",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget) And CreateGadgetList(WindowID(0))
    WebGadget(0,10,10,580,280,"http://www.purebasic.com")
    ; Note: si vous désirez utiliser un fichier local, changez le dernier paramètre en "file://" + chemin + nomdufichier
    Repeat 
      Event.l = WindowEvent()
    
    Select Event
        Case #PB_Event_SizeWindow
        ResizeGadget(0, 10, 10, Convert(580,WindowWidth(0),600), Convert(280,WindowHeight(0),300))
    EndSelect
    
    Until Event = #PB_Event_CloseWindow
  EndIf

@++

Merci pour ton aide,mais ce que je cherche c que quand je clique sur le petit carre de ma fenetre window pour l'agrandir en pleine ecran, que le web gadget s'agrandise lui aussi et qu'il garde de bonne proportion pour une lecture de page web optimale.

Tu n'a qu'a juste rajouté : #PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget

Code : Tout sélectionner

Procedure Convert(Size,NewResolution.l,OriginWindowSize.l) 
Static Resultat.f 
Resultat = NewResolution * Size / OriginWindowSize 
  ProcedureReturn Resultat 
   EndProcedure 
    

 If OpenWindow(0,0,0,800,500,"WebGadget",#PB_Window_SystemMenu|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget) And CreateGadgetList(WindowID(0)) 
    WebGadget(0,10,10,750,450,"http://www.purebasic.com") 
    ; Note: si vous désirez utiliser un fichier local, changez le dernier paramètre en "file://" + chemin + nomdufichier 
    Repeat 
      Event.l = WindowEvent() 
    
    Select Event 
        Case #PB_Event_SizeWindow 
        ResizeGadget(0, 10, 10, Convert(780,WindowWidth(0),800), Convert(480,WindowHeight(0),500)) 
    EndSelect 
    
    Until Event = #PB_Event_CloseWindow 
  EndIf

@++

Bon ok j'ai trouver le probleme, et c windows de mer..., maintenant que c formater et reinstaller completement tous marche nikel, un grand merci à toi pour ton aide.

Radical , mais efficace

j'vais pas tarder à en faire autant, j'ai un windows acheter legalement et depuis peu il me dit que j'ai une version invalide

et il me propose d'en racheté un...