Andere Variante, ganz Include-frei 
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET","http://pennergame.de/login/")
$oHTTP.Send()
$HTMLSource = $oHTTP.Responsetext
$online = StringRegExp($HTMLSource, "(?:\t{3}<span>)(\d*)(?= Spieler online)", 1)
MsgBox(0, 'online', $online[0] & ' Spieler')
AutoIt hat folgende Limits:
Maximum length of a single script line: 4,095
Maximum string length: 2,147,483,647 characters
Number range (floating point): 1.7E–308 to 1.7E+308 with 15-digit precision
Number range (integers): 64-bit signed integer
Hexadecimal numbers: 32-bit signed integer (0x80000000 to 0x7FFFFFFF)
Arrays: A maximum of 64 dimensions and/or a total of 16 million elements
Maximum depth of recursive function calls: 5100 levels
Maximum number of variables in use at one time: No limit
Maximum number of user defined functions: No limit
Maximum number of GUI windows: No limit
Maximum number of GUI controls: 65532Eine max. Größe für die kompilierte Datei wird nicht extra angegeben. Also schwer zu sagen.
ich weiß nicht auf was du gerade Anspielst
Ich sagte extra vorsorglich, da solche Aktionen im Allgemeinen nach Bot riechen.
Hier, schau mal in dem Bsp. die Func click_TV() an.
#include <GUIConstantsEx.au3>
#include <GuiTreeView.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
Opt("MustDeclareVars", 1)
Opt("GuiOnEventMode", 1)
Global $gui, $hImage, $hTV, $aID_Sub[5], $ID_Table, $item
[/autoit] [autoit][/autoit] [autoit]$gui = GUICreate('Test TreeView')
GUISetOnEvent($GUI_EVENT_CLOSE, '_end')
$hTV = GUICtrlCreateTreeView(10,10,300,350,BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, _
$TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
Global $WM_NOTIFY_DUMMY = GUICtrlCreateDummy()
GUICtrlSetOnEvent($WM_NOTIFY_DUMMY,"click_TV")
$hImage = _GUIImageList_Create(16, 16, 5, 3)
_GUIImageList_AddIcon($hImage, "shell32.dll", 98)
_GUIImageList_AddIcon($hImage, "shell32.dll", 96)
_GUIImageList_AddIcon($hImage, "shell32.dll", 36)
_GUICtrlTreeView_SetNormalImageList($hTV, $hImage)
_GUICtrlTreeView_BeginUpdate($hTV)
$ID_Table = _GUICtrlTreeView_Add($hTV, 0, 'Table', 0, 0)
For $i = 1 To 5
$aID_Sub[$i-1] = _GUICtrlTreeView_AddChild($hTV, $ID_Table, 'Sub' & $i, 1, 1)
For $j = 1 To 3
$item = _GUICtrlTreeView_AddChild($hTV, $aID_Sub[$i-1], 'Sub_Sub' & $j, 2, 2)
Next
Next
_GUICtrlTreeView_EndUpdate($hTV)
_GUICtrlTreeView_Expand($hTV, $ID_Table)
GUISetState()
GUIRegisterMsg($WM_NOTIFY, 'WM_NOTIFY')
While 1
Sleep(100)
WEnd
Func _end()
Exit
EndFunc
Func click_TV()
Local $hTVItem = _GUICtrlTreeView_GetSelection($hTV)
WinSetTitle($gui, '', _GUICtrlTreeView_GetText($hTV,$hTVItem))
EndFunc
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndTreeview
$hWndTreeview = $hTV
If Not IsHWnd($hTV) Then $hWndTreeview = GUICtrlGetHandle($hTV)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndTreeview
Switch $iCode
Case $NM_CLICK
GUICtrlSendToDummy($WM_NOTIFY_DUMMY)
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Edit:
Um das Parent mit auszugeben, ändere die Funktion so ab:
Func click_TV()
Local $hTVItem = _GUICtrlTreeView_GetSelection($hTV)
Local $hParent = _GUICtrlTreeView_GetParentHandle($hTV, $hTVItem)
Local $title = ''
If $hParent Then $title = _GUICtrlTreeView_GetText($hTV,$hParent) & ' / '
WinSetTitle($gui, '', $title & _GUICtrlTreeView_GetText($hTV,$hTVItem))
EndFunc
Danke Raupi für den Tipp. Werde die Änderung einfügen, dann ist es universell.
Ich werde sowieso noch versuchen, die Parametereingabe für den Font zu vereinfachen. Dieser 14-Parameter String, von dem man auch alle setzen muß, wenn man eine andere Schriftart wählen will, da diese blöderweise der letzte Parameter ist, ist mir etwas zu stressig.
Ich habe auch festgestellt, dass die Parameter für italic, strike, underlined ohne Wirkung bleiben. Und die anderen Parameter (precision etc.) verwendet doch wohl auch niemand. Am Besten, ich lasse diesen Format-String und einen kürzeren Alternativ-String zu. Ich probier mal. Das Ergebnis poste ich dann.
Es geht. Du kannst jedem Subitem eigene Farben und Font zuweisen.
Meine Lösung findest du hier: ListView - SubItem einzeln färben/formatieren
@Raupi: Das Skript hatte ich auch entdeckt und dann solange dran gebastelt, bis eine Variante entstand, mit der sich auch tatsächlich 'on the fly' die Parameter eines SubItem ändern lassen. In dem Vorlageskript wurde nur die Hintergrundfarbe geändert, ich habe ergänzend auch die Textfarbe frei wählbar gemacht.
Schau dir mal WinGetCaretPos ( ) an.
Hi,
ich denke, dass ihr sicherlich reichlich Anwendung für dieses Workaround diese UDF finden werdet.
Mit den Standardfunktionen ließen sich ja nur abwechselnd die Zeilen einfärben. Nun habt ihr folgende Möglichkeiten:
- jedes SubItem einzeln färben (TextColor, BackColor) und
- formatieren (Größe, Weite, Schriftart etc....)
Edit 30.08.2009
Hab das nochmal etwas überarbeitet und ein Problem gefixed. Die in IParam gespeicherten Werte konnten mit Control-IDs kollidieren. Das ist jetzt behoben.
Die wesentlichen Punkte im Skript sind kommentiert, damit ihr nachvollziehen könnt, was passiert.
Edit 27.09.2009
Ich habe nochmal zugeschlagen 
- keine Begrenzung der Spaltenzahl mehr!
- Auch bei mehreren Listview werden alle Formatierungsdaten in einem Array verwaltet
- die Prüfung, ob ein (Sub)Item formatiert ist, läuft wesentlich schneller
- Management zur Verwaltung der Formatinfos zu den Items ist integriert (UDF-Funktionen angepaßt)
- Listview kann sortiert, Einträge können eingefügt, gelöscht werden etc.
Finale Version (30.09.09)
So, nun bin ich wohl endlich bei der endgültigen Version angelangt. 
Der User braucht nun keine Handstände mehr zu machen. Alles Lästige ist in eine Include-Datei ausgelagert. Auch WM_NOTIFY. Die Funktionsnamen habe ich analog zu denen der Listview-UDF erstellt. Ich habe als Standard eingerichtet, dass mit Klick auf die Spalte sortiert werden kann.
Edit 06.08.11
Nach langer Zeit mal wieder einige kleine Änderungen:
1. Da alle Funktionen ausgelöst werden durch Auswertung von $WM_NOTIFY, mußten eigene Auswertungen ins Include geschrieben werden -- schlecht 
Jetzt hooke ich die Message, sodass $WM_NOTIFY ganz normal mit GuiRegisterMsg registriert und verwendet werden kann.
2. Es wird jetzt eine Globale Variable ( $FORMATLV_aITEM_INDEX ) bereitgestellt, die mit den Formatinformationen des per Rechtsklick markierten SubItem befüllt ist.
Inhalt: [Status geklickt:True/False, $hWndFrom, "Index", "SubItem", $iBkCol, $iCol, $iSize, $iWeight, $sFont]. Verwendung s. Func _RightClick() im Bsp.-Skript.
3. Die Funktion _GUICtrlListView_Formatting_Shutdown() braucht nicht mehr ins Skript eingebaut werden, da sie jetzt beim Beenden des Skripts automatisch aufgerufen wird.
Die alten Versionen habe ich jetzt entfernt.
Edit 08.08.2011
Und noch etwas geschraubt:
1. Zum Erstellen der Listvieweinträge (_GUICtrlListView_AddOrIns_Item) kann jetzt auch ein Array übergeben werden.
Im Test hatte ich für 10.000 Item (6 spaltig) mit Einzelaufruf 2.241 sec benötigt. Bei Übergabe mit Array schrumpfte das auf 87 sec.
Ich benötige jetzt also <4 % der Zeit, das nenn ich eine gelungene Einsparung. Hauptbremse war natürlich ReDim - sollte man immer sehr sparsam verwenden.
2. Die Performance sollte jetzt auch etwas flüssiger sein. Ich habe Abfragen eingefügt, sodass Neuzeichnungen nur erfolgen, wenn eine Änderung zum vorhergehenden Element besteht.
3. Die Funktion _GUICtrlListView_DefaultsGet() habe ich noch hinzugefügt. War schon im letzten Anhang dabei, hatte ich nur vergessen zu erwähnen.
Damit können die Standardformatierungswerte ausgelesen werden. [$iBkCol, $iCol, $iSize, $iWeight, $sFont]
Eine Funktion zum Spalten einfügen wird es vermutlich nicht geben. Um das realisieren zu können, müßte ich wohl mein Programmkonzept völlig neu gestalten, d.h. alles nochmal neu entwickeln. In den bisherigen Ablauf läßt sich diese Funktion nicht sinnvoll einbringen.
Edit 10.08.2011
Fix: Beim Einfügen eines Arrays neuer Item, wurde die Reihenfolge der eingefügten Item vertauscht, v1.3 aktualisiert
Hier die Funktionen:
Initialisierung beim Start (nach Erstellung der GUI)
_GUICtrlListView_Formatting_Startup($GUI, $hListView)
$GUI Handle der GUI
$hListView Listview Handle, bei mehreren LV die Handle als Array übergeben
Ressourcen löschen am Skriptende_GUICtrlListView_Formatting_Shutdown() erfolgt jetzt automatisch mit Beendigung des Skripts
Neue Listvieweinträge an- oder einfügen
_GUICtrlListView_AddOrIns_Item($hWnd, $vText, $iItem=-1)
$hWnd Listview Handle
$vText einfacher String um nur das Item zu setzen (dann muß SubItem mit _GUICtrlListView_AddSubItem gesetzt werden)
oder
"Item|SubItem|SubItem.." um Item und alle SubItem auf einmal zu setzen
oder
ein Array mit derartigen Strings
$iItem Item Index, mit -1 wird das neue Item am Ende angefügt (Standard)
sonst
das Item wird an der Indexposition eingefügt
Löschen von einem, markierten oder allen Item:
_GUICtrlListView_FormattedDeleteItem($hWnd, $iIndex)
_GUICtrlListView_FormattedDeleteItemsSelected($hWnd)
_GUICtrlListView_FormattedDeleteAllItems($hWnd)
Standards zur Formatierung setzen/abfragen
_GUICtrlListView_DefaultsSet($iBkCol=0xFFFFFF, $iCol=0x000000, $iSize=14, $iWeight=400, $sFont='Arial')
$iBkCol back color Standard: weiß
$iCol text color Standard: schwarz
$iSizefont size Standard: 14
$iWeight font weight Standard: 400
$sFontfont name Standard: Arial
_GUICtrlListView_DefaultsGet()
Return: [$iBkCol, $iCol, $iSize, $iWeight, $sFont]
(Sub)Item Formatieren
_GUICtrlListView_FormattingCell($hWnd, $iItem, $iSubItem, $iBkCol=-1, $iCol=-1, $iSize=-1, $iWeight=-1, $sFont=-1)
$hWnd Listview Handle
$iItem Item Index
$iSubItem SubItem Index
$iBkCol back color (-1 = default BkCol)
$iCol text color (-1 = default txtCol)
$iSize height of font (-1 = 14)
$iWeight font weight (-1 = 400)
$sFont typefont name (-1 = Arial)
Edit
Habe noch ein Skript erstellt um die Funktionen den Calltipps von SciTE hinzuzufügen.
Edit 08.04.2012
Mit AutoIt-Version3.3.8.0 ist folgende Änderung erforderlich:
; statt:
$FORMATLV_oPARAM_SEARCH.Add( ..., ...)
$FORMATLV_oPARAM_SEARCH.Item( ..., ...)
$FORMATLV_oPARAM_SEARCH.Remove( ..., ...)
; den ersten Parameter als String übergeben:
[/autoit][autoit][/autoit][autoit]$FORMATLV_oPARAM_SEARCH.Add( String(...), ...)
$FORMATLV_oPARAM_SEARCH.Item( String(...), ...)
$FORMATLV_oPARAM_SEARCH.Remove( String(...), ...)
#Region - TimeStamp
; 2011-08-08 16:15:02 v 1.3
#EndRegion - TimeStamp
#cs
Initialize Global vars at startup
_GUICtrlListView_Formatting_Startup($hGUI, $hListView)
$hGUI Handle of your GUI
$hListView Listview handle, for several LV commit handle's as array
[ Clean up ressources ==> Changed! ==> now automatically called on AutoIt exit ]
_GUICtrlListView_Formatting_Shutdown()
Add or insert new Listview Item:
_GUICtrlListView_AddOrIns_Item($hWnd, $sText, $iItem=-1)
$hWnd Listview handle
$vText String with:
lonely string to set only Item text (than SubItem must set with _GUICtrlListView_AddSubItem)
or
"Item|SubItem|SubItem.." to set all text at once
or..
an Array with this strings to set more than one Item at once
$iItem Item index, if -1 a new Item will add at the end (default)
otherwise
the Item will insert at index position
Delete one, selected or all Item:
_GUICtrlListView_FormattedDeleteItem($hWnd, $iIndex)
_GUICtrlListView_FormattedDeleteItemsSelected($hWnd)
_GUICtrlListView_FormattedDeleteAllItems($hWnd)
Set defaults
_GUICtrlListView_DefaultsSet($iBkCol=0xFFFFFF, $iCol=0x000000, $iSize=14, $iWeight=400, $sFont='Arial')
$iBkCol back color default white
$iCol text color default black
$iSize font size default 14
$iWeight font weight default 400
$sFont font name default Arial
Get defaults
_GUICtrlListView_DefaultsGet()
Return: [$iBkCol, $iCol, $iSize, $iWeight, $sFont]
Format Listview Item
_GUICtrlListView_FormattingCell($hWnd, $iItem, $iSubItem, $iBkCol=-1, $iCol=-1, $iSize=-1, $iWeight=-1, $sFont=-1)
$hWnd Listview handle
$iItem Item index
$iSubItem SubItem index
$iBkCol back color (-1 = default BkCol)
$iCol text color (-1 = default txtCol)
$iSize height of font (-1 = 14)
$iWeight font weight (-1 = 400)
$sFont typefont name (-1 = Arial)
Sort Listview:
By default SimpleSort doesn't really sort Items - only Item-/SubItem text moves. Because that, IParam stands at same
position like before. I've modified this function, so that IParam also will sorted.
__GUICtrlListView_SimpleSort($hWnd, ByRef $vDescending, $iCol)
Call from WM_NOTIFY_LV_FORMAT
__getMarked($hWnd, $iItem, $iSubItem) ==> check if SubItem is formatted
__DrawItemCol(ByRef $hDC, ByRef $tCustDraw, $hWnd, $iItem, $iSubitem) ==> draw formatted SubItem
__DrawDefault(ByRef $hDC, ByRef $tCustDraw) ==> draw unformatted SubItem
for simple sort:
__GUICtrlListView_SimpleSort($hWnd, ByRef $vDescending, $iCol)
#ce
[/autoit] [autoit][/autoit] [autoit]#include-once
#include <Array.au3>
#include <FontConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <Constants.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
OnAutoItExitRegister("_GUICtrlListView_Formatting_Shutdown")
[/autoit] [autoit][/autoit] [autoit]Global Const $SHIFT_PARAMVALUE = 9000 ; == if you have higher Ctrl-ID in your script - increase this value
Global $FORMATLV_hPROC, $FORMATLV_hHOOK, $FORMATLV_hGUI
Global $FORMATLV_aITEM_INDEX
; == $FORMATLV_aITEM_INDEX
; == use in your script this Global array variable with information about right clicked Item [state clicked:TrueFalse, $hWndFrom, "Index", "SubItem", $iBkCol, $iCol, $iSize, $iWeight, $sFont]
; == use GuiRegisterMessage($WM_NOTIFY, 'Function') to react
; == how to use, see Func _RightClick() inside "Example_LV_Format.au3"
Global $FORMATLV_DEF_BKCOL = 0xFFFFFF
Global $FORMATLV_DEF_COL = 0x000000
Global $FORMATLV_DEF_SIZE = 14
Global $FORMATLV_DEF_WEIGHT = 400
Global $FORMATLV_DEF_FONT = 'Arial'
Global $FORMATLV_LAST_FONT_SIZE = $FORMATLV_DEF_SIZE
Global $FORMATLV_LAST_FONT_WEIGHT = $FORMATLV_DEF_WEIGHT
Global $FORMATLV_LAST_FONT_TYPE = $FORMATLV_DEF_FONT
Global $FORMATLV_LAST_COL = $FORMATLV_DEF_COL
Global $FORMATLV_LAST_BKCOL = $FORMATLV_DEF_BKCOL
Global $FORMATLV_LAST_DEF = False
Global $FORMATLV_aHWND, $FORMATLV_CURR_WINDOW, $FORMATLV_MAX_COLUMN, $FORMATLV_aIPARAM[1][1][5]
Global $FORMATLV_oPARAM_SEARCH, $FORMATLV_hFONT, $FORMATLV_B_DESCENDING
Func _GUICtrlListView_Formatting_Startup($hGUI, $hListView)
$FORMATLV_hGUI = $hGUI
; initialize Callback Function to analyze $WM_NOTIFY
$FORMATLV_hPROC = DllCallbackRegister('_WinProc', 'ptr', 'hwnd;uint;wparam;lparam')
$FORMATLV_hHOOK = _WinAPI_SetWindowLong($FORMATLV_hGUI, $GWL_WNDPROC, DllCallbackGetPtr($FORMATLV_hPROC))
Local $count
If IsArray($hListView) Then
$FORMATLV_MAX_COLUMN = _GUICtrlListView_GetColumnCount($hListView[0])
For $i = 0 To UBound($hListView) -1
If Not IsHWnd($hListView[$i]) Then
$hListView[$i] = GUICtrlGetHandle($hListView[$i])
EndIf
$count = _GUICtrlListView_GetColumnCount($hListView[$i])
If $count > $FORMATLV_MAX_COLUMN Then
$FORMATLV_MAX_COLUMN = $count
EndIf
Next
$FORMATLV_aHWND = $hListView
Else
If Not IsHWnd($hListView) Then
$hListView = GUICtrlGetHandle($hListView)
EndIf
$FORMATLV_MAX_COLUMN = _GUICtrlListView_GetColumnCount($hListView)
Local $aTmp[1] = [$hListView]
$FORMATLV_aHWND = $aTmp
EndIf
ReDim $FORMATLV_aIPARAM[1][$FORMATLV_MAX_COLUMN+1][5] ; [n][0][0]=ItemStruct, [n][1..Count][0..4]=SubItemValue
$FORMATLV_oPARAM_SEARCH = ObjCreate('Scripting.Dictionary')
$FORMATLV_CURR_WINDOW = $FORMATLV_hGUI
If Not IsHWnd($FORMATLV_CURR_WINDOW) Then $FORMATLV_CURR_WINDOW = WinGetHandle($FORMATLV_CURR_WINDOW)
EndFunc ;==>_GUICtrlListView_Formatting_Startup
Func _GUICtrlListView_Formatting_Shutdown()
$FORMATLV_aIPARAM = 0
$FORMATLV_oPARAM_SEARCH = 0
_WinAPI_SetWindowLong($FORMATLV_hGUI, $GWL_WNDPROC, $FORMATLV_hHOOK) ; to reconstruct original WinProcedure
EndFunc ;==>_GUICtrlListView_Formatting_Shutdown
Func _GUICtrlListView_DefaultsSet($iBkCol=0xFFFFFF, $iCol=0x000000, $iSize=14, $iWeight=400, $sFont='Arial')
$FORMATLV_DEF_BKCOL = $iBkCol
$FORMATLV_DEF_COL = $iCol
$FORMATLV_DEF_SIZE = $iSize
$FORMATLV_DEF_WEIGHT = $iWeight
$FORMATLV_DEF_FONT = $sFont
_WinAPI_RedrawWindow($FORMATLV_CURR_WINDOW)
EndFunc ;==>_GUICtrlListView_DefaultsSet
Func _GUICtrlListView_DefaultsGet()
Local $aRet[5] = [ _
$FORMATLV_DEF_BKCOL, _
$FORMATLV_DEF_COL, _
$FORMATLV_DEF_SIZE, _
$FORMATLV_DEF_WEIGHT, _
$FORMATLV_DEF_FONT]
Return $aRet
EndFunc ;==>_GUICtrlListView_DefaultsGet
Func _GUICtrlListView_AddOrIns_Item($hWnd, $vText, $iItem=-1)
Local $tagITEMPARAM = "int_ptr;byte[" & $FORMATLV_MAX_COLUMN & "];", $tITEMPARAM, $aItem = $vText, $aItemTxt, $1stItemFilled = 0
Local $lastIndex, $bAdd = False, $ub_aItem, $ub_aIPARAM, $DataSep = Opt('GUIDataSeparatorChar'), $n = 0
If Not IsHWnd($hWnd) Then
$hWnd = GUICtrlGetHandle($hWnd)
EndIf
Local $itemCount = _GUICtrlListView_GetItemCount($hWnd)
; == if not is array $vText ==> create array
If Not IsArray($aItem) Then
Local $aTmp[1] = [$aItem]
$aItem = $aTmp
EndIf
$ub_aItem = UBound($aItem)
; == check insert position ($iItem)
Select
Case ( $iItem < 0 ) Or ( $iItem >= $itemCount ); append at the end
$iItem = -1
$bAdd = True
Case $iItem < $itemCount
$bAdd = False
EndSelect
; == one item or array of item - append/insert
; == increase array if necessary
$ub_aIPARAM = UBound($FORMATLV_aIPARAM)
$lastIndex = $ub_aIPARAM -1
$1stItemFilled = IsDllStruct($FORMATLV_aIPARAM[0][0][0])
If $1stItemFilled = 1 Then ; == 1st entry not empty
ReDim $FORMATLV_aIPARAM[$ub_aIPARAM +$ub_aItem][$FORMATLV_MAX_COLUMN+1][5]
$lastIndex += 1
Else ; == 1st entry is empty
If $ub_aItem > 1 Then
ReDim $FORMATLV_aIPARAM[$ub_aIPARAM +$ub_aItem -1][$FORMATLV_MAX_COLUMN+1][5]
EndIf
EndIf
For $i = 0 To $ub_aItem -1
$1stItemFilled = IsDllStruct($FORMATLV_aIPARAM[0][0][0])
; == create structure, fill with zeros, store to array
; == storage index from array stored about integer pointer in an dictionary object: key=IntegerPointer, val=ArrayIndex
$tITEMPARAM = DllStructCreate($tagITEMPARAM)
DllStructSetData($tITEMPARAM, 1, DllStructGetPtr($tITEMPARAM, 2))
For $j = 1 To $FORMATLV_MAX_COLUMN
DllStructSetData($tITEMPARAM, 2, 0, $j)
Next
If $1stItemFilled = 0 Then
$FORMATLV_aIPARAM[0][0][0] = $tITEMPARAM
$FORMATLV_oPARAM_SEARCH.Add(DllStructGetData($tITEMPARAM, 1), 0)
Else
$FORMATLV_aIPARAM[$lastIndex +$i][0][0] = $tITEMPARAM
$FORMATLV_oPARAM_SEARCH.Add(DllStructGetData($tITEMPARAM, 1), $lastIndex +$i)
EndIf
; == create listview -Item, -SubItem, store IntegerPointer as ItemParam
$aItemTxt = StringSplit($aItem[$i], $DataSep, 1)
If $bAdd Then
$iItem = _GUICtrlListView_AddItem($hWnd, $aItemTxt[1])
Else
_GUICtrlListView_InsertItem($hWnd, $aItemTxt[1], $iItem +$i)
$n = $i
EndIf
_GUICtrlListView_SetItemParam($hWnd, $iItem +$n, DllStructGetData($tITEMPARAM, 1) +$SHIFT_PARAMVALUE)
If $aItemTxt[0] > 1 Then
For $j = 2 To UBound($aItemTxt) -1
_GUICtrlListView_AddSubItem($hWnd, $iItem +$n, $aItemTxt[$j], $j-1)
Next
EndIf
Next
EndFunc ;==>_GUICtrlListView_AddOrIns_Item
Func _GUICtrlListView_FormattedDeleteItem($hWnd, $iIndex)
Local $iParam = _GUICtrlListView_GetItemParam($hWnd, $iIndex) -$SHIFT_PARAMVALUE
$FORMATLV_aIPARAM[$FORMATLV_oPARAM_SEARCH.Item($iParam)][0][0] = ''
$FORMATLV_oPARAM_SEARCH.Remove($iParam)
_GUICtrlListView_DeleteItem($hWnd, $iIndex)
EndFunc ;==>_GUICtrlListView_FormattedDeleteItem
Func _GUICtrlListView_FormattedDeleteItemsSelected($hWnd)
Local $aSelected = _GUICtrlListView_GetSelectedIndices($hWnd, True)
For $i = 1 To $aSelected[0]
Local $iParam = _GUICtrlListView_GetItemParam($hWnd, $aSelected[$i]) -$SHIFT_PARAMVALUE
$FORMATLV_aIPARAM[$FORMATLV_oPARAM_SEARCH.Item($iParam)][0][0] = ''
$FORMATLV_oPARAM_SEARCH.Remove($iParam)
_GUICtrlListView_DeleteItem($hWnd, $aSelected[$i])
Next
EndFunc ;==>_GUICtrlListView_FormattedDeleteItemsSelected
Func _GUICtrlListView_FormattedDeleteAllItems($hWnd)
Local $item = _GUICtrlListView_GetItemCount($hWnd)
For $i = 0 To $item -1
Local $iParam = _GUICtrlListView_GetItemParam($hWnd, $i) -$SHIFT_PARAMVALUE
$FORMATLV_aIPARAM[$FORMATLV_oPARAM_SEARCH.Item($iParam)][0][0] = ''
$FORMATLV_oPARAM_SEARCH.Remove($iParam)
Next
_GUICtrlListView_DeleteAllItems($hWnd)
EndFunc ;==>_GUICtrlListView_FormattedDeleteAllItems
Func _GUICtrlListView_FormattingCell($hWnd, $iItem, $iSubItem, $iBkCol=-1, $iCol=-1, $iSize=-1, $iWeight=-1, $sFont=-1)
Local $sumParam = 0
Local $iParam = _GUICtrlListView_GetItemParam($hWnd, $iItem) -$SHIFT_PARAMVALUE
Local $index = $FORMATLV_oPARAM_SEARCH.Item($iParam)
If $iBkCol = -1 Then
$iBkCol = $FORMATLV_DEF_BKCOL
$sumParam += 1
EndIf
If $iCol = -1 Then
$iCol = $FORMATLV_DEF_COL
$sumParam += 1
EndIf
If $iSize = -1 Then
$iSize = $FORMATLV_DEF_SIZE
$sumParam += 1
EndIf
If $iWeight = -1 Then
$iWeight = $FORMATLV_DEF_WEIGHT
$sumParam += 1
EndIf
If $sFont = -1 Then
$sFont = $FORMATLV_DEF_FONT
$sumParam += 1
EndIf
$FORMATLV_aIPARAM[$index][$iSubItem+1][0] = $iBkCol
$FORMATLV_aIPARAM[$index][$iSubItem+1][1] = $iCol
$FORMATLV_aIPARAM[$index][$iSubItem+1][2] = $iSize
$FORMATLV_aIPARAM[$index][$iSubItem+1][3] = $iWeight
$FORMATLV_aIPARAM[$index][$iSubItem+1][4] = $sFont
; if SubItem not registered in IParam OR all values by -1 (delete Sub from IParam) ==> switch Sub value in IParam
Local $mark = DllStructGetData($FORMATLV_aIPARAM[$index][0][0], 2, $iSubItem+1)
If Not $mark Or $sumParam = 5 Then
DllStructSetData($FORMATLV_aIPARAM[$index][0][0], 2, BitXOR($mark, 1), $iSubItem+1)
EndIf
If DllStructGetData($FORMATLV_aIPARAM[$index][0][0], 2, $iSubItem+1) <> $mark Or $sumParam <> 5 Then
_GUICtrlListView_RedrawItems($hWnd, $iItem, $iItem)
EndIf
EndFunc ;==>_GUICtrlListView_FormattingCell
Func __DrawItemCol(ByRef $hDC, ByRef $tCustDraw, $hWnd, $iItem, $iSubitem) ; draw formatted item
Local $aDefFont[14] = [14,0,0,0,$FW_NORMAL,False,False,False, _
$DEFAULT_CHARSET,$OUT_DEFAULT_PRECIS,$CLIP_DEFAULT_PRECIS,$DEFAULT_QUALITY,0,'Arial']
Local $iSZ = $FORMATLV_aIPARAM[$iItem][$iSubItem+1][2]
Local $iWT = $FORMATLV_aIPARAM[$iItem][$iSubItem+1][3]
Local $sTP = $FORMATLV_aIPARAM[$iItem][$iSubItem+1][4]
Local $iTX = $FORMATLV_aIPARAM[$iItem][$iSubItem+1][1]
Local $iBK = $FORMATLV_aIPARAM[$iItem][$iSubItem+1][0]
Local $bFontChanged = False
If ( $iSZ <> $FORMATLV_LAST_FONT_SIZE ) Or ( $iWT <> $FORMATLV_LAST_FONT_WEIGHT ) Or ( $sTP <> $FORMATLV_LAST_FONT_TYPE ) Then
$aDefFont[0] = $iSZ
$aDefFont[4] = $iWT
$aDefFont[13] = $sTP
$FORMATLV_LAST_FONT_SIZE = $iSZ
$FORMATLV_LAST_FONT_WEIGHT = $iWT
$FORMATLV_LAST_FONT_TYPE = $sTP
$bFontChanged = True
EndIf
If ( $iTX <> $FORMATLV_LAST_COL ) Then
DllStructSetData($tCustDraw, 'clrText', RGB2BGR($iTX))
$FORMATLV_LAST_COL = $iTX
EndIf
If ( $iBK <> $FORMATLV_LAST_BKCOL ) Then
DllStructSetData($tCustDraw, 'clrTextBk', RGB2BGR($iBK))
$FORMATLV_LAST_BKCOL = $iBK
EndIf
If $bFontChanged Then
$FORMATLV_hFONT = _WinAPI_CreateFont($iSZ,$aDefFont[1],$aDefFont[2],$aDefFont[3],$iWT,$aDefFont[5],$aDefFont[6], _
$aDefFont[7],$aDefFont[8],$aDefFont[9],$aDefFont[10],$aDefFont[11],$aDefFont[12],$sTP)
_WinAPI_SelectObject($hDC, $FORMATLV_hFONT)
_WinAPI_DeleteObject($FORMATLV_hFONT)
EndIf
$FORMATLV_LAST_DEF = False
EndFunc ;==>__DrawItemCol
Func __DrawDefault(ByRef $hDC, ByRef $tCustDraw) ; draw unformatted item
If $FORMATLV_LAST_DEF Then Return
$hDC = DllStructGetData($tCustDraw, 'hdc')
DllStructSetData($tCustDraw, 'clrText', RGB2BGR($FORMATLV_DEF_COL))
DllStructSetData($tCustDraw, 'clrTextBk', RGB2BGR($FORMATLV_DEF_BKCOL))
$FORMATLV_hFONT = _WinAPI_CreateFont(14,0,0,0,$FW_NORMAL,False,False,False,$DEFAULT_CHARSET,$OUT_DEFAULT_PRECIS, _
$CLIP_DEFAULT_PRECIS,$DEFAULT_QUALITY,0,'Arial')
_WinAPI_SelectObject($hDC, $FORMATLV_hFONT)
_WinAPI_DeleteObject($FORMATLV_hFONT)
$FORMATLV_LAST_DEF = True
$FORMATLV_LAST_FONT_SIZE = $FORMATLV_DEF_SIZE
$FORMATLV_LAST_FONT_WEIGHT = $FORMATLV_DEF_WEIGHT
$FORMATLV_LAST_FONT_TYPE = $FORMATLV_DEF_FONT
$FORMATLV_LAST_COL = $FORMATLV_DEF_COL
$FORMATLV_LAST_BKCOL = $FORMATLV_DEF_BKCOL
EndFunc ;==>__DrawDefault
Func __getMarked($hWnd, $iItem, $iSubItem) ; get index from array if item is formatted
Local $cntCOL = _GUICtrlListView_GetColumnCount($hWnd)
Local $iParam = _GUICtrlListView_GetItemParam($hWnd, $iItem) -$SHIFT_PARAMVALUE
Local $struct = DllStructCreate("byte[" & $cntCOL & "]", $iParam)
If DllStructGetData($struct, 1, $iSubItem+1) Then
Return $FORMATLV_oPARAM_SEARCH.Item($iParam)
Else
Return -1
EndIf
EndFunc ;==>__getMarked
Func RGB2BGR($iColor)
Local $sH = Hex($iColor,6)
Return '0x' & StringRight($sH, 2) & StringMid($sH,3,2) & StringLeft($sH, 2)
EndFunc ;==>RGB2BGR
Func _WinProc($hWnd, $Msg, $wParam, $lParam)
If $Msg <> $WM_NOTIFY Then Return _WinAPI_CallWindowProc($FORMATLV_hHOOK, $hWnd, $Msg, $wParam, $lParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR
$tNMHDR = DllStructCreate($tagNMHDR, $lParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iCode = DllStructGetData($tNMHDR, "Code")
For $i = 0 To UBound($FORMATLV_aHWND) -1
If $hWndFrom = $FORMATLV_aHWND[$i] Then
Switch $iCode
Case $LVN_COLUMNCLICK
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $lParam)
__GUICtrlListView_SimpleSort($hWndFrom, $FORMATLV_B_DESCENDING, DllStructGetData($tInfo, "SubItem"))
Case $NM_CUSTOMDRAW
If Not _GUICtrlListView_GetViewDetails($hWndFrom) Then Return $GUI_RUNDEFMSG
Local $tCustDraw = DllStructCreate($tagNMLVCUSTOMDRAW, $lParam)
Local $iDrawStage, $iItem, $iSubitem, $hDC = DllStructGetData($tCustDraw, 'hdc'), $tRect
$iDrawStage = DllStructGetData($tCustDraw, 'dwDrawStage')
Switch $iDrawStage
Case $CDDS_ITEMPREPAINT
Return $CDRF_NOTIFYSUBITEMDRAW
Case BitOR($CDDS_ITEMPREPAINT, $CDDS_SUBITEM)
$iItem = DllStructGetData($tCustDraw, 'dwItemSpec')
$iSubitem = DllStructGetData($tCustDraw, 'iSubItem')
Local $index = __getMarked($hWndFrom, $iItem, $iSubitem)
If $index = -1 Then
__DrawDefault($hDC, $tCustDraw)
Else
__DrawItemCol($hDC, $tCustDraw, $hWndFrom, $index, $iSubitem)
EndIf
Return $CDRF_NEWFONT
EndSwitch
Case $NM_RCLICK ;== fill Global array $FORMATLV_aITEM_INDEX
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $lParam)
Local $aInfo[9] = [True,$hWndFrom, DllStructGetData($tInfo, "Index"), DllStructGetData($tInfo, "SubItem")]
If $aInfo[2] < 0 Then
$aInfo[0] = False
Return $GUI_RUNDEFMSG
EndIf
Local $isFormatted = __getMarked($hWndFrom, $aInfo[2], $aInfo[3]) ; always formatted?
If $isFormatted = -1 Then
For $i = 4 To 8
$aInfo[$i] = -1
Next
Else ; read formatting values
$aInfo[4] = $FORMATLV_aIPARAM[$aInfo[2]][$aInfo[3]+1][0]
$aInfo[5] = $FORMATLV_aIPARAM[$aInfo[2]][$aInfo[3]+1][1]
$aInfo[6] = $FORMATLV_aIPARAM[$aInfo[2]][$aInfo[3]+1][2]
$aInfo[7] = $FORMATLV_aIPARAM[$aInfo[2]][$aInfo[3]+1][3]
$aInfo[8] = $FORMATLV_aIPARAM[$aInfo[2]][$aInfo[3]+1][4]
EndIf
$FORMATLV_aITEM_INDEX = $aInfo
; if desired - use this array now in main script
EndSwitch
EndIf
Next
; call default WinProcedure, which can be analyzed in main script with GuiRegisterMsg
Return _WinAPI_CallWindowProc($FORMATLV_hHOOK, $hWnd, $Msg, $wParam, $lParam)
EndFunc ;==>_WinProc
Func __GUICtrlListView_SimpleSort($hWnd, ByRef $vDescending, $iCol) ; modified to sort also IParam
Local $x, $Y, $Z, $b_desc, $columns, $items, $v_item, $temp_item, $iFocused = -1
Local $SeparatorChar = Opt('GUIDataSeparatorChar')
If _GUICtrlListView_GetItemCount($hWnd) Then
If (IsArray($vDescending)) Then
$b_desc = $vDescending[$iCol]
Else
$b_desc = $vDescending
EndIf
$columns = _GUICtrlListView_GetColumnCount($hWnd)
$items = _GUICtrlListView_GetItemCount($hWnd)
For $x = 1 To $columns
$temp_item = $temp_item & " " & $SeparatorChar
Next
$temp_item = StringTrimRight($temp_item, 1)
Local $a_lv[$items][$columns + 2], $i_selected ; add column for IParam ### MODIFIED ###
$i_selected = StringSplit(_GUICtrlListView_GetSelectedIndices($hWnd), $SeparatorChar)
For $x = 0 To UBound($a_lv) - 1 Step 1
If $iFocused = -1 Then
If _GUICtrlListView_GetItemFocused($hWnd, $x) Then $iFocused = $x
EndIf
_GUICtrlListView_SetItemSelected($hWnd, $x, False)
For $Y = 0 To UBound($a_lv, 2) - 3 Step 1 ; ### MODIFIED ###
$v_item = StringStripWS(_GUICtrlListView_GetItemText($hWnd, $x, $Y), 2)
If (StringIsFloat($v_item) Or StringIsInt($v_item)) Then
$a_lv[$x][$Y] = Number($v_item)
Else
$a_lv[$x][$Y] = $v_item
EndIf
Next
$a_lv[$x][$Y] = $x
$a_lv[$x][$Y+1] = _GUICtrlListView_GetItemParam($hWnd, $x) ; ### NEW ###
Next
_ArraySort($a_lv, $b_desc, 0, 0, $iCol)
For $x = 0 To UBound($a_lv) - 1 Step 1
For $Y = 0 To UBound($a_lv, 2) - 3 Step 1 ; ### MODIFIED ###
_GUICtrlListView_SetItemText($hWnd, $x, $a_lv[$x][$Y], $Y)
Next
_GUICtrlListView_SetItemParam($hWnd, $x, $a_lv[$x][$Y+1]) ; ### NEW ###
For $Z = 1 To $i_selected[0]
If $a_lv[$x][UBound($a_lv, 2) - 2] = $i_selected[$Z] Then ; ### MODIFIED ###
If $a_lv[$x][UBound($a_lv, 2) - 2] = $iFocused Then ; ### MODIFIED ###
_GUICtrlListView_SetItemSelected($hWnd, $x, True, True)
Else
_GUICtrlListView_SetItemSelected($hWnd, $x, True)
EndIf
ExitLoop
EndIf
Next
Next
If (IsArray($vDescending)) Then
$vDescending[$iCol] = Not $b_desc
Else
$vDescending = Not $b_desc
EndIf
EndIf
EndFunc ;==>__GUICtrlListView_SimpleSort
#Region - TimeStamp
; 2011-08-08 15:19:57 v 1.1
#EndRegion - TimeStamp
#cs
Initialize Global vars at startup
_GUICtrlListView_Formatting_Startup($hGUI, $hListView)
$hGUI Handle of your GUI
$hListView Listview handle, for several LV commit handle's as array
[ Clean up ressources ==> Changed! ==> now automatically called on AutoIt exit ]
_GUICtrlListView_Formatting_Shutdown()
Add or insert new Listview Item:
_GUICtrlListView_AddOrIns_Item($hWnd, $sText, $iItem=-1)
$hWnd Listview handle
$sText lonely string to set only Item text (than SubItem must set with _GUICtrlListView_AddSubItem)
or
"Item|SubItem|SubItem.." to set all text at once
$iItem Item index, if -1 a new Item will add at the end (default)
otherwise
the Item will insert at index position
Delete one, selected or all Item:
_GUICtrlListView_FormattedDeleteItem($hWnd, $iIndex)
_GUICtrlListView_FormattedDeleteItemsSelected($hWnd)
_GUICtrlListView_FormattedDeleteAllItems($hWnd)
Set defaults
_GUICtrlListView_DefaultsSet($iBkCol=0xFFFFFF, $iCol=0x000000, $iSize=14, $iWeight=400, $sFont='Arial')
$iBkCol back color default white
$iCol text color default black
$iSize font size default 14
$iWeight font weight default 400
$sFont font name default Arial
Format Listview Item
_GUICtrlListView_FormattingCell($hWnd, $iItem, $iSubItem, $iBkCol=-1, $iCol=-1, $iSize=-1, $iWeight=-1, $sFont=-1)
$hWnd Listview handle
$iItem Item index
$iSubItem SubItem index
$iBkCol back color (-1 = default BkCol)
$iCol text color (-1 = default txtCol)
$iSize height of font (-1 = 14)
$iWeight font weight (-1 = 400)
$sFont typefont name (-1 = Arial)
#ce
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; == Variable: $FORMATLV_aITEM_INDEX
; == created as Global array variable inside include, filled with values in WM_NOTIFY() by right click [state formatting:TrueFalse, $hWndFrom, "Index", "SubItem", $iBkCol, $iCol, $iSize, $iWeight, $sFont]
; == how to use see Func _RightClick()
#include <GuiListView.au3>
#include <EditConstants.au3>
#include 'LV_Format_include.au3'
Local $col = ''
For $i = 1 To 6
$col &= $i & '|'
Next
; Main GUI
$GUI = GUICreate('')
$lv = GUICtrlCreateListView(StringTrimRight($col,1), 10, 10, 300, 150)
$hLV = GUICtrlGetHandle($lv)
For $i = 0 To 5
_GUICtrlListView_SetColumnWidth($hLV, $i, 49)
Next
$col = StringTrimRight($col, 2)
$lv2 = GUICtrlCreateListView(StringTrimRight($col,1), 10, 180, 300, 150)
$hLV2 = GUICtrlGetHandle($lv2)
For $i = 0 To 4
_GUICtrlListView_SetColumnWidth($hLV2, $i, 59)
Next
; initialize Global vars
; for more than one Listview commit Listview handle as array
Local $aHWnd[2] = [$hLV,$hLV2]
_GUICtrlListView_Formatting_Startup($GUI, $aHWnd)
;~ _GUICtrlListView_Formatting_Startup($GUI, $hLV)
; add new Items
_GUICtrlListView_AddOrIns_Item($hLV, 'Test0|Test1|Test2|Test3|Test4|Test5')
_GUICtrlListView_AddOrIns_Item($hLV, 'Blub0|Blub1|Blub2|Blub3|Blub4|Blub5')
_GUICtrlListView_AddOrIns_Item($hLV, 'Club0|Club1|Club2|Club3|Club4|Club5')
_GUICtrlListView_AddOrIns_Item($hLV, 'Blab0|Blab1|Blab2|Blab3|Blab4|Blab5')
_GUICtrlListView_AddOrIns_Item($hLV, 'Bumm0|Bumm1|Bumm2|Bumm3|Bumm4|Bumm5')
; set format
_GUICtrlListView_FormattingCell($hLV, 0, 2, 0xff0000, -1, -1, 600, 'Times New Roman')
_GUICtrlListView_FormattingCell($hLV, 1, 3, 0xff0000, -1, -1, 400, 'Times New Roman')
_GUICtrlListView_FormattingCell($hLV, 1, 4, 0xffff00, -1, -1, 600, 'Comic Sans MS')
; add new Items from array
Local $aInsert[5] = [ _
'Test0|Test1|Test2|Test3|Test4', _
'Blub0|Blub1|Blub2|Blub3|Blub4', _
'Club0|Club1|Club2|Club3|Club4', _
'Blab0|Blab1|Blab2|Blab3|Blab4', _
'Bumm0|Bumm1|Bumm2|Bumm3|Bumm4']
_GUICtrlListView_AddOrIns_Item($hLV2, $aInsert)
;~ ; set format
_GUICtrlListView_FormattingCell($hLV2, 0, 2, 0xff0000, -1, -1, 600, 'Times New Roman')
_GUICtrlListView_FormattingCell($hLV2, 1, 4, 0xffff00, -1, -1, 600, 'Comic Sans MS')
_GUICtrlListView_FormattingCell($hLV2, 1, 3, 0xff0000, -1, -1, 400, 'Times New Roman')
GUISetState(@SW_SHOW, $GUI)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; GUI formatting
GUICtrlCreateLabel('With right click on single SubItem' & @LF & 'will formatting GUI load', 10, 350, 300, 40)
$GUI_Format = GUICreate('set formatting', 200, 180)
GUICtrlCreateLabel(' Control | Index row | column', 10, 10, 180, 17)
$ctrl = GUICtrlCreateInput('', 10, 30, 85, 20, $ES_READONLY)
$zeile = GUICtrlCreateInput('', 100, 30, 30, 20, BitOR($ES_READONLY,$ES_RIGHT))
$spalte = GUICtrlCreateInput('', 135, 30, 30, 20, BitOR($ES_READONLY,$ES_RIGHT))
GUICtrlCreateLabel(' BkColor | TextColor | Size', 10, 70, 180, 17)
$inBkCol = GUICtrlCreateInput('-1', 10, 90, 55, 20, $ES_RIGHT)
$inTxtCol = GUICtrlCreateInput('-1', 75, 90, 55, 20, $ES_RIGHT)
$inSize = GUICtrlCreateInput('-1', 140, 90, 50, 20, $ES_RIGHT)
GUICtrlCreateLabel(' Weight | Font', 10, 130, 150, 17)
$inWeight = GUICtrlCreateInput('-1', 10, 150, 50, 20, $ES_RIGHT)
$inFont = GUICtrlCreateInput('-1', 75, 150, 115, 20, $ES_RIGHT)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
[/autoit] [autoit][/autoit] [autoit];~ $timer = TimerInit()
While 1
;~ If TimerDiff($timer) >= 3000 Then
;~ ControlMove($GUI, '', $lv, 10, 10, 300+40, 150)
;~ _GUICtrlListView_AddOrIns_Column($hLV, -1, 'NEU', 40)
;~ EndIf
$msg = GUIGetMsg(1)
Switch $msg[1]
Case $GUI
If $msg[0] = -3 Then ExitLoop
Case $GUI_Format
If $msg[0] = -3 Then
GUISetState(@SW_HIDE, $GUI_Format)
_setFormat()
EndIf
EndSwitch
WEnd
Func _RightClick()
If Not IsArray($FORMATLV_aITEM_INDEX) Then Return
If Not $FORMATLV_aITEM_INDEX[0] Then Return
$FORMATLV_aITEM_INDEX[0] = False
GUICtrlSetData($ctrl, $FORMATLV_aITEM_INDEX[1])
GUICtrlSetData($zeile, $FORMATLV_aITEM_INDEX[2])
GUICtrlSetData($spalte, $FORMATLV_aITEM_INDEX[3])
Local $bk = $FORMATLV_aITEM_INDEX[4]
If $bk = -1 Then
GUICtrlSetData($inBkCol, $bk)
Else
GUICtrlSetData($inBkCol, '0x' & Hex($bk,6))
EndIf
Local $tx = $FORMATLV_aITEM_INDEX[5]
If $tx = -1 Then
GUICtrlSetData($inTxtCol, $tx)
Else
GUICtrlSetData($inTxtCol, '0x' & Hex($tx,6))
EndIf
GUICtrlSetData($inSize, $FORMATLV_aITEM_INDEX[6])
GUICtrlSetData($inWeight, $FORMATLV_aITEM_INDEX[7])
GUICtrlSetData($inFont, $FORMATLV_aITEM_INDEX[8])
GUISetState(@SW_SHOW, $GUI_Format)
EndFunc ;==>_RightClick
Func _setFormat()
Local $bk = GUICtrlRead($inBkCol)
Local $tx = GUICtrlRead($inTxtCol)
Local $sz = GUICtrlRead($inSize)
Local $wt = GUICtrlRead($inWeight)
Local $ft = GUICtrlRead($inFont)
If $bk = '' Or $tx = '' Or $sz = '' Or $wt = '' Or $ft = '' Then Return
_GUICtrlListView_FormattingCell($FORMATLV_aITEM_INDEX[1], $FORMATLV_aITEM_INDEX[2], $FORMATLV_aITEM_INDEX[3], $bk, $tx, $sz, $wt, $ft)
EndFunc ;==>_setFormat
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iCode, $tNMHDR
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iCode = DllStructGetData($tNMHDR, "Code")
If ($hWndFrom = $hLV Or $hWndFrom = $hLV2) And $iCode = $NM_RCLICK Then _RightClick()
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Vista-Style? Keine Ahnung. Stylemäßig ist bei mir ausschließlich "Windows-Klassik", was anderes verwende ich nicht.
Als Progress kannst du es nicht so machen, da ein Progress entweder von links nach rechts oder umgekehrt "gefüllt" wird.
Meinst du sowas?
Mit AdlibDisable() läßt sich das dann Beenden.
Global $SwipBar[2], $aSwipPos[4], $xSwip, $up = True
[/autoit] [autoit][/autoit] [autoit]$gui = GUICreate('test')
GUISetState()
$arBar = _SwipBarOn(10, 10, 300, 17)
$t = TimerInit()
Do
If TimerDiff($t) > 5000 Then _SwipBarOff() ; nach 5 Sekunden wird Bar gelöscht
Until GUIGetMsg() = -3
Func _SwipBarOn($x, $y, $width, $heigth, $iCol=0xff0000, $iBkCol=0x0000ff)
Local $swipWidth = Floor($width/3)
$SwipBar[0] = GUICtrlCreateLabel('', $x, $y, $width, $heigth)
GUICtrlSetBkColor(-1, $iBkCol)
$SwipBar[1] = GUICtrlCreateLabel('', $x, $y, $swipWidth, $heigth)
GUICtrlSetBkColor(-1, $iCol)
$aSwipPos[0] = $x
$aSwipPos[1] = $y
$aSwipPos[2] = $swipWidth
$aSwipPos[3] = $width
AdlibEnable('_swip', 30)
Return $SwipBar
EndFunc
Func _swip()
If $up Then
$xSwip += 5
Else
$xSwip -= 5
EndIf
If $up And ($xSwip + $aSwipPos[2] >= $aSwipPos[0] + $aSwipPos[3]) Then $up = False
If Not $up And ($xSwip <= $aSwipPos[0]) Then $up = True
ControlMove($gui, '', $SwipBar[1], $xSwip, $aSwipPos[1])
EndFunc
Func _SwipBarOff()
AdlibDisable()
GUICtrlDelete($arBar[0])
GUICtrlDelete($arBar[1])
EndFunc
Wenn du es unbedingt nutzen willst, dann unbedingt in einer Sandbox laufen lassen!
Oder lädst du dir sonst Trojaner freiwillig auf die Platte? Einige Komponenten von Chrome muß man schon als solche einstufen.
Ihr könnt Sorgen haben... 
Ich habe meiner Holden vor 20 Jahren gesagt, dass ich diesen bescheuerten Tag der Floristik-Mafia verweigere und sie nicht mal im Traum dran denken soll, dass da irgendein Geschenk kommt.
Ich kann mich nicht beklagen. Wo nichts erwartet wird, wird auch nicht rumgezickt.
Bevor du weiter fragst, lies dir vorsorglich mal die Forenregeln durch.. 
Und wie setze ich denn das FileSelectFolder() ein?
Ich denke, es ist nicht zu viel verlangt, wenn du mal einen Blick in die Hilfe wirfst...
Geht, ist aber bei vielen Dateien sicher langsam.
- Array mit Ausschlußliste erstellen
- alle Ordner Dateien eines zu löschenden Pfades in Array einlesen
- Löscharray durchlaufen ==> mit _ArraySearch(Ausschlußarray, aktueller Wert) prüfen ob gelöscht werden darf
- gibt Funktion @error (nichts gefunden) dann darf gelöscht werden, sonst ContinueLoop
$ph = GUICtrlRead ($pfad, 3)
Also das geht nicht - standard ist 0 und 1 geht für extended (brauchst du aber nicht).
Außerdem solltest du den Pfad mit FileSelectFolder() wählen lassen.
Da hatte ich vor ewigen Zeiten mal was für geschrieben:
[autoit];===============================================================================
; Funktion: _DelKey_RebuildINI($del, $ini, $sec, $key)
;
; Beschreibung: Bei INI-Struktur mit fortlaufendem Schlüsselnamen
; (schlüssel1; schlüssel2; schlüssel3; ...)
; wird das gewünschtes Paar Schlüssel-Wert gelöscht
; und dann die Sektion wieder mit fortlaufender Nummerierung
; der Schlüssel neu aufgebaut.
; Ermöglicht dem Nutzer, in dieser Sektion ständig neue Werte
; hinzuzufügen oder zu entfernen.
;
; Parameter(s): $del: zu löschender Wert
; $ini: INI-Datei(kpl. Pfad)
; $sec: INI-Section
; $key: INI-Schlüssel
;===============================================================================
Func _DelKey_RebuildINI($del, $ini, $sec, $key)
Local $var, $i
; löschen
$var = IniReadSection($ini, $sec)
For $i = 1 To $var[0][0]
If $var[$i][1] = $del Then
IniDelete($ini, $sec, $key & $i)
ExitLoop
EndIf
Next
; neu aufbauen
$var = IniReadSection($ini, $sec)
IniDelete($ini, $sec)
For $i = 1 To $var[0][0]
IniWrite($ini, $sec, $key & $i, $var[$i][1])
Next
EndFunc ;==>_DelKey_RebuildINI
Func _AddKey_INI_Val($add, $ini, $sec, $key)
Local $var, $maxNr
$var = IniReadSection($ini, $sec)
$maxNr = $var[0][0]
IniWrite($ini, $sec, $key & $maxNr+1, $add)
EndFunc
Aber wozu sind "Anführungszeichen einfügen", "Code einfügen" und "MySQL-Abfrage(n)"?
Na ganz einfach:
- Begriff markieren - Klick auf Anführungszeichen setzen und du hast den Begriff eingefaßt in Anf.-zeichen. Das spart doch vieeeel Zeit
du hast nur: Text; STRG+SHIFT+Left; Mausklick Button
sonst: SHIFT+2; Text; SHIFT+2
- OK, Code einfügen macht Sinn, wenn du mal Text darstellen möchtest mit. z.B. Einrückungen, die löscht dir der normale Editor raus
- Und MySQL macht halt Syntaxhighlighting für SQL, was natürlich in einem AutoIt-Forum elementar ist (es finden sich schon ab und an Anwendungsmöglichkeiten dafür)
Gib doch einfach mal in das Inputfeld bei "Suchen" in der AutoIt-Hilfe ein: path
runasset
Seit ver 3.2.12.0 Removed: RunAsSet(). (Replaced with RunAs() and RunAsWait())