PureBasic

Voici donc 2Dev News en version quasi définitive

On en parlait sur le forum suite à la publication de PureXML.
Cette userlib est le coeur de ce programme et sert à 'parser' le fichier RSS qui est régulièrement mis à jour par le webmaster de 2dev.org ( Crystal noir ).

Ensuite 2Dev News 'corrige' ou plutot 'adapte' les informations contenu dans le fichier RSS et l'affiche le plus correctement possible.

Au final, on obtient un p'tit prog sympathique pour ce tenir facilement informé des nouveautés 2Dev sans aller sur le site.

Remontez moi les problèmes ou les suggestions, j'en tiendrais compte et par ailleurs le source de 2Dev News est libre et peut être en soit un bon exemple quant à l'utilisation de PureXML.

http://www.penguinbyte.com/apps/pbwebst ... evNews.zip

Purebasiquement votre

bon petit prog sympa et pratique. Bravo !

Juste un petit truc. Est ce que le bandeau est censé nous envoyer sur le site 2Dev? Si oui, il ne se passe rien lorsque l'on clique dessus.

non, il est censé faire la meme chose que le bouton 'Actualiser' mais maintenant que tu le dis... ca paraitrait plus logique... merci

super

Par contre "sans aller sur le site" c faux puisque de toute manière faut y aller pour voir le reste des news (nouveaux codes, téléchargements et liens)

Il va me chourer mon audience vilain ! (je plaisante)

Sympa comme tout, je vais le mettre sur 2dev

Petite suggestion : la possibilité au soft d'aller dans la barre des tâches avec une actualisation auto, si une nouvelle news est postée, alors une bulle le fait savoir

c une suggestion

vraiment réussi le prog, bravo

merci pour vos remontées et désolé pour crystal noir : ALLEZ TOUS SUR www.2dev.org !!!
2Dev News nous notifie des nouvelles news c'est tout, et c'est tant mieux.

PS: comment on fait pour afficher une bulle genre tooltip depuis la systray

je plaisantais Flype

En tout cas c'est chouette, vais le mettre sur la page d'accueil.

Pour les tooltips je dois dire que je sais pas trop

Bravo

Flype : C'est la deuxième fois que je me demande : http://www.penguinbyte.com est ton (un de tes) site(s) ?

@oliv

2eme fois ? ah bon, désolé j'avais pas vu...
donc non ce n'est pas mon site...
je suis trop flemmard pour me faire mon propre site pour l'instant
du coup j'utilise le fameux site pseudo ftp PURESTORAGE créer par un gars du forum anglais spécialement pour les flemmards PureBasic comme moi.

http://www.penguinbyte.com/apps/pbwebstor/logon.php

Flype a écrit :@oliv

2eme fois ? ah bon, désolé j'avais pas vu...
donc non ce n'est pas mon site...
je suis trop flemmard pour me faire mon propre site pour l'instant
du coup j'utilise le fameux site pseudo ftp PURESTORAGE créer par un gars du forum anglais spécialement pour les flemmards PureBasic comme moi.

http://www.penguinbyte.com/apps/pbwebstor/logon.php

C'est la deuxième fois que je me demande, pas te demande

Je me demandais car je suis passé sur la page principale et il y a des logiciels impressionantj, surtout celui qui permet de démarrer Linux et windows et qui permet de compiler pour Linux sous windows grace à RealVNC (apparement il ne l'a pas fait tout seul, j'ai regardé vite fait)

c'est pas mal

Sinon, ça peut servir pour vérifier les mises à jour d'un prog et signaler les changements des dernières versions. (c'est peut-être plus simple avec un fichier txt que l'on télécharge ... )

hey bonne idée regis

parceque tu as sans doute raison ce serait plus simple avec un fichier texte. Mais si on veut offrir un fichier d'historique avec explication des mises à jour alors çà devient une bonne idée d'utiliser ce prog.

dis moi regis tu sais pas comment on fait une tooltip pour la systray genre ceux qui s'affiche sur XP quand on insere une clef USB ?

d'ailleurs ce serait super d'avoir aussi un fil RSS pour ton site regis

et pour le site officiel de purebasic...

j'ai trouvé comment faire apparaitre des bulles :

Code : Tout sélectionner

Structure NOTIFYICONDATA2
  cbSize.l 
  hwnd.l 
  uID.l 
  uFlags.l 
  uCallbackMessage.l 
  hIcon.l 
  szTip.b[128] 
  dwState.l 
  dwStateMask.l 
  szInfo.b[256] 
  StructureUnion 
  uTimeout.l 
  uVersion.l 
  EndStructureUnion 
  szInfoTitle.b[64] 
  dwInfoFlags.l 
EndStructure 

Procedure SysTrayIconBalloon(title.s,message.s,type.l) 
  
  Balloon.NOTIFYICONDATA2
  Balloon\cbSize           = SizeOf(NOTIFYICONDATA2)
  Balloon\hwnd             = WindowID() 
  Balloon\uFlags           = 16 ; #NIF_INFO
  Balloon\uTimeout         = 10000
  Balloon\dwInfoFlags      = type 
  
  PokeS(@Balloon\szInfoTitle,title,63) 
  PokeS(@Balloon\szInfo,message,255) 
  
  Shell_NotifyIcon_(#NIM_MODIFY,@Balloon) 
  
EndProcedure

OpenWindow(0,0,0,110,105,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Balloon Tips")

CreateGadgetList(WindowID())
ButtonGadget(0,5, 5,100,20,"Simple") 
ButtonGadget(1,5,30,100,20,"Information") 
ButtonGadget(2,5,55,100,20,"Avertissement") 
ButtonGadget(3,5,80,100,20,"Erreur") 

AddSysTrayIcon(0,WindowID(0),LoadImage(0,"2devnews.ico"))
SysTrayIconToolTip(0,"Systray Tooltip")

Title$ = "Démonstration"
Info$  = "Une première ligne de texte" + Chr(13)
Info$  + "Une deuxième ligne" + Chr(13)
Info$  + "Et même une troisième" + Chr(13) + Chr(13)
Info$  + "En fait, autant que vous voulez !"

SysTrayIconBalloon(Title$,Info$,1)

Repeat 
  
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow : Break
    Case #PB_Event_Gadget 
      Select EventGadgetID() 
        Case 0 : SysTrayIconBalloon(Title$,Info$,0)
        Case 1 : SysTrayIconBalloon(Title$,Info$,1) 
        Case 2 : SysTrayIconBalloon(Title$,Info$,2) 
        Case 3 : SysTrayIconBalloon(Title$,Info$,3) 
      EndSelect 
  EndSelect 
  
ForEver

End

qu'est ce que ca donne sous win98 ?

PureBasic

2dev.org News

2dev.org News