Icon aus einer dll auswählen

[autoit]

#include <GUIConstants.au3>
#include <Array.au3>

$GUI = GUICreate("Test", 150, 50, -1, -1)
$open = GuiCtrlCreateButton ("...", 5, 5, 50, 20)
$beenden = GuiCtrlCreateButton ("", 60, 5, 33, 33, $BS_ICON)
$path = @SystemDir&"\shell32.dll"
$nr = 1
GUICtrlSetImage ($beenden, $path, $nr)

GUISetState(@SW_SHOW)


While 1
$msg = GUIGetMsg()
Select
Case $msg = $open
setIc($path, $nr)
GUICtrlSetImage($beenden,$path,$nr)
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit]

;=================================================================
;
; Function Name: setIc(ByRef $Lib, ByRef $number)
; Description:: Show all icons from *.dll, *.exe to select one
; Parameter(s): $Lib = libary to open, can be changed
; $number = id of icon in *.dll, *.exe or *.ico
; Requirement(s): None
; Return Value(s): None
; Author(s): ziodraw
;
;=================================================================
Func setIc(ByRef $Lib, ByRef $number)
Local $factor = 0, $ko=0
If FileExists($Lib) > 0 Then
$arr = StringSplit($path,'.')
If $arr[UBound($arr)-1] = "dll" or $arr[UBound($arr)-1] = "exe" Then
$sHandle = GuiCreate("Bitte wählen",500,500,@DesktopWidth/2-300,@DesktopHeight/2-100,-1,BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
Local $group = GuiCtrlCreateGroup("Auswahl", 10, 40, 480, 430)
Local $lbl = GUICtrlCreateInput($path,10,10,225,20,BitOR($ES_READONLY,$ES_AUTOHSCROLL))
Local $forw = GUICtrlCreateButton("Weiter",420,10,60,20,$BS_FLAT)
Local $back = GUICtrlCreateButton("Zurück",350,10,60,20,$BS_FLAT)
Local $close = GUICtrlCreateButton("Schließen",280,10,60,20,$BS_FLAT)
Local $change= GUICtrlCreateButton("...",240,10,30,20)
If $arr[UBound($arr)-1] = "exe" Then
Dim $iArray[9]
Else
Dim $iArray[72]
EndIf
GuiSetState()
GUICtrlSetState($back, $GUI_DISABLE)
createIB($iArray, $ko, $path, $factor)
While(1)
$msg2 = GUIGetMsg()
For $j = 0 to UBound($iArray)-1 step 1
If $msg2 = $iArray[$j] then
$Lib = $path
$number = $j+(72*$factor)
GUIDelete($sHandle)
Return 1
EndIf
Next
If $j < 0 Then ExitLoop
Select
Case $msg2 = $change
$path = FileOpenDialog("Datei wählen",@WorkingDir,"Icons (*.ico;*.dll;*.exe)",1)
If not @error Then
$arr = StringSplit($path,'.')
If $arr[UBound($arr)-1] = "exe" Then
For $j = 0 to UBound($iArray)-1 step 1
GUICtrlDelete($iArray[$j])
Next
ReDim $iArray[9]
Else
ReDim $iArray[72]
EndIf
$factor = 0
For $i = 0 to UBound($iArray)-1 step 1
GUICtrlDelete($iArray[$i])
Next
createIB($iArray,$ko,$path, $factor)
GUICtrlSetData($lbl,$path)
EndIf
Case $msg2 = $close
GUIDelete($sHandle)
return 0
Case $msg2 = $forw
GUICtrlSetState($back, $GUI_ENABLE)
createIB($iArray, $ko, $path, $factor,1)
Case $msg2 = $back
If $factor < 2 then GUICtrlSetState($back, $GUI_DISABLE)
createIB($iArray, $ko, $path, $factor, 2)
Case $msg2 = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
Else
$Lib = $path
$number = -1
EndIf
return 1
Else
return 0
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func createIB(ByRef $iArray,ByRef $ko, $path, ByRef $factor, $flag=0)
Local $x=20, $y=60, $tmp=8
If $flag Then
For $j = 0 to UBound($iArray)-1 step 1
GUICtrlDelete($iArray[$j])
Next
If $flag > 1 Then
$factor = $factor - 1
$ko = $ko - 72
Else
$factor = $factor + 1
$ko = $ko + 72
EndIf
EndIf
For $j=0 to UBound($iArray)-1 step 1
$iArray[$j] = GuiCtrlCreateButton("", $x, $y, 40, 40,$BS_ICON)
GUICtrlSetImage($iArray[$j],$path,$ko+$j)
$x = $x + 50
If $tmp = $j Then
$y = $y + 50
$x = 20
$tmp = $tmp+9
EndIf
Next
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit]

[autoit]

#include<GUIConstants.au3>
;===============================================================================
;
; Description: Show all icons in the given file and choose one.
; Requirement(s): Autoit 3.2.5+
; Author(s): Prog@ndy (some Functions and Gui-Style by YDY (Lazycat) (in enumicons_v2))
; Version: 1.0
; Date: 02.11.2007
;
; How to Call: $ret = _ChooseIcon( [Optional: Filename] )
; Return Values: Array:
; [0] = FileName
; [1] = Icon Number
;
;===============================================================================
Global $_CI_StartIndex, $_CI_IconCount, $_CI_FileName, $_CI_SelectedIconName
Global $_CI_hFileSel, $_CI_hGui, $_CI_hFile, $_CI_Next, $_CI_Back, $_CI_OK, $_CI_Icon, $_CI_hStatus, $_CI_IconRadios[30], $_CI_Labels[30] ;Gui-Variables
$_CI_StartIndex = 1
Global $_CI_oldEventMode
#cs Example
$ret = _ChooseIcon()
MsgBox(0,"Icon","Pfad: " & $ret[0] & @CRLF & "icon-Nr.: " & $ret[1])
#ce

[/autoit] [autoit][/autoit] [autoit]

Func _ChooseIcon($fFileName = "")

[/autoit] [autoit][/autoit] [autoit]

$_CI_oldEventMode = Opt("GuiOnEventMode",1)

[/autoit] [autoit][/autoit] [autoit]

If FileExists($fFileName) Then
$_CI_FileName = $fFileName
Else
$_CI_FileName = @SystemDir & "\shell32.dll"
EndIf

[/autoit] [autoit][/autoit] [autoit]

$_CI_hGui=GUICreate("Icon Selector by Ordinal value", 385, 450, -1, -1, -1, $WS_EX_ACCEPTFILES)
GUISetOnEvent($GUI_EVENT_CLOSE,"_CI_CloseFunc")
GUICtrlCreateGroup("", 5, 1, 375, 40)
GUICtrlCreateGroup("", 5, 50, 375, 350)
$_CI_hFile = GUICtrlCreateInput($_CI_FileName, 12, 15, 325, 16, -1, $WS_EX_STATICEDGE)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlSetTip(-1, "You can drop files from shell here...")
$_CI_hStatus = GUICtrlCreateInput("", 90, 49, 200, 16, $ES_READONLY, $WS_EX_STATICEDGE)
$_CI_hFileSel = GUICtrlCreateButton("...", 345, 14, 26, 18)
GUICtrlSetOnEvent(-1,"_CI_LoadButton")
$_CI_Next = GUICtrlCreateButton("&Weiter -|>",310,410)
GUICtrlSetOnEvent(-1,"_CI_Next")
$_CI_Back = GUICtrlCreateButton("<|- &Zurück",20,410)
GUICtrlSetOnEvent(-1,"_CI_Back")
$_CI_OK = GUICtrlCreateButton("Icon wählen:",120,410)
GUICtrlSetOnEvent(-1,"_CI_CloseFunc")
GUICtrlSetState(-1,$GUI_DISABLE)
$_CI_Icon = GUICtrlCreateIcon("",0,190,404,32,32)

For $iCntRow = 0 to 4
For $iCntCol = 0 to 5
$iCurIndex = $iCntRow * 6 + $iCntCol
$_CI_IconRadios[$iCurIndex] = GUICtrlCreateRadio("", 55 * $iCntCol + 25, 65 * $iCntRow + 75, 45, 45,$BS_ICON+$BS_PUSHLIKE)
GUICtrlSetImage(-1,@SystemDir & "\shell32.dll",-2)
;$ahIcons[$iCurIndex] = GUICtrlCreateIcon($glFilename, 0, 60 * $iCntCol + 25, 70 * $iCntRow + 80)
GUICtrlSetOnEvent(-1,"_CI_SelectedIcon")
$_CI_Labels[$iCurIndex] = GUICtrlCreateLabel("1", 55 * $iCntCol+12, 65 * $iCntRow + 120, 58, 20, $SS_CENTER)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT )
Next
Next

_CI_NewFileLoad($_CI_FileName)
GUISetState () ; will display an dialog box with 1 checkbox
; Run the GUI until the dialog is closed
While WinExists($_CI_hGui)
Sleep (100)
Wend
Local $arTemp[2] = [$_CI_FileName,$_CI_SelectedIconName]
Return $arTemp
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _CI_Next()
If $_CI_StartIndex + 30 <= $_CI_IconCount Then $_CI_StartIndex += 30
If $_CI_StartIndex + 30 > $_CI_IconCount Then
GUICtrlSetState($_CI_Next,$GUI_DISABLE)
EndIf
GUICtrlSetState($_CI_Back,$GUI_ENABLE)
_CI_Update()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _CI_Back()
If $_CI_StartIndex - 30 >= 0 Then $_CI_StartIndex -= 30
If $_CI_StartIndex - 30 < 0 Then
GUICtrlSetState($_CI_Back,$GUI_DISABLE)
EndIf
GUICtrlSetState($_CI_Next,$GUI_ENABLE)
_CI_Update()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _CI_Update()
For $iCntRow = 0 to 4
For $iCntCol = 0 to 5
$iCurIndex = $iCntRow * 6 + $iCntCol
If ($iCurIndex + $_CI_StartIndex) > $_CI_IconCount Then
GUICtrlSetState($_CI_IconRadios[$iCurIndex], $GUI_HIDE)
GUICtrlSetState($_CI_Labels[$iCurIndex], $GUI_HIDE)
Else
GUICtrlSetState($_CI_IconRadios[$iCurIndex], $GUI_SHOW)
GUICtrlSetState($_CI_Labels[$iCurIndex], $GUI_SHOW)
GUICtrlSetState($_CI_IconRadios[$iCurIndex],$GUI_UNCHECKED)
GUICtrlSetImage($_CI_IconRadios[$iCurIndex], $_CI_FileName, -($_CI_StartIndex + $iCurIndex))
GUICtrlSetData($_CI_Labels[$iCurIndex], -($_CI_StartIndex + $iCurIndex))
If -($_CI_StartIndex + $iCurIndex) = $_CI_SelectedIconName Then GUICtrlSetState($_CI_IconRadios[$iCurIndex],$GUI_CHECKED)
EndIf
Next
Next
GUICtrlSetData($_CI_hStatus,"Icons "& $_CI_StartIndex & "-"& _CI_MyMin(($_CI_StartIndex+ 29), $_CI_IconCount)& " von " & $_CI_IconCount & " | Seite "& Ceiling(($_CI_StartIndex)/30)& "von " & Ceiling($_CI_IconCount/30))
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _CI_CloseFunc()
GUIDelete($_CI_hGui)
Opt("GuiOnEventMode",$_CI_oldEventMode)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _CI_SelectedIcon()
For $i = 0 To 29
If $_CI_IconRadios[$i] = @GUI_CtrlId Then
$_CI_SelectedIconName = 1*GUICtrlRead($_CI_Labels[$i])
GUICtrlSetImage($_CI_Icon,$_CI_FileName,$_CI_SelectedIconName)
GUICtrlSetState($_CI_OK,$GUI_ENABLE)
ExitLoop
EndIf
Next
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _CI_LoadButton()
Return _CI_NewFileLoad(FileOpenDialog("Select Icon file:", GUICtrlRead($_CI_hFile), "Executables & dll's (*.exe;*.dll;*.ocx;*.icl)"))
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _CI_NewFileLoad($sTmpFile)
If Not FileExists($sTmpFile) Then Return 0
If @error Then Return 0
$glFileName = $sTmpFile
GUICtrlSetData($_CI_hFile, $glFileName)
$_CI_iStartIndex = 1
$_CI_IconCount = _GetIconCount($sTmpFile)
For $i = 0 To 29
GUICtrlSetImage($_CI_IconRadios[$i],$_CI_FileName,-($i+$_CI_iStartIndex))
GUICtrlSetState($_CI_IconRadios[$i],$GUI_UNCHECKED)
GUICtrlSetData($_CI_Labels[$i],-($i+$_CI_iStartIndex))
Next
GUICtrlSetData($_CI_hStatus,"Icons 1 - 30 von " & $_CI_IconCount & " | Seite 1 von " & Ceiling($_CI_IconCount/30))
;Return 1
GUICtrlSetState($_CI_Back,$GUI_DISABLE)
GUICtrlSetState($_CI_OK,$GUI_DISABLE)
_CI_Update()
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; Function by YDY (Lazycat)
Func _GetIconCount($sFilename)
Local $iCount= DllCall("Shell32", "int", "ExtractIconEx", "str", $sFilename, "int", -1, "ptr", 0, "ptr", 0, "int", 1)
If not @error Then Return $iCount[0]
Return 0
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _CI_MyMin($1,$2)
If Number($1) < Number($2) Then
Return Number($1)
Else
Return Number($2)
EndIf
EndFunc

[/autoit]

[autoit]

#include <GUIConstants.au3>
#include <Array.au3>

Local $GUI = GUICreate("Test", 150, 50, -1, -1)
Local $open = GuiCtrlCreateButton ("...", 5, 5, 50, 20)
Local $beenden = GuiCtrlCreateButton ("", 60, 5, 33, 33, $BS_ICON)
Local $path = @SystemDir&"\shell32.dll"
Local $nr = 1
Global $cnt = 0
GUICtrlSetImage ($beenden, $path, $nr)

GUISetState(@SW_SHOW)


While 1
$msg = GUIGetMsg()
Select
Case $msg = $open
setIc($path, $nr)
GUICtrlSetImage($beenden,$path,$nr)
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

;=================================================================
;
; Function Name: setIc(ByRef $Lib, ByRef $number)
; Description:: Show all icons from *.dll, *.exe to select one
; Parameter(s): $Lib = libary to open, can be changed
; $number = id of icon in *.dll, *.exe or *.ico
; Requirement(s): None
; Return Value(s): None
; Author(s): ziodraw
;
;=================================================================
Func setIc(ByRef $Lib, ByRef $number)
Local $factor = 0, $ko=0, $cnt=0, $path=$Lib
If FileExists($path) > 0 Then
$arr = StringSplit($path,'.')
If $arr[UBound($arr)-1] = "dll" or $arr[UBound($arr)-1] = "exe" Then
$cnt = _GetIconCount($path)
$sHandle = GuiCreate("Bitte wählen",500,500,@DesktopWidth/2-300,@DesktopHeight/2-100);,-1,BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
Local $group = GuiCtrlCreateGroup("Auswahl", 10, 40, 480, 430)
Local $lbl = GUICtrlCreateInput($path,10,10,225,20,BitOR($ES_READONLY,$ES_AUTOHSCROLL))
Local $forw = GUICtrlCreateButton("Weiter",420,10,60,20,$BS_FLAT)
Local $back = GUICtrlCreateButton("Zurück",350,10,60,20,$BS_FLAT)
Local $close = GUICtrlCreateButton("Schließen",280,10,60,20,$BS_FLAT)
Local $change= GUICtrlCreateButton("...",240,10,30,20)
If $arr[UBound($arr)-1] = "exe" Then
Dim $iArray[9]
Else
Dim $iArray[72]
EndIf
GuiSetState()
GUICtrlSetState($back, $GUI_DISABLE)
createIB($iArray, $ko, $path, $factor)
While(1)
$msg2 = GUIGetMsg()
For $j = 0 to UBound($iArray)-1 step 1
If $msg2 = $iArray[$j] then
If ($j+(72*$factor)) > $cnt then
ContinueLoop
Else
$Lib = $path
$number = $j+(72*$factor)
GUIDelete($sHandle)
Return 1
EndIf
EndIf
Next
If $j < 0 Then ExitLoop
Select
Case $msg2 = $change
$path = FileOpenDialog("Datei wählen",@WorkingDir,"Icons (*.ico;*.dll;*.exe)",1)
If not @error Then
$arr = StringSplit($path,'.')
If $arr[UBound($arr)-1] = "exe" Then
For $j = 0 to UBound($iArray)-1 step 1
GUICtrlDelete($iArray[$j])
Next
ReDim $iArray[9]
Else
ReDim $iArray[72]
EndIf
$factor = 0
For $i = 0 to UBound($iArray)-1 step 1
GUICtrlDelete($iArray[$i])
Next
createIB($iArray,$ko,$path, $factor)
GUICtrlSetData($lbl,$path)
EndIf
Case $msg2 = $close
GUIDelete($sHandle)
return 0
Case $msg2 = $forw
createIB($iArray, $ko, $path, $factor,1)
If (($factor+1)*72) > $cnt then
GUICtrlSetState($forw, $GUI_DISABLE)
Else
GUICtrlSetState($forw, $GUI_ENABLE)
EndIf
GUICtrlSetState($back, $GUI_ENABLE)
Case $msg2 = $back
createIB($iArray, $ko, $path, $factor, 2)
If $factor < 1 then GUICtrlSetState($back, $GUI_DISABLE)
GUICtrlSetState($forw, $GUI_ENABLE)
Case $msg2 = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
Else
$Lib = $path
$number = -1
EndIf
return 1
Else
return 0
EndIf
EndFunc

Func createIB(ByRef $iArray,ByRef $ko, $path, ByRef $factor, $flag=0)
Local $x=20, $y=60, $tmp=8
If $flag Then
For $j = 0 to UBound($iArray)-1 step 1
GUICtrlDelete($iArray[$j])
Next
If $flag > 1 Then
$factor = $factor - 1
$ko = $ko - 72
Else
$factor = $factor + 1
$ko = $ko + 72
EndIf
EndIf
For $j=0 to UBound($iArray)-1 step 1
$iArray[$j] = GuiCtrlCreateButton("", $x, $y, 40, 40,$BS_ICON)
GUICtrlSetImage($iArray[$j],$path,$ko+$j)
$x = $x + 50
If $tmp = $j Then
$y = $y + 50
$x = 20
$tmp = $tmp+9
EndIf
Next
EndFunc

; Function by YDY (Lazycat)
Func _GetIconCount($sFilename)
Local $iCount= DllCall("Shell32", "int", "ExtractIconEx", "str", $sFilename, "int", -1, "ptr", 0, "ptr", 0, "int", 1)
If not @error Then Return $iCount[0]
Return 0
EndFunc

[/autoit]