[R] Afficher icônes en grand

[micam]

Bonjour,
J'aimerai afficher dans une listbox ou une listview (je ne sais, pas ce qui est le mieux), des icônes extraites d'un exe, ou d'un raccourcis déjà existant (ça je ne sais pas le faire).
J'aimerai faire un launcher qui me permettra de classer mes icônes par catégories (genre "Fsl Launcher" qui ne me convient pas tout à fait).
Quand j'extrait d'un exe et que je change la taille en 128 x 128 le résultat n'est pas bon.

Launcher icônes agrandies en 128 x128

J'aimerai comme dans l'explorateur windows afficher en :

icônes moyennes

Launcher icônes moyennes

ou grandes icônes.

Launcher grandes icônes

Merci de votre aide.

Code exemple :

Code: [Tout sélectionner] [Déplier/Replier]

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

Example()
;icone

Func Example()

Global $Form1 = GUICreate("Launcher", 592, 250, 192, 124)
Global $Tab1 = GUICtrlCreateTab(8, 8, 577, 225)
Global $Audio = GUICtrlCreateTabItem("Audio")
Global $Internet = GUICtrlCreateTabItem("Vidéos")
GUICtrlSetState(-1,$GUI_SHOW)
GUICtrlCreateTabItem("")
;Extrait les icones
GUICtrlCreateIcon("C:\Program Files\OpenShot Video Editor\blender\blender.exe", -1, 10, 40, 128, 128)
GUICtrlCreateIcon("C:\Program Files\ShareX\ShareX.exe", -1, 140, 40, 128, 128)
GUICtrlCreateIcon("D:\Downloads\captvty-2.6.2\Captvty.exe", -1, 270, 40, 128, 128)
    GUISetState(@SW_SHOW)

    ; Boucle jusqu'à ce que l'utilisateur quitte.
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

    GUIDelete()
EndFunc   ;==>Example

GeSHi © Extension Codebox Plus

[walkson]

Bonjour,
Quelque chose comme çà ?

Code: [Tout sélectionner] [Déplier/Replier]

#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

Example()

Func Example()
   Global $idListview, $hImage
   Local $sWow64 = ""
   If @AutoItX64 Then $sWow64 = "\Wow6432Node"
   Local $sPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE" & $sWow64 & "\AutoIt v3\AutoIt", "InstallDir") & "\Examples\GUI\Advanced\Images"

   Global $hForm = GUICreate("ImageList AddBitmap", 400, 600)
   $idListview = GUICtrlCreateListView("", 2, 2, 394, 568, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER, $LVS_REPORT))
   _GUICtrlListView_SetExtendedListViewStyle($idListview, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_DOUBLEBUFFER))
   GUISetState(@SW_SHOW)

   ; Load images
   $hImage = _GUIImageList_Create(128, 128,5)
   _GUIImageList_AddBitmap($hImage, $sPath & "\Red.bmp")
   _GUIImageList_AddBitmap($hImage, $sPath & "\Green.bmp")
   _GUIImageList_AddBitmap($hImage, $sPath & "\Blue.bmp")
   _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110,True)
   _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 131,True)
   _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 165,True)
   _GUIImageList_AddIcon($hImage, @ProgramFilesDir & "\AutoIt3\AutoIt3Help.exe", 0,True)
   _GUICtrlListView_SetImageList($idListview, $hImage, 1)

   _GUICtrlListView_BeginUpdate($idListview)

   ; Add columns
   _GUICtrlListView_AddColumn($idListview, "Items", 350, 1)
   _GUICtrlListView_AddColumn($idListview, "SubItems",100,1)

   ; Add items
   _GUICtrlListView_AddItem($idListview, "blender.exe", 0)
   _GUICtrlListView_AddItem($idListview, "ShareX.exe", 1)
   _GUICtrlListView_AddItem($idListview, "Captvty.exe", 2)
   _GUICtrlListView_AddItem($idListview, "Item 10", 3)
   _GUICtrlListView_AddItem($idListview, "Item 20", 4)
   _GUICtrlListView_AddItem($idListview, "Item 30", 5)
   _GUICtrlListView_AddItem($idListview, "Item 40", 6)

   _GUICtrlListView_AddSubItem($idListview, 0, "C:\Program Files\OpenShot Video Editor\blender\blender.exe", 1)
   _GUICtrlListView_AddSubItem($idListview, 1, "C:\Program Files\ShareX\ShareX.exe", 1)
   _GUICtrlListView_AddSubItem($idListview, 2, "D:\Downloads\captvty-2.6.2\Captvty.exe", 1)
   ; Build groups
   _GUICtrlListView_EnableGroupView($idListview)
   _GUICtrlListView_InsertGroup($idListview, -1, 1, "Group 1",1)
   _GUICtrlListView_InsertGroup($idListview, -1, 2, "Group 2",1)
   _GUICtrlListView_SetItemGroupID($idListview, 0, 1)
   _GUICtrlListView_SetItemGroupID($idListview, 1, 1)
   _GUICtrlListView_SetItemGroupID($idListview, 2, 1)
   _GUICtrlListView_SetItemGroupID($idListview, 3, 2)
   _GUICtrlListView_SetItemGroupID($idListview, 4, 2)
   _GUICtrlListView_SetItemGroupID($idListview, 5, 2)
   _GUICtrlListView_SetItemGroupID($idListview, 6, 2)

   _GUICtrlListView_HideColumn($idListview, 1);on cache la colonne des chemins
   _GUICtrlListView_SetBkColor($idListview, 0x908090)
   _GUICtrlListView_SetTextBkColor($idListview, 0x908090)

   _GUICtrlListView_EndUpdate($idListview)

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
; Loop until the user exits.
   Do
   Until GUIGetMsg() = $GUI_EVENT_CLOSE
   GUIDelete()
EndFunc   ;==>Example
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
   #forceref $hWnd, $iMsg, $iwParam
   Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $hWndListViewTwo, $tInfo
   $hWndListViewTwo = GUICtrlGetHandle($idListview)
   $hWndH = WinGetHandle($hForm, "")
   $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
   $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
   $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
   $iCode = DllStructGetData($tNMHDR, "Code")
   Switch $hWndFrom
      Case $hWndListViewTwo
         Switch $iCode
            Case $NM_DBLCLK
               $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
               $index = DllStructGetData($tInfo, "Index")
               $iIndex = _GUICtrlListView_GetSelectedIndices($hWndFrom) ; ou ($iIDFrom)
               If ($iIndex) <> "" Then
                  If $iIDFrom = $idListview Then
                     $iIndex = Floor($iIndex)
                     $chemin = _GUICtrlListView_GetItemText($idListview, $iIndex, 1)
                     MsgBox(0,"",'ShellExecute("' & $chemin & '")')
                  EndIf
               EndIf
            Case $NM_RCLICK

            Case $NM_CLICK

         EndSwitch
   EndSwitch
   Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY
 

GeSHi © Extension Codebox Plus

J'ai caché les chemins des programmes dans la colonne 2 et il faut double-cliquer
Je vous ai mis plusieurs façons de récupérer les images mais _GUIImageList_AddBitmap() ne prend que les BMP
Idéalement, pour avoir de grandes icones, serait de les récupérer sur le web et de les stoker dans un dossier ou une DLL car en 128 px c'est limite
On peut aussi travailler l'image en GDI+ et utiliser _GUIImageList_Add() (voir l'aide)

[walkson]

On obtient un meilleur résultat avec _GUIImageList_Add()
modifiez _GUIImageList_Add($hImage,ADD("C:\Program Files\Mozilla Firefox\firefox.exe")) si le chemin n'existe pas

Code: [Tout sélectionner] [Déplier/Replier]

#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <WinAPIShellEx.au3>

Example()

Func Example()
   Global $idListview, $hImage, $hBitmap, $hBMP , $hIcon
   Local $sWow64 = ""
   If @AutoItX64 Then $sWow64 = "\Wow6432Node"
   Local $sPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE" & $sWow64 & "\AutoIt v3\AutoIt", "InstallDir") & "\Examples\GUI\Advanced\Images"

   Global $hForm = GUICreate("ImageList AddBitmap", 400, 600)
   $idListview = GUICtrlCreateListView("", 2, 2, 394, 568, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER, $LVS_REPORT))
   _GUICtrlListView_SetExtendedListViewStyle($idListview, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_DOUBLEBUFFER))
   GUISetState(@SW_SHOW)

   ; Load images
   $hImage = _GUIImageList_Create(128, 128,5)
   _GUIImageList_Add($hImage,ADD("C:\Program Files\Mozilla Firefox\firefox.exe"))
   _GUIImageList_AddBitmap($hImage, $sPath & "\Green.bmp")
   _GUIImageList_AddBitmap($hImage, $sPath & "\Blue.bmp")
   _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110,True)
   _GUIImageList_Add($hImage,ADD(@SystemDir & "\shell32.dll",110))
   _GUIImageList_AddIcon($hImage, @ProgramFilesDir & "\AutoIt3\AutoIt3Help.exe", 0,True)
   _GUIImageList_Add($hImage,ADD(@ProgramFilesDir & "\AutoIt3\AutoIt3Help.exe"))
   _GUICtrlListView_SetImageList($idListview, $hImage, 1)

   _GUICtrlListView_BeginUpdate($idListview)

   ; Add columns
   _GUICtrlListView_AddColumn($idListview, "Items", 350, 1)
   _GUICtrlListView_AddColumn($idListview, "SubItems",100,1)

   ; Add items
   _GUICtrlListView_AddItem($idListview, "blender.exe", 0)
   _GUICtrlListView_AddItem($idListview, "ShareX.exe", 1)
   _GUICtrlListView_AddItem($idListview, "Captvty.exe", 2)
   _GUICtrlListView_AddItem($idListview, "Item 10", 3)
   _GUICtrlListView_AddItem($idListview, "Item 20", 4)
   _GUICtrlListView_AddItem($idListview, "Item 30", 5)
   _GUICtrlListView_AddItem($idListview, "Item 40", 6)

   _GUICtrlListView_AddSubItem($idListview, 0, "C:\Program Files\OpenShot Video Editor\blender\blender.exe", 1)
   _GUICtrlListView_AddSubItem($idListview, 1, "C:\Program Files\ShareX\ShareX.exe", 1)
   _GUICtrlListView_AddSubItem($idListview, 2, "D:\Downloads\captvty-2.6.2\Captvty.exe", 1)
   ; Build groups
   _GUICtrlListView_EnableGroupView($idListview)
   _GUICtrlListView_InsertGroup($idListview, -1, 1, "Group 1",1)
   _GUICtrlListView_InsertGroup($idListview, -1, 2, "Group 2",1)
   _GUICtrlListView_SetItemGroupID($idListview, 0, 1)
   _GUICtrlListView_SetItemGroupID($idListview, 1, 1)
   _GUICtrlListView_SetItemGroupID($idListview, 2, 1)
   _GUICtrlListView_SetItemGroupID($idListview, 3, 2)
   _GUICtrlListView_SetItemGroupID($idListview, 4, 2)
   _GUICtrlListView_SetItemGroupID($idListview, 5, 2)
   _GUICtrlListView_SetItemGroupID($idListview, 6, 2)

   _GUICtrlListView_HideColumn($idListview, 1);on cache la colonne des chemins
   _GUICtrlListView_SetBkColor($idListview, 0xAA90AA)
   _GUICtrlListView_SetTextBkColor($idListview, 0xAA90AA)

   _GUICtrlListView_EndUpdate($idListview)

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
; Loop until the user exits.
   Do
   Until GUIGetMsg() = $GUI_EVENT_CLOSE
   GUIDelete()
EndFunc   ;==>Example
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
   #forceref $hWnd, $iMsg, $iwParam
   Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $hWndListViewTwo, $tInfo
   $hWndListViewTwo = GUICtrlGetHandle($idListview)
   $hWndH = WinGetHandle($hForm, "")
   $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
   $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
   $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
   $iCode = DllStructGetData($tNMHDR, "Code")
   Switch $hWndFrom
      Case $hWndListViewTwo
         Switch $iCode
            Case $NM_DBLCLK
               $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
               $index = DllStructGetData($tInfo, "Index")
               $iIndex = _GUICtrlListView_GetSelectedIndices($hWndFrom) ; ou ($iIDFrom)
               If ($iIndex) <> "" Then
                  If $iIDFrom = $idListview Then
                     $iIndex = Floor($iIndex)
                     $chemin = _GUICtrlListView_GetItemText($idListview, $iIndex, 1)
                     MsgBox(0,"",'ShellExecute("' & $chemin & '")')
                  EndIf
               EndIf
            Case $NM_RCLICK

            Case $NM_CLICK

         EndSwitch
   EndSwitch
   Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY
Func ADD($Path,$Index_icon = 0, $W = 128, $H = 128)
    _GDIPlus_Startup()

    $hIcon = _WinAPI_ShellExtractIcon($Path, $Index_icon, $W,$H)
   If @error Then Return SetError(1)

    $hBitmap = _GDIPlus_BitmapCreateFromHICON32($hIcon)
   $hBMP = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
   _WinAPI_DestroyIcon($hIcon)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_Shutdown()
Return $hBMP
EndFunc
 

GeSHi © Extension Codebox Plus

Les icones des EXE restent propres même si elles sont agrandies à plus de 128 px, moins vrai pour les DLL....

[micam]

Bonjour walkson.
Fonctionne très bien avec les "exe". Exactement ce que je voulais faire. C'est parfait. Merci de ton aide.