Hi, wie kann ich in einer GUI ein Vorschaubild anzeigen lassen.
Ich wähle aus einem ListView eine oder mehrere Dateien aus.
Dann soll die erste Datei das Vorschaubild der jpg-Datei anzeigen.
Wenn ich einen anderen Eintrag der ListeView anklicke, soll dieses Bild angezeigt werden.
Ist dies möglich?
Danke 
Hi,
erstell doch eine neue GUI mit dem Bild als Hintergrund.
So long,
Mega
Hi,
klar kannst du mehrere GUIs aufbauen. Zeig mal den Code, so - dass man testen kann.
So long,
Mega
Hi,
noch habe ich nichts getan. :rofl_devil:
Die includes brauche ich auch :musik2:
So long,
Mega
Hi,
also sortieren, einfach 2x mal machen
_GUICtrlListViewSort($listview, $B_DESCENDING, 1); $B_DESCENDING
_GUICtrlListViewSort($listview, $B_DESCENDING, 1); $B_DESCENDING
So long,
Mega
Hi,
das hätte ich ungefähr so gemacht:
#include <GuiListView.au3>
#include <GuiList.au3>
#include <GUIConstants.au3>
#Include <File.au3>
#Include <Array.au3>
#include <_ArrayDisplay2D.au3>
;#include <_ArraySort_2ary.au3>
#include<image_get_info.au3>
Dim $Fehler1, $Fehler2, $Fehler3, $Pfad
[/autoit] [autoit][/autoit] [autoit];Standardpfad hier auswählen
$Standard = "D:\Test\"
$Standard2 = "D:\Ziel\"
;------------------------------------------------------------------------------------------------
;umbenennen
$ersetzen1 = "IMG" ;Quellfotos "IMG"
$Dateiart1 = "JPG" ;Quellfotos Typ "JPG"
$ersetzen2 = "MVI" ;Quellvideos "MVI"
$Dateiart2 = "AVI" ;Quellvideos Typ "AVI"
$Dateiart3 = "THM" ;Quellvideos Typ "THM"
;------------------------------------------------------------------------------------------------
;------------------------
;GUI
;------------------------
;GUI erzeugen
GUICreate("Fotos übertragen", 500, 700, $WS_EX_ACCEPTFILES)
;Buttons
$Quellordner = GUICtrlCreateButton("Quellordner auswählen", 300, 300)
$kopieren = GUICtrlCreateButton("Kopieren", 300, 350)
$umbenennen = GUICtrlCreateButton("umbenennen", 300, 400)
$Kategorien = GUICtrlCreateButton("Kategorien vergeben", 300, 450)
$datum = GUICtrlCreateButton("Datum zurücksetzen", 300, 500)
$beenden = GUICtrlCreateButton("Beenden", 300, 550)
;Beschriftung
GUICtrlCreateLabel("aktueller Quellpfad:", 300, 10)
GUICtrlCreateLabel("aktueller Zielpfad:", 300, 30)
;Liste mit Dateien
$listview = GUICtrlCreateListView("Bild|Datum", 10, 10, 230, 650);$LVS_SORTDESCENDING ;$LVS_SORTASCENDING
;?????????????
GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
;Klappliste für das Umbenennen der Dateien
$Klappen = GUICtrlCreateCombo("FH", 300, 250, 50); erster Eintrag
GUICtrlSetData(-1, "DF", "FH") ;weitere Einträge, getrennt durch | , zweiter Eintrag ist der Standard
;Spaltenbreite für die erste Spalte festlegen
_GUICtrlListViewSetColumnWidth($listview, 0, 100)
;------------------------------------------------------------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];------------------------
;sonstiges
;------------------------
;Quellordner öffnen
_Quellordner()
;Größe des Arrays anhand von vorhandenen Dateien einstellen
$anzahl = DirGetSize($Pfad, 3)
Dim $neu[$anzahl[1] + 1][2]
;Array ($Filelist) erzeugen (nur Dateinamen)
$FileList = _FileListToArray($Pfad)
;Array ($neu) erzeugen (Dateinamen von $Filelist und Datum)
For $i = 1 To UBound($FileList) - 1
$neu[$i][0] = $FileList[$i]
$time2 = FileGetTime($Pfad & $FileList[$i], 0)
$neu[$i][1] = $time2[0] & $time2[1] & $time2[2] & $time2[3] & $time2[4] & $time2[5]
Next
;Array sortieren nach Datum
;_ArraySort_2ary ($neu, 1, 0)
;_ArrayDisplay2D($neu,"$neu")
;GUI anzeigen
GUISetState()
;Einträge für ListView vornehmen (Datei und Datum)
For $i = 1 To UBound($FileList) - 1
$time2 = FileGetTime($Pfad & $FileList[$i], 0)
$video2 = $time2[0] & "." & $time2[1] & "." & $time2[2] & " " & $time2[3] & "." & $time2[4] & "." & $time2[5]
GUICtrlCreateListViewItem($FileList[$i] & "|" & $video2, $listview)
Next
;Einträge vom ListView sortieren
Dim $B_DESCENDING[_GUICtrlListViewGetSubItemsCount($listview) ];$B_DESCENDING
_GUICtrlListViewSort($listview, $B_DESCENDING, 1); $B_DESCENDING
_GUICtrlListViewSort($listview, $B_DESCENDING, 1); $B_DESCENDING
$pic = GUICtrlCreatePic($Pfad & $FileList[1], 300, 80)
[/autoit] [autoit][/autoit] [autoit];------------------------------------------------------------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];------------------------
;Drücken eines Buttons
;------------------------
While 1
$msg = GUIGetMsg()
Select
;Button Quellordner
Case $msg = $Quellordner
_Quellordner()
;Button Umbenennen
Case $msg = $umbenennen
SplashTextOn("Start des Umbenennens", "Die Foto und Videodateien werden umbenannt", 350, 30, -1, -1)
$neu1 = GUICtrlRead($Klappen)
_Foto()
_Video1()
_Video2()
_Pruefung()
;Button Kopieren
Case $msg = $kopieren
$Zielordner = FileSelectFolder("Bitte den Pfad auswählen", "", "", $Standard2) & "\"
;Zielordner anzeigen
GUICtrlCreateLabel($Zielordner, 400, 30)
Local $test = _GUICtrlListViewGetSelectedIndices($listview, 1)
If (IsArray($test)) Then
Local $i
;_ArrayDisplay($test,"$test")
;_ArrayDisplay2D($neu,"$neu")
For $i = 1 To $test[0]
FileCopy($Pfad & $neu[$test[$i] + 1][0], $Zielordner, 1)
Next
Else
EndIf
;Button Datum ändern
Case $msg = $datum
_exif()
;Button Beenden
Case $msg = $beenden
Exit
;~ Case $msg = $listview
;~ ; sort the list by the column header clicked on
;~ _GUICtrlListViewSort($listview, $B_DESCENDING, GUICtrlGetState($listview))
;Bildvorschau anzeigen
Case $msg = $GUI_EVENT_PRIMARYDOWN
$pos = GUIGetCursorInfo()
If ($pos[4] == $listview) Then
$wo = _GUICtrlListViewGetItemText($listview, _GUICtrlListViewGetSelectedIndices($listview), 0)
GUICtrlSetImage($pic, $Pfad & _GUICtrlListViewGetItemText($listview, _GUICtrlListViewGetSelectedIndices($listview), 0))
EndIf
EndSelect
WEnd
;------------------------------------------------------------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];------------------------
;Funktionenen
;------------------------
;Quellordner auswählen
Func _Quellordner()
$Pfad = FileSelectFolder("Bitte den Pfad auswählen", "", "", $Standard) & "\"
GUICtrlCreateLabel(" ", 400, 10)
GUICtrlCreateLabel($Pfad, 400, 10)
EndFunc ;==>_Quellordner
;umbenennen
;Teil1 Prüfung, Fotofiles umbenennen
Func _Foto()
$Fehler1 = 0
$FileList1 = _FileListToArray($Zielordner, $ersetzen1 & "_*." & $Dateiart1, 1)
If @error = 1 Then
MsgBox(0, "Ordner nicht vorhanden", "Bitte überprüfen")
Exit
EndIf
If @error = 4 Then
$Fehler1 = 1
Return
EndIf
For $i = 1 To UBound($FileList1) - 1
$Foto1 = StringReplace($FileList1[$i], $ersetzen1, $neu1)
FileMove($Zielordner & $FileList1[$i], $Zielordner & $Foto1)
Next
EndFunc ;==>_Foto
;Teil2 Prüfung, Videofiles umbenennen
Func _Video1()
$Fehler2 = 0
$FileList2 = _FileListToArray($Zielordner, $ersetzen2 & "_*." & $Dateiart2, 1)
If @error = 4 Then
$Fehler2 = 1
Return
EndIf
For $i = 1 To UBound($FileList2) - 1
$time2 = FileGetTime($Zielordner & $FileList2[$i], 0)
$video2 = $time2[0] & "." & $time2[1] & "." & $time2[2] & " " & $time2[3] & "." & $time2[4] & "." & $time2[5] & "_" & $neu1
FileMove($Zielordner & $FileList2[$i], $Zielordner & $video2 & "." & $Dateiart2)
Next
EndFunc ;==>_Video1
;Teil3 Prüfung, Videofiles umbenennen
Func _Video2()
$Fehler3 = 0
$FileList3 = _FileListToArray($Zielordner, $ersetzen2 & "_*." & $Dateiart3, 1)
If @error = 4 Then
$Fehler3 = 1
Return
Else
EndIf
For $i = 1 To UBound($FileList3) - 1
$time3 = FileGetTime($Zielordner & $FileList3[$i], 0)
$video3 = $time3[0] & "." & $time3[1] & "." & $time3[2] & " " & $time3[3] & "." & $time3[4] & "." & $time3[5] & "_" & $neu1
FileMove($Zielordner & $FileList3[$i], $Zielordner & $video3 & "." & $Dateiart3)
Next
EndFunc ;==>_Video2
;Teil4 Prüfung, ob überhaupt Dateien existieren
Func _Pruefung()
SplashOff()
If ($Fehler1 + $Fehler2 + $Fehler3 = 3) Then
MsgBox(0, "Keine Dateien vorhanden", "Bitte überprüfen")
Else
EndIf
EndFunc ;==>_Pruefung
;Exif-Datum als Dateidatum setzen
Func _exif()
$jpg = _FileListToArray($Zielordner, "*.jpg")
SplashTextOn("Datum der .jpg Dateien wird korrigiert", "Bitte warten", 250, 30, -1, -1)
[/autoit] [autoit][/autoit] [autoit]If @error = 4 Then
MsgBox(0, "falscher Ordner?", "Keine Dateien vorhanden")
Exit
EndIf
For $i = 1 To UBound($jpg) - 1
$aInfo = _ImageGetInfo ($Zielordner & $jpg[$i])
$exif = _ImageGetParam ($aInfo, "DateTimeDigitized")
$jahr = StringMid($exif, 1, 4)
$monat = StringMid($exif, 6, 2)
$tag = StringMid($exif, 9, 2)
$stunde = StringMid($exif, 12, 2)
$minute = StringMid($exif, 15, 2)
$sekunde = StringMid($exif, 18, 2)
$datum = $jahr & $monat & $tag & $stunde & $minute & $sekunde
FileSetTime($Zielordner & $jpg[$i], $datum, 0)
FileSetTime($Zielordner & $jpg[$i], $datum, 1)
Next
SplashOff()
EndFunc ;==>_exif
So long,
Mega
Oh mei oh mei,
ich kann ich dir sagen,
einfach perfekt 
Auf solch eine Idee wäre ich nie gekommen.
Muß ich mir nochmal genauer anschauen, was du da wieder gezaubert hast.
Wie immerTausend Dank
Hi,
kein Problem. Du hattest nur den "Fehler" gemacht jedesmal ein neues PIC zu erstellen und nicht die Updatefunc zu nutzen.
So long,
Mega
P.S.: Da geht aber allgemein sicher einiges noch besser.
Original von th.meger
P.S.: Da geht aber allgemein sicher einiges noch besser.
jetzt machst du mich aber neugierig ...
Hi,
naja die Sachen die du schon angesprochen hast, up down usw.
Aber jetzt bist du erstmal wieder an der Reihe! :rofl_devil:
So long,
Mega
Hi,
$listview = GUICtrlCreateListView("Bild|Datum", 10, 10, 230, 650, $LVS_SORTDESCENDING);$LVS_SORTDESCENDING ;$LVS_SORTASCENDING
So long,
Mega
