PureBasic

bonjour,

voila je commence un navigateur web et je souhaite vous le partager et voir vos opinions .

dites moi se que vous en penser attenetion toutes les fonctions ne fonctionne pas

around_the_world.rar

voila a bientot.

@++

Euh, sauf ton respect, à quoi ca sert de coder un navigateur sous pure puis ce que tu utilises le moteur de IE ou Gekko? (c'est un apriori, mais le contraire m'étonnerait)

Je rebondis sur la reflexion de POSHU pour poser une question.
Sans IE le webgadget ne fonctionne donc pas ???

c'est exact , c'est basé sur ie pour windows et mozilla pour linux.
il va te falloir passé par des fonctions de plus bas niveau pour télécharger l'url visité , puis faire un interpréteur html , et afficher le tout

venom tu va chercher où ces belles icones?

Beaucoup de jolies icones sont disponibles sur www.crystalxp.net

a je ne savais pas que webgadget s'utilise par l'intermediaire de IE

si non mes icones je les ai la :

http://neoimaging.beareyes.com.cn/png/page_01.htm

@++

venom a écrit :a je ne savais pas que webgadget s'utilise par l'intermediaire de IE

Ben si t'avais lu l'aide, c'est écrit en toutes lettres :

Note: Sur Microsoft Windows, ce gadget utilise l'object ActiveX Internet Explorer 4.0+. IE 4.0 ou plus se doit d'être présent sur le système (déjà présent sur Win98/Me et Win2000/XP). Si IE n'est pas présent, WebGadget renvoie 0. Le fichier ATL.dll, présent dans le répertoire PureBasic\Compilers\ est nécessaire (à mettre dans le même répertoire que l'exécutable). Comme alternative, l'ActiveX Mozilla peut être utilisée à la place d'Internet Explorer (http://www.iol.ie/~locka/mozilla/mozilla.htm) si l'option #PB_Web_Mozilla est spécifiée (l'ActiveX Mozilla doit être installée séparément car elle n'est pas fournie avec FireFox ou la suite Mozilla).

pourtant je l'avais deja lu en plus sa mais il y a longtemps

.

@++

Chris a écrit :
Note: Sur Microsoft Windows, ce gadget utilise l'object ActiveX Internet Explorer 4.0+. IE 4.0 ou plus se doit d'être présent sur le système (déjà présent sur Win98/Me et Win2000/XP). Si IE n'est pas présent, WebGadget renvoie 0. Le fichier ATL.dll, présent dans le répertoire PureBasic\Compilers\ est nécessaire (à mettre dans le même répertoire que l'exécutable). Comme alternative, l'ActiveX Mozilla peut être utilisée à la place d'Internet Explorer (http://www.iol.ie/~locka/mozilla/mozilla.htm) si l'option #PB_Web_Mozilla est spécifiée (l'ActiveX Mozilla doit être installée séparément car elle n'est pas fournie avec FireFox ou la suite Mozilla).

J'ai déjà vu ça mais j'ai des applications sous windows utilisant le webgadget et qui n'on pas besoin du fichier ATL.dll je ne comprends pas tres bien ...

Thyphoon a écrit :
Chris a écrit :
Note: Sur Microsoft Windows, ce gadget utilise l'object ActiveX Internet Explorer 4.0+. IE 4.0 ou plus se doit d'être présent sur le système (déjà présent sur Win98/Me et Win2000/XP). Si IE n'est pas présent, WebGadget renvoie 0. Le fichier ATL.dll, présent dans le répertoire PureBasic\Compilers\ est nécessaire (à mettre dans le même répertoire que l'exécutable). Comme alternative, l'ActiveX Mozilla peut être utilisée à la place d'Internet Explorer (http://www.iol.ie/~locka/mozilla/mozilla.htm) si l'option #PB_Web_Mozilla est spécifiée (l'ActiveX Mozilla doit être installée séparément car elle n'est pas fournie avec FireFox ou la suite Mozilla).
J'ai déjà vu ça mais j'ai des applications sous windows utilisant le webgadget et qui n'on pas besoin du fichier ATL.dll je ne comprends pas tres bien ...

Normal, à mon avis. Le fichier Atl.dll est déjà présent dans Windows/System32.
Si le programme ne le trouve pas dans propre son dossier, il utilise celui du systeme.
Enfin, c'est ce que je crois.

poshu a écrit :Euh, sauf ton respect, à quoi ca sert de coder un navigateur sous pure puis ce que tu utilises le moteur de IE ou Gekko? (c'est un apriori, mais le contraire m'étonnerait)

Avoir une interface utilisateur qui te plait, simple, pas surchargée de plein de choses qui ne te servent pas : en gros simple, léger et efficace.... Ah non ça c'est mon rêve

Au delà de la plaisanterie j'ai fait pareil, mais pour avoir le navigateur de mes rêves il me manque la détection des liens qui sont sous la souris. Il y a déjà un code pour sur le forum anglais mais qui fonctionne mal et que sous Windows : si quelqu'un a une idée pour le faire correctement sous Windows et/ou MacOS... (c'est possible, mais comment....)

Venom : Je ne pense pas que ce soit une bonne idée de le mettre à la taille de l'écran : ça cache la barre des taches !

Venom : Je ne pense pas que ce soit une bonne idée de le mettre à la taille de l'écran : ça cache la barre des taches !

je note mais je ne trouve pas comment fait t'on pour que quand je clique sur le bouton agrandir a coté de la croix pour que la fenetre se met en grand, que les gadget suivent automatiquement.

@++

venom a écrit :
Venom : Je ne pense pas que ce soit une bonne idée de le mettre à la taille de l'écran : ça cache la barre des taches !
je note mais je ne trouve pas comment fait t'on pour que quand je clique sur le bouton agrandir a coté de la croix pour que la fenetre se met en grand, que les gadget suivent automatiquement.

@++

Faut faire une callback, détecter le message #WM_Size et mettre des resizegadget.

Inspire toi de celle-là, c'est celle de mon prog de code postal.

Code : Tout sélectionner

Procedure MainCallback(hMain, Msge, wParam, lParam)
  Result = #PB_ProcessPureBasicEvents
  
  Select Msge
    Case #WM_SIZE
      ResizeGadget(#List_Result, #PB_Ignore, #PB_Ignore, WindowWidth(#Window_0) - 165, WindowHeight(#Window_0) - 35)
      ResizeGadget(#Str_Result, #PB_Ignore, WindowHeight(#Window_0) - 25, WindowWidth(#Window_0) - 10, #PB_Ignore)
  EndSelect
  
  ProcedureReturn Result
EndProcedure

merci Chris,

je ne comprend pas bien le fonctionnement de ta procedure donc j'ai essayé de suivre l'aide qui ma mener a ceux-ci :

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Button_0
EndEnumeration

  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      ButtonGadget(#Button_0, 200, 100, 120, 30, "")
      
    EndIf
  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
      Case #WM_SIZE
       ResizeGadget(#Button_0, WindowWidth(#Window_0)-200 , #PB_Ignore, #PB_Ignore, #PB_Ignore)
       
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow

forcement sa ne fonctionne pas

pourtant je renvoie la largeur de la fenetre mais le bouton lui ne bouge pas.
donc j'ai du faire une erreur quelque part car si je fait sa :

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Button_0
EndEnumeration

  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      ButtonGadget(#Button_0, 200, 100, 120, 30, "")
      
    EndIf
  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
      Case #Button_0
       ResizeGadget(#Button_0, WindowWidth(#Window_0)-200 , #PB_Ignore, #PB_Ignore, #PB_Ignore)
       
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow

la sa fonctionne mais je doit cliquer sur le gadget

.

désolé

ps: je suppose que sa doit coincer ici :

Code : Tout sélectionner

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()

mais pas sur

@++

EDIT

bon j'ai reussi mais pas avec ta procedure Chris desol

sa donne ceux-ci

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Button_0
EndEnumeration

Procedure Convert(Size,NewResolution.l,OriginWindowSize.l)
Static Resultat.f
Resultat = NewResolution * Size / OriginWindowSize
  ProcedureReturn Resultat
   EndProcedure
   
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      ButtonGadget(#Button_0, 200, 100, 120, 30, "")
      
    EndIf
  EndIf

    Repeat
      Event.l = WindowEvent()
   
    Select Event
      
      Case #PB_Event_SizeWindow
        ResizeGadget(#Button_0, 10, 10, Convert(200,WindowWidth(#Window_0),600), Convert(30,WindowHeight(#Window_0),300))
       
      EndSelect
  Until EventID = #PB_Event_CloseWindow

mais le probleme c'est que de cette façon je ne peut plus fermer la fenetre ou bien donner un ordre au bouton

voila qui est baleau

@++

PureBasic

around the world ( navigateur )

around the world ( navigateur )