Code : Tout sélectionner
TextGadget(#titre, 600, 10, 130, 35, "Agenda")
....
TextGadget(#titre, 1, 1, 130, 35, "Calendrier by Dobro")
Code : Tout sélectionner
TextGadget(#titre, 600, 10, 130, 35, "Agenda")
....
TextGadget(#titre, 1, 1, 130, 35, "Calendrier by Dobro")
Code : Tout sélectionner
Gadget Number: 390
Gadget Handle: 3346254 ($330F4E)
Type: TextGadget
On Window: 406
Disabled: No
Hidden: No
Position: 600, 10
Size: 130, 35
Text: Agenda
--------------------------------------
Gadget Number: 400
Gadget Handle: 6621172 ($6507F4)
Type: TextGadget
On Window: 406
Disabled: No
Hidden: No
Position: 1, 1
Size: 130, 35
Text: Calendrier by Dobro
falsam a écrit :parce que tu utilises #titre deux foisCode : Tout sélectionner
TextGadget(#titre, 600, 10, 130, 35, "Agenda") .... TextGadget(#titre, 1, 1, 130, 35, "Calendrier by Dobro")
Code : Tout sélectionner
ShowLibraryViewer("gadget", #titre)
Je repondais a Falsam et tu as ecrit en meme temps ...Marc56 a écrit :Très très utile le LibraryViewer, à appeler par le menu (Débogueur > voir les bibliothèques)
ou en ligne.Je m'en sert tellement que je l'ai mis dans la barre d'outils.Code : Tout sélectionner
ShowLibraryViewer("gadget", #titre)
Commode aussi pour voir les images en mémoire sans les afficher.
Si tu déroule Images, tu verras que tu as construis 10x chaque image de jour
(bon, c'est peut-être voulu ? je n'ai pas étudié ton code)
Code : Tout sélectionner
Procedure Charge_list(Annee.s)
Name_file.s="Agenda_"+Annee.s+".json"
If FileSize(GetCurrentDirectory()+Name_file.s)>-1
LoadJSON(0, Name_file)
ExtractJSONList(JSONValue(0), jour())
EndIf
EndProcedure
;
Procedure Sauvegarde_list()
Annee.s=GetGadgetText(#titre_annee)
Name_file.s="Agenda_"+Annee.s+".json"
If CreateJSON(0)
InsertJSONList(JSONValue(0), jour())
EndIf
SaveJSON(0, Name_file)
EndProcedure
Tu n'as rien à faire.Zorro a écrit :ya pas besoin de séparateur ??
Je pense que tu as deviné la réponse.falsam a écrit :mon systeme ne sauvais QUE les jours avec un text ...
ça fais pareil ?? ou ça sauve tout meme les jours vide ?
$22:00$
[le message qui va s'afficher ]
on peut aussi ecrire le message sur plusieurs lignes$22:59$ [message a afficher]
plusieurs alertes pour le meme jour$22:59$ [message a afficher
sur plusieurs
Lignes]
$23:44$ [message de 23:44 ]
on peut ecrire du text au milieu
$23:45$ [message de 23:45 ]
on peut meme faire ainsi :
$23:46$ <-- ceci indique l'heure de l'alerte
du text normal en plein miilieu d'une alerte
ce text n'aparaitra pas dans le message
[message de 23:46 ] <-- ceci est le message qui apparaitra a 23:46
simple non ??
Code : Tout sélectionner
;IconName$ = "agenda.ico" ; <-- indiquez ici un icone pour le prg dans le Systray
; (ou utilisez les icônes fournies avec PB)
IconName$ = #PB_Compiler_Home + "\Examples\Sources\Data\CdPlayer.ico"
; | #PB_Window_Tool) fait disparaitre la fenêtre de la barre de tache. Oui, ça marche aussi avec une fenêtre principale
If OpenWindow(#win, 0, 0, 1024, 768, "Agenda_Projet", #PB_Window_ScreenCentered | #PB_Window_Tool)