Beiträge von Tweaky

#include<GUIConstants.au3>
#include<GuiListView.au3>
GUICreate("listview items",220,250, 100,200,-1,$WS_EX_ACCEPTFILES)
GUISetBkColor (0x00E0FFFF) ; will change background color
$listview = GUICtrlCreateListView ("col1 |col2|col3 ",10,10,200,150);,$LVS_SORTDESCENDING)
$item1=GUICtrlCreateListViewItem("item2|col22|col23",$listview)
$item2=GUICtrlCreateListViewItem("item1|col12|col13",$listview)
$item3=GUICtrlCreateListViewItem("item3|col32|col33",$listview)
$input1=GUICtrlCreateInput("",20,200, 150)
GUICtrlSetState(-1,$GUI_DROPACCEPTED) ; to allow drag and dropping
GUISetState()
GUICtrlSetData($item2,"ITEM1")
GUICtrlSetData($item3,"||COL33")
GUICtrlDelete($item1)
$merken = ""
Do
$msg = GUIGetMsg ()

Select
Case $msg = $GUI_EVENT_CLOSE
EXIT
EndSelect

$vergleich = _GUICtrlListView_GetSelectedIndices($listview, 0)
If $merken <> $vergleich Then
$selid = _GUICtrlListView_GetSelectionMark($ListView)
$sel = _GUICtrlListView_GetItemTextArray($ListView, $selid)
GUICtrlSetData($Input1, $sel[1])
$merken = $vergleich
EndIf
$vergleich = GUICtrlRead($Input1)
Until $msg = $GUI_EVENT_CLOSE

#include <File.au3>
#include <Array.au3> ;Für ArrayDisplay
$pfad = @ScriptDir
$aFiles = _FileListToArray($pfad,"*.jpg")
If @error = 1 Then
MsgBox(0, "", "No Files\Folders Found.")
Exit
EndIf
_ArrayDisplay($aFiles,"Ergebnis von FileListToArray")
Dim $n_array[Ubound($aFiles)][3]
Dim $entry = 0 ;Aktueller Index des neuen Arrays
For $i = 1 To $aFiles[0]
If StringLen($aFiles[$i]) >= 14 Then
$n_array[$entry][0] = $aFiles[$i]
$n_array[$entry][1] = FileGetTime($pfad & "\" & $aFiles[$i], 0, 1)
$n_array[$entry][2] = StringMid($aFiles[$i], 1, 12)
$entry += 1 ;Index um 1 erhöhen
EndIf
Next
_ArrayDisplay($n_array,"2")
ReDim $n_array[$entry][3]
_ArrayDisplay($n_array,"2")
For $i = 0 To UBound($n_array) -2
If $n_array[$i][2] = $n_array[$i+1][2] Then
$n_array[$i+1][0] = '|'
If $n_array[$i][0] = "|" Then
FileMove($pfad & $n_array[$i][0] & ".ipg" , $pfad & "Abfalleimer")
EndIf
EndIf
Next

#AutoIt3Wrapper_AU3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7
Opt("MustDeclareVars", 1)
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <GuiStatusbar.au3>
#include <Constants.au3>
Global Const $tagNMLVCUSTOMDRAW = "hwnd hWndFrom;int IDFrom;int Code;dword dwDrawStage;hwnd hdc;int Left;int Top;int Right;int Bottom;" & _
"dword dwItemSpec;uint uItemState;long lItemlParam;int clrText;int clrTextBk;int iSubItem;dword dwItemType;int clrFace;int iIconEffect;" & _
"int iIconPhase;int iPartId;int iStateId;int TextLeft;int TextTop;int TextRight;int TextBottom;uint uAlign"
Global Const $CDDS_PREPAINT = 0x00000001
Global Const $CDDS_ITEMPREPAINT = 0x00010001
Global Const $CDRF_NEWFONT = 0x00000002
Global Const $CDRF_NOTIFYITEMDRAW = 0x00000020
#region Globals *************************************************************************
Global $hDragImageList, $h_ListView, $bDragging = False, $LV_Height, $StatusBar1
Global $a_index[2] ; from and to
Global Const $DebugIt = 1
#endregion End Global variables
Opt("WinTitleMatchMode", 2)
_TestDragItemWithImages()
Func _TestDragItemWithImages()
Local Const $image_width = 20
Local Const $image_height = 20
Local $h_images, $main_GUI, $iIndex

$main_GUI = GUICreate("GuiRegisterMsg Test", 225, 400)

$h_ListView = _GUICtrlListView_Create($main_GUI, "Entry Name|Category", 5, 75, 220, 280, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$LV_Height = 280 - 75
_GUICtrlListView_SetColumnWidth($h_ListView, 0, 100)
_GUICtrlListView_SetColumnWidth($h_ListView, 1, 100)
_GUICtrlListView_SetExtendedListViewStyle($h_ListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_CHECKBOXES))
;Register WM_NOTIFY events
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
;------------------------------------------------------
Local $y = 1
For $x = 0 To 9
$iIndex = _GUICtrlListView_AddItem($h_ListView, "Name " & $x + 1, $y) ; handle, string, image index
_GUICtrlListView_AddSubItem($h_ListView, $iIndex, "Category " & $x + 1, 1, $y + 1) ; handle, index, string, subitem, image index
$y += 2
Next
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
EndFunc ;==>_TestDragItemWithImages

;
; WM_NOTIFY event handler
Func WM_NOTIFY($hWndGUI, $MsgID, $wParam, $lParam)
#forceref $hWndGUI, $MsgID, $wParam
Local $tNMHDR, $code, $x, $y, $tNMLISTVIEW, $hwndFrom, $tDraw, $dwDrawStage, $dwItemSpec
$tNMHDR = DllStructCreate($tagNMHDR, $lParam) ;NMHDR (hwndFrom, idFrom, code)
If @error Then Return
$code = DllStructGetData($tNMHDR, "Code")
$hwndFrom = DllStructGetData($tNMHDR, "hWndFrom")
Switch $hwndFrom
Case $h_ListView
Switch $code
Case $NM_CUSTOMDRAW
;~ If $DebugIt Then _DebugPrint("$NM_CUSTOMDRAW")
$tDraw = DllStructCreate($tagNMLVCUSTOMDRAW, $lParam)
$dwDrawStage = DllStructGetData($tDraw, "dwDrawStage")
$dwItemSpec = DllStructGetData($tDraw, "dwItemSpec")
Switch $dwDrawStage
Case $CDDS_PREPAINT
Return $CDRF_NOTIFYITEMDRAW
Case $CDDS_ITEMPREPAINT
If BitAND($dwItemSpec, 1) = 1 Then
DllStructSetData($tDraw, "clrTextBk", $CLR_AQUA)
Else
DllStructSetData($tDraw, "clrTextBk", $CLR_WHITE)
EndIf
Return $CDRF_NEWFONT
EndSwitch
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
#endregion Event Function(s) ***********************************************************************************************

#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
Opt('MustDeclareVars', 1)
$Debug_LV = False ; Check ClassName being passed to ListView functions, set to True and use a handle to another control to see it work
Global $hListView, $test, $farbe
Local $GUI, $hImage
$GUI = GUICreate("(External) ListView Create", 400, 300)
$hListView = _GUICtrlListView_Create ($GUI, "", 2, 2, 394, 268, BitOR($LVS_SHOWSELALWAYS, $LVS_REPORT))
_GUICtrlListView_SetExtendedListViewStyle ($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
GUISetState()
; Add columns
_GUICtrlListView_InsertColumn ($hListView, 0, "Column 1", 100)
_GUICtrlListView_InsertColumn ($hListView, 1, "Column 2", 100)
; Add items
_GUICtrlListView_AddItem ($hListView, "1", 0)
_GUICtrlListView_AddItem ($hListView, "2", 1)
_GUICtrlListView_AddItem ($hListView, "3", 1)
For $i = 0 to 2
$test = _GUICtrlListView_GetItemText($hListView, $i, 0)
;~ MsgBox(0,"", $test)
If $test = 2 Then
MsgBox(0,$i, "färben")
$farbe = _GUICtrlListView_SetTextColor($hListView, 0xFFA500)
MsgBox(0,$i, $farbe)
EndIf
Next
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()

$listview = GUICtrlCreateListView("Heimteam|Auswärtsteam|Erg|Halb|Zuschauer", 340, 10, 420, 150)

_GUICtrlListView_DeleteAllItems($listview) ;listview leeren

#include<GUIConstants.au3>
#include<GUIScrollBars.au3>
AutoitSetOption("GUIResizeMode",802); bei Größenänderung der GUI, bleiben die Elemente unverändert

$Form1 = GUICreate("Form1", 930, 900, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
WinMove("Form1", "", -1, -1, 931, 901)
_GUIScrollBars_Init ($Form1, 930, 60)
GUIRegisterMsg($WM_VSCROLL, "MY_WM_VSCROLL")
GUIRegisterMsg($WM_HSCROLL, "MY_WM_HSCROLL")
GUIRegisterMsg($WM_SIZE, "MY_WM_SIZE")

$Label1 = GUICtrlCreateLabel("Label1", 32, 32, 36, 17)
$Input1 = GUICtrlCreateInput("Input1", 900, 870, 30, 30)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

#include<GUIConstants.au3>
#include<GUIScrollBars.au3>
AutoitSetOption("GUIResizeMode",802) ; bei Größenänderung der GUI, bleiben die Elemente unverändert

$Form1 = GUICreate("Form1", 930, 900, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
_GUIScrollBars_Init ($Form1)
GUIRegisterMsg($WM_VSCROLL, "MY_WM_VSCROLL")
GUIRegisterMsg($WM_HSCROLL, "MY_WM_HSCROLL")
GUIRegisterMsg($WM_SIZE, "MY_WM_SIZE")
$Label1 = GUICtrlCreateLabel("Label1", 32, 32, 36, 17)
$Input1 = GUICtrlCreateInput("Input1", 900, 870, 30, 30)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

#include <GUIConstants.au3>
AutoitSetOption("GUIResizeMode",802) ; bei Größenänderung der GUI, bleiben die Elemente unverändert
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 318, 172, 193, 125, $WS_SIZEBOX)
$Label1 = GUICtrlCreateLabel("Label1", 32, 32, 36, 17)
$Input1 = GUICtrlCreateInput("Input1", 328, 328, 137, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

#include <GUIConstants.au3>
$DatenBank = GUICreate("Daten Bank", 633, 394, 193, 125)
$cmdEnde = GUICtrlCreateButton("Beenden", 8, 360, 105, 25, 0)
$cmdSuchen = GUICtrlCreateButton("Kunden Suchen", 112, 360, 105, 25, 0)
$cmdBearbeiten = GUICtrlCreateButton("Kunden Bearbeiten", 216, 360, 105, 25, 0)
$cmdAnlegen = GUICtrlCreateButton("Kunden anlegen", 320, 360, 105, 25, 0)
$Kalender = GUICtrlCreateMonthCal("2007/11/30", 440, 216, 178, 169)
$Pic1 = GUICtrlCreatePic("", 440, 8, 177, 201, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$ListviewItem = "E-Bay Name|ICQ-Nummer|Bezahlt Ja/Nein|Ebay/Privat"
$listview = GUICtrlCreateListView ($ListviewItem ,10,10,415,350)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cmdEnde
Exit
Case $cmdSuchen
Case $cmdBearbeiten
Case $cmdAnlegen
useradd()
EndSwitch
WEnd

func useradd()
$Formular = GUICreate("User", 147, 259, 193, 125)
$Group1 = GUICtrlCreateGroup("Kunden-Daten-Formular", 0, 0, 145, 257)
$Group2 = GUICtrlCreateGroup("Ebay-Name", 8, 16, 129, 49)
$ebayname = GUICtrlCreateInput("", 16, 32, 113, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("ICQ-Nummer", 8, 64, 129, 49)
$icqnummer = GUICtrlCreateInput("", 16, 80, 113, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Bezahlt", 8, 112, 129, 57)
$optja = GUICtrlCreateRadio("Ja", 16, 128, 65, 17)
$optnein = GUICtrlCreateRadio("Nein", 16, 144, 65, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Gekauft", 8, 168, 129, 57)
$optebay = GUICtrlCreateRadio("Ebay", 16, 184, 49, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$optprivat = GUICtrlCreateRadio("Privat", 16, 200, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$cmdadd = GUICtrlCreateButton("Hinzufügen", 8, 224, 65, 25, 0)
$cmdccancel = GUICtrlCreateButton("Abbrechen", 72, 224, 65, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
$nsg = GUIGetMsg()
Switch $nsg
Case $GUI_EVENT_CLOSE
guidelete("User")

Case $cmdccancel
guidelete("User")

Case $cmdadd
$txtebaynname = GUICtrlRead($ebayname)
$txticqnummer = GUICtrlRead($icqnummer)
If GUICtrlRead($optja) = 1 Then
$txtbezahlt = "Ja"
Else
$txtbezahlt = "Nein"
EndIf
If GUICtrlRead($optebay) = 1 Then
$txtwogekauft = "Ebay"
Else
$txtwogekauft = "Privat"
EndIf
GUICtrlCreateListViewItem($txtebaynname&"|"&$txticqnummer&"|"&$txtbezahlt&"|"&$txtwogekauft,$listview)
guidelete("User")
Return
EndSwitch
WEnd
EndFunc