Voir qu'1 partie du listing d'un ExplorerListGadget [Résolu]

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Voir qu'1 partie du listing d'un ExplorerListGadget [Résolu]

Message par Kwai chang caine »

Bonjour à tous

Je voudrais savoir, si il serait possible de cacher une, ou plusieures lignes prédéfinies dans un ExplorerListGadget.

C'est a dire que l'on ne voudrais pas qu'apparaisse un certain repertoire ou fichier afin que l'utilisateur ne puisse pas cliquer dessus.

Un peu comme si, il n'avait pas les droits dessus, mais evidemment qu'a travers CET ExplorerListGadget (Sans modifier les droits de windows)

Ca sent le callback, mais j'y ai jamais rien compris.(Etonnant non ???) :lol:

Je vous remercie
Dernière modification par Kwai chang caine le mar. 03/avr./2007 10:38, modifié 1 fois.
Avatar de l’utilisateur
Flype
Messages : 2431
Inscription : jeu. 29/janv./2004 0:26
Localisation : Nantes

Message par Flype »

çà sent le callback oui.

mais çà peut être fait en pure pure 8) .

Code : Tout sélectionner

Procedure.l monFiltre(Gadget.l)
  
  Protected item.l = CountGadgetItems(Gadget) - 1
  
  While item
    Select LCase(GetGadgetItemText(Gadget, item, 0))
      Case "program files", "windows", "winnt"
        RemoveGadgetItem(Gadget, item)
    EndSelect
    item - 1
  Wend
  
EndProcedure
  
If OpenWindow(0, 0, 0, 705, 540, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered) 
  
  If CreateGadgetList(WindowID(0))
    
    ExplorerListGadget(2, 0, 30, 705, 500, "C:\", #PB_Explorer_GridLines)
    
    monFiltre(2) ; une premiere fois
    
    Repeat
      
      Select WaitWindowEvent()
        
        Case #PB_Event_CloseWindow
          Break
          
        Case #PB_Event_Gadget
          Select EventGadget()
            Case 2
              If EventType() = #PB_EventType_Change
                monFiltre(2) ; et à chaque refresh du gadget
              EndIf
          EndSelect
          
      EndSelect
      
    ForEver
    
  EndIf
  
EndIf
et oui tout simplement :D :wink:
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

Bonjour FLYPE

Je te remercie beaucoup.
J'avais pas pensé que l'on pouvait agir sur un ExplorerListGadget comme sur une listview banal :oops:

Des fois c'est comme "knaki herta" c'est les choses les plus simples auquelles on ne pense jamais:oops:

Encore merci pour ton super code "redoutien" pour la rapidité avec laquelle tu l'a rédigé et redoutable par son éfficacité:D

Je te souhaite une excelente journée
Répondre