_GUICtrlTreeView_SetIcon individuell anpassen

mirko2002

Hallo zusammen,

ich hab folgendes "Problem". In meinem Tool habe ich eine TreeView. Dort werden den Items Icons zugewiesen. Aktuell ist es so, dass alle Items dasselbe Icon haben.

Ich möchte jedoch, dass Items die den String "completed" enthalten ein anderes Icon erhalten, als Items die nicht diesen String enthalten.

Um genauer zu werden: Der TreeView zeigt mir alle Dateien aus einem vorgegebenen Ordner an. Damit man etwas mehr übersicht erhält, sollen alle Dateien die diesen String enthalten ein grünes Häckchen bekommen, alle Dateien ohne den String sollen ein rotes X bekommen.

Da wir hier hunderte Dateien in den Ordner haben ist es einfacher, die "completed"-Dateien mit dem grünen Haken zu versehen da diese dann schneller auffallen.

Optional: Kann man die TreeView sogar sortieren, dass Items mit Icon XYZ zuerst angezeigt werden und anschließend erst die Items mit den anderem Icon?

Hier mal mein Codeschnipsel womit der TreeView erstellt ist - der auskommentierte Bereich ist das, wo ich versucht habe den Items unterschiedliche Icons zuzuweisen - jedoch ohne Erfolg:

AutoIt

Func _GUICtrlTreeView_CreateDirectory($hTreeView, $sPath, $bFiles = False)
    Local $hFileItem, $FolderColor = 0x0000FF, $Folder, $aCount[2] = [0, 0]
    If Not StringInStr(FileGetAttrib($sPath), 'D') Then Return SetError(1, 0, 0)
    $sPath = FileGetLongName($sPath)
    Local $oFSO = ObjCreate('Scripting.FileSystemObject')
    If @error Then Return SetError(2, 0, 0)
    _GUICtrlTreeView_BeginUpdate($hTreeView)
    _GUICtrlTreeView_DeleteAll(GUICtrlGetHandle($hTreeView))
    Local $hTreeViewItem = GUICtrlCreateTreeViewItem($sPath, $hTreeView)
    GUICtrlSetColor(-1, $FolderColor)


;~ 	$icon = StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\')
;~ 	$icon2 = StringInStr($icon, "_completed.txt")
;~ 	If $icon2 > 0 Then
;~ 		_GUICtrlTreeView_SetIcon($hTreeView, $hTreeViewItem, 'shell32.dll', 111) ;Icon für Datei
;~ 	Else
;~ 		_GUICtrlTreeView_SetIcon($hTreeView, $hTreeViewItem, 'shell32.dll', 110) ;Icon für Datei
;~ 	EndIf




   _GUICtrlTreeView_SetIcon($hTreeView, $hTreeViewItem, 'shell32.dll', 111) ;Icon für Datei




    $Folder = $oFSO.GetFolder($sPath)
    _CreateDirectoryRecursive($hTreeView, $Folder, $hTreeViewItem, $bFiles, $aCount)
    If $bFiles Then
        For $Files In $Folder.Files
            $hFileItem = GUICtrlCreateTreeViewItem($Files.Name, $hTreeViewItem)
            $aCount[1] += 1
        Next
    EndIf
    _GUICtrlTreeView_SetIcon($hTreeView, $hTreeViewItem, 'shell32.dll', 3, 2) ;Icon für Rootfolder
    _GUICtrlTreeView_SetIcon($hTreeView, $hTreeViewItem, 'shell32.dll', 110, 4)
    _GUICtrlTreeView_EndUpdate($hTreeView)
    GUICtrlSetState($hTreeViewItem, $GUI_EXPAND)
    $oFSO = ''
    Return $aCount
EndFunc   ;==>_GUICtrlTreeView_CreateDirectory

Alles anzeigen

Zeile 21 ist das, wo den Items das Icon zugewiesen wird... also sollte hier der Ansatz sein, die Abfrage zu stellen... jedoch komme ich hier nicht weiter

Kann mir wer helfen?

LG
Mirko

**autoBert**

Du kannst sogar jedem Node (Ast) ein extra Icon zuornden:

AutoIt

#include <APIShellExConstants.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiTreeView.au3>
#include <GuiListView.au3>
#include <File.au3>
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6


Global Const $tagSHFILEINFO = 'ptr hIcon; int iIcon; DWORD dwAttributes; CHAR szDisplayName[255]; CHAR szTypeName[80];'
Global $FOLDER_ICON_INDEX= _GUIImageList_GetFileIconIndex(@SystemDir, True, 1)
;Global $UP_ICON_INDEX = _GUIImageList_GetFileIconIndex($sIconDir & 'up.ico', True, 1)


Global $sAutoItPath = StringReplace(StringReplace(@AutoItExe,'_x64',''),'autoit3.exe','')
Global $idTV, $idRoot, $hIcon
Global $aDirs, $aFiles


; Create GUI
Global $hGui = GUICreate("ListView Add Item", 500, 700)
GUISetFont(14)
$idTV = GUICtrlCreateTreeView(2, 2, 494, 694)
_GUICtrlTreeView_SetNormalImageList($idTV, _GUIImageList_GetSystemImageList(True))
GUISetState(@SW_SHOW)


If @error Then
	$sAutoItPath=''
	if MsgBox(16,'Ordner nicht gefunden','Möchten Sie selbst danach suchen?',$MB_YESNO,$hGui)=6 Then
		$sAutoItPath=FileSelectFolder('AutoIt Ordner manuell suchen','c:\')
	EndIf
	if $sAutoItPath='' Then Exit
EndIf
;ConsoleWrite($sAutoItPath&@CRLF)
$idRoot=_GUICtrlTreeView_Add($idTV,0,$sAutoItPath,$FOLDER_ICON_INDEX)
$aDirs=_FileListToArray($sAutoItPath, '*', 2)
If Not @error Then
	For $i = 1 To $aDirs[0]
		; Add items
		_GUICtrlTreeView_AddChild($idTV,$idRoot,$aDirs[$i],$FOLDER_ICON_INDEX,$FOLDER_ICON_INDEX)
	Next
EndIf
$aFiles = _FileListToArray($sAutoItPath, '*', 1)
If Not @error Then
	For $i = 1 To $aFiles[0]
		; Add items
		$hIcon=_GUIImageList_GetFileIconIndex($aFiles[$i], True)
		_GUICtrlTreeView_AddChild($idTV,$idRoot,$aFiles[$i],$hIcon,$hIcon)
	Next
EndIf
_GUICtrlTreeView_Expand($idTV)
; Loop until the user exits.
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()




; Author: progandy (www.autoit.de)
Func _GUIImageList_GetSystemImageList($bLargeIcons = False)
	Local $dwFlags, $hIml, $FileInfo = DllStructCreate($tagSHFILEINFO)
	$dwFlags = BitOR($SHGFI_USEFILEATTRIBUTES, $SHGFI_SYSICONINDEX)
	If Not ($bLargeIcons) Then
		$dwFlags = BitOR($dwFlags, $SHGFI_SMALLICON)
	EndIf
;~    '// Load the image list - use an arbitrary file extension for the
;~    '// call to SHGetFileInfo (we don't want to touch the disk, so use
;~    '// FILE_ATTRIBUTE_NORMAL && SHGFI_USEFILEATTRIBUTES).
	$hIml = _WinAPI_SHGetFileInfo(".txt", $FILE_ATTRIBUTE_NORMAL, _
			DllStructGetPtr($FileInfo), DllStructGetSize($FileInfo), $dwFlags)
	Return $hIml
EndFunc   ;==>_GUIImageList_GetSystemImageList


; Author: progandy (www.autoit.de)
Func _WinAPI_SHGetFileInfo($pszPath, $dwFileAttributes, $psfi, $cbFileInfo, $uFlags)
	Local $return = DllCall("shell32.dll", "dword_ptr", "SHGetFileInfo", "str", $pszPath, "DWORD", $dwFileAttributes, "ptr", $psfi, "UINT", $cbFileInfo, "UINT", $uFlags)
	If @error Then Return SetError(@error, 0, 0)
	Return $return[0]
EndFunc   ;==>_WinAPI_SHGetFileInfo


; Author: progandy (www.autoit.de)
Func _GUIImageList_GetFileIconIndex($sFileSpec, $bLargeIcons = False, $bForceLoadFromDisk = False)
	Local $dwFlags, $FileInfo = DllStructCreate($tagSHFILEINFO)
	$dwFlags = $SHGFI_SYSICONINDEX
	If $bLargeIcons Then
		$dwFlags = BitOR($dwFlags, $SHGFI_LARGEICON)
	Else
		$dwFlags = BitOR($dwFlags, $SHGFI_SMALLICON)
	EndIf
;~ ' We choose whether to access the disk or not. If you don't
;~ ' hit the disk, you may get the wrong icon if the icon is
;~ ' not cached. But the speed is very good!
	If Not $bForceLoadFromDisk Then $dwFlags = BitOR($dwFlags, $SHGFI_USEFILEATTRIBUTES)
;~ ' sFileSpec can be any file. You can specify a
;~ ' file that does not exist and still get the
;~ ' icon, for example sFileSpec = "C:\PANTS.DOC"
	Local $lR = _WinAPI_SHGetFileInfo( _
			$sFileSpec, $FILE_ATTRIBUTE_NORMAL, DllStructGetPtr($FileInfo), DllStructGetSize($FileInfo), _
			$dwFlags _
			)
	If ($lR = 0) Then
		Return SetError(1, 0, -1)
	Else
		Return DllStructGetData($FileInfo, "iIcon")
	EndIf
EndFunc   ;==>_GUIImageList_GetFileIconIndex

Alles anzeigen

mirko2002

Uh, sorry damit komme ich gerade gar nicht klar da es ganz anders aufgesetzt ist als meine Variante. Ich muss dazu sagen, dass ich diese bei mir laufende GUICtrlTreeView-Sache aus Codeschnipseln anderer AutoIt-Projekte verwendet habe.

Lerneffekt ist dabei relativ gering, auch wenn ich durch "rumspielen" den einen oder anderen Effekt natürlich nachvollziehen kann.

Daher bin ich mit dem obigen Beispiel gerade völlig überfragt

**Oscar**

Wenn Du mit solchen Beispielen nicht weiter kommst, wäre es wäre hilfreich, wenn Du Dein komplettes Script posten würdest.
Dann können wir die Änderungen direkt darin vornehmen und müssen nicht immer wieder neue Beispiele basteln (die Du dann nicht verstehst).

mirko2002

Entschuldigt bitte die späte Rückmeldung, aber Wochenende war stressig.

Ich stell hier mal das komplette Skript rein... Sinn und Zweck des ganzen ist, das dort Feedbacks erstellt werden müssen und diese abschliessend als "completed" benannt werden. Zur weiteren besseren Übersicht sollen halt auch die Icons entsprechend aussehen damit man wirklich auf dem ersten Blick erkennt, ob ein Fall noch bearbeitet werden muss oder nicht.

AutoIt

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=artifacter.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GuiTreeView.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <File.au3>
#include <ColorConstants.au3>


GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')


Global $sPath = 'M:\SV\Feedbacks\'
Global $width = 800, $height = 600
Global $hGui = GUICreate('Feedbacks 1.0', $width, $height, -1, -1)
Global $notizen
Global $checkbox_ccc_marked = 0
Global $checkbox_fdx_marked = 0


Dim $input_infos[3]


GUICtrlSetFont(-1, 9, 600, 0, 'Verdana')
Global $bFiles = True
GUICtrlCreateGroup("Feedbacks", 5, 20, 275, 505)
GUICtrlSetFont(-1, 8, 600, 0, "Verdana")
Global $hTreeView = GUICtrlCreateTreeView(10, 35, $width - 540, $height - 120, BitOR($GUI_SS_DEFAULT_TREEVIEW, $TVS_CHECKBOXES), $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 10, 400, 0, 'Arial')
GUICtrlSetBkColor(-1, 0xF8F8F8)
$input_createfile = GUICtrlCreateInput("FILENAME", 15, 545, 140, 18)
$button_createfile = GUICtrlCreateButton("Create Feedback", 160, 544, 90, 18)
$label_createfile = GUICtrlCreateLabel('Please use all fields in "Feedback Infos"', 5, 565, 250,10)
GUICtrlSetColor($label_createfile, $COLOR_RED)
GUICtrlSetFont(-1, 7, 600, 0, "Verdana")
GUICtrlSetState($label_createfile, $GUI_HIDE)
$label_createfile_done = GUICtrlCreateLabel('<< Feedback created >>', 70, 565, 250,10)
GUICtrlSetColor($label_createfile_done, $COLOR_GREEN)
GUICtrlSetFont(-1, 7, 600, 0, "Verdana")
GUICtrlSetState($label_createfile_done, $GUI_HIDE)
$button_filedelete = GUICtrlCreateButton("", 255, 528, 25, 25, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", -132,0)
GUICtrlSetTip(-1, "Delete the selected feedback file")
$button_refreshtree = GUICtrlCreateButton("", 255, 555, 25, 25, $BS_ICON)
GUICtrlSetImage(-1, "wmploc.dll", -138,0)
GUICtrlSetTip(-1, "Refresh the feedback tree view")
GUICtrlCreateGroup("Feedback Infos", 290, 20, 500, 80)
GUICtrlSetFont(-1, 8, 600, 0, "Verdana")
GUICtrlCreateLabel("Teamleader:", 300, 40)
$input_infos[0] = GUICtrlCreateInput("", 360, 38, 150, 18)
GUICtrlCreateLabel("AWB:", 540, 40)
$input_infos[1] = GUICtrlCreateInput("", 600, 38, 150, 18)
GUICtrlCreateLabel("Agent:", 300, 70)
$input_infos[2] = GUICtrlCreateInput("", 360, 68, 150, 18)
GUICtrlCreateLabel("Feedback:", 540, 70)
$checkbox_ccc = GUICtrlCreateCheckbox("CCC", 620, 66)
GUICtrlSetBkColor(-1, $COLOR_RED)
$checkbox_fdx = GUICtrlCreateCheckbox("FDX", 700, 66)
GUICtrlSetBkColor(-1, $COLOR_RED)
GUICtrlCreateGroup("Notes", 290, 100, 500, 395)
GUICtrlSetFont(-1, 8, 600, 0, "Verdana")
$notizen = GUICtrlCreateEdit("", 300, 115, 480, 370, BitOR ($WS_VSCROLL, $ES_MULTILINE, $ES_READONLY))
GUICtrlCreateGroup("Updates", 290, 495, 400, 80)
GUICtrlSetFont(-1, 8, 600, 0, "Verdana")
$input_update = GUICtrlCreateEdit("", 300, 510, 380, 55, BitOR ($WS_VSCROLL, $ES_MULTILINE, $ES_AUTOVSCROLL, $ES_WANTRETURN))
$button_update = GUICtrlCreateButton("Update Feedback", 695, 530, 93, 20)
GUICtrlCreateLabel("© Mirko Hässelbarth", 705, 5, 90,20)
GUICtrlSetFont(-1, 6, 400, 0, "Verdana")
Global $hStatus1 = GUICtrlCreateLabel('', 0, $height - 16, $width / 2, 16, -1, $WS_EX_STATICEDGE)
Global $hStatus2 = GUICtrlCreateLabel('', $width / 2 + 1, $height - 16, $width / 2, 16, -1, $WS_EX_STATICEDGE)


#region Username ermitteln
$winuser = @UserName
If @Username = "751076" then
	$winuser = "Mirko"
ElseIf @Username = "842587" Then
	$winuser = "Christina"
ElseIf @Username = "862883" Then
	$winuser = "Alexander"
ElseIf @Username = "763889" Then
	$winuser = "Tatjana"
ElseIf @Username = "916065" Then
	$winuser = "Thomas"
ElseIf @Username = "810453" Then
	$winuser = "Snoken"
Else
	$winuser = "Unknown"
EndIf
#endregion


GUISetState()


_TreeViewUpdate()


While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_PRIMARYDOWN
            $aInfo = GUIGetCursorInfo($hGui)
			If $aInfo[4] = $hTreeView Then
                $oldGUIDataSeparatorChar = Opt('GUIDataSeparatorChar', '\')
                GUICtrlSetData($hStatus1, ' ' & StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\'))
				$readini = FileRead(StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\'))
				GUICtrlSetData($notizen,StringTrimLeft($readini, StringInStr($readini, @CRLF, 0, 5))) ;liest den Inhalt ab der 5. Zeile aus
				$read_info1 = FileReadLine(StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\'),1)
				GUICtrlSetData($input_infos[0],$read_info1)
				$read_info2 = FileReadLine(StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\'),2)
				GUICtrlSetData($input_infos[1],$read_info2)
				$read_info3 = FileReadLine(StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\'),3)
				GUICtrlSetData($input_infos[2],$read_info3)
				$read_info4 = FileReadLine(StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\'),4)
				If $read_info4 = 1 Then
					GUICtrlSetState($checkbox_ccc,$GUI_CHECKED)
					GUICtrlSetBkColor($checkbox_ccc, 0x00FF00)
				Else
					GUICtrlSetState($checkbox_ccc,$GUI_UNCHECKED)
					GUICtrlSetBkColor($checkbox_ccc, $COLOR_RED)
				EndIf
				$read_info5 = FileReadLine(StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\'),5)
				If $read_info5 = 1 Then
					GUICtrlSetState($checkbox_fdx,$GUI_CHECKED)
					GUICtrlSetBkColor($checkbox_fdx, 0x00FF00)
				Else
					GUICtrlSetState($checkbox_fdx,$GUI_UNCHECKED)
					GUICtrlSetBkColor($checkbox_fdx, $COLOR_RED)
				EndIf
                Opt('GUIDataSeparatorChar', $oldGUIDataSeparatorChar)
                If BitAND(_GUICtrlTreeView_HitTest($hTreeView, $aInfo[0] - 11, $aInfo[1] - 41), 64) Then
                    $checked = _GUICtrlTreeView_GetChecked($hTreeView, _GUICtrlTreeView_GetSelection($hTreeView))
                    _GUICtrlTreeView_SetBold($hTreeView, _GUICtrlTreeView_GetSelection($hTreeView), $checked)
                    $hItem = _GUICtrlTreeView_GetFirstChild($hTreeView, _GUICtrlTreeView_GetSelection($hTreeView))
                    If $hItem Then _MarkChildItems($hTreeView, $hItem, $checked)
				EndIf
            EndIf
			If $aInfo[4] = 5 Then
				GUICtrlSetData($input_infos[0],"")
				GUICtrlSetData($input_infos[1],"")
				GUICtrlSetData($input_infos[2],"")
				GUICtrlSetData($notizen,"")
				GUICtrlSetData($input_update,"")
				GUICtrlSetData($input_createfile,"")
				GUICtrlSetState($checkbox_ccc, $GUI_UNCHECKED)
				GUICtrlSetBkColor($checkbox_ccc, $COLOR_RED)
				GUICtrlSetState($checkbox_fdx, $GUI_UNCHECKED)
				GUICtrlSetBkColor($checkbox_fdx, $COLOR_RED)
			EndIf
		Case $button_update
            $oldGUIDataSeparatorChar = Opt('GUIDataSeparatorChar', '\')
			$read_update = GUICtrlRead($input_update)
			FileWrite(StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\'), @CRLF & "Updated at " & @MDAY&"."&@MON&" "&@YEAR&", "&@HOUR&":"&@MIN&" by " & $winuser&":" & @CRLF & $read_update & @CRLF & "--------------------------------------------------------------------------------------------------------------------------------------------------------")
			$read_ccc = GUICtrlRead($checkbox_ccc)
			$read_fdx = GUICtrlRead($checkbox_fdx)
			If $read_ccc = 1 Then
				$checkbox_ccc_marked = 1
			Elseif $read_ccc = 4 Then
				$checkbox_ccc_marked = 0
			EndIf
			If $read_fdx = 1 Then
				$checkbox_fdx_marked = 1
			Elseif $read_fdx = 4 Then
				$checkbox_fdx_marked = 0
			EndIf
			_FileWriteToLine(StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\'), 4, $checkbox_ccc_marked, 1)
			_FileWriteToLine(StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\'), 5, $checkbox_fdx_marked, 1)
			$readini = FileRead(StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\'))
			GUICtrlSetData($notizen,StringTrimLeft($readini, StringInStr($readini, @CRLF, 0, 5)))
			GUICtrlSetData($input_update,"")
			If $checkbox_ccc_marked = 1 And $checkbox_fdx_marked = 1 Then
				$filerenaming = StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\')
	;~ 			MsgBox(0,"", _GUICtrlTreeView_GetText($hTreeView))
	;~ 			MsgBox(0,"", StringReplace($test1, '.txt', '_completed.txt'))
				FileMove($filerenaming, StringReplace($filerenaming, '.txt', '_completed.txt'))
				_TreeViewUpdate()
			EndIf
		Case $button_createfile
			_checkInputs()
		Case $button_refreshtree
			_TreeViewUpdate()
		Case $button_filedelete
			$oldGUIDataSeparatorChar = Opt('GUIDataSeparatorChar', '\')
			$tmp = MsgBox(48+4, '', "Do you want to delete the feedback?")    ; Yes, No, Cancel
			Switch $tmp
				Case 6    ; JA
					FileDelete(StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\'))
					GUICtrlSetData($input_infos[0],"")
					GUICtrlSetData($input_infos[1],"")
					GUICtrlSetData($input_infos[2],"")
					GUICtrlSetData($notizen,"")
					_TreeViewUpdate()
				Case 7    ; NEIN
			EndSwitch
		Case $checkbox_ccc
			$checkbox_ccc_marked = 0
			If GUICtrlRead($checkbox_ccc) = 1 Then
				$checkbox_ccc_marked = 1
				GUICtrlSetBkColor($checkbox_ccc, 0x00FF00)
			Elseif GUICtrlRead($checkbox_ccc) = 4 Then
				$checkbox_ccc_marked = 0
				GUICtrlSetBkColor($checkbox_ccc, $COLOR_RED)
			EndIf
		Case $checkbox_fdx
			$checkbox_fdx_marked = 0
			If GUICtrlRead($checkbox_fdx) = 1 Then
				$checkbox_fdx_marked = 1
				GUICtrlSetBkColor($checkbox_fdx, 0x00FF00)
			Elseif GUICtrlRead($checkbox_fdx) = 4 Then
				$checkbox_fdx_marked = 0
				GUICtrlSetBkColor($checkbox_fdx, $COLOR_RED)
			EndIf
		Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd


Func _checkInputs()
	Local $test = 0
    for $i = 0 to UBound($input_infos)-1
            if GUICtrlRead($input_infos[$i]) = "" then
                $test = 1
                ExitLoop
            EndIf
	next
		If $test = 1 then
			GUICtrlSetState($label_createfile, $GUI_SHOW)
			$timerstart = TimerInit()
			$count = 0
			Do
				If TimerDiff($timerstart) > 2000 Then
					GUICtrlSetState($label_createfile, $GUI_HIDE)
					$timerstart = TimerInit()
					$count = 1
				EndIf
			Until $count = 1
		Else
			$oldGUIDataSeparatorChar = Opt('GUIDataSeparatorChar', '\')
			$read_createfile = GUICtrlRead($input_createfile)
			$read_input_infos1 = GUICtrlRead($input_infos[0])
			$read_input_infos2 = GUICtrlRead($input_infos[1])
			$read_input_infos3 = GUICtrlRead($input_infos[2])
			$read_update = GUICtrlRead($input_update)
			FileWrite($sPath & $read_createfile & ".txt", $read_input_infos1 & @CRLF & $read_input_infos2 & @CRLF & $read_input_infos3 & @CRLF & $checkbox_fdx_marked & @CRLF & $checkbox_ccc_marked & @CRLF & "Created " &@MDAY&"."&@MON&" "&@YEAR&", "&@HOUR&":"&@MIN&" by " & $winuser & @CRLF & $read_update & @CRLF)
			_TreeViewUpdate()
			GUICtrlSetData($input_infos[0],"")
			GUICtrlSetData($input_infos[1],"")
			GUICtrlSetData($input_infos[2],"")
			GUICtrlSetData($input_update,"")
			GUICtrlSetData($input_createfile,"")
			GUICtrlSetState($label_createfile_done, $GUI_SHOW)
			$timerstart1 = TimerInit()
			$count1 = 0
			Do
				If TimerDiff($timerstart1) > 2000 Then
					GUICtrlSetState($label_createfile_done, $GUI_HIDE)
					$timerstart = TimerInit()
					$count1 = 1
				EndIf
			Until $count1 = 1
		EndIf
	Return
EndFunc


Func _MarkChildItems(ByRef $hTreeView, $hItem, $checked)
    Do
        $hNewItem = _GUICtrlTreeView_GetFirstChild($hTreeView, $hItem)
        If $hNewItem Then _MarkChildItems($hTreeView, $hNewItem, $checked)
		_GUICtrlTreeView_SetChecked($hTreeView, $hItem, $checked)
        _GUICtrlTreeView_SetBold($hTreeView, $hItem, $checked)
        $hItem = _GUICtrlTreeView_GetNextChild($hTreeView, $hItem)
    Until $hItem = 0
EndFunc   ;==>_MarkChildItems


Func _TreeViewUpdate()
    GUICtrlSetData($hStatus1, ' Please wait! Directory will be read...')
    GUICtrlSetData($hStatus2, '')
    $Timer = TimerInit()
    Local $aCount = _GUICtrlTreeView_CreateDirectory($hTreeView, $sPath, $bFiles)
    If Not @error Then
        $msg = ' Time: ' & Round(TimerDiff($Timer) / 1000, 3) & ' sec.'
        $msg &= '  |   ' & $aCount[1] & ' File(s) and ' & $aCount[0] & ' Folder(s)'
        GUICtrlSetData($hStatus1, ' Done')
        GUICtrlSetData($hStatus2, $msg)
    EndIf
EndFunc   ;==>_TreeViewUpdate


;===============================================================================
; Function Name:   _GUICtrlTreeView_CreateDirectory($hTreeView, $sPath, $bFiles)
; Description::    erstellt ein TreeView mit Verzeichnissen (+Dateien)
; Parameter(s):    $hTreeView = ControlID/Handle des TreeViews
;                  $sPath     = Verzeichnispfad, der dargestellt werden soll
;                  $bFiles    = True = auch Dateien anzeigen, False = nur Verzeichnisse
; Requirement(s):  #include<GuiTreeView.au3>
; Return Value(s): Array mit Anzahl der Verzeichnisse=[0] und Dateien=[1]
;                  0 und @error = 1, wenn der Pfad nicht existiert bzw. kein Verzeichnis ist
;                  0 und @error = 2, wenn das FileSystemObject nicht erstellt werden konnte
; Author(s):       Oscar (www.autoit.de)
;===============================================================================
Func _GUICtrlTreeView_CreateDirectory($hTreeView, $sPath, $bFiles = False)
    Local $hFileItem, $FolderColor = 0x000000, $Folder, $aCount[2] = [0, 0]
    If Not StringInStr(FileGetAttrib($sPath), 'D') Then Return SetError(1, 0, 0)
    $sPath = FileGetLongName($sPath)
    Local $oFSO = ObjCreate('Scripting.FileSystemObject')
    If @error Then Return SetError(2, 0, 0)
    _GUICtrlTreeView_BeginUpdate($hTreeView)
    _GUICtrlTreeView_DeleteAll(GUICtrlGetHandle($hTreeView))
    Local $hTreeViewItem = GUICtrlCreateTreeViewItem($sPath, $hTreeView)
    GUICtrlSetColor(-1, $FolderColor)


;~ 	$icon = StringReplace(_GUICtrlTreeView_GetTree($hTreeView), '\\', '\')
;~ 	$icon2 = StringInStr($icon, "_completed.txt")
;~ 	If $icon2 > 0 Then
;~ 		_GUICtrlTreeView_SetIcon($hTreeView, $hTreeViewItem, 'shell32.dll', 111) ;Icon für Datei
;~ 	Else
;~ 		_GUICtrlTreeView_SetIcon($hTreeView, $hTreeViewItem, 'shell32.dll', 110) ;Icon für Datei
;~ 	EndIf




;~    _GUICtrlTreeView_SetIcon($hTreeView, $hTreeViewItem, 'shell32.dll', 111) ;Icon für Datei
	_GUICtrlTreeView_SetIcon($hTreeView, $hTreeViewItem, 'imageres.dll', 101) ;Icon für Datei // 99 = blaues Fragezeichen, 100 = rotes X, 101 = grüner Haken, 102 Gelbes Ausrufezeichen


    $Folder = $oFSO.GetFolder($sPath)
    _CreateDirectoryRecursive($hTreeView, $Folder, $hTreeViewItem, $bFiles, $aCount)
    If $bFiles Then
        For $Files In $Folder.Files
            $hFileItem = GUICtrlCreateTreeViewItem($Files.Name, $hTreeViewItem)
            $aCount[1] += 1
        Next
    EndIf
    _GUICtrlTreeView_SetIcon($hTreeView, $hTreeViewItem, 'shell32.dll', 3, 2) ;Icon für Rootfolder
    _GUICtrlTreeView_SetIcon($hTreeView, $hTreeViewItem, 'shell32.dll', 110, 4)
    _GUICtrlTreeView_EndUpdate($hTreeView)
    GUICtrlSetState($hTreeViewItem, $GUI_EXPAND)
    $oFSO = ''
    Return $aCount
EndFunc   ;==>_GUICtrlTreeView_CreateDirectory


Func _CreateDirectoryRecursive($hTreeView, $Folder, $ItemOld, $bFiles, ByRef $aCount)
    Local $hFolderItem, $hFileItem, $FolderColor = 0x0000FF
    For $Subfolder In $Folder.SubFolders
        $hFolderItem = GUICtrlCreateTreeViewItem($Subfolder.Name, $ItemOld)
        GUICtrlSetColor(-1, $FolderColor)
        _GUICtrlTreeView_SetIcon($hTreeView, $hFolderItem, 'shell32.dll', 3, 2)
        _GUICtrlTreeView_SetIcon($hTreeView, $hFolderItem, 'shell32.dll', 110, 4)
        $aCount[0] += 1
        _CreateDirectoryRecursive($hTreeView, $Subfolder, $hFolderItem, $bFiles, $aCount)
        If $bFiles Then
            For $Files In $Subfolder.Files
                $hFileItem = GUICtrlCreateTreeViewItem($Files.Name, $hFolderItem)
                $aCount[1] += 1
            Next
        EndIf
    Next
EndFunc   ;==>_CreateDirectoryRecursive


Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    Local $nNotifyCode = BitShift($wParam, 16)


    Switch $lParam
        Case GUICtrlGetHandle($notizen)
            Switch $nNotifyCode
                Case $EN_SETFOCUS
                    DllCall('user32.dll', 'int', 'HideCaret', 'hwnd', $lParam) ; => _WinAPI_HideCaret($lParam)
            EndSwitch
    EndSwitch


    Return $GUI_RUNDEFMSG
EndFunc

Alles anzeigen

LG
Mirko

mirko2002

Huhu zusammen,

hat irgendjemand noch Ideen wie ich meinen Plan umsetzen kann?

LG
Mirko

mirko2002

Ich möchte das Thema nochmal "bumpen" und fragen ob jemand hier mich nochmal unterstützen könnte?

Viele liebe Grüße,
Mirko

**autoBert**

Bei deiner Lernwilligkeit schlage ich vor in Mit Gegenleistung ein Thema zu erstellen.