WebGadget

MetalOS · Message par **MetalOS** » dim. 27/août/2006 11:35

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.

Anonyme · Message par **Anonyme** » dim. 27/août/2006 12:27

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

@++

MetalOS · Message par **MetalOS** » dim. 27/août/2006 14:23

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.

Anonyme · Message par **Anonyme** » dim. 27/août/2006 14:32

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

Le webgadget fait en fonction de la page à afficher.

@++

MetalOS · Message par **MetalOS** » dim. 27/août/2006 22:11

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?

Anonyme · Message par **Anonyme** » dim. 27/août/2006 22:55

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

@++

MetalOS · Message par **MetalOS** » lun. 28/août/2006 12:59

Comment fait tu pour appliquer ton code sur le webgadget ?

Anonyme · Message par **Anonyme** » lun. 28/août/2006 13:33

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

@++

MetalOS · Message par **MetalOS** » lun. 28/août/2006 14:52

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.

Anonyme · Message par **Anonyme** » lun. 28/août/2006 15:10

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

@++

MetalOS · Message par **MetalOS** » mar. 29/août/2006 7:51

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.

Anonyme · Message par **Anonyme** » mar. 29/août/2006 8:39

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...