[R] Fixer la taille de la police de caractère dans un gui

[zeshrek]

A ce moment là il faut que tu appliques a ta taille de police une regele de 3 :
(je me suis permis de faire 2-3 modifs pour la lisibilité du code, en remettant les choses dans l'ordre ou elles s'affichent dans la GUI)

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;Opt("GUIOnEventMode", 1)
;GUIRegisterMsg($WM_COMMAND, "DoubleClick")

#region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\SciTE\Koda\Forms\GuiChromeProfil.kxf
;GUI PRINCIPAL
Global $InstallDir, $UserName, $DossierSelectionne, $Form2, $VersionIni, $VersionBDR, $NOM_ZIP, $Resultat, $LBN_DBLCLK

Local $color = 0xFFFFFF

If RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "LogPixels") <> "" Then
    Global $FontSize = 8.5 * 96 / RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "LogPixels")
Else
    Global $FontSize = 8.5
EndIf
global $FontWeight = 400

Global $ChromeManager = GUICreate("Google Chrome - Choisissez un profil utilisateur", 345, 218, 192, 124)
;GUISetOnEvent($GUI_EVENT_CLOSE, "Sortie")
$backgroundColor = GUISetBkColor($color, $ChromeManager)

Global $Label1 = GUICtrlCreateLabel(" Chrome conserve vos préférences et paramètres dans votre profil", 8, 8, 324, 17)
GUICtrlSetFont(-1, $FontSize, $FontWeight, 0, "MS Sans Serif")
;;GUICtrlSetFont(-1,8, 10, 400, 0, "MS Sans Serif")

Global $CreateProfil = GUICtrlCreateButton("Créer un profil", 8, 32, 145, 33, $WS_GROUP)
GUICtrlSetFont(-1, $FontSize, $FontWeight, 2, "MS Sans Serif")
;GUICtrlSetOnEvent($CreateProfil, "CreateProfil") ; *****
;;GUICtrlSetFont($CreateProfil,14, 10, 400, 0, "MS Sans Serif")

Global $Delete = GUICtrlCreateButton("Supprimer un profil", 8, 80, 145, 33, $WS_GROUP)
GUICtrlSetFont(-1, $FontSize, $FontWeight, 2, "MS Sans Serif")
;GUICtrlSetOnEvent($Delete, "Delete") ; *****
;;GUICtrlSetFont(-1,8, 10, 400, 0, "MS Sans Serif")

Global $Backup = GUICtrlCreateButton("Sauvegarder Profil", 8, 128, 147, 33, $WS_GROUP)
GUICtrlSetFont(-1, $FontSize, $FontWeight, 2, "MS Sans Serif")
;GUICtrlSetOnEvent($Backup, "Backup") ; *****

Global $ListProfil = GUICtrlCreateList("", 168, 48, 169, 73)
GUICtrlSetFont(-1, $FontSize, $FontWeight, 2, "MS Sans Serif")

Global $StartChrome = GUICtrlCreateButton("Demarrer Chrome", 144, 168, 97, 33, $WS_GROUP)
GUICtrlSetFont(-1, $FontSize, $FontWeight, 2, "MS Sans Serif")
;GUICtrlSetOnEvent($StartChrome, "Start") ; *****

Global $Quit = GUICtrlCreateButton("Quitter", 249, 168, 87, 33, $WS_GROUP)
GUICtrlSetFont(-1, $FontSize, $FontWeight, 2, "MS Sans Serif")
;GUICtrlSetOnEvent($Quit, "Sortie") ; *****

GUISetState(@SW_SHOW, $ChromeManager)
#endregion ### END Koda GUI section ###

Do
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $StartChrome
            ;Start()
        Case $CreateProfil
            ;CreateProfil()
        Case $Delete
            ;Delete()
        Case $Backup
            ;Backup()
        Case $Quit
            Exit
    EndSwitch
Until $Msg = $GUI_EVENT_CLOSE

 

[mikell]

$FontSize = 8.5 * 96 / 192 => ça fait 4.25
Sur mon XP on ne peut pas attribuer à "MS Sans Serif" une taille < 8

Code : Tout sélectionner

GUICreate("Google Chrome - Choisissez un profil utilisateur", 345, 218, 192, 124)
GUICtrlCreateLabel(" Chrome conserve vos préférences et paramètres dans votre profil", 8, 8, 324, 17)
GUICtrlSetFont(-1, [b]4[/b], 400, 0, "MS Sans Serif")   ; entre 1 et 8 la taille ne change pas (8)
GUISetState()
while 1
wend

Je crains que la seule solution soit d'utiliser LogPixels pour redimensionner la gui
$param = LogPixels / 96
$ChromeManager = GUICreate("...", 345*$param, 218*$param, 192, 124)
etc, comme dans mon code précédent

[Laddy]

Bonsoir à tous les deux
désolé pour la lenteur de mes réponses mais en semaine difficile de faire des tests.
J'ai testé vos deux codes et ma gui est rikiki mdr


ZeShrek


Mikell


quand on lit les infos sur guictlrlfont ect.. il est dit que par défaut la taille est de 8.5, peit etre est ce dû au minimum indiqué par Mikell

[mikell]

Bin oui, si tu peux pas diminuer la taille de la police alors faudra augmenter celle de la gui ^^
ce qui est sans doute la meilleure solution si tu la trouves rikiki

[Laddy]

le code précédant était mieux la gui était de bonne taille, là elle est minuscule et c'est donc illisible.

[mikell]

Heu quand tu parles de code précédent, tu parles de mon code avec la résolution d'écran ?

[Laddy]

oui mikell tout à fait, c'es celui avec la résolution de l'écran
pour le moment je reste avec celui ci pour ma gui
on attendant d'avoir le temps de regarder la solution de Zeshrek plus en détail pou rcomprendre pourquoi ça ne fonctionne pas comme prévu.

[mikell]

ça ne fonctionne pas parce que le code de zeshrek essaie de faire afficher une police trop petite et windows refuse
Mais l'idée de zeshrek d'utiliser Logpixels est bonne, c'est plus polyvalent que d'utiliser la résolution
Quand tu mets une police à 200% ton Logpixels passe à 192, qui est le double de 96 (taille normale) donc tu peux ajuster la taille de ta gui en fonction du rapport Logpixels/96
Essaie ce code-là sur ta tv

► Afficher le texte

Code : Tout sélectionner

$LogPixels = _GetLogPixels()
Global $s = $LogPixels / 96
_Gui()

While 1
Sleep(10)
Wend


Func _Gui()
Global $ChromeManager = GUICreate("Google Chrome - Choisissez un profil utilisateur", 345*$s, 218*$s, 192, 124)
Global $ListProfil = GUICtrlCreateList("", 168*$s, 48*$s, 169*$s, 73*$s)
Global $StartChrome = GUICtrlCreateButton("Demarrer Chrome", 144*$s, 168*$s, 97*$s, 33*$s)
Global $Quit = GUICtrlCreateButton("Quitter", 249*$s, 168*$s, 87*$s, 33*$s)
Global $CreateProfil = GUICtrlCreateButton("Créer un profil", 8*$s, 32*$s, 145*$s, 33*$s)
Global $Label1 = GUICtrlCreateLabel(" Chrome conserve vos préférences...", 8*$s, 8*$s, 324*$s, 17*$s)
;Global $Delete = GUICtrlCreateButton("Supprimer un profil", 8, 80, 145, 33)
;Global $Backup = GUICtrlCreateButton("Sauvegarder Profil", 8, 128, 147, 33)
GUISetState()
EndFunc

Func _GetLogPixels()
$objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DisplayConfiguration")
For $objItem In $colItems
      $ppp = $objItem.LogPixels
Next
Return $ppp
EndFunc
 

[zeshrek]

'fectivemet, si on peut pas diminuer la taille de la police (pourquoi ca d'ailleurs ?) il faut augmenter celle de la GUI pour que les éléments rentrent dedans.

[Laddy]

Bonjour
je teste dès que possible ton code mikell.

Dites j'ai une petite question qui n'a rien à voir avec le sujet, est il possible de mettre une icone dans un GUICtrlCreateList
j'ai vu des exemples de réponses code mais uniquement sur GUICtrlCreateListView.
Dans mon code j'utilise GUICtrlCreateList pour lister le contenu d'un dossier et j'aurai bien ajouté une icone devant le résultat...

[mikell]

Tu peux mais c'est assez lourd
Voilà le lien sur le forum US http://www.autoitscript.com/forum/topic ... r-listbox/ et le code-démo

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <GuiListBox.au3>
#include <GuiImageList.au3>
#include <WinAPI.au3>

; Example by rasim
; modified by Prog@ndy / MsCreatoR (Index storing issue, UDF merge, and tidy source :) )

Global Const $ODT_LISTBOX = 2
Global Const $ODA_DRAWENTIRE = 0x1
Global Const $ODA_SELECT = 0x2
Global Const $ODS_SELECTED = 0x1

$hGUI = GUICreate("ListBox with images - Demo!", 300, 200)

$hListBoxIMGList = _GUIImageList_Create(16, 16, 6, 1, 4, 90)
_GUIImageList_SetBkColor($hListBoxIMGList, $CLR_NONE)

GUIRegisterMsg($WM_MEASUREITEM, "WM_MEASUREITEM")

$ListBox = GUICtrlCreateList("", 10, 10, 280, 180, BitOR($LBS_HASSTRINGS, $LBS_OWNERDRAWFIXED, $WS_VSCROLL))
$hListBox = GUICtrlGetHandle($ListBox)

For $i = 1 To 10
    _GUICtrlListBox_AddStringEx($hListBox, "String " & $i, $hListBoxIMGList, @SystemDir & "\shell32.dll", $i)
Next

GUIRegisterMsg($WM_DRAWITEM, "WM_DRAWITEM")

GUISetState()

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func _GUICtrlListBox_AddStringEx($hWnd, $sText, $hImageList = 0, $sIconFile = "", $iIndex = 0)
    If $hImageList = 0 Then
        Return _GUICtrlListBox_AddString($hWnd, $sText)
    Else
        Local $iIconIDX = _GUIImageList_AddIcon($hImageList, $sIconFile, $iIndex, 0)
        Local $iStrIndex = _GUICtrlListBox_AddString($hWnd, $sText)
        _GUICtrlListBox_SetItemData($hWnd, $iStrIndex, $iIconIDX)
        
        Return $iStrIndex
    EndIf
EndFunc

Func WM_MEASUREITEM($hWnd, $Msg, $wParam, $lParam)
    Local $CtlType, $tagMEASUREITEMSTRUCT = "UINT CtlType;UINT CtlID;UINT itemID;UINT itemWidth;UINT itemHeight;ULONG_PTR itemData;"
    Local $MEASUREITEMSTRUCT = DllStructCreate($tagMEASUREITEMSTRUCT, $lParam)
    
    $CtlType = DllStructGetData($MEASUREITEMSTRUCT, "CtlType")
    If $CtlType <> $ODT_LISTBOX Then Return $GUI_RUNDEFMSG
    
    DllStructSetData($MEASUREITEMSTRUCT, 5, 18)
    DllStructSetData($MEASUREITEMSTRUCT, 4, DllStructGetData($MEASUREITEMSTRUCT, 4) + 18)
    
    Return
EndFunc

Func WM_DRAWITEM($hWnd, $Msg, $wParam, $lParam)
    Local $tagDRAWITEMSTRUCT, $cID, $itmID, $itmAction, $itmState, $hItm, $hDC, $iBrushColor, $hBrush, $hBrushOld
    
    $tagDRAWITEMSTRUCT = DllStructCreate("uint cType;uint cID;uint itmID;uint itmAction;uint itmState;" & _
            "hwnd hItm;hwnd hDC;int itmRect[4];dword itmData", $lParam)
    If DllStructGetData($tagDRAWITEMSTRUCT, "cType") <> $ODT_LISTBOX Then Return $GUI_RUNDEFMSG
    
    $cID = DllStructGetData($tagDRAWITEMSTRUCT, "cID")
    $itmID = DllStructGetData($tagDRAWITEMSTRUCT, "itmID")
    $itmAction = DllStructGetData($tagDRAWITEMSTRUCT, "itmAction")
    $itmState = DllStructGetData($tagDRAWITEMSTRUCT, "itmState")
    $hItm = DllStructGetData($tagDRAWITEMSTRUCT, "hItm")
    $hDC = DllStructGetData($tagDRAWITEMSTRUCT, "hDC")
    
    Switch $itmAction
        Case $ODA_DRAWENTIRE, $ODA_SELECT
            If $itmState = $ODS_SELECTED Then
                $iBrushColor = 0x6495ED
            Else
                $iBrushColor = 0x66CDAA
            EndIf
            
            $hBrush = _WinAPI_CreateSolidBrush($iBrushColor)
            $hBrushOld = _WinAPI_SelectObject($hDC, $hBrush)

            DllCall("user32.dll", "int", "FillRect", _
                    "hwnd", $hDC, _
                    "ptr", DllStructGetPtr($tagDRAWITEMSTRUCT, "itmRect"), _
                    "hwnd", $hBrush)
            
            _WinAPI_SelectObject($hDC, $hBrushOld)
            _WinAPI_DeleteObject($hBrush)
            
            DllCall("gdi32.dll", "int", "SetBkMode", "hwnd", $hDC, "int", 1)
            
            Local $tBuffer = DllStructCreate("char[256]")
            DllCall("user32.dll", "int", "SendMessage", _
                    "hwnd", $hItm, _
                    "int", $LB_GETTEXT, _
                    "int", $itmID, _
                    "ptr", DllStructGetPtr($tBuffer))
            
            Local $itmText = DllStructGetData($tBuffer, 1)
            Local $itmTextIMG = _GUICtrlListBox_GetItemData($hListBox, $itmID)
            
            Local $tRECT = DllStructCreate("int Left;int Top;int Right;int Bottom")
            DllStructSetData($tRECT, "Left", DllStructGetData($tagDRAWITEMSTRUCT, "itmRect", 1) + 18)
            DllStructSetData($tRECT, "Top", DllStructGetData($tagDRAWITEMSTRUCT, "itmRect", 2))
            DllStructSetData($tRECT, "Right", DllStructGetData($tagDRAWITEMSTRUCT, "itmRect", 3))
            DllStructSetData($tRECT, "Bottom", DllStructGetData($tagDRAWITEMSTRUCT, "itmRect", 4))
            
            DllCall("user32.dll", "int", "DrawText", "hwnd", $hDC, "str", $itmText, "int", StringLen($itmText), _
                    "ptr", DllStructGetPtr($tRECT), "int", $DT_LEFT)
            
            Local $iX = DllStructGetData($tagDRAWITEMSTRUCT, "itmRect", 1) + 1
            Local $iY = DllStructGetData($tagDRAWITEMSTRUCT, "itmRect", 2) + 1
            Local $fIsSelected = ($itmState = $ODS_SELECTED) * 2
            
            If $itmTextIMG >= 0 Then _GUIImageList_Draw($hListBoxIMGList, $itmTextIMG, $hDC, $iX, $iY, BitOR(1, $fIsSelected))
    EndSwitch
    
    Return $GUI_RUNDEFMSG
EndFunc

Mais pourquoi tu veux pas utiliser une listview ? tu t'emm..derais moins

[zeshrek]

[Mode modo ON] Une seule question par topic svp. Laddy, le plus simple serait de créer un nouveau topic pour ton pb d'icone...[Mode modo OFF]

[Laddy]

@Zesreck, je ne recommencerai plus

@mikell, merci beaucoup faut que je regarde comment adapter maintenant ;D ça ne m'a pas l'air simple.

Bonnes fêtes de Noel à tous deux

[Laddy]

Bonjour
mikell j ai testé ton dernier code et malheureusement je me retrouve au point de départ, l ecriture ne tient pas dans les boutons.

J en profite pour vous souhaiter un tres bon réveillon et mes meilleurs voeux pour la nouvelle année.

[mikell]

Ben va falloir te rabattre sur celui qui utilise la résolution d'affichage alors... il marche toujours sui-là ?
Après si ça doit fonctionner avec d'autres écrans on peut toujours adapter ^^

Bonnes fêtes à toi aussi

[Laddy]

oui il marche super bien sur ma tv pour le moment ça reste chez moi donc pas de soucis et si je dois lexporter ailleurs je regarderai merci en tout cas pour ton aide.

Là je suis entrain d essayer de comprendre le code pour les icones et ensuite l adapter pour mettre une image uniquement sur les différents dossiers.
Pas evident surtout qu il y a des choses que je ne maitrise pas encore

[mikell]

si je dois lexporter ailleurs je regarderai

OK le moment venu si ça t'intéresse, à une certaine période j'ai fait pas mal de scripts de gestion de résolution d'écran

Pour les icones franchement pourquoi tu fais pas une Listview au lieu d'une Listbox ? l'aspect est identique mais la gestion est bcp plus facile et tes soucis seraient déjà résolus depuis longtemps...

[Laddy]

Bonjour Mikell
mes meilleurs voeux pour 2012

Mon script a un peu plus d'un an déjà c'était mon premier script en autoit, je crois avoir choisi listbox pour une question d’esthétisme si je me souviens bien et que c'était plus facile pour moi. Je ne vois pas comment faire avec listview
Mon but était de réaliser un profil manager pour google chrome comme pour firefox : http://support.mozilla.org/en-US/kb/Managing-profiles car ça n'existe pas comme ça avec ce navigateur.

[mikell]

... et bonne année 2013

Tu devrais jeter un oeil à l'exemple de l'aide pour _GUIImageList_AddIcon
Pfff j'aurais dû t'en parler depuis le début

[Laddy]

Arf j'y suis pas encore passée en 2012 mdr
Le problème avec listview c'est l'apparence des colonnes ça fait pas beau à moins que l'on puisse cacher. Je vais regarder la doc

Tentative d'adapation listbox vs listview

► Afficher le textecode de départ listview

Code : Tout sélectionner

#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

_Main()

Func _Main()
    Local $listview, $hImage
    Local $exStyles = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES)

    GUICreate("ImageList AddIcon", 400, 300)
    $listview = GUICtrlCreateListView("", 2, 2, 394, 268, BitOR($LVS_NOCOLUMNHEADER, $LVS_NOSORTHEADER, $LVS_REPORT))
    _GUICtrlListView_SetExtendedListViewStyle($ListView,$exStyles)
    GUISetState()

    ; Load images pour chaque ligne
    $hImage = _GUIImageList_Create(16, 16, 5, 3)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110)
    _GUICtrlListView_SetImageList($listview, $hImage, 1)

    ; Add columns
    _GUICtrlListView_AddColumn($listview, "", 120)


    ; Add items
    _GUICtrlListView_AddItem($listview, "Row 1: Col 1", 0)
    _GUICtrlListView_AddItem($listview, "Row 2: Col 1", 1)
    

    ; Loop until user exits
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete()
EndFunc   ;==>_Main
 

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <FileListToArray3.au3>
;Opt("GUIOnEventMode", 1)
;GUIRegisterMsg($WM_COMMAND, "DoubleClick")

#Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\SciTE\Koda\Forms\GuiChromeProfil.kxf
;GUI PRINCIPAL
Global $InstallDir, $UserName, $DossierSelectionne, $Form2, $VersionIni, $VersionBDR, $NOM_ZIP, $Resultat, $LBN_DBLCLK

Local $color = 0xFFFFFF
Global $Path = @UserProfileDir & "\Local Settings\Application Data\Google\Chrome\User Data\"

Global $ChromeManager = GUICreate("Google Chrome - Choisissez un profil utilisateur", 345, 218, 192, 124)
;;GUICtrlSetFont($ChromeManager,8, 10, 400, 0, "MS Sans Serif")
;GUISetOnEvent($GUI_EVENT_CLOSE, "Sortie")
$backgroundColor = GUISetBkColor($color, $ChromeManager)
Global $ListProfil = GUICtrlCreateList("", 168, 48, 169, 73)
Global $StartChrome = GUICtrlCreateButton("Demarrer Chrome", 144, 168, 97, 33, $WS_GROUP)
GUISetFont(8, 10, 400, 0, "MS Sans Serif")
;;GUICtrlSetFont(-1,8, 10, 400, 0, "MS Sans Serif")
;GUICtrlSetOnEvent($StartChrome, "Start") ; *****
Global $Quit = GUICtrlCreateButton("Quitter", 249, 168, 87, 33, $WS_GROUP)
;GUICtrlSetOnEvent($Quit, "Sortie") ; *****
Global $CreateProfil = GUICtrlCreateButton("Créer un profil", 8, 32, 145, 33, $WS_GROUP)
;GUICtrlSetOnEvent($CreateProfil, "CreateProfil") ; *****
GUISetFont(8, 10, 400, 0, "MS Sans Serif")
;;GUICtrlSetFont($CreateProfil,14, 10, 400, 0, "MS Sans Serif")
Global $Label1 = GUICtrlCreateLabel(" Chrome conserve vos préférences et paramètres dans votre profil", 8, 8, 324, 17)
GUISetFont(8, 10, 400, 0, "MS Sans Serif")
;;GUICtrlSetFont(-1,8, 10, 400, 0, "MS Sans Serif")
Global $Delete = GUICtrlCreateButton("Supprimer un profil", 8, 80, 145, 33, $WS_GROUP)
;GUICtrlSetOnEvent($Delete, "Delete") ; *****
GUISetFont(8, 10, 400, 0, "MS Sans Serif")
;;GUICtrlSetFont(-1,8, 10, 400, 0, "MS Sans Serif")
Global $Backup = GUICtrlCreateButton("Sauvegarder Profil", 8, 128, 147, 33, $WS_GROUP)
GUISetFont(8, 10, 400, 0, "MS Sans Serif")
;GUICtrlSetFont(-1,8, 10, 400, 0, "MS Sans Serif")
;GUICtrlSetOnEvent($Backup, "Backup") ; *****
GUISetState(@SW_SHOW, $ChromeManager)
#EndRegion ### END Koda GUI section ###

$ar_Array = _FileListToArray3($Path, "*.*", 2, 0, 0, "TEMP|PepperFlash")
GUICtrlSetData($ListProfil, _ArrayToString($ar_Array, "|", 1), $ar_Array[1])

;Ouvrir le profil en validant par enter

Do
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $StartChrome
            ;Start()
        Case $CreateProfil
            ;CreateProfil()
        Case $Delete
            ;Delete()
        Case $Backup
            ;Backup()
        Case $Quit
            Exit
    EndSwitch
    Until $Msg = $GUI_EVENT_CLOSE
 

Résulat : je n'arrive pas à lister le contenu de mon dossier.

► Afficher le textene liste pas le dossier

Code : Tout sélectionner

#include <Array.au3>
#include <FileListToArray3.au3>
#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>
#include <ListBoxConstants.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;Opt("GUIOnEventMode", 1)
;GUIRegisterMsg($WM_COMMAND, "DoubleClick")

#Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\SciTE\Koda\Forms\GuiChromeProfil.kxf
;GUI PRINCIPAL
Global $InstallDir, $UserName, $DossierSelectionne, $Form2, $VersionIni, $VersionBDR, $NOM_ZIP, $Resultat

Local $color = 0xFFFFFF
Global $Path = @UserProfileDir & "\Local Settings\Application Data\Google\Chrome\User Data\"


Global $listview, $hImage
    Global $exStyles = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES)

Global $ChromeManager = GUICreate("Google Chrome - Choisissez un profil utilisateur", 345, 218, 192, 124)
;;GUICtrlSetFont($ChromeManager,8, 10, 400, 0, "MS Sans Serif")
;GUISetOnEvent($GUI_EVENT_CLOSE, "Sortie")
$backgroundColor = GUISetBkColor($color, $ChromeManager)
;;Global $ListProfil = GUICtrlCreateList("", 168, 48, 169, 73)
$ListProfil = GUICtrlCreateListView("", 168, 48, 169, 73, BitOR($LVS_NOCOLUMNHEADER, $LVS_NOSORTHEADER, $LVS_REPORT))
    _GUICtrlListView_SetExtendedListViewStyle($ListProfil,$exStyles)

Global $StartChrome = GUICtrlCreateButton("Demarrer Chrome", 144, 168, 97, 33, $WS_GROUP)
GUISetFont(8, 10, 400, 0, "MS Sans Serif")
;;GUICtrlSetFont(-1,8, 10, 400, 0, "MS Sans Serif")
;GUICtrlSetOnEvent($StartChrome, "Start") ; *****
Global $Quit = GUICtrlCreateButton("Quitter", 249, 168, 87, 33, $WS_GROUP)
;GUICtrlSetOnEvent($Quit, "Sortie") ; *****
Global $CreateProfil = GUICtrlCreateButton("Créer un profil", 8, 32, 145, 33, $WS_GROUP)
;GUICtrlSetOnEvent($CreateProfil, "CreateProfil") ; *****
GUISetFont(8, 10, 400, 0, "MS Sans Serif")
;;GUICtrlSetFont($CreateProfil,14, 10, 400, 0, "MS Sans Serif")
Global $Label1 = GUICtrlCreateLabel(" Chrome conserve vos préférences et paramètres dans votre profil", 8, 8, 324, 17)
GUISetFont(8, 10, 400, 0, "MS Sans Serif")
;;GUICtrlSetFont(-1,8, 10, 400, 0, "MS Sans Serif")
Global $Delete = GUICtrlCreateButton("Supprimer un profil", 8, 80, 145, 33, $WS_GROUP)
;GUICtrlSetOnEvent($Delete, "Delete") ; *****
GUISetFont(8, 10, 400, 0, "MS Sans Serif")
;;GUICtrlSetFont(-1,8, 10, 400, 0, "MS Sans Serif")
Global $Backup = GUICtrlCreateButton("Sauvegarder Profil", 8, 128, 147, 33, $WS_GROUP)
GUISetFont(8, 10, 400, 0, "MS Sans Serif")
;GUICtrlSetFont(-1,8, 10, 400, 0, "MS Sans Serif")
;GUICtrlSetOnEvent($Backup, "Backup") ; *****
GUISetState(@SW_SHOW, $ChromeManager)
#EndRegion ### END Koda GUI section ###

[color=#FF0000]; Load images pour chaque ligne
    $hImage = _GUIImageList_Create(16, 16, 5, 3)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110)
    _GUICtrlListView_SetImageList($ListProfil, $hImage, 1)

    ; Add columns
    _GUICtrlListView_AddColumn($ListProfil, "", 120)

    $ar_Array = _FileListToArray3($Path, "*.*", 2, 0, 0, "TEMP|PepperFlash")
For $i = 1 To $ar_Array[0]
    ; Add items
    _GUICtrlListView_AddItem($ListProfil, GUICtrlSetData($ListProfil, _ArrayToString($ar_Array, "|", 1), $i), 0)
    ;_GUICtrlListView_AddItem($ListProfil, GUICtrlSetData($ListProfil, _ArrayToString($ar_Array, "|", 1), $i), 1)

next
    ; Add items
    ;_GUICtrlListView_AddItem($ListProfil, GUICtrlSetData($ListProfil, _ArrayToString($ar_Array, "|", 1), $ar_Array[1]), 0)
    ;_GUICtrlListView_AddItem($ListProfil, GUICtrlSetData($ListProfil, _ArrayToString($ar_Array, "|", 1), $ar_Array[1]), 1)[/color]


;Ouvrir le profil en validant par enter

Do
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $StartChrome
            ;Start()
        Case $CreateProfil
            ;CreateProfil()
        Case $Delete
            ;Delete()
        Case $Backup
            ;Backup()
        Case $Quit
            Exit
    EndSwitch
    Until $Msg = $GUI_EVENT_CLOSE
 

Il me détecte bien les 4 dossiers mais mon script basique ne liste pas les noms des dossiers