un Agenda..

[Zorro]

Salut,
je ne sais pas de qu'elle coquille tu parles ?

Code : Tout sélectionner

IconName$ = "agenda.ico" ; <-- indiquez ici un icone pour le prg dans le Systray
IconeName2$="agenda2.ico"
LoadImage(#image_icone2, IconeName2$)
LoadImage(#image_icone, IconeName$)

il s'agit de 2 icones different (ils sont présent dans la 1er page du topic , ils representent un calendrier en bleu et en rouge )
les revoici :
agenda.ico


agenda2.ico



ces deux icones servent pour la barre des taches ... si tu as un truc de prévu pour le jour en cours, on affiche l'icone rouge
sinon c'est l'icone bleue qui s'affiche ....

ça permet visuellement en regardant dans la barre des tache de voir si on a un rendez vous ou tout evenement en cours d'attente ...
le prg dispose d'un bouton
qui permet de repasser l'icone en bleu lorsqu'on a tout vu/effectué les evenement du jour ....

[kernadec]

Zorro vieilli

Code : Tout sélectionner

IconName$ = "agenda.ico"  
Manque un "e" à iconEname$ 
Bonne journee

[Zorro]

ce qui est bizarre c'est que effectivement,
le loadimage() suivant, ne me faisait aucune erreur ....

et ça explique peut etre pourquoi j'avais ensuite refait ligne 145

Code : Tout sélectionner

AddSysTrayIcon(#SysTrayIcone, WindowID(#win), LoadImage(#image_icone, IconeName$))

un autre loadimage LOL

Merci , j'ai modifié le code

[Micoute]

C'est étrange que chez moi, ça fonctionne très bien

[Zorro]

oui c'est ce que je dis, ça marchait parceque le Loadimage de la ligne 138 devais echouer sans erreur apparente ...

mais la ligne 145 du AddSysTrayIcon() contienait le loadimage correcte , donc ça devait corriger l'affaire

bon j'ai reposté mon code, tout corrigé a ce propos , c'est a dire changement du nom de variable , correcte cette fois

et la ligne 145 ne contient plus de loadimage ,mais utilise l'id de l'image ...

Code : Tout sélectionner

AddSysTrayIcon(#SysTrayIcone, WindowID(#win), ImageID(#image_icone))

en principe, cette fois c'est correcte sans Bequille

Merci encore a Kernadec

[kernadec]

Perso, j'ai mis un "hide windows" ligne 141 ça évite la fenêtre avortée au démarrage

Code : Tout sélectionner

If OpenWindow(#win, 0, 0, 1024, Hauteur_fenetre, "Agenda_Projet",  #PB_Window_ScreenCentered|#PB_Window_Tool)
     HideWindow(#Win, 1)      ; Reduit la fenetre   , Minimize window

[Zorro]

@kernadec , jamais eu ce probleme

[kernadec]

bjr Zorro
j'ai une tour avec un proc: i5 , Seven 64 , PB5.70LTS 64
en fait je vois une fenêtre blanche sans gadgets qui dans la fraction de secondes se minimise

donc avec un HideWindow(#Win, 1) avant les gadgets tout cela passe inaperçu
mais c'est mieux avec #PB_Window_Invisible

Code : Tout sélectionner

If OpenWindow(#win, 0, 0, 1024, Hauteur_fenetre, "Agenda_Projet",  #PB_Window_ScreenCentered|#PB_Window_Tool|#PB_Window_Invisible)

cordialement

[Zorro]

Merci Kernadec, j'ai modifié le code de la premiere page du topic , dans ce sens (meme si chez moi je n'ai jamais vu de problemes )

en tout cas c'est bien cool de voir un ancien code continuer de fonctionner malgres tout , et qu'il attire encore de l’intérêt ...

ce code, je l'utilise tout les jours depuis quasi 3-4 ans , il m'a rendu bien des services

[kernadec]

Avec mon mobile android j utilise l' agenda "IsoTimer"
Version gratuite top tout y est.
Cordialement