[R] Insertion d'icônes dans une liste

[peuchere83]

Bonjour à tous,

je cherche à insérer des icônes dans une listview.
Pour cela j'utilise la fonction : "_GUIImageList_AddIcon ". Jusque là pas de problème.

Mes questions :
- Est il possible d'intégrer une icône que j'ai dessiné ? car dans l'exemple de la fonction, il est uniquement expliqué comment utiliser des images provenant du shel32.dll.
- Dans le cas ou je devrais utiliser ces icônes (du shell32) comment connaître l'index affecter à chaque image ?

Car j'ai la liste complète des images contenues (obtenue avec le logiciel "icon sushi") mais je 'arrive pas à trouver cet index.

Par avance merci.

[Jerome]

Coucou,


Tu auras ce que tu cherches probablement ici.

Sinon pour l'index :

Code : Tout sélectionner

GUICtrlGetHandle

?





Jérôme

[peuchere83]

Bonjour Jérôme et merci.

Le lien que tu m'as donné, c'est exactement ce que j'avais testé (en effet c ce qui semblait le plus logique).
J'ai peut-être alors un problème avec mon icône (taille, ...).

Par contre je me suis peut être mal exprimé ou alors je ne comprends pas ta 2ème réponse :
Voici un exemple de code utilisant les icônes du shell32 :

Code : Tout sélectionner

    ; Load images
    $hImage = _GUIImageList_Create(16, 16, 5, 3)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 131)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 165)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 168)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 137)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 146)
    _GUICtrlListView_SetImageList($listview, $hImage, 1)

C'est le dernier chiffre que je ne sais pas ou trouver (110, 131, 165, ...)

Merci.

[peuchere83]

Par ailleurs, est il possible d'ajouter une icône seulement au SubItems et non pas sur l'Item parent ?

Car après plusieurs tests, ben j'y arrive pas


Par avance merci.

[Jerome]

Coucou,

Pour les icônes de shell32, je te conseil de regarder ce lien, et plus particulièrement ce passage :

- Retrouver une icône :
En personnalisant votre système, vous vous apercevrez qu'il est possible de spécifier une image différente de celle qui est inscrite par défaut pour tel dossier système ou type de fichiers. Les fichiers système de Windows (.exe, .dll, etc. ) renferment une multitude d'icônes dont vous pouvez disposer à tout moment. Voici une manière simple de se repérer :
1) Avec le bouton droit de la souris, cliquez sur un des raccourcis présents sur le Bureau, puis sur la commande Propriétés.
2) Cliquez sur le bouton Changer d'icône...
3) Cliquez sur le bouton Parcourir... puis sélectionnez le fichier \WINDOWS\system32\shell32.dll.
Les icônes sont numérotées de gauche à droite et du haut vers le bas.

Pour la taille de tes icônes, c'est du 16*16 ou du 32*32, si tu veux être sur d'avoir tout le temps tes icones à porter de main, tu peux modifier le fichier shell32 pour y rajouter les dîtes icones, voir cette page.


Pour ta dernière question, j'ai pas saisit l'histoire des subitems ^^"

Bon courage




Jérôme

[Olive89]

Bonjour,

Il y a dans Autoit ce qu'il faut pour visionner les icônes avec "enumicons" qui est situé "C:\Program Files (x86)\AutoIt3\Examples\GUI\Advanced\enumicons.au3" si ça peut aider, il suffit de glisser la DLL dans l'inputbox et tous les icônes apparaissent numérotés comme ils se doit par "nom" ou en "ordinal", super pratique

A++

[timmalos]

J'ai déjà eu votre problème et j'avais reussi, mais c'est dans un projet que je ne peux partager sur ce forum n'étant pas propriétaire du script (J'ai travaillé pour une société) je vais essayer d'eplucher mes scripts pour trouver ca, je vous tiens au courant.

EDIT : J'ai retrouvé la partie concernée, mais j'ai pas le temps de tout remettre d'aplomb. Je vous colle le code si ca peut vous aider:


D'abord il faut faire une liste d'image.

► Afficher le texte

Code : Tout sélectionner

Func _DoImageListe()
    Local $i, $ii, $1, $2

    _GUIImageList_Destroy($hImage)
    $hImage = _GUIImageList_Create(16, 16, 5, 3)
    ;_GUIImageList_Destroy($hImage2)
    ;$hImage2 = _GUIImageList_Create(38, 38, 5, 3)
    For $ii = 1 To $nombre_appli
        _GUIImageList_AddBitmap($hImage, $image_dir & "Blanc.bmp")

        $1 = Number(IniRead(Eval("scenario" & $ii & "_dossier") & Eval("scenario" & $ii & "_nom") & ".ini", "parametres", "warning", "erreur.de.lecture.des.parametres.ini"))
        $2 = Number(IniRead(Eval("scenario" & $ii & "_dossier") & Eval("scenario" & $ii & "_nom") & ".ini", "parametres", "critique", "erreur.de.lecture.des.parametres.ini"))
        If Eval("scenario" & $ii & "_tempstotal") > $2 Then
            _GUIImageList_AddBitmap($hImage, $image_dir & "Red_t.bmp")
        ElseIf Eval("scenario" & $ii & "_tempstotal") > $1 Then
            _GUIImageList_AddBitmap($hImage, $image_dir & "Yellow_t.bmp")
        Else
            _GUIImageList_AddBitmap($hImage, $image_dir & "Green_t.bmp")
        EndIf

        For $i = 1 To Eval("scenario" &$ii & "_nombreverifs")
            If Eval("scenario" & $ii & "_verif" & $i & "_etat") = "1" Then
                _GUIImageList_AddBitmap($hImage, $image_dir & "Green.bmp")
            Else
                _GUIImageList_AddBitmap($hImage, $image_dir & "Red.bmp")
            EndIf
        Next
        ;MsgBox(0,"nombre_appli",$nombre_appli)
    Next
    ;MsgBox(4096, "Information", "Image Count: " & _GUIImageList_GetImageCount($hImage))
EndFunc   ;==>_DoImageListe

Ensuite la creation de la ListView:

► Afficher le texte

Code : Tout sélectionner

Func _DoListView($func_param = 0)
    Local $i, $ii, $iii, $1, $2
    $read_hCombo1 = GUICtrlRead($hCombo1)
    If $func_param = 1 Then
        _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($hListView))
        _GUICtrlListView_RemoveAllGroups($hListView)
    Else
        $hListView = GUICtrlCreateListView("Application n°1", 800 / 1280 * $total_width, 10 / 1024 * $total_height, $width, $total_height - 100, $LVS_NOCOLUMNHEADER + $WS_HSCROLL)
        GUICtrlSetState(-1, $GUI_ONTOP)
        _GUICtrlListView_SetExtendedListViewStyle($hListView, $LVS_EX_FULLROWSELECT + $LVS_EX_DOUBLEBUFFER)
        _GUICtrlListView_InsertColumn($hListView, $i, "", $width / 1.3, 0)
        _GUICtrlListView_DeleteColumn($hListView, 0)
    EndIf



    _GUICtrlListView_SetImageList($hListView, $hImage, 1)
    ;_GUICtrlListView_SetImageList($hListView, $hImage2, 1)
    $lenth = $width / 1.3
    $iii = 0
    For $i = 1 To $nombre_appli
        If $read_hCombo1 = "Tous les Scénarios" Or $read_hCombo1 = Eval("scenario" & $i & "_appli") & " // " & Eval("scenario" & $i & "_nom") Then
            _GUICtrlListView_AddItem($hListView, "   Prochaine Mesure le " & Eval("scenario" & $i & "_next_date"), $iii)

            $1 = IniRead(Eval("scenario" & $i & "_dossier") & Eval("scenario" & $i & "_nom") & ".ini", "parametres", "warning", "erreur.de.lecture.des.parametres.ini")
            $2 = IniRead(Eval("scenario" & $i & "_dossier") & Eval("scenario" & $i & "_nom") & ".ini", "parametres", "critique", "erreur.de.lecture.des.parametres.ini")


            $result = _GUICtrlListView_GetStringWidth($hListView, "   Temps Total Critique = " & _ajuster_temps(Eval("scenario" & $i & "_tempstotal")) & "  > " & _ajuster_temps($2))
            If $result >= $lenth Then
                _GUICtrlListView_SetColumnWidth($hListView, 0, $result * 1.1)
                $lenth = $result
            EndIf
            If Eval("scenario" & $i & "_tempstotal") > $2 Then
                _GUICtrlListView_AddItem($hListView, "   Temps Total Critique = " & _ajuster_temps(Eval("scenario" & $i & "_tempstotal")) & "  > " & _ajuster_temps($2), $iii + 1)
            ElseIf Eval("scenario" & $i & "_tempstotal") > $1 Then
                _GUICtrlListView_AddItem($hListView, "   Warning Temps Total = " & _ajuster_temps(Eval("scenario" & $i & "_tempstotal")) & "  > " & _ajuster_temps($1), $iii + 1)
            Else
                _GUICtrlListView_AddItem($hListView, "   Temps Total = " & _ajuster_temps(Eval("scenario" & $i & "_tempstotal")), $iii + 1)
            EndIf



            For $ii = 1 To Eval("scenario" &$i & "_nombreverifs")
                $result = _GUICtrlListView_GetStringWidth($hListView, "   " & Eval("scenario" & $i & "_verif" & $ii & "_nom") & " (" & Eval("scenario" & $i & "_verif" & $ii & "_temps") & " secondes)")
                If $result >= $lenth Then
                    _GUICtrlListView_SetColumnWidth($hListView, 0, $result * 1.1)
                    $lenth = $result
                EndIf
                _GUICtrlListView_AddItem($hListView, "   " & Eval("scenario" & $i & "_verif" & $ii & "_nom") & " (" & Eval("scenario" & $i & "_verif" & $ii & "_temps") & " secondes)", $iii + ($ii + 1))
                _GUICtrlListView_SetItemIndent($hListView, $iii + ($ii + 1), 2)
            Next
        EndIf
        $iii += Eval("scenario" & $i & "_nombreverifs") + 2
    Next

    ;_GUICtrlListView_addItem($hListView,"")
    ;_GUICtrlListView_SetItemstate($hListView,$iii+1,$LVIS_HIDDEN,$LVIS_HIDDEN)
    $iii = 0

    _GUICtrlListView_EnableGroupView($hListView)
    For $i = 1 To $nombre_appli
        If $read_hCombo1 = "Tous les Scénarios" Or $read_hCombo1 = Eval("scenario" & $i & "_appli") & " // " & Eval("scenario" & $i & "_nom") Then
            $result = _GUICtrlListView_GetStringWidth($hListView, Eval("scenario" & $i & "_appli") & " // " & Eval("scenario" & $i & "_nom") & " | " & Eval("scenario" & $i & "_last_date"))
            If $result >= $lenth Then
                _GUICtrlListView_SetColumnWidth($hListView, 0, $result * 1.1)
                $lenth = $result
            EndIf
            _GUICtrlListView_InsertGroup($hListView, -1, $i, Eval("scenario" & $i & "_appli") & " // " & Eval("scenario" & $i & "_nom") & " | " & Eval("scenario" & $i & "_last_date"), 0)

            ;_GUICtrlListView_SetGroupInfo($hListView,$i,"",2,$LVGS_SUBSETED)
        EndIf
    Next
    For $i = 1 To $nombre_appli
        If $read_hCombo1 = "Tous les Scénarios" Or $read_hCombo1 = Eval("scenario" & $i & "_appli") & " // " & Eval("scenario" & $i & "_nom") Then
            For $ii = 1 To Eval("scenario" &$i & "_nombreverifs") + 2
                _GUICtrlListView_SetItemGroupID($hListView, $iii + ($ii - 1), $i)
            Next
            $iii += $ii - 1
        EndIf
    Next


EndFunc   ;==>_DoListView

Donc en lisant vite fait, en fait on cree pas de SubItem, que des Item, mais on gère l'indentation manuellement pour faire croire à des SubItems.

Ce qui peut donner :

► Afficher le texte

[peuchere83]

Merci à tous !!!!

@Olive89 : je ne connaissais pas "enumicons.au3" et donc je t'en remercie.
Petite remarque : il faut enlever 1 au numéro pour pouvoir utiliser la bonne icône (et ne pas tenir compte du signe moins)

@timmalos : très belle solution de "contournement", mais le but et ainsi atteint (j'aurais pu y penser je suis vraiment trop bête ). Encore merci !!

@Jerome : merci pour l'information. Par contre je préfere l'utilisation de enumicons.au3 (ce qui évite de compter la position de l'icône).
Par contre ton idée d'insérer mes icône dans le shell32.dll est très intéressante. Je vais regarder cela de plus près.

Bonne journée et merci pour votre partage de connaissance.

[peuchere83]

Petite rectification sur mon poste précédent :

@timmalos :
je viens de regarder plus attentivement ton code, et tu es dans le même cas que moi : ton 1er item récupère obligatoirement la 1ère image de la liste d'image. Or justement je souhaite que mon 1er item n'ait aucune icône.

Voici un morceau de ton code :
$iii = 0
_GUICtrlListView_AddItem($hListView, " Prochaine Mesure le " & Eval("scenario" & $i & "_next_date"), $iii)

Suite à mes tests, que ta variable $iii soit égale à 0 ou n'existe pas, dans tous les cas la première icône de ta liste d'image est attribuée.

C'est là ou je coince.

Par avance merci.

[Jerome]

Coucou,

N'oublie pas la balise [R] dans le titre de ton premier message




Jérôme

[peuchere83]

@jerome :

Je n'ai pas rajouté le "R" car en fait la solution de timmalos ne fonctionne pas : l'image est toujours inséré sur le 1er item et je ne le souhaite pas (voir mon poste précédent pour plus de détail).

Pour l'instant la seule solution que j'ai trouvé, c'est d'afficher une icône vide.

[Jerome]

Re-Coucou,


C'est normal que sa ne fonctionne pas, la commande _GUICtrlListView_AddItem est la pour ajouter des items dans une liste view, les images sont à part. Le $iii correspond ici à la ligne/colonne de l'objet ajouter.


Pour les images, je pense que c'est plutôt : _GUICtrlListView_SetImageList($hListView, $hImage, 1)

Dans son code, il y a donc deux liste l'une à coté de l'autre, une imagelist et une listview.






Jérôme

[timmalos]

@peuchere83

Je n'avais pas compris votre problème. Je croyais que vous souhaitiez differencier Item et SubItem. Pour ne pas afficher d'icone pour le premier Item, je pense que la seule solution est comme vous l'avez déjà pensé, un icône vide. Ca ne pause pas de problème en soit, et si ca vous convient je pense que cette solution est bonne.
C'est une des faiblesses d'Autoit, obliger la création d'une Liste d'icônes sans pouvoir affecter une icône directement à un Item.

[peuchere83]

Merci à vous deux.

Donc je ne suis pas fou !! ( )

Merci encore.