j'ai un probleme avec mon code
j'arrive a sauvegarder les element dans un fichier ini
mais quand je recharge le fichier rien ne s'affiche
qui peux m'aider svp merci d'avance
Jbernard
Code : Tout sélectionner
; gestion de mes tours
Procedure.l WindowCallBack(WindowID.l, Message.l, wParam.l, lParam.l)
ReturnValue.l = #PB_ProcessPureBasicEvents
;
ReturnValue = PureCOLOR_CallBack(WindowID, Message, wParam, lParam, ReturnValue)
;
ProcedureReturn ReturnValue
EndProcedure
Enumeration
#fenetre_main
#fenetre_ajouter
EndEnumeration
Enumeration
#liste_tour
#bar_1
#cadre_0
#text_nom
#string_nom
#text_categorie
#categorie
#text_matos
#string_matos
#bouton_ajouter
#bouton_annuler
EndEnumeration
Enumeration
EndEnumeration
Enumeration
#menu_nouveau
#menu_charger
#menu_sauver
#menu_quitter
#menu_ajouter
#menu_editer
#menu_effacer
#menu_info
EndEnumeration
Enumeration
#font1
#font2
#font3
EndEnumeration
Global FontId1
FontId1=LoadFont(#font1,"Courrier",9,#pb_font_bold)
Global FontId2
FontId2=LoadFont(#font2,"Courrier",11,#pb_font_bold)
Global FontId3
FontId3=LoadFont(#font3,"Courrier",12,#pb_font_bold)
;ajouter un element dans la liste
Structure Gestion
Nom.s
Categorie.s
Materiel.s
EndStructure
NewList Tour.gestion()
Procedure.b effacer_liste()
ClearList(Tour())
ProcedureReturn l
EndProcedure
Procedure.b ajoute_tour()
If AddElement(Tour())
Tour()\Nom=GetGadgetText(#string_nom)
Tour()\Categorie=GetGadgetText(#categorie)
Tour()\Materiel=GetGadgetText(#string_matos)
AddGadgetItem(#liste_tour,-1,Tour()\Nom+Chr(10)+Tour()\Categorie+Chr(10)+Tour()\Materiel)
EndIf
ProcedureReturn l
EndProcedure
Procedure charger_liste(fichier.s)
If OpenPreferences(fichier)
Repeat
i+1
If PreferenceGroup("Item."+Str(i))
AddElement(Tour())
Tour()\Nom=ReadPreferenceString("Nom du tour: ","")
Tour()\Categorie=ReadPreferenceString("Categorie: ","")
Tour()\Materiel=ReadPreferenceString("Materiel: ","")
Else
Break
EndIf
ForEver
ClosePreferences()
ProcedureReturn i
EndIf
EndProcedure
Procedure Sauver_liste(fichier.s)
If CreatePreferences(fichier)
ForEach Tour()
i+1
PreferenceGroup("Item."+Str(i))
WritePreferenceString("Nom du tour: ",Tour()\Nom)
WritePreferenceString("Categorie: ",Tour()\Categorie)
WritePreferenceString("Materiel: ",Tour()\Materiel)
Next
ClosePreferences()
EndIf
EndProcedure
Procedure charger(append.b)
fichier.s=OpenFileRequester("Charger une liste","Fichier.ini","ini|*.ini",0)
If fichier<>""
If append
ClearGadgetItemList(#liste_tour)
Else
effacer_liste()
EndIf
charger_liste(fichier)
ClearGadgetItemList(#liste_tour)
ForEach Tour()
AddGadgetItem(#liste_tour,-1,Tour()\Nom+Chr(10)+Tour()\Categorie+Chr(10)+Tour()\Materiel)
Tour()\Nom
Next
EndIf
EndProcedure
Procedure sauver()
fichier.s=SaveFileRequester("enregistrer sous",".ini","ini|ini", 0)
If fichier<> ""
Sauver_liste(fichier)
EndIf
EndProcedure
Procedure nouvelle_liste()
effacer_liste()
ClearGadgetItemList(#liste_tour)
EndProcedure
Procedure main()
If OpenWindow(#fenetre_main,0,0,800,700,#PB_Window_SystemMenu |#PB_Window_MinimizeGadget|#PB_Window_TitleBar| #PB_Window_ScreenCentered,"Mon repertoire de magie version 01 -2005")
If CreateMenu(0,WindowID())
MenuTitle("Fichier")
MenuItem(#menu_nouveau,"Créer une nouvelle liste "+Chr(9)+"Ctrl+N")
AddKeyboardShortcut(0,#pb_shortcut_control|#pb_shortcut_N,#menu_nouveau)
MenuItem(#menu_charger,"Charger une liste "+Chr(9)+"Ctrl+C")
AddKeyboardShortcut(0,#pb_shortcut_control|#pb_shortcut_C,#menu_charger)
MenuItem(#menu_sauver,"Sauver la liste "+Chr(9)+"CTRL+S")
AddKeyboardShortcut(0,#pb_shortcut_control|#pb_shortcut_s,#menu_sauver)
MenuBar()
MenuItem(#menu_quitter," Quitter "+Chr(9)+"Ctrl+Q")
AddKeyboardShortcut(0,#pb_shortcut_control|#pb_shortcut_Q,#menu_quitter)
MenuTitle("Tour")
MenuItem(#menu_ajouter,"Ajouter un tour à la liste "+Chr(9)+"Ctrl+A")
AddKeyboardShortcut(0,#pb_shortcut_control|#pb_shortcut_A,#menu_ajouter)
MenuItem(#menu_editer,"Modifier la fiche d'un tour")
MenuItem(#menu_effacer,"Effacer un tour de la liste")
MenuTitle("Information")
MenuItem(#menu_info,"Aide ")
EndIf
If CreateGadgetList(WindowID())
SetWindowCallback(@windowcallback())
ListIconGadget(#liste_tour,10,10,780,640,"Nom du tour :",310,#pb_listicon_checkboxes|#pb_listicon_gridlines)
AddGadgetColumn(#liste_tour,1,"Categorie :",175)
AddGadgetColumn(#liste_tour,2,"Materiel :",290)
SetGadgetFont(#liste_tour,fontId3)
PureCOLOR_SetColumnHeaderColor(#liste_tour,0,RGB(249,37,55),RGB(236,233,216))
PureCOLOR_SetColumnHeaderColor(#liste_tour,1,RGB(249,37,55),RGB(236,233,216))
PureCOLOR_SetColumnHeaderColor(#liste_tour,2,RGB(249,37,55),RGB(236,233,216))
EndIf
If CreateStatusBar(#bar_1,WindowID())
EndIf
EndIf
EndProcedure
Procedure ajouter_tour()
If OpenWindow(#fenetre_ajouter,0,0,300,305,#PB_Window_TitleBar| #PB_Window_ScreenCentered,"Ajouter un nouveau tour ")
If CreateGadgetList(WindowID())
SetWindowCallback(@windowcallback())
Frame3DGadget(#cadre_0,5,5,290,290,"")
TextGadget(#text_nom,85,20,130,30," Nom du tour :",#pb_text_center)
SetGadgetFont(#text_nom,FontId3)
PureCOLOR_SetGadgetColor(#text_nom,RGB(249,37,55),RGB(236,233,216))
StringGadget(#string_nom,15,50,270,25,"")
SetGadgetFont(#string_nom,FontId2)
TextGadget(#text_categorie,85,90,130,30,"Categorie :",#pb_text_center)
SetGadgetFont(#text_categorie,FontId3)
PureCOLOR_SetGadgetColor(#text_categorie,RGB(249,37,55),RGB(236,233,216))
ComboBoxGadget(#categorie,100,120,100,100)
AddGadgetItem(#categorie,-1," Carte ")
AddGadgetItem(#categorie,-1," Corde ")
AddGadgetItem(#categorie,-1," Divers ")
AddGadgetItem(#categorie,-1," Feu ")
AddGadgetItem(#categorie,-1," Foulard")
AddGadgetItem(#categorie,-1," Mentalisme")
AddGadgetItem(#categorie,-1," Piece")
SetGadgetFont(#categorie,FontId1)
TextGadget(#text_matos,90,160,130,30,"Materiel du tour :")
SetGadgetFont(#text_matos,FontId3)
PureCOLOR_SetGadgetColor(#text_matos,RGB(249,37,55),RGB(236,233,216))
StringGadget(#string_matos,15,190,270,25,"")
SetGadgetFont(#string_matos,FontId2)
ButtonGadget(#bouton_ajouter,15,250,110,30,"Ajouter ")
SetGadgetFont(#bouton_ajouter,FontId2)
PureCOLOR_SetButtonColor(#bouton_ajouter,RGB(249,37,55),RGB(236,233,216))
ButtonGadget(#bouton_annuler,175,250,110,30,"Annuler ")
SetGadgetFont(#bouton_annuler,FontId2)
PureCOLOR_SetButtonColor(#bouton_annuler,RGB(249,37,55),RGB(236,233,216))
EndIf
Repeat
Select WaitWindowEvent()
Case #pb_event_gadget
Select EventGadgetID()
Case #bouton_ajouter:ajoute_tour()
fermer_1=1
Case #bouton_annuler
fermer_1=1
EndSelect
EndSelect
Until fermer_1=1
CloseWindow(#fenetre_ajouter)
While WindowEvent():Wend
EndIf
EndProcedure
main()
Repeat
Select WaitWindowEvent()
Case #pb_event_menu
Select EventMenuID()
Case #menu_nouveau:nouvelle_liste()
Case #menu_charger:charger(false)
Case #menu_sauver:sauver()
Case #menu_quitter
fermer=1
Case #menu_ajouter:ajouter_tour()
EndSelect
Case #pb_event_closewindow
fermer=1
EndSelect
Until fermer=1
End