Beiträge von nuts

  • Aus ini Listview item erstellen..

    Oder man baut die .ini etwas um

    Code
    [Quelle-Ziele] 
C:\xxxx1=C:\xxx1
    Spoiler anzeigen
    [autoit]


    IF FileExists(@ScriptDir&"\Backup.ini") Then
    Local $aData = IniReadSection(@ScriptDir&"\Backup.ini","Backup")
    _ArrayDisplay($aData)
    For $i = 1 To UBound($aData) - 1
    GUICtrlCreateListViewItem($aData[$i][0] & "|" & $aData[$i][1],$hListView)
    Next
    Else
    MsgBox(64,"Fehler","Ini-Datei fehlt",30)
    EndIf

    [/autoit]

  • Strings vergleichen

    Stimmt. Scheint in der .dll genau anders rum umgesetzt zu sein?

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

    $Str1 = '"Sweet About Me":Gabriella Cilmi'
    $Str2 = '"Sweet About Me":Gabriella Cilmi'
    $str3 = 'X'

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

    $hDLL = DllOpen("LevenshteinDistance.dll")
    ConsoleWrite(CompTstr($str1, $str2) & @CRLF)
    ConsoleWrite(CompTstr($str1, $str3) & @CRLF)
    DllClose($hDLL)

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

    func CompTstr($s, $t)
    local $n, $m
    $n = StringLen($s)
    $m = StringLen($t)
    if $n < $m then $n = $m
    $arDLL = DllCall($hDLL, "int", "LevenshteinDistance", "str", $s, "str", $t)
    If IsArray($arDLL) Then Return ($n - $arDLL[0]) / $n
    endfunc

    [/autoit]

    Edit \ Also die .dll arbeitet schon richtig, nur ist der Rückgabewert überraschend.
    Bei: $Str1 = '0123456789' & $Str2 = '012345678X' sind es 0,9, also 10% :whistling:

  • Schleife bei Select/Case?

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 633, 600, -1, -1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    dim $buttonsArray[51]

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

    $x = 14
    $y = 24
    For $i = 1 to 9 Step +1
    $buttonsArray[$i] = GUICtrlCreateButton(" " & $i & " ",$x,$y)
    $x = $x + 20;
    Next
    For $i = 10 to 26 Step +1
    $buttonsArray[$i] = GUICtrlCreateButton(" " & $i & " ",$x,$y)
    $x = $x + 26;
    Next
    $x = 14
    $y = 54
    For $i = 27 to 50 Step +1
    $buttonsArray[$i] = GUICtrlCreateButton(" " & $i & " ",$x,$y)
    $x = $x + 26;
    Next

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $buttonsArray[1] to UBound($buttonsArray)+1
    MsgBox(1, "", "Hallo")

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

    EndSwitch
    WEnd

    [/autoit]


    Ist aber doch blöd, schließlich hat dann jeder Button die gleiche Funktion. :wacko:

  • Listview Design: Transparenz möglich?

    Hey,

    also mit Screenshots lässt sich schon etwas vergleichbares erreichen.

    Spoiler anzeigen
    [autoit]


    #AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GuiListView.au3>
    #include <GuiImageList.au3>
    #include <Constants.au3>
    #include <ScreenCapture.au3>
    Opt('MustDeclareVars', 1)
    Opt('CaretCoordMode', 0)
    global $sFilePath = @ScriptDir & "\AutoIt.jpg"
    $Debug_LV = False ; Check ClassName being passed to ListView functions, set to True and use a handle to another control to see it work

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

    global $GUI, $hListView, $msg, $hImage, $aImage
    global $exStyles = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_DOUBLEBUFFER)

    $GUI = GUICreate("Gui", 800, 650, -1 , -1 , $WS_popup)
    global $pic = GUICtrlCreatePic("bg1.jpg",0,0,800,650)
    GuiCtrlSetState(-1,$GUI_DISABLE)
    GUISetState()
    _ScreenCapture_CaptureWnd($sFilePath,$gui,50, 50, 600, 550 )

    ;=========================================================================================================
    $hListView = _GUICtrlListView_Create($GUI, "", 50, 50, 550, 500, $LVS_NOCOLUMNHEADER, -1, True) ; Last option Calls CoInitializeEx
    ;=========================================================================================================
    _GUICtrlListView_SetExtendedListViewStyle($hListView, $exStyles)
    _GUICtrlListView_SetBkImage($hListView, $sFilePath)
    ; Load images
    #cs
    $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))
    _GUICtrlListView_SetImageList($hListView, $hImage, 1)
    #ce
    ; Add columns
    _GUICtrlListView_InsertColumn($hListView, 0, "Column 1", 100)
    _GUICtrlListView_InsertColumn($hListView, 1, "Column 2", 100)
    _GUICtrlListView_InsertColumn($hListView, 2, "Column 3", 100)

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

    ; Add items
    _GUICtrlListView_AddItem($hListView, "Row 1: Col 1", 0)
    _GUICtrlListView_AddSubItem($hListView, 0, "Row 1: Col 2", 1)
    _GUICtrlListView_AddSubItem($hListView, 0, "Row 1: Col 3", 2)
    _GUICtrlListView_AddItem($hListView, "Row 2: Col 1", 1)
    _GUICtrlListView_AddSubItem($hListView, 1, "Row 2: Col 2", 1)
    _GUICtrlListView_AddItem($hListView, "Row 3: Col 1", 2)

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

    ; Build groups
    _GUICtrlListView_EnableGroupView($hListView)
    _GUICtrlListView_InsertGroup($hListView, -1, 1, "Group 1")
    _GUICtrlListView_InsertGroup($hListView, -1, 2, "Group 2")
    _GUICtrlListView_SetItemGroupID($hListView, 0, 1)
    _GUICtrlListView_SetItemGroupID($hListView, 1, 2)
    _GUICtrlListView_SetItemGroupID($hListView, 2, 2)

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

    ;~ _GUICtrlListView_SetBkColor ($hListView, $CLR_NONE)
    ;~ _GUICtrlListView_SetTextColor ($hListView, $CLR_NONE)
    ;~ _GUICtrlListView_SetTextBkColor ($hListView, $CLR_NONE)

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

    ; Get the Image
    ;global $sURL = "http://www.autoitscript.com/autoit3/files/graphics/autoit9_wall_grey_800x600.jpg"

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

    ;InetGet($sURL, $sFilePath)

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

    ; Set the Background Image
    ;_ScreenCapture_CaptureWnd($sFilePath, $gui)
    ;_GUICtrlListView_SetBkImage($hListView, $sFilePath)

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

    HotKeySet("{SPACE}", "test")
    GUISetState()

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


    while 1
    $msg= GUIGetMsg()

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

    switch $msg
    case $GUI_EVENT_CLOSE
    DllCall('ole32.dll', 'long', 'CoUinitialize')
    GUIDelete()
    FileDelete($sFilePath)
    exit
    case $GUI_EVENT_MINIMIZE
    GuiCtrlSetState($pic,$GUI_DISABLE)
    GUISetState(@SW_MINIMIZE, $gui)
    endswitch

    wend

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

    Func test()
    GuiCtrlSetState($pic,$GUI_DISABLE)

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

  • Listview Design: Transparenz möglich?

    Mhm ja leider wird der Vordergrund auch transparent. :(

    So funktioniert das mit dem drüberlegen einer zweiten Gui (Bild im Anhang):

    Spoiler anzeigen
    [autoit]


    #include <WindowsConstants.au3>
    #include <Constants.au3>
    #include <ListViewConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <Guilistview.au3>

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

    #NoTrayIcon

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

    Opt("TrayMenuMode",1)

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

    $1= GUICreate("TRANS GUI",700,550,-1,-1,$WS_POPUP,$WS_EX_CLIENTEDGE)
    $pic = GUICtrlCreatePic("bg1.jpg",0,0,700,550)
    GuiCtrlSetState(-1,$GUI_DISABLE)

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

    GUISetState(@SW_SHOW,$1)
    $2= GUICreate("GUI",700,550,-1,-1,$WS_POPUP,$WS_EX_MDICHILD,$1)
    WinSetTrans ("GUI","",0)
    WinSetOnTop("GUI","",1)
    GUISetState(@SW_SHOW,$2)

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

    $listView = GuiCtrlCreateListView("Sample|ListView|", 110, 110, 410, 300,BitOR($LVS_REPORT,$LVS_NOCOLUMNHEADER,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS))
    $hListView = GUICtrlGetHandle($listView)
    GuiCtrlCreateListViewItem("A|One", $listView)
    GuiCtrlCreateListViewItem("B|Two", $listView)
    GuiCtrlCreateListViewItem("C|Three", $listView)

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

    for $a = 0 to 100 step 2
    sleep(1)
    WinSetTrans ("GUI","",$a*1) ; $a* xy verändert die transparenz
    next

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

    while 1
    sleep(1)
    $msg = GUIGetMsg()
    switch $msg
    case $GUI_EVENT_CLOSE
    exit

    EndSwitch
    wend

    [/autoit]


    Ist eigentlich simpel, sieht nur blöd aus.

  • Vom Pfad den Letzten Ordner ausgeben

    Hab noch eins :D
    Bin grad bissle auf dem Optimierungstrip.

    Spoiler anzeigen
    [autoit]


    $path = "c:\test1\test3\test7\test8"
    $init2 = TimerInit()
    $Ordner = StringSplit( $path, "\")
    $var2 = $Ordner[$Ordner[0]]
    ConsoleWrite($var2 & " " & TimerDiff($init2)& @CRLF)

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

    $path2 = "c:\test1\test3\test7\test8"
    $init1 = TimerInit()
    $var = StringMid($path2, StringInStr($path, "\", "", -1)+1)
    ConsoleWrite($var & " " & TimerDiff($init1)& @CRLF)

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

    $path3 = "c:\test1\test3\test7\test8"
    $init3 = TimerInit()
    $var3 = StringRegExpReplace($path3, '.*\\', '$1')
    ConsoleWrite($var3 & " " & TimerDiff($init3)& @CRLF)

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

    $path4 = "c:\test1\test3\test7\test8"
    $init4 = TimerInit()
    $var4 = StringTrimLeft($path, StringInStr($path4, "\", "", -1))
    ConsoleWrite($var4 & " " & TimerDiff($init4)& @CRLF)

    [/autoit]


    Leider schwanken die Werte ziemlich.

    Gewonnen hat blubbstar :thumbup:

  • Listview Design: Transparenz möglich?

    Hey,

    ist es möglich ein transparentes Listview zu erstellen?
    Ich habe hier ein Skript mit einem Bild als Hintergrund mit 2 Listview's und möchte eben nicht den ollen Listviewhintergrund, sondern das Bild sehen.

    Was gibts hier für Möglichkeiten?
    _GUICtrlListView_SetBkColor ($hlistview, $CLR_NONE) bringt nicht das gewünschte Ergebnis.

    Zum Probieren:
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiListView.au3>
    #include <Constants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 700, 500,-1, -1)
    $ListView1 = GUICtrlCreateListView("", 48, 40, 521, 289, BitOR($LVS_REPORT,$LVS_NOCOLUMNHEADER,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS))
    $hlistview = GUICtrlGetHandle($ListView1)
    ;_GUICtrlListView_SetBkColor ($hlistview, $CLR_NONE)
    GUICtrlCreatePic("", 0, 0, 700, 500) ;Pfad zum Bild fehlt noch
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    EndSwitch
    WEnd

    [/autoit]