ListIcon et couleur [RESOLU]

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Répondre
Avatar de l’utilisateur
MetalOS
Messages : 1510
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :
Contacter MetalOS

ListIcon et couleur [RESOLU]

Message par MetalOS »

Salut tous le monde, voila je me fait pour moi, pour le boulot un ptit soft pour gérer le planing de mon équipe avec une couleur par personne. Jusque la pas de problème j'enregistre ca dans un fichier texte. Mais voici mon problème je charge mon fichier texte mais je n'arrive pas à ravoir les couleur pour chaque personne. Si defois quelqu'un peut me dire comment faire car la je vois pas trop. Merci.

Voici ma source : (Clique droit sur une ligne pour editer)

Code : Tout sélectionner

;******************
;      PLANING
; By MetalOS
;******************

Dimanche$ = "DIMANCHE"
Personne1$ = "Personne1"
Personne2$ = "Personne2"
Personne3$ = "Personne3"
Personne4$ = "Personne4"
Personne5$ = "Personne5"
Personne6$ = "Personne6"
Personne7$ = "Personne7"
Personne8$ = "Personne8"
Personne9$ = "Personne9"
Personne10$ = "Personne10"
Personne11$ = "Personne11"

;- Global Variables and Constants
Global BubbleTipStyle.l:BubbleTipStyle=0

;- Window Constants
Enumeration 1
  #Window_Form2
EndEnumeration
#WindowIndex=#PB_Compiler_EnumerationValue


;- Gadget Constants
Enumeration 1
 
  ;Window_Form2
  #MenuBar_Form2_Fichier
  #MenuBar_Form2_Ouvrir
  #MenuBar_Form2_Enregistrer
  #MenuBar_Form2_Quitter
 
  #Gadget_Form2_ListIcon6
  
  #Popup_Modif
  #Menu_Jours
  #Menu_719
  #Menu_197
  #Menu_414
  #Menu_1424
  #Menu_820
  #Menu_921
  #file
  
EndEnumeration
#GadgetIndex=#PB_Compiler_EnumerationValue


;- MenuBar Constants
Enumeration 1
  #MenuBar_Form2
EndEnumeration
#MenuBarIndex=#PB_Compiler_EnumerationValue

Procedure Create_as_Listing() 
 Listing$ = SaveFileRequester("Enregistrer un Fichier Planing", "c:\", "Fichiers Planing|*.txt", 0)   
   If OpenFile(#file, Listing$ + ".txt")  ; Ouvre le fichier existant ou crée un nouveau fichier              
     WriteStringN(#file, Str(CountGadgetItems(#Gadget_Form2_ListIcon6))) ; le nombre d'éléments dans la listicon 
       For List = 0 To CountGadgetItems(#Gadget_Form2_ListIcon6)-1      ; pour chaque element de la liste 
         ;récupération du contenu de chaque colonne 
         Resultat0$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,0) 
         Resultat1$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,1) 
         Resultat2$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,2) 
         Resultat3$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,3) 
         Resultat4$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,4) 
         Resultat5$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,5) 
         Resultat6$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,6) 
         Resultat7$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,7)
         Resultat8$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,8) 
         WriteStringN(#file,Resultat0$) ; on écrit le contenu de chaque colonne sur une ligne dans le fichier 
         WriteStringN(#file,Resultat1$) ; ça simplifie grandement la relecture 
         WriteStringN(#file,Resultat2$) ; WriteStringN sert à revenir à la ligne automatiquement 
         WriteStringN(#file,Resultat3$) 
         WriteStringN(#file,Resultat4$) 
         WriteStringN(#file,Resultat5$) 
         WriteStringN(#file,Resultat6$) 
         WriteStringN(#file,Resultat7$)
         WriteStringN(#file,Resultat8$)  
       Next  List 
      CloseFile(#file) ; on referme 
   EndIf 
    
EndProcedure 

Procedure Load_Listing() 
  Listing$ = OpenFileRequester("Charger un fichier Planing", "c:\", "Fichiers Planing|*.txt",0)
  ClearGadgetItemList(#Gadget_Form2_ListIcon6) ; on s'assure qu'il n'y a rien d'autre dans la listicon, donc on la vide    
  
  If OpenFile(0, Listing$)   ; Ouvre le fichier en écriture (pour éventuellement ajouter des données) 
     nbr=Val(ReadString(0))    ; lit le nombre d'elements 
      For P = 1 To nbr        
 ; donc pour chaque element de la liste on récupère 8 valeurs/lignes 
 ; correspondant aux 8 colonnes 
         Resultat0$ = ReadString(0)     
         Resultat1$ = ReadString(0)
         Resultat2$ = ReadString(0) 
         Resultat3$ = ReadString(0) 
         Resultat4$ = ReadString(0) 
         Resultat5$ = ReadString(0) 
         Resultat6$ = ReadString(0) 
         Resultat7$ = ReadString(0)
         Resultat8$ = ReadString(0) 
       ;on a lu chaque ligne dont on a besoin pour remplir la grille 
       ;chaque variable se voit ainsi doté d'une valeur (numéro ou text vu que c'est du string) 
       ;on ajoute chaque valeur de variable récupérée dans la listicon et dans l'ordre... 
        AddGadgetItem(#Gadget_Form2_ListIcon6,-1,Resultat0$+Chr(10)+Resultat1$+Chr(10)+Resultat2$+Chr(10)+Resultat3$+Chr(10)+Resultat4$+Chr(10)+Resultat5$+Chr(10)+Resultat6$+Chr(10)+Resultat7$+Chr(10)+Resultat8$) 
      Next  P 
    CloseFile(0) ; on referme    
  EndIf 
        
EndProcedure


Procedure.l Window_Form2()
  If OpenWindow(#Window_Form2,178,249,757,544,"Planing.",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered|#PB_Window_WindowCentered)
        CreateMenu(#MenuBar_Form2,WindowID(#Window_Form2))
      MenuTitle("Fichier")
      MenuItem(#MenuBar_Form2_Ouvrir,"Ouvrir")
      MenuBar()
      MenuItem(#MenuBar_Form2_Enregistrer,"Enregistrer")
      MenuBar()
      MenuItem(#MenuBar_Form2_Quitter,"Quitter")
      
      If CreatePopupMenu(#Popup_Modif) 
       OpenSubMenu("Modifier...") 
        MenuItem(#Menu_Jours, "JOURS") 
        MenuBar() 
        MenuItem(#Menu_719, "7h / 19h") 
        MenuBar() 
        MenuItem(#Menu_197, "19h / 7h")
        MenuBar() 
        MenuItem(#Menu_414, "4h / 14h")
        MenuBar() 
        MenuItem(#Menu_1424, "14h / 24h")
        MenuBar() 
        MenuItem(#Menu_820, "8h / 20h")
        MenuBar() 
        MenuItem(#Menu_921, "9h / 21h")     
       CloseSubMenu() 
      EndIf 
      
    If CreateGadgetList(WindowID(#Window_Form2))
      ListIconGadget(#Gadget_Form2_ListIcon6,0,35,760,490,"DATE",50,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "1")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "2")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "3")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "4")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "5")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "6")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "7")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "8")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "9")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "10")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "11")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "12")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "13")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "14")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "15")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "16")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "17")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "18")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "19")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "20")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "21")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "22")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "23")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "24")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "25")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "26")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "27")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "28")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "29")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "30")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "31")
        AddGadgetColumn(#Gadget_Form2_ListIcon6,1,"JOURS",100)
        AddGadgetColumn(#Gadget_Form2_ListIcon6,2,"7H / 19H",100)
        AddGadgetColumn(#Gadget_Form2_ListIcon6,3,"19H / 7H",100)
        AddGadgetColumn(#Gadget_Form2_ListIcon6,4,"4H / 14H",100)
        AddGadgetColumn(#Gadget_Form2_ListIcon6,5,"14H / 24H",100)
        AddGadgetColumn(#Gadget_Form2_ListIcon6,6,"8H / 20H",100)
        AddGadgetColumn(#Gadget_Form2_ListIcon6,7,"9H / 21H",100)
      HideWindow(#Window_Form2,0)
      ProcedureReturn WindowID(#Window_Form2)
    EndIf
  EndIf
EndProcedure

Procedure WindowCallback(WindowID,Message,wParam,lParam)
  ReturnValue=#PB_ProcessPureBasicEvents
  If Message=#WM_GETMINMAXINFO
    ReturnValue=PVDynamic_LockWindow(WindowID,lParam)
  EndIf
  If Message=#WM_SIZE
    ReturnValue=PVDynamic_Resize(WindowID)
  EndIf

  ProcedureReturn ReturnValue
EndProcedure

;- Main Loop
If Window_Form2()
  SetWindowCallback(@WindowCallback())

  quitForm2=0
  Repeat
    EventID  =WaitWindowEvent()
    MenuID   =EventMenu()
    GadgetID =EventGadget()
    WindowID =EventWindow()

    Select EventID
      Case #PB_Event_CloseWindow
        If WindowID=#Window_Form2
          quitForm2=1
        EndIf

      Case #PB_Event_Menu
        Select MenuID
          Case #MenuBar_Form2_Ouvrir
           Load_Listing()
          Case #MenuBar_Form2_Enregistrer
           Create_as_Listing()
          Case #MenuBar_Form2_Quitter
           End 
          Case #Menu_Jours
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 1)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 1)
              If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 1) = Dimanche$
                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $0506FA, 1)
              Else
                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 1)
              EndIf
            EndIf 
          Case #Menu_719
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 2)
             ;***************************************************************************************
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 2) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 2) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 2)                                     
             EndIf
             ;***************************************************************************************
            EndIf  
          Case #Menu_197
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 3) 
            ;***************************************************************************************
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 3) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 3) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 3)                                     
             EndIf
             ;***************************************************************************************
            EndIf 
          Case #Menu_414
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 4) 
            ;***************************************************************************************
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 4) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 4) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 4)                                     
             EndIf
             ;***************************************************************************************
            EndIf 
          Case #Menu_1424
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 5) 
            ;***************************************************************************************
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 5) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 5) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 5)                                     
             EndIf
             ;***************************************************************************************
            EndIf 
          Case #Menu_820
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 6) 
            ;***************************************************************************************
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 6) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 6) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 6)                                     
             EndIf
             ;***************************************************************************************
            EndIf 
          Case #Menu_921
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 7) 
            ;***************************************************************************************
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 7) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 7) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 7)                                     
             EndIf
             ;***************************************************************************************
            EndIf 
        EndSelect
       
      Case #PB_Event_Gadget
        Select GadgetID
          Case #Gadget_Form2_ListIcon6
           Position = GetGadgetState(#Gadget_Form2_ListIcon6) 
          If Position >= 0 
            If EventType() = #PB_EventType_RightClick ; si on clic bouton droit 
              DisplayPopupMenu(#PopUp_Modif,WindowID(#Window_Form2)) ; affiche le popup 
            EndIf 
          EndIf 
            Select EventType()
              Case #PB_EventType_LeftDoubleClick
              Case #PB_EventType_RightDoubleClick
              Case #PB_EventType_RightClick
              Default
            EndSelect
          
        EndSelect

    EndSelect
  Until quitForm2
  CloseWindow(#Window_Form2)
EndIf
End
Pour info j'utilise PureVisionXP pour faire mes interfaces donc il y aurra peut être des partie de code qui ne vont pas marcher chez certaine personnes.
Dernière modification par MetalOS le sam. 24/mai/2008 13:04, modifié 1 fois.
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Effectivement PVDynamic_LockWindow(WindowID,lParam) n'est pas reconnu chez moi.

Pour les couleurs et leurs arrangements, essaye la lib purecolor, tu peux ainsi gérer très facilement les changements ou attributions de couleur aux objets et textes
Haut
Avatar de l’utilisateur
Progi1984
Messages : 2659
Inscription : mar. 14/déc./2004 13:56
Localisation : France > Rennes
Contact :
Contacter Progi1984

Message par Progi1984 »

Ar-S a écrit :PVDynamic_LockWindow(WindowID,lParam)
Surement une fonction fourni par PureVision.
Haut
Avatar de l’utilisateur
MetalOS
Messages : 1510
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :
Contacter MetalOS

Message par MetalOS »

oui, PVDynamic_LockWindow(WindowID,lParam) fait partie d'une lib fournie avec PureVision. Je vais voir du coté de Purecolor. Merci.
Haut
Avatar de l’utilisateur
MetalOS
Messages : 1510
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :
Contacter MetalOS

Message par MetalOS »

Bon je vient d'essayer :lol: d'utiliser la lib PureColor, et j'aurrais voulu savoir si il n'y avais pas moyen de faire un truc du style comme j'ais fait pour éditer le listicon. Que ca me color les personnes mais au chargement du fichier. Ou faire ca avec la lib PureColor mais je ne voi pas trop comment faire je ne comprend pas bien l'utilisation de cette lib. Merci.
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

MetalOS pour la derniere fois
je te demande de diminuer la taille de ton avatar !!!!!!

Faudrai lire tes messages privé de temps en temps ...

cela decale les post vers la droite c'est horrible
ça force a scroller pour voir le message en entier

en 1024x768 c'est pas normal d'avoir a faire ça !


pense aussi a ceux qui ont un EEEpc , c'est encore pire pour eux ..

le fait d'avoir le plus gros avatar, ne fais pas de toi un mec plus viril ...
Haut
Avatar de l’utilisateur
MetalOS
Messages : 1510
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :
Contacter MetalOS

Message par MetalOS »

Desoler dobro, c bon c modifier en même temp je n'est pas recu de message de ta part comme tu le dit. Mais bon c modifier c le principale.
Haut
Avatar de l’utilisateur
MetalOS
Messages : 1510
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :
Contacter MetalOS

Message par MetalOS »

Je le dit haut est fort Windows c de la grosse merde, quand je me connecte au forum de pb sous windows impossible de lire mes message privé ca me dit carrément que je n'est pas de message alors que sous linux je vient de consulter ton message dobro, donc j'ais bien recu ton message dobro désoler. Conclusion windows c de la merde (Merci Bill).

Dobro, arrete de fantasmer sur les mecs viril :lol:
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

MetalOS a écrit :Je le dit haut est fort Windows c de la grosse merde, quand je me connecte au forum de pb sous windows impossible de lire mes message privé ca me dit carrément que je n'est pas de message alors que sous linux je vient de consulter ton message dobro, donc j'ais bien recu ton message dobro désoler. Conclusion windows c de la merde (Merci Bill).

Dobro, arrete de fantasmer sur les mecs viril :lol:
peut etre as tu parametré un anti popup !! et tu t'en souviens plus
genre un plugin de mozzilla par exemple... :)

Merci pour ton avatar :D
Haut
Avatar de l’utilisateur
MetalOS
Messages : 1510
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :
Contacter MetalOS

Message par MetalOS »

Non justement j'ais IE7 qui m'avertis en cas de POPUP mais la rien, c pas la première fois que ca m'arrive sous windows. Enfin c pas grave, tiens en passent si defois ta une soluce pour ma source :lol: Merci Dobro :lol: :lol:
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

bon je te laisse ou j'en suis

apres avoir reduit un peu certain truc
et fait en sorte que ça charge et que ça sauve comme il faut
j'ai attaquer la coloration en utilisant la librairie PureColor

Mais il semble qu'elle bug cette lib !! :? <-- Correction c'est moi qui bug ! :lol:
voir la difference entre la ligne 96 et 97 , l'une marche pas l'autre !!! :?

sinon dans le principe de sauvegarde et de chargement c'est comme ça que tu peux faire :)


au passage note que j'ai utilisé des tableaux a la place de

Code : Tout sélectionner

 AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "1")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "2")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "3")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "4")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "5")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "6")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "7")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "8")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "9")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "10")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "11")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "12")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "13")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "14")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "15")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "16")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "17")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "18")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "19")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "20")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "21")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "22")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "23")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "24")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "25")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "26")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "27")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "28")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "29")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "30")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "31")
par exemple j'ai fais :

Code : Tout sélectionner

 For jour=1 To 31
                AddGadgetItem(#Gadget_Form2_ListIcon6, -1, Str(jour)) 
            Next jour
ce qui est bien plus court non ? :D
Dernière modification par Backup le sam. 24/mai/2008 11:03, modifié 2 fois.
Haut
gnozal
Messages : 832
Inscription : mar. 07/déc./2004 17:35
Localisation : France
Contact :
Contacter gnozal

Message par gnozal »

Dobro a écrit :...
j'ai attaquer la coloration en utilisant la librairie PureColor

Mais il semble qu'elle bug cette lib !! :?
voir la difference entre la ligne 96 et 97 , l'une marche pas l'autre !!! :?
PureCOLOR_SetCellColor() semble fonctioner, cf. exemple ci-dessous.
Tu n'essaierais pas de colorer une cellule qui n'existe pas encore (avant AddGadgetItem()) ?

Code : Tout sélectionner

Procedure.l WindowCallback(WindowID.l, message.l, wParam.l, lParam.l) 
  ReturnValue.l = #PB_ProcessPureBasicEvents
  ;
  If message = #WM_NOTIFY
    *msg.NMHDR = lParam
    If *msg\hwndFrom = GadgetID(1) And *msg\code = #NM_CLICK
      *ListViewIA.NMITEMACTIVATE = lParam 
      ListViewClick_Row = *ListViewIA\iItem 
      ListViewClick_Column = *ListViewIA\iSubItem
      SetGadgetText(2, "Click at (" + Str(ListViewClick_Row) + "," + Str(ListViewClick_Column)+ ")")
      PureCOLOR_SetCellColor(1, ListViewClick_Row, ListViewClick_Column, Random($FFFFFF), Random($FFFFFF))
      SetActiveGadget(2)
      ReturnValue = #False
    EndIf
  EndIf  
  ProcedureReturn ReturnValue 
EndProcedure
RandomSeed(Date()) 
; Create Window
OpenWindow(0, 100, 300, 400, 200, "PureCOLOR test : colorizing individual cells", #PB_Window_SystemMenu) 
SetWindowCallback(@WindowCallback()) 
If CreateGadgetList(WindowID(0)) 
  ListIconGadget(1, 1, 1, 300, 160, "0", 100, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect)
  TextGadget(2, 21, 170, 200, 20, "Click on any cell to colorize it ...")
  ;
  AddGadgetColumn(1, 1, "1", 100)
  AddGadgetColumn(1, 2, "2", 100)
  AddGadgetItem(1, -1, "0:0" + Chr(10) + "0:1" + Chr(10) + "0:2")
  AddGadgetItem(1, -1, "1:0" + Chr(10) + "1:1" + Chr(10) + "1:2")
  AddGadgetItem(1, -1, "2:0" + Chr(10) + "2:1" + Chr(10) + "2:2")
  AddGadgetItem(1, -1, "3:0" + Chr(10) + "3:1" + Chr(10) + "3:2")
  AddGadgetItem(1, -1, "4:0" + Chr(10) + "4:1" + Chr(10) + "4:2")
  AddGadgetItem(1, -1, "5:0" + Chr(10) + "5:1" + Chr(10) + "5:2")
  AddGadgetItem(1, -1, "6:0" + Chr(10) + "6:1" + Chr(10) + "6:2")
  AddGadgetItem(1, -1, "7:0" + Chr(10) + "7:1" + Chr(10) + "7:2")
EndIf
Repeat 
  EventID.l = WaitWindowEvent()
  If EventID = #PB_Event_CloseWindow 
    Break
  EndIf
ForEver
De toute façon, pour colorer un grand nombre de cellules, il vaut mieux utiliser PureCOLOR_SetCellColorCallback() comme indiqué dans la doc : c'est bien plus performant.

Code : Tout sélectionner

FontID = LoadFont(0, "Courier New", 9, #PB_Font_Bold)
;
Procedure MyCellColorCallback(GadgetNumber.l, CellRow.l, CellColumn.l, *TextColor.LONG, *BackColor.LONG, *FontID.LONG)
  Shared FontID
  If GadgetNumber = 1
    CellText.s = GetGadgetItemText(GadgetNumber, CellRow, CellColumn)
    Debug Str(CellRow) + ":" + Str(CellColumn) + ">" + CellText
    Select CellText
      Case "Red"
        *TextColor\l = #Red
        Debug "-> Red"
      Case "Blue"
        *BackColor\l = #Blue
        *TextColor\l = #White
        Debug "-> Blue"
      Case "Green"
        *TextColor\l = #Green
        Debug "-> Green"
      Default
        *FontID\l = FontID
        Debug "-> Font"
    EndSelect
  EndIf
EndProcedure

OpenWindow(0, 100, 300, 400, 200, "PureCOLOR test : cell callback demo", #PB_Window_SystemMenu) 

If CreateGadgetList(WindowID(0)) 
  ListIconGadget(1, 1, 1, 300, 160, "0", 100, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect)
  ;
  AddGadgetColumn(1, 1, "1", 100)
  AddGadgetColumn(1, 2, "2", 100)
  AddGadgetItem(1, -1, "0:0" + Chr(10) + "0:1" + Chr(10) + "Red")
  AddGadgetItem(1, -1, "1:0" + Chr(10) + "1:1" + Chr(10) + "1:2")
  AddGadgetItem(1, -1, "Blue" + Chr(10) + "Green" + Chr(10) + "2:2")
  AddGadgetItem(1, -1, "3:0" + Chr(10) + "Red" + Chr(10) + "3:2")
  AddGadgetItem(1, -1, "Red" + Chr(10) + "4:1" + Chr(10) + "Red")
  AddGadgetItem(1, -1, "Green" + Chr(10) + "Blue" + Chr(10) + "5:2")
  AddGadgetItem(1, -1, "6:0" + Chr(10) + "6:1" + Chr(10) + "6:2")
  AddGadgetItem(1, -1, "Red" + Chr(10) + "Blue" + Chr(10) + "7:2")
EndIf
PureCOLOR_SetCellColorCallback(0, @MyCellColorCallback())
Repeat 
  EventID.l = WaitWindowEvent()
  If EventID = #PB_Event_CloseWindow 
    Break
  EndIf
ForEver
;
End
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

gnozal a écrit : Tu n'essaierais pas de colorer une cellule qui n'existe pas encore (avant AddGadgetItem()) ?
purée , je suis vraiment un boulet !! :lol:

Merci Gnozal , tu as parfaitement raison :lol:

voici le code corrigé :D

Code : Tout sélectionner

;******************
;      PLANING
; By MetalOS
;******************

Dimanche$ = "DIMANCHE"
Personne1$ = "Personne1"
Personne2$ = "Personne2"
Personne3$ = "Personne3"
Personne4$ = "Personne4"
Personne5$ = "Personne5"
Personne6$ = "Personne6"
Personne7$ = "Personne7"
Personne8$ = "Personne8"
Personne9$ = "Personne9"
Personne10$ = "Personne10"
Personne11$ = "Personne11"

;- Global Variables and Constants
Global BubbleTipStyle.l:BubbleTipStyle=0
Global Dim Resultat$(9) ; ajout Dobro

;- Window Constants
Enumeration 1
    #Window_Form2
EndEnumeration
#WindowIndex=#PB_Compiler_EnumerationValue


;- Gadget Constants
Enumeration 1
    
    ;Window_Form2
    #MenuBar_Form2_Fichier
    #MenuBar_Form2_Ouvrir
    #MenuBar_Form2_Enregistrer
    #MenuBar_Form2_Quitter
    
    #Gadget_Form2_ListIcon6
    
    #Popup_Modif
    #Menu_Jours
    #Menu_719
    #Menu_197
    #Menu_414
    #Menu_1424
    #Menu_820
    #Menu_921
    #file 
EndEnumeration
#GadgetIndex=#PB_Compiler_EnumerationValue



;- MenuBar Constants
Enumeration 1
    #MenuBar_Form2
EndEnumeration
#MenuBarIndex=#PB_Compiler_EnumerationValue



Procedure Create_as_Listing()
    Listing$ = SaveFileRequester("Enregistrer un Fichier Planing", "c:", "Fichiers Planing|*.txt", 0)   
    If OpenFile(#file, Listing$ + ".txt")  ; Ouvre le fichier existant ou crée un nouveau fichier             
        WriteStringN(#file, Str(CountGadgetItems(#Gadget_Form2_ListIcon6))) ; le nombre d'éléments dans la listicon
        
        For List = 0 To CountGadgetItems(#Gadget_Form2_ListIcon6)-1      ; pour chaque element de la liste
            ;récupération du contenu de chaque colonne
            For colonne=1 To 8
                Resultat$(colonne) = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,colonne) 
                WriteStringN(#file,Resultat$(colonne)) ; on écrit le contenu de chaque colonne sur une ligne dans le fichier 
                WriteStringN(#file,Str(PureCOLOR_GetCellColor(#Gadget_Form2_ListIcon6, List, colonne, 1) )) ; sauve la couleur d'ecriture
                WriteStringN(#file,Str(PureCOLOR_GetCellColor(#Gadget_Form2_ListIcon6, List, colonne, 2) )); sauve la couleur de fond
                Delay(1) ; temps d'attente de l'ecriture sur disque  
            Next colonne 
        Next  List
        CloseFile(#file) ; on referme
    EndIf
    
EndProcedure

Procedure Load_Listing()
    Listing$ = OpenFileRequester("Charger un fichier Planing", "c:", "Fichiers Planing|*.txt",0)
    ClearGadgetItemList(#Gadget_Form2_ListIcon6) ; on s'assure qu'il n'y a rien d'autre dans la listicon, donc on la vide   
    
    If OpenFile(#file, Listing$)   ; Ouvre le fichier en écriture (pour éventuellement ajouter des données)
        
        nbr=Val(ReadString(#file))    ; lit le nombre d'elements
        Dim TextCol(nbr,8)
        Dim BackCol(nbr,8)
        For P = 0 To nbr-1       
            ; donc pour chaque element de la liste on récupère 8 valeurs/lignes
            ; correspondant aux 8 colonnes
            For colonne=1 To 8 
                Resultat$(colonne) = ReadString(#file,#PB_Ascii ) ; lis le contenu des cellules
                TextCol(P, colonne)=Val(ReadString(#file)) ; lis la couleur de text
                BackCol(P, colonne)=Val(ReadString(#file)) ; lis la couleur de fond 
            Next colonne 
            AddGadgetItem(#Gadget_Form2_ListIcon6,-1,Resultat$(0)+Chr(10)+Resultat$(1)+Chr(10)+Resultat$(2)+Chr(10)+Resultat$(3)+Chr(10)+Resultat$(4)+Chr(10)+Resultat$(5)+Chr(10)+Resultat$(6)+Chr(10)+Resultat$(7)+Chr(10)+Resultat$(8)+Chr(10)) 
            ;on a lu chaque ligne dont on a besoin pour remplir la grille
            ;chaque variable se voit ainsi doté d'une valeur (numéro ou text vu que c'est du string)
            ;on ajoute chaque valeur de variable récupérée dans la listicon et dans l'ordre... 
        Next  P
        ; **************** on recolore *************************************
        For P = 0 To nbr-1       
            For colonne=1 To 8 
                PureCOLOR_SetCellColor(#Gadget_Form2_ListIcon6, P,  colonne, TextCol(P, colonne),BackCol(P, colonne) )   ; marche pas !!  
            Next colonne
        Next P
        ; **************************************************************
        
        CloseFile(#file) ; on referme   
    EndIf
    
EndProcedure


Procedure.l Window_Form2()
    If OpenWindow(#Window_Form2,178,249,757,544,"Planing.",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered|#PB_Window_WindowCentered)
        CreateMenu(#MenuBar_Form2,WindowID(#Window_Form2))
        MenuTitle("Fichier")
        MenuItem(#MenuBar_Form2_Ouvrir,"Ouvrir")
        MenuBar()
        MenuItem(#MenuBar_Form2_Enregistrer,"Enregistrer")
        MenuBar()
        MenuItem(#MenuBar_Form2_Quitter,"Quitter")
        
        If CreatePopupMenu(#Popup_Modif)
            OpenSubMenu("Modifier...")
                MenuItem(#Menu_Jours, "JOURS")
                MenuBar()
                MenuItem(#Menu_719, "7h / 19h")
                MenuBar()
                MenuItem(#Menu_197, "19h / 7h")
                MenuBar()
                MenuItem(#Menu_414, "4h / 14h")
                MenuBar()
                MenuItem(#Menu_1424, "14h / 24h")
                MenuBar()
                MenuItem(#Menu_820, "8h / 20h")
                MenuBar()
                MenuItem(#Menu_921, "9h / 21h")     
            CloseSubMenu()
        EndIf
        
        If CreateGadgetList(WindowID(#Window_Form2))
            ListIconGadget(#Gadget_Form2_ListIcon6,0,35,760,490,"DATE",50,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
            For jour=1 To 31
                AddGadgetItem(#Gadget_Form2_ListIcon6, -1, Str(jour)) 
            Next jour
            AddGadgetColumn(#Gadget_Form2_ListIcon6,1,"JOURS",100)
            AddGadgetColumn(#Gadget_Form2_ListIcon6,2,"7H / 19H",100)
            AddGadgetColumn(#Gadget_Form2_ListIcon6,3,"19H / 7H",100)
            AddGadgetColumn(#Gadget_Form2_ListIcon6,4,"4H / 14H",100)
            AddGadgetColumn(#Gadget_Form2_ListIcon6,5,"14H / 24H",100)
            AddGadgetColumn(#Gadget_Form2_ListIcon6,6,"8H / 20H",100)
            AddGadgetColumn(#Gadget_Form2_ListIcon6,7,"9H / 21H",100)
            HideWindow(#Window_Form2,0)
            ProcedureReturn WindowID(#Window_Form2)
        EndIf
    EndIf
EndProcedure

Procedure WindowCallback(WindowID,message,wParam,lParam)
    ReturnValue=#PB_ProcessPureBasicEvents
    If message=#WM_GETMINMAXINFO
        ; ReturnValue=PVDynamic_LockWindow(WindowID,lParam)
    EndIf
    If message=#WM_SIZE
        ;  ReturnValue=PVDynamic_Resize(WindowID)
    EndIf
    
    ProcedureReturn ReturnValue
EndProcedure

;- Main Loop
If Window_Form2()
    SetWindowCallback(@WindowCallback())
    
    quitForm2=0
    Repeat
        EventID  =WaitWindowEvent()
        MenuID   =EventMenu()
        GadgetID =EventGadget()
        WindowID =EventWindow()
        
        Select EventID
            Case #PB_Event_CloseWindow
                If WindowID=#Window_Form2
                    quitForm2=1
                EndIf
                
            Case #PB_Event_Menu
                Select MenuID
                    Case #MenuBar_Form2_Ouvrir
                        Load_Listing()
                    Case #MenuBar_Form2_Enregistrer
                        Create_as_Listing()
                    Case #MenuBar_Form2_Quitter
                        End
                    Case #Menu_Jours
                        Pos = GetGadgetState(#Gadget_Form2_ListIcon6)
                        If Pos >= 0
                            modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 1))
                            SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 1)
                            If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 1) = Dimanche$ 
                                PureCOLOR_SetCellColor(#Gadget_Form2_ListIcon6, Pos, 1, 1, $0506FA)  
                            Else 
                                PureCOLOR_SetCellColor(#Gadget_Form2_ListIcon6, Pos, 1, 1, $FFFFFF)  
                            EndIf
                        EndIf
                    Case #Menu_719
                        Pos = GetGadgetState(#Gadget_Form2_ListIcon6)
                        If Pos >= 0
                            modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2))
                            SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 2)
                            ;***************************************************************************************
                            If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne1$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 2)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne2$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 2)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne3$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 2)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne4$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 2)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne5$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 2)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne6$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 2)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne7$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 2)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne8$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 2)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne9$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 2)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne10$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 2)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne11$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 2)                                     
                            EndIf
                            ;***************************************************************************************
                        EndIf 
                    Case #Menu_197
                        Pos = GetGadgetState(#Gadget_Form2_ListIcon6)
                        If Pos >= 0
                            modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3))
                            SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 3)
                            ;***************************************************************************************
                            If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne1$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 3)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne2$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 3)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne3$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 3)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne4$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 3)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne5$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 3)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne6$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 3)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne7$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 3)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne8$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 3)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne9$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 3)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne10$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 3)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne11$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 3)                                     
                            EndIf
                            ;***************************************************************************************
                        EndIf
                    Case #Menu_414
                        Pos = GetGadgetState(#Gadget_Form2_ListIcon6)
                        If Pos >= 0
                            modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4))
                            SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 4)
                            ;***************************************************************************************
                            If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne1$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 4)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne2$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 4)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne3$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 4)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne4$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 4)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne5$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 4)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne6$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 4)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne7$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 4)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne8$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 4)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne9$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 4)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne10$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 4)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne11$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 4)                                     
                            EndIf
                            ;***************************************************************************************
                        EndIf
                    Case #Menu_1424
                        Pos = GetGadgetState(#Gadget_Form2_ListIcon6)
                        If Pos >= 0
                            modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5))
                            SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 5)
                            ;***************************************************************************************
                            If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne1$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 5)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne2$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 5)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne3$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 5)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne4$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 5)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne5$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 5)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne6$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 5)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne7$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 5)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne8$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 5)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne9$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 5)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne10$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 5)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne11$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 5)                                     
                            EndIf
                            ;***************************************************************************************
                        EndIf
                    Case #Menu_820
                        Pos = GetGadgetState(#Gadget_Form2_ListIcon6)
                        If Pos >= 0
                            modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6))
                            SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 6)
                            ;***************************************************************************************
                            If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne1$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 6)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne2$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 6)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne3$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 6)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne4$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 6)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne5$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 6)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne6$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 6)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne7$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 6)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne8$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 6)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne9$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 6)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne10$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 6)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne11$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 6)                                     
                            EndIf
                            ;***************************************************************************************
                        EndIf
                    Case #Menu_921
                        Pos = GetGadgetState(#Gadget_Form2_ListIcon6)
                        If Pos >= 0
                            modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7))
                            SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 7)
                            ;***************************************************************************************
                            If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne1$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 7)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne2$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 7)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne3$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 7)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne4$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 7)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne5$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 7)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne6$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 7)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne7$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 7)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne8$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 7)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne9$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 7)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne10$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 7)
                            ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne11$
                                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 7)                                     
                            EndIf
                            ;***************************************************************************************
                        EndIf
                EndSelect
                
            Case #PB_Event_Gadget
                Select GadgetID
                    Case #Gadget_Form2_ListIcon6
                        Position = GetGadgetState(#Gadget_Form2_ListIcon6)
                        If Position >= 0
                            If EventType() = #PB_EventType_RightClick ; si on clic bouton droit
                                DisplayPopupMenu(#Popup_Modif,WindowID(#Window_Form2)) ; affiche le popup
                            EndIf
                        EndIf
                        Select EventType()
                            Case #PB_EventType_LeftDoubleClick
                            Case #PB_EventType_RightDoubleClick
                            Case #PB_EventType_RightClick
                            Default
                        EndSelect
                        
                EndSelect
                
        EndSelect
    Until quitForm2
    CloseWindow(#Window_Form2)
EndIf
End
Haut
Avatar de l’utilisateur
MetalOS
Messages : 1510
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :
Contacter MetalOS

Message par MetalOS »

Bon voila je suis repartis sur ma source de depart et je n'est pas utiliser la lib Purecolor mais les commande native de PB est ca marche comme je voulais, il me reste encore des modif pour L'enregistrement (Merci Dobro).
Voila ce que ca donne.

Code : Tout sélectionner

;******************
;      PLANING
; By MetalOS
;******************

Dimanche$ = "DIMANCHE"
Personne1$ = "Personne1"
Personne2$ = "Personne2"
Personne3$ = "Personne3"
Personne4$ = "Personne4"
Personne5$ = "Personne5"
Personne6$ = "Personne6"
Personne7$ = "Personne7"
Personne8$ = "Personne8"
Personne9$ = "Personne9"
Personne10$ = "Personne10"
Personne11$ = "Personne11"

;- Global Variables and Constants
Global BubbleTipStyle.l:BubbleTipStyle=0

;- Window Constants
Enumeration 1
  #Window_Form2
EndEnumeration
#WindowIndex=#PB_Compiler_EnumerationValue


;- Gadget Constants
Enumeration 1
 
  ;Window_Form2
  #MenuBar_Form2_Fichier
  #MenuBar_Form2_Ouvrir
  #MenuBar_Form2_Enregistrer
  #MenuBar_Form2_Quitter
 
  #Gadget_Form2_ListIcon6
  
  #Popup_Modif
  #Menu_Jours
  #Menu_719
  #Menu_197
  #Menu_414
  #Menu_1424
  #Menu_820
  #Menu_921
  #file
  
EndEnumeration
#GadgetIndex=#PB_Compiler_EnumerationValue


;- MenuBar Constants
Enumeration 1
  #MenuBar_Form2
EndEnumeration
#MenuBarIndex=#PB_Compiler_EnumerationValue

Procedure Create_as_Listing() 
 Listing$ = SaveFileRequester("Enregistrer un Fichier Planing", "c:\", "Fichiers Planing|*.txt", 0)   
   If OpenFile(#file, Listing$ + ".txt")  ; Ouvre le fichier existant ou crée un nouveau fichier              
     WriteStringN(#file, Str(CountGadgetItems(#Gadget_Form2_ListIcon6))) ; le nombre d'éléments dans la listicon 
       For List = 0 To CountGadgetItems(#Gadget_Form2_ListIcon6)-1      ; pour chaque element de la liste 
         ;récupération du contenu de chaque colonne 
         Resultat0$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,0) 
         Resultat1$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,1) 
         Resultat2$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,2) 
         Resultat3$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,3) 
         Resultat4$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,4) 
         Resultat5$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,5) 
         Resultat6$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,6) 
         Resultat7$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,7)
         Resultat8$ = GetGadgetItemText(#Gadget_Form2_ListIcon6,List,8) 
         WriteStringN(#file,Resultat0$) ; on écrit le contenu de chaque colonne sur une ligne dans le fichier 
         WriteStringN(#file,Resultat1$) ; ça simplifie grandement la relecture 
         WriteStringN(#file,Resultat2$) ; WriteStringN sert à revenir à la ligne automatiquement 
         WriteStringN(#file,Resultat3$) 
         WriteStringN(#file,Resultat4$) 
         WriteStringN(#file,Resultat5$) 
         WriteStringN(#file,Resultat6$) 
         WriteStringN(#file,Resultat7$)
         WriteStringN(#file,Resultat8$)  
       Next  List 
      CloseFile(#file) ; on referme 
   EndIf 
    
EndProcedure 

Procedure Load_Listing() 
  Listing$ = OpenFileRequester("Charger un fichier Planing", "c:\", "Fichiers Planing|*.txt",0)
  ClearGadgetItemList(#Gadget_Form2_ListIcon6) ; on s'assure qu'il n'y a rien d'autre dans la listicon, donc on la vide    
  
  If OpenFile(0, Listing$)   ; Ouvre le fichier en écriture (pour éventuellement ajouter des données) 
     nbr=Val(ReadString(0))    ; lit le nombre d'elements 
      For P = 1 To nbr        
 ; donc pour chaque element de la liste on récupère 8 valeurs/lignes 
 ; correspondant aux 8 colonnes 
         Resultat0$ = ReadString(0)     
         Resultat1$ = ReadString(0)
         Resultat2$ = ReadString(0) 
         Resultat3$ = ReadString(0) 
         Resultat4$ = ReadString(0) 
         Resultat5$ = ReadString(0) 
         Resultat6$ = ReadString(0) 
         Resultat7$ = ReadString(0)
         Resultat8$ = ReadString(0) 
       ;on a lu chaque ligne dont on a besoin pour remplir la grille 
       ;chaque variable se voit ainsi doté d'une valeur (numéro ou text vu que c'est du string) 
       ;on ajoute chaque valeur de variable récupérée dans la listicon et dans l'ordre... 
        AddGadgetItem(#Gadget_Form2_ListIcon6,-1,Resultat0$+Chr(10)+Resultat1$+Chr(10)+Resultat2$+Chr(10)+Resultat3$+Chr(10)+Resultat4$+Chr(10)+Resultat5$+Chr(10)+Resultat6$+Chr(10)+Resultat7$+Chr(10)+Resultat8$) 
      Next  P 
    CloseFile(0) ; on referme    
  EndIf 
        
EndProcedure


Procedure.l Window_Form2()
  If OpenWindow(#Window_Form2,178,249,757,544,"Planing.",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered|#PB_Window_WindowCentered)
        CreateMenu(#MenuBar_Form2,WindowID(#Window_Form2))
      MenuTitle("Fichier")
      MenuItem(#MenuBar_Form2_Ouvrir,"Ouvrir")
      MenuBar()
      MenuItem(#MenuBar_Form2_Enregistrer,"Enregistrer")
      MenuBar()
      MenuItem(#MenuBar_Form2_Quitter,"Quitter")
      
      If CreatePopupMenu(#Popup_Modif) 
       OpenSubMenu("Modifier...") 
        MenuItem(#Menu_Jours, "JOURS") 
        MenuBar() 
        MenuItem(#Menu_719, "7h / 19h") 
        MenuBar() 
        MenuItem(#Menu_197, "19h / 7h")
        MenuBar() 
        MenuItem(#Menu_414, "4h / 14h")
        MenuBar() 
        MenuItem(#Menu_1424, "14h / 24h")
        MenuBar() 
        MenuItem(#Menu_820, "8h / 20h")
        MenuBar() 
        MenuItem(#Menu_921, "9h / 21h")     
       CloseSubMenu() 
      EndIf 
      
    If CreateGadgetList(WindowID(#Window_Form2))
      ListIconGadget(#Gadget_Form2_ListIcon6,0,35,760,490,"DATE",50,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "1")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "2")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "3")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "4")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "5")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "6")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "7")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "8")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "9")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "10")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "11")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "12")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "13")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "14")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "15")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "16")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "17")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "18")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "19")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "20")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "21")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "22")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "23")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "24")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "25")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "26")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "27")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "28")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "29")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "30")
         AddGadgetItem(#Gadget_Form2_ListIcon6, -1, "31")
        AddGadgetColumn(#Gadget_Form2_ListIcon6,1,"JOURS",100)
        AddGadgetColumn(#Gadget_Form2_ListIcon6,2,"7H / 19H",100)
        AddGadgetColumn(#Gadget_Form2_ListIcon6,3,"19H / 7H",100)
        AddGadgetColumn(#Gadget_Form2_ListIcon6,4,"4H / 14H",100)
        AddGadgetColumn(#Gadget_Form2_ListIcon6,5,"14H / 24H",100)
        AddGadgetColumn(#Gadget_Form2_ListIcon6,6,"8H / 20H",100)
        AddGadgetColumn(#Gadget_Form2_ListIcon6,7,"9H / 21H",100)
      HideWindow(#Window_Form2,0)
      ProcedureReturn WindowID(#Window_Form2)
    EndIf
  EndIf
EndProcedure

Procedure WindowCallback(WindowID,Message,wParam,lParam)
  ReturnValue=#PB_ProcessPureBasicEvents
  If Message=#WM_GETMINMAXINFO
    ReturnValue=PVDynamic_LockWindow(WindowID,lParam)
  EndIf
  If Message=#WM_SIZE
    ReturnValue=PVDynamic_Resize(WindowID)
  EndIf

  ProcedureReturn ReturnValue
EndProcedure

;- Main Loop
If Window_Form2()
  SetWindowCallback(@WindowCallback())

  quitForm2=0
  Repeat
    EventID  =WaitWindowEvent()
    MenuID   =EventMenu()
    GadgetID =EventGadget()
    WindowID =EventWindow()

    Select EventID
      Case #PB_Event_CloseWindow
        If WindowID=#Window_Form2
          quitForm2=1
        EndIf

      Case #PB_Event_Menu
        Select MenuID
          Case #MenuBar_Form2_Ouvrir
           Load_Listing()
            ;******* Colorisation au chargement*****************************
            For List = 0 To 30
             ;****1ere colonne****
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 1) = Dimanche$
              SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $0506FA, 1)
              Else
                SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FFFFFF, 1)
              EndIf
             ;****2eme Colonne**** 
              If GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 2) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $88C156, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 2) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $F5EA0A, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 2) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $1E8AF3, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 2) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $42D2ED, 2) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 2) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FFFFFF, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 2) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $9B3B94, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 2) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $E0964F, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 2) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $B1B1B1, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 2) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $B598C5, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 2) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $3AFBFB, 2) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 2) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FD770E, 2)                                     
             EndIf
             
             ;****3eme Colonne****
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 3) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $88C156, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 3) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $F5EA0A, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 3) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $1E8AF3, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 3) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $42D2ED, 3) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 3) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FFFFFF, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 3) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $9B3B94, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 3) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $E0964F, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 3) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $B1B1B1, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 3) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $B598C5, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 3) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $3AFBFB, 3) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 3) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FD770E, 3)                                     
             EndIf
             ;****4eme colonne****
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 4) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $88C156, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 4) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $F5EA0A, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 4) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $1E8AF3, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 4) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $42D2ED, 4) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 4) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FFFFFF, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 4) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $9B3B94, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 4) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $E0964F, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 4) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $B1B1B1, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 4) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $B598C5, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 4) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $3AFBFB, 4) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 4) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FD770E, 4)                                     
             EndIf
             ;****5eme colonne****
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 5) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $88C156, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 5) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $F5EA0A, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 5) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $1E8AF3, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 5) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $42D2ED, 5) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 5) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FFFFFF, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 5) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $9B3B94, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 5) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $E0964F, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 5) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $B1B1B1, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 5) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $B598C5, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 5) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $3AFBFB, 5) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 5) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FD770E, 5)                                     
             EndIf
             ;****6eme colonne****
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 6) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $88C156, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 6) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $F5EA0A, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 6) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $1E8AF3, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 6) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $42D2ED, 6) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 6) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FFFFFF, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 6) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $9B3B94, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 6) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $E0964F, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 6) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $B1B1B1, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 6) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $B598C5, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 6) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $3AFBFB, 6) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 6) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FD770E, 6)                                     
             EndIf
             
             ;****7eme colonne****
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 7) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $88C156, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 7) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $F5EA0A, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 7) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $1E8AF3, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 7) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $42D2ED, 7) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 7) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FFFFFF, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 7) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $9B3B94, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 7) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $E0964F, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 7) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $B1B1B1, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 7) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $B598C5, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 7) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $3AFBFB, 7) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, List, 7) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, List, #PB_Gadget_BackColor, $FD770E, 7)                                     
             EndIf
              
            Next List
            ;***************************************************************
          Case #MenuBar_Form2_Enregistrer
           Create_as_Listing()
          Case #MenuBar_Form2_Quitter
           End 
          Case #Menu_Jours
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 1)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 1)
              If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 1) = Dimanche$
                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $0506FA, 1)
              Else
                SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 1)
              EndIf
            EndIf 
          Case #Menu_719
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 2)
             ;***************************************************************************************
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 2) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 2)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 2) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 2) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 2)                                     
             EndIf
             ;***************************************************************************************
            EndIf  
          Case #Menu_197
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 3) 
            ;***************************************************************************************
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 3) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 3)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 3) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 3) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 3)                                     
             EndIf
             ;***************************************************************************************
            EndIf 
          Case #Menu_414
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 4) 
            ;***************************************************************************************
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 4) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 4)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 4) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 4) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 4)                                     
             EndIf
             ;***************************************************************************************
            EndIf 
          Case #Menu_1424
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 5) 
            ;***************************************************************************************
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 5) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 5)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 5) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 5) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 5)                                     
             EndIf
             ;***************************************************************************************
            EndIf 
          Case #Menu_820
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 6) 
            ;***************************************************************************************
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 6) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 6)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 6) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 6) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 6)                                     
             EndIf
             ;***************************************************************************************
            EndIf 
          Case #Menu_921
           Pos = GetGadgetState(#Gadget_Form2_ListIcon6) 
            If Pos >= 0 
             modif.s = InputRequester("Modifier le Type", "Entrez vos modifications :", GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7)) 
             SetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, modif, 7) 
            ;***************************************************************************************
             If GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne1$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $88C156, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne2$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $F5EA0A, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne3$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $1E8AF3, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne4$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $42D2ED, 7) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne5$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FFFFFF, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne6$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $9B3B94, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne7$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $E0964F, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne8$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B1B1B1, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne9$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $B598C5, 7)
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne10$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $3AFBFB, 7) 
             ElseIf GetGadgetItemText(#Gadget_Form2_ListIcon6, Pos, 7) = Personne11$
                  SetGadgetItemColor(#Gadget_Form2_ListIcon6, Pos, #PB_Gadget_BackColor, $FD770E, 7)                                     
             EndIf
             ;***************************************************************************************
            EndIf 
        EndSelect
       
      Case #PB_Event_Gadget
        Select GadgetID
          Case #Gadget_Form2_ListIcon6
           Position = GetGadgetState(#Gadget_Form2_ListIcon6) 
          If Position >= 0 
            If EventType() = #PB_EventType_RightClick ; si on clic bouton droit 
              DisplayPopupMenu(#PopUp_Modif,WindowID(#Window_Form2)) ; affiche le popup 
            EndIf 
          EndIf 
            Select EventType()
              Case #PB_EventType_LeftDoubleClick
              Case #PB_EventType_RightDoubleClick
              Case #PB_EventType_RightClick
              Default
            EndSelect
          
        EndSelect

    EndSelect
  Until quitForm2
  CloseWindow(#Window_Form2)
EndIf
End
Encore merci pour votre aide.
Haut
Répondre

Revenir à « Débutants »