Attribute von _GUIImageList_Add und _GUICtrlListView_AddItem

1. offizieller Beitrag

    ich komme bei einer Tabelle nicht weiter, unter anderem, weil ich nicht weiß, ob die Möglichkeiten überhaupt bestehen :S

    Im Anhang symbolisch mal ein Screen, was ich meine.

    1. ist die Höhe der Tabellenfelder eigentlich fix ? Oder gibt eine Möglichkeit, der Höhe andere Werte zu geben ?

    2. lassen sich die Tabellenfelder farblich einfärben ? Ziel wäre, jede zweite Zeile mit einer anderen Hintergrundfarbe zu versehen für mehr Übersicht vergleichbar , analog GUICtrlSetBKColor

    3. lassen sich definierte Bilder einsetzen ? Ich habe mal exemplarisch im Screen in der ganz rechten Spalte das symbolisiert ?`Ich habe lediglich ein Beispiel einer unifarbenen Bitmap gefunden.

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.6.1
    Author: myName
    Script Function:
    Template AutoIt script.
    #ce ----------------------------------------------------------------------------
    ; Script Start - Add your code below here
    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.4.0
    Author: Sönke Graf
    Program Name: Version_Checker

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

    Script Function:
    This Script searches the Registry Uninstall Path - "$sBase for Specific
    Programs defined in the Variables Section under "$sSearch" - "$sSearch4" -
    the registry is then scanned for the correct Version Number and all
    Information stored in an array. This array then is used for a GUI display
    -ing the Information. The "$sURL" Variables are listed for an update of
    the Software.

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

    #ce ----------------------------------------------------------------------------

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

    ;=======================================================================
    ; INCLUDE CONSTANTS
    ;=======================================================================

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

    #include <GuiListView.au3>
    #include <Misc.au3>
    #include <GUIConstantsEx.au3>

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

    ;=======================================================================
    ; VARIABLES
    ;=======================================================================

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

    $sBase = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

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

    ;Five Search Operations

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

    $sSearch = "Adobe Flash"
    $sSearch1 = "Adobe Acrobat "
    $sSearch2 = "Adobe Reader"
    $sSearch3 = "Java"
    $sSearch4 = "UltraVnc"

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

    ;latest Versions

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

    $lVersion = "10.2.152.26"
    $lVersion1 = "10.0.1"
    $lVersion2 = "10.0.1"
    $lVersion3 = "6.0.240"
    $lVersion4 = "1.0.9.5"

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

    ;=======================================================================
    ; Program Code
    ;=======================================================================

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

    ;-----------------------------Search Operation 1------------------------

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

    $iEval = 1
    $iSearch = 0

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

    While 1
    $sVersion = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)
    If @Error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch & ".*") Then
    $sVersion = RegRead($sKey, "DisplayVersion")
    $iSearch = 1
    If $iSearch = 1 Then
    $sStatus = "installiert"
    ExitLoop
    ElseIf $iSearch = 0 Then
    ExitLoop
    EndIf
    Endif
    $iEval += 1
    WEnd

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

    If $iSearch = 0 Then
    $sStatus = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 2------------------------

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

    $iEval = 1
    $iSearch1 = 0

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

    While 1
    $sVersion1 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @Error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch1 & ".*") Then
    $sVersion1 = RegRead($sKey, "DisplayVersion")
    $iSearch1 = 1
    If $iSearch1 = 1 Then
    $sStatus1 = "installiert"
    ExitLoop
    ElseIf $iSearch1 = 0 Then
    ExitLoop
    EndIf
    Endif
    $iEval += 1
    WEnd

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

    If $iSearch1 = 0 Then
    $sStatus1 = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 3------------------------

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

    $iEval = 1
    $iSearch2 = 0

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

    While 1
    $sVersion2 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @Error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch2 & ".*") Then
    $sVersion2 = RegRead($sKey, "DisplayVersion")
    $iSearch2 = 1
    If $iSearch2 = 1 Then
    $sStatus2 = "installiert"
    ExitLoop
    ElseIf $iSearch2 = 0 Then
    ExitLoop
    EndIf
    Endif
    $iEval += 1
    WEnd

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

    If $iSearch2 = 0 Then
    $sStatus2 = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 4------------------------

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

    $iEval = 1
    $iSearch3 = 0

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

    While 1
    $sVersion3 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @Error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch3 & ".*") Then
    $sVersion3 = RegRead($sKey, "DisplayVersion")
    $iSearch3 = 1
    If $iSearch3 = 1 Then
    $sStatus3 = "installiert"
    ExitLoop
    ElseIf $iSearch3 = 0 Then
    ExitLoop
    EndIf
    Endif
    $iEval += 1
    WEnd

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

    If $iSearch3 = 0 Then
    $sStatus3 = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 5------------------------

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

    $iEval = 1
    $iSearch4 = 0

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

    While 1
    $sVersion4 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @Error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch4 & ".*") Then
    $sVersion4 = RegRead($sKey, "DisplayVersion")
    $iSearch4 = 1
    If $iSearch4 = 1 Then
    $sStatus4 = "installiert"
    ExitLoop
    ElseIf $iSearch4 = 0 Then
    ExitLoop
    EndIf
    Endif
    $iEval += 1
    WEnd

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

    If $iSearch4 = 0 Then
    $sStatus4 = "n/a"
    EndIf

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

    ;=======================================================================
    ; URL Detection
    ;=======================================================================

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

    ;=======================================================================
    ; CURRENT VERSION ARRAY
    ;=======================================================================

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

    Global $aVersions[5][4]

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

    $aVersions[0][0] = $sSearch
    $aVersions[0][1] = $sStatus
    $aVersions[0][2] = $sVersion
    $aVersions[0][3] = $lVersion

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

    $aVersions[1][0] = $sSearch1
    $aVersions[1][1] = $sStatus1
    $aVersions[1][2] = $sVersion1
    $aVersions[1][3] = $lVersion1

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

    $aVersions[2][0] = $sSearch2
    $aVersions[2][1] = $sStatus2
    $aVersions[2][2] = $sVersion2
    $aVersions[2][3] = $lVersion2

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

    $aVersions[3][0] = $sSearch3
    $aVersions[3][1] = $sStatus3
    $aVersions[3][2] = $sVersion3
    $aVersions[3][3] = $lVersion3

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

    $aVersions[4][0] = $sSearch4
    $aVersions[4][1] = $sStatus4
    $aVersions[4][2] = $sVersion4
    $aVersions[4][3] = $lVersion4

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

    ;=======================================================================
    ; CREATE GUI
    ;=======================================================================

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

    Local $msg

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

    $GUI = GUICreate("Versionsprüfer by Sönke Graf", 800, 371)
    GUISetBkColor( 0x99B9E3 )

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

    $listview = GUICtrlCreateListView("", 10, 10, 780, 351)

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

    _GUICtrlListView_AddColumn($listview, " Programmname", 250)
    _GUICtrlListView_AddColumn($listview, " Status", 100)
    _GUICtrlListView_AddColumn($listview, " installierte Version ", 150)
    _GUICtrlListView_AddColumn($listview, " aktuelle Version", 150)
    _GUICtrlListView_AddColumn($listview, " Flag", 126)

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

    GUICtrlSendMsg($ListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)

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

    For $i = 0 To UBound($aVersions) - 1
    $x = _GUICtrlListView_AddItem($listview, $aVersions[$i][0])
    _GUICtrlListView_AddSubItem($listview, $x, $aVersions[$i][1], 1)
    _GUICtrlListView_AddSubItem($listview, $x, $aVersions[$i][2], 2)
    _GUICtrlListView_AddSubItem($listview, $x, $aVersions[$i][3], 3)
    Next

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
    MsgBox(0, "", "Programm wird geschlossen")
    Exit
    Case $nMsg = $GUI_EVENT_MINIMIZE
    MsgBox(0, "", "Dialog minimiert", 2)
    Case $nMsg = $GUI_EVENT_MAXIMIZE
    MsgBox(0, "", "Dialog wieder hergestellt", 2)
    EndSelect
    WEnd

    [/autoit]

    danke autoBert ,

    ich dacht, ich lese täglich quer, da hätte mir der Thread auffallen müssen ;(

    deckt eigentlich alle Fragen nahezu ab :D

    nein, nur fast.

    bei Deinem eigenen Beispiel, kann ich mir die Frage dahingehend beantworten, das die Zeilenhöhe statist ist, dadurch ( so scheint es ) Du größere Icons darstellen läßt, die ihre Höhe anpaßt ?

    Das Beispielprogramm von Bugfix hatte ich die Tage gesehen als auch angesehen, und dachte, da würde ich den Ansatz finden, die Tabellenzeilen einzufärben, aber ich gestehe, ich habe nicht kapiert, es umzusetzen :huh:

    Wenn Du noch weitere Icons suchen solltest, auch für andere Zwecke, da Du wohl fündig wurdest, könnte ich Dir famfamfam Silk Icons ans Herz legen (over 700 16-by-16 pixel icons in strokably-soft PNG format) , wenn es um kleine Icons geht.

    Zitat von Prickel

    Das Beispielprogramm von Bugfix hatte ich die Tage gesehen als auch angesehen, und dachte, da würde ich den Ansatz finden, die Tabellenzeilen einzufärben, aber ich gestehe, ich habe nicht kapiert, es umzusetzen :huh:


    Wenn du die Zeilen abwechselnd färben möchtest, dann nimm mein Beispiel im Thread vom HamburgerJung. Falls du mehr brauchst das von BugFix. Mein [Beispiel] Icons von System-DLLs in LV darstellen ist eigentlich nur als Vorlage gedacht und natürlich als Hilfe um schnell? passende Icons zu finden die eh auf jedem System installiert sind. Trotzdem danke für deinen Hinweis, weil gute Icons kann man immer gebrauchen.
    Zu der Frage nach der Höhe, ich denke doch dass die LV automatisch an den höchsten Inhalt angepasst wird. Eine Änderung der Schrift dürfte/müsste sich dann genauso auswirken,

    mfg autoBert

    irgendwie häng ich, egal wie ich es mache, aber die Zeilen, in denen was drin steht, werden nicht farbig im Wechesl markiert ;(

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.6.1
    Author: myName
    Script Function:
    Template AutoIt script.
    #ce ----------------------------------------------------------------------------
    ; Script Start - Add your code below here
    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.4.0
    Author: Sönke Graf
    Program Name: Version_Checker

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

    Script Function:
    This Script searches the Registry Uninstall Path - "$sBase for Specific
    Programs defined in the Variables Section under "$sSearch" - "$sSearch4" -
    the registry is then scanned for the correct Version Number and all
    Information stored in an array. This array then is used for a GUI display
    -ing the Information. The "$sURL" Variables are listed for an update of
    the Software.

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

    #ce ----------------------------------------------------------------------------

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

    ;=======================================================================
    ; INCLUDE CONSTANTS
    ;=======================================================================

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

    #include <GuiListView.au3>
    #include <Misc.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiImageList.au3>

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

    ;=======================================================================
    ; VARIABLES
    ;=======================================================================

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

    Local $hImage
    $sBase = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

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

    ;Five Search Operations

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

    $sSearch = "Adobe Flash"
    $sSearch1 = "Adobe Acrobat "
    $sSearch2 = "Adobe Reader"
    $sSearch3 = "Java"
    $sSearch4 = "UltraVnc"

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

    ;latest Versions

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

    $lVersion = "10.2.152.26"
    $lVersion1 = "10.0.1"
    $lVersion2 = "10.0.1"
    $lVersion3 = "6.0.240"
    $lVersion4 = "1.0.9.5"

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

    ;=======================================================================
    ; Program Code
    ;=======================================================================

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

    ;-----------------------------Search Operation 1------------------------

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

    $iEval = 1
    $iSearch = 0

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

    While 1
    $sVersion = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)
    If @Error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch & ".*") Then
    $sVersion = RegRead($sKey, "DisplayVersion")
    $iSearch = 1
    If $iSearch = 1 Then
    $sStatus = "installiert"
    ExitLoop
    ElseIf $iSearch = 0 Then
    ExitLoop
    EndIf
    Endif
    $iEval += 1
    WEnd

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

    If $iSearch = 0 Then
    $sStatus = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 2------------------------

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

    $iEval = 1
    $iSearch1 = 0

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

    While 1
    $sVersion1 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @Error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch1 & ".*") Then
    $sVersion1 = RegRead($sKey, "DisplayVersion")
    $iSearch1 = 1
    If $iSearch1 = 1 Then
    $sStatus1 = "installiert"
    ExitLoop
    ElseIf $iSearch1 = 0 Then
    ExitLoop
    EndIf
    Endif
    $iEval += 1
    WEnd

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

    If $iSearch1 = 0 Then
    $sStatus1 = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 3------------------------

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

    $iEval = 1
    $iSearch2 = 0

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

    While 1
    $sVersion2 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @Error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch2 & ".*") Then
    $sVersion2 = RegRead($sKey, "DisplayVersion")
    $iSearch2 = 1
    If $iSearch2 = 1 Then
    $sStatus2 = "installiert"
    ExitLoop
    ElseIf $iSearch2 = 0 Then
    ExitLoop
    EndIf
    Endif
    $iEval += 1
    WEnd

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

    If $iSearch2 = 0 Then
    $sStatus2 = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 4------------------------

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

    $iEval = 1
    $iSearch3 = 0

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

    While 1
    $sVersion3 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @Error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch3 & ".*") Then
    $sVersion3 = RegRead($sKey, "DisplayVersion")
    $iSearch3 = 1
    If $iSearch3 = 1 Then
    $sStatus3 = "installiert"
    ExitLoop
    ElseIf $iSearch3 = 0 Then
    ExitLoop
    EndIf
    Endif
    $iEval += 1
    WEnd

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

    If $iSearch3 = 0 Then
    $sStatus3 = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 5------------------------

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

    $iEval = 1
    $iSearch4 = 0

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

    While 1
    $sVersion4 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @Error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch4 & ".*") Then
    $sVersion4 = RegRead($sKey, "DisplayVersion")
    $iSearch4 = 1
    If $iSearch4 = 1 Then
    $sStatus4 = "installiert"
    ExitLoop
    ElseIf $iSearch4 = 0 Then
    ExitLoop
    EndIf
    Endif
    $iEval += 1
    WEnd

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

    If $iSearch4 = 0 Then
    $sStatus4 = "n/a"
    EndIf

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

    ;=======================================================================
    ; URL Detection
    ;=======================================================================

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

    ;=======================================================================
    ; CURRENT VERSION ARRAY
    ;=======================================================================

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

    Global $aVersions[5][4]

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

    $aVersions[0][0] = $sSearch
    $aVersions[0][1] = $sStatus
    $aVersions[0][2] = $sVersion
    $aVersions[0][3] = $lVersion

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

    $aVersions[1][0] = $sSearch1
    $aVersions[1][1] = $sStatus1
    $aVersions[1][2] = $sVersion1
    $aVersions[1][3] = $lVersion1

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

    $aVersions[2][0] = $sSearch2
    $aVersions[2][1] = $sStatus2
    $aVersions[2][2] = $sVersion2
    $aVersions[2][3] = $lVersion2

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

    $aVersions[3][0] = $sSearch3
    $aVersions[3][1] = $sStatus3
    $aVersions[3][2] = $sVersion3
    $aVersions[3][3] = $lVersion3

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

    $aVersions[4][0] = $sSearch4
    $aVersions[4][1] = $sStatus4
    $aVersions[4][2] = $sVersion4
    $aVersions[4][3] = $lVersion4

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

    ;=======================================================================
    ; CREATE GUI
    ;=======================================================================

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

    Local $msg

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

    $GUI = GUICreate("Versionsprüfer by Sönke Graf", 800, 371)
    GUISetBkColor( 0x99B9E3 )

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

    $listview = GUICtrlCreateListView("", 10, 10, 780, 351)

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

    _GUICtrlListView_AddColumn($listview, " Programmname", 250)
    _GUICtrlListView_AddColumn($listview, " Status", 100)
    _GUICtrlListView_AddColumn($listview, " installierte Version ", 150)
    _GUICtrlListView_AddColumn($listview, " aktuelle Version", 150)
    _GUICtrlListView_AddColumn($listview, " Flag", 126)

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

    GUICtrlSendMsg($ListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE) ; legt fest, dass Hintergrundfarbe wechselt
    GUICtrlSetBkColor(-1, 0xFFFFCC) ; Hintergrundfarbe 1

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

    $hImage = _GUIImageList_Create(16, 16, 5, 3)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110)

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

    For $i = 0 To UBound($aVersions) - 1
    $x = _GUICtrlListView_AddItem($listview, $aVersions[$i][0])
    _GUICtrlListView_AddSubItem($listview, $x, $aVersions[$i][1], 1)
    _GUICtrlListView_AddSubItem($listview, $x, $aVersions[$i][2], 2)
    _GUICtrlListView_AddSubItem($listview, $x, $aVersions[$i][3], 3)
    Next

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

    For $i = 1 To 10
    $listitem = GUICtrlCreateListViewItem("" , $listview)
    If $i = 7 Then GUICtrlSetFont($listitem, 14, 800)
    GUICtrlSetBkColor(-1, 0xFFFFFF) ; Hintergrundfarbe 2
    Next

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
    MsgBox(0, "", "Programm wird geschlossen")
    Exit
    Case $nMsg = $GUI_EVENT_MINIMIZE
    MsgBox(0, "", "Dialog minimiert", 2)
    Case $nMsg = $GUI_EVENT_MAXIMIZE
    MsgBox(0, "", "Dialog wieder hergestellt", 2)
    EndSelect
    WEnd

    [/autoit]

    so klappts:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.6.1
    Author: myName
    Script Function:
    Template AutoIt script.
    #ce ----------------------------------------------------------------------------
    ; Script Start - Add your code below here
    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.4.0
    Author: Sönke Graf
    Program Name: Version_Checker

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

    Script Function:
    This Script searches the Registry Uninstall Path - "$sBase for Specific
    Programs defined in the Variables Section under "$sSearch" - "$sSearch4" -
    the registry is then scanned for the correct Version Number and all
    Information stored in an array. This array then is used for a GUI display
    -ing the Information. The "$sURL" Variables are listed for an update of
    the Software.

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

    #ce ----------------------------------------------------------------------------

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

    ;=======================================================================
    ; INCLUDE CONSTANTS
    ;=======================================================================

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

    #include <GuiListView.au3>
    #include <Misc.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiImageList.au3>

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

    ;=======================================================================
    ; VARIABLES
    ;=======================================================================

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

    Local $hImage
    $sBase = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

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

    ;Five Search Operations

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

    $sSearch = "Adobe Flash"
    $sSearch1 = "Adobe Acrobat "
    $sSearch2 = "Adobe Reader"
    $sSearch3 = "Java"
    $sSearch4 = "UltraVnc"

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

    ;latest Versions

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

    $lVersion = "10.2.152.26"
    $lVersion1 = "10.0.1"
    $lVersion2 = "10.0.1"
    $lVersion3 = "6.0.240"
    $lVersion4 = "1.0.9.5"

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

    ;=======================================================================
    ; Program Code
    ;=======================================================================

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

    ;-----------------------------Search Operation 1------------------------

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

    $iEval = 1
    $iSearch = 0

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

    While 1
    $sVersion = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)
    If @error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch & ".*") Then
    $sVersion = RegRead($sKey, "DisplayVersion")
    $iSearch = 1
    If $iSearch = 1 Then
    $sStatus = "installiert"
    ExitLoop
    ElseIf $iSearch = 0 Then
    ExitLoop
    EndIf
    EndIf
    $iEval += 1
    WEnd

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

    If $iSearch = 0 Then
    $sStatus = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 2------------------------

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

    $iEval = 1
    $iSearch1 = 0

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

    While 1
    $sVersion1 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch1 & ".*") Then
    $sVersion1 = RegRead($sKey, "DisplayVersion")
    $iSearch1 = 1
    If $iSearch1 = 1 Then
    $sStatus1 = "installiert"
    ExitLoop
    ElseIf $iSearch1 = 0 Then
    ExitLoop
    EndIf
    EndIf
    $iEval += 1
    WEnd

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

    If $iSearch1 = 0 Then
    $sStatus1 = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 3------------------------

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

    $iEval = 1
    $iSearch2 = 0

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

    While 1
    $sVersion2 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch2 & ".*") Then
    $sVersion2 = RegRead($sKey, "DisplayVersion")
    $iSearch2 = 1
    If $iSearch2 = 1 Then
    $sStatus2 = "installiert"
    ExitLoop
    ElseIf $iSearch2 = 0 Then
    ExitLoop
    EndIf
    EndIf
    $iEval += 1
    WEnd

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

    If $iSearch2 = 0 Then
    $sStatus2 = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 4------------------------

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

    $iEval = 1
    $iSearch3 = 0

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

    While 1
    $sVersion3 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch3 & ".*") Then
    $sVersion3 = RegRead($sKey, "DisplayVersion")
    $iSearch3 = 1
    If $iSearch3 = 1 Then
    $sStatus3 = "installiert"
    ExitLoop
    ElseIf $iSearch3 = 0 Then
    ExitLoop
    EndIf
    EndIf
    $iEval += 1
    WEnd

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

    If $iSearch3 = 0 Then
    $sStatus3 = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 5------------------------

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

    $iEval = 1
    $iSearch4 = 0

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

    While 1
    $sVersion4 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch4 & ".*") Then
    $sVersion4 = RegRead($sKey, "DisplayVersion")
    $iSearch4 = 1
    If $iSearch4 = 1 Then
    $sStatus4 = "installiert"
    ExitLoop
    ElseIf $iSearch4 = 0 Then
    ExitLoop
    EndIf
    EndIf
    $iEval += 1
    WEnd

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

    If $iSearch4 = 0 Then
    $sStatus4 = "n/a"
    EndIf

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

    ;=======================================================================
    ; URL Detection
    ;=======================================================================

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

    ;=======================================================================
    ; CURRENT VERSION ARRAY
    ;=======================================================================

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

    Global $aVersions[5][4]

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

    $aVersions[0][0] = $sSearch
    $aVersions[0][1] = $sStatus
    $aVersions[0][2] = $sVersion
    $aVersions[0][3] = $lVersion

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

    $aVersions[1][0] = $sSearch1
    $aVersions[1][1] = $sStatus1
    $aVersions[1][2] = $sVersion1
    $aVersions[1][3] = $lVersion1

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

    $aVersions[2][0] = $sSearch2
    $aVersions[2][1] = $sStatus2
    $aVersions[2][2] = $sVersion2
    $aVersions[2][3] = $lVersion2

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

    $aVersions[3][0] = $sSearch3
    $aVersions[3][1] = $sStatus3
    $aVersions[3][2] = $sVersion3
    $aVersions[3][3] = $lVersion3

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

    $aVersions[4][0] = $sSearch4
    $aVersions[4][1] = $sStatus4
    $aVersions[4][2] = $sVersion4
    $aVersions[4][3] = $lVersion4

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

    ;=======================================================================
    ; CREATE GUI
    ;=======================================================================

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

    Local $msg

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

    $GUI = GUICreate("Versionsprüfer by Sönke Graf", 800, 371)
    GUISetBkColor(0x99B9E3)

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

    $listview = GUICtrlCreateListView(" Programmname| Status|installierte Version | aktuelle Version Flag", 10, 10, 780, 351)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE) ; legt fest, dass Hintergrundfarbe wechselt
    GUICtrlSetBkColor(-1, 0xFFFFCC) ; Hintergrundfarbe 1
    ;
    _GUICtrlListView_SetColumnWidth($listview, 0, 250)
    _GUICtrlListView_SetColumnWidth($listview, 1, 100)
    _GUICtrlListView_SetColumnWidth($listview, 2, 150)
    _GUICtrlListView_SetColumnWidth($listview, 3, 150)
    _GUICtrlListView_SetColumnWidth($listview, 4, 126)

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

    GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)

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

    $hImage = _GUIImageList_Create(16, 16, 5, 3)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110)

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

    For $i = 0 To UBound($aVersions) - 1
    $listitem = GUICtrlCreateListViewItem($aVersions[$i][0] & "|" & $aVersions[$i][1] & "|" & $aVersions[$i][2] & "|" & $aVersions[$i][3], $listview)
    GUICtrlSetBkColor(-1, 0xFFFFFF) ; Hintergrundfarbe 2
    Next

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

    ;#cs unnötig
    For $i = 1 To 10
    $listitem = GUICtrlCreateListViewItem("", $listview)
    ; If $i = 7 Then GUICtrlSetFont($listitem, 14, 800) ;war nur zum Test
    GUICtrlSetBkColor(-1, 0xFFFFFF) ; Hintergrundfarbe 2
    Next
    ;#ce

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
    MsgBox(0, "", "Programm wird geschlossen")
    Exit
    Case $nMsg = $GUI_EVENT_MINIMIZE
    MsgBox(0, "", "Dialog minimiert", 2)
    Case $nMsg = $GUI_EVENT_MAXIMIZE
    MsgBox(0, "", "Dialog wieder hergestellt", 2)
    EndSelect
    WEnd

    [/autoit]

    mfg autoBert

    ich komme nun früh ins Bett :sleeping: , danke Dir :thumbup:

    ich hab vermutlich zu vertikal gedacht :rolleyes:

    morgen geht dann an die Icons :D

    gibt es eine pauschale Ursächlichkeit, warum mir in einem Listview anstelle eines Icons ( _GUIImageList_AddIcon ) oder eines Bitmaps ( _GUICtrlListView_CreateSolidBitMap ) Hex-Zahlen angezeigt werden ? 8|

    Spoiler anzeigen
    [autoit]

    _GUICtrlListView_SetExtendedListViewStyle($ListView, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))

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

    $iEval = 1
    $iSearch = 0
    Global $sFlag

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

    While 1
    $sVersion = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)
    If @Error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")
    If StringRegExp($sDisplay, ".*" & $sSearch & ".*") Then
    $sVersion = RegRead($sKey, "DisplayVersion")
    $iSearch = 1
    If $iSearch = 1 Then
    $sStatus = "installiert"
    If $sVersion = $xVersion Then
    $sFlag = _GUIImageList_Create()
    _GUIImageList_Add($sFlag, _GUICtrlListView_CreateSolidBitMap(GUICtrlGetHandle($ListView), 0xFF0000, 16, 16))
    _GUICtrlListView_SetImageList($ListView, $sFlag, 1)

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

    ;~ $sFlag = _GUIImageList_Create(16, 16, 5, 3)
    ;~ _GUIImageList_AddIcon($sFlag, "tick.gif")
    ;~ _GUICtrlListView_SetImageList($listview, $sFlag, 1)

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

    EndIf
    ExitLoop
    ElseIf $iSearch = 0 Then
    ExitLoop
    EndIf
    Endif
    $iEval += 1
    WEnd

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

    If $iSearch = 0 Then
    $sStatus = "n/a"
    EndIf

    [/autoit]

    Hallo Prickel,

    das kann ich an dem Code-Ausschnitt nicht erkennen, wobei du da kein Icon setzten würdest sondern ein SolidBitMap so wie hier: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Desweiteren kann ich mich noch erinnern, dass ich abwechselnde Zeilenfärbung auf die einfache Tour mit

    [autoit]

    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE) ; legt fest, dass Hintergrundfarbe wechselt
    GUICtrlSetBkColor(-1, 0xFFFFCC) ; Hintergrundfarbe 1

    [/autoit]


    bei meine LV zum Anzeigen von Icons nicht hinbekommen habe, da man dafür anscheinend nur

    [autoit]

    GuiCtrlCreateListViewItem
    GUICtrlSetBkColor(-1, 0xFFFFFF) ; Hintergrundfarbe 2

    [/autoit]

    aber nicht das fürs Icon setzen benötigte

    [autoit]

    _GUICtrlListView_AddItem

    [/autoit]

    verwenden kann, die Methode die BugFix beschrieben hat um jedem SubItem eine eigene Farbe geben zu können habe ich in diesem Beispiel nicht getestet bin aber trotzdem überzeugt dass sie funktionieren würde,

    mfg autoBert

    • Offizieller Beitrag
    Zitat von autoBert

    bin aber trotzdem überzeugt dass sie funktionieren würde,


    Richtig! ;)

    Spoiler anzeigen
    [autoit]

    #include <GuiConstantsEx.au3>
    #include <GuiListView.au3>
    #include <GuiImageList.au3>
    #include <WindowsConstants.au3>
    #include <StructureConstants.au3>

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

    Local $hImage, $ListView, $hListView

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

    GUICreate("ListView Set Image List", 400, 300)
    $ListView = GUICtrlCreateListView("", 2, 2, 394, 268)
    $hListView = GUICtrlGetHandle($ListView)

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

    ; Load images
    $hImage = _GUIImageList_Create()
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0xFF0000, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x00FF00, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x0000FF, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0xFF0000, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x00FF00, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x0000FF, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0xFF0000, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x00FF00, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x0000FF, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0xFF0000, 16, 16))
    _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x00FF00, 16, 16))
    _GUICtrlListView_SetImageList($hListView, $hImage, 1)

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

    ; Add columns
    _GUICtrlListView_AddColumn($hListView, "Column 1", 100)
    _GUICtrlListView_AddColumn($hListView, "Column 2", 100)
    _GUICtrlListView_AddColumn($hListView, "Column 3", 100)

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

    ; Add items
    For $i = 0 To 10
    _GUICtrlListView_AddItem($hListView, "Item " & $i+1, $i)
    _GUICtrlListView_AddSubItem($hListView, $i, 'Sub ' & $i+1 & '-1', 1)
    _GUICtrlListView_AddSubItem($hListView, $i, 'Sub ' & $i+1 & '-2', 2)
    Next

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

    GUIRegisterMsg($WM_NOTIFY, 'WM_NOTIFY')
    GUISetState()

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

    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete()

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

    Func WM_NOTIFY($hWnd, $Msg, $wParam, $lParam)
    Local $hWndFrom, $iCode, $tNMHDR
    $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iCode = DllStructGetData($tNMHDR, "Code")
    If $hWndFrom = $hListView Then
    Switch $iCode
    Case $NM_CUSTOMDRAW
    Local $tCustDraw = DllStructCreate($tagNMLVCUSTOMDRAW, $lParam)
    Local $iDrawStage, $iItem
    $iDrawStage = DllStructGetData($tCustDraw, 'dwDrawStage')
    Switch $iDrawStage
    Case $CDDS_ITEMPREPAINT
    Return $CDRF_NOTIFYSUBITEMDRAW
    Case BitOR($CDDS_ITEMPREPAINT, $CDDS_SUBITEM)
    $iItem = DllStructGetData($tCustDraw, 'dwItemSpec')
    Switch Mod($iItem, 2)
    Case 0 ; geradzahlig
    DllStructSetData($tCustDraw, 'clrTextBk', 0x23FFFF)
    Case 1 ; ungeradzahlig
    DllStructSetData($tCustDraw, 'clrTextBk', 0x0044FF)
    EndSwitch
    Return $CDRF_NEWFONT
    EndSwitch
    EndSwitch
    EndIf
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_NOTIFY

    [/autoit]