Beiträge von Oscar

  • Drag & Drop innerhalb eines Listviews

    Ja klar, ich bin ja schon froh, dass ich das jetzt überhaupt hingekriegt habe. Up-/Down-Buttons wollte ich auf keinen Fall dafür haben.
    Mit "schöner" meinte ich jetzt noch einen Einfüge-Balken, aber wie bereits geschrieben: Mir reicht es so. :)
    Gibt gleich eine neue Version vom Starplayer...

  • Drag & Drop innerhalb eines Listviews

    So, zwei Stunden später...
    Yeah! Ich hab's hingekriegt! :D

    Spoiler anzeigen
    [autoit]


    #include <WindowsConstants.au3>
    #include <ListViewConstants.au3>
    #include <GuiListView.au3>
    #include <GUIConstantsEx.au3>
    Opt('GUIOnEventMode', 1)
    $hGui = GUICreate('test', 400, 300)
    GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
    GUISetOnEvent($GUI_EVENT_PRIMARYUP, '_LVDrop')
    GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_LVDrag')
    GUISetOnEvent($GUI_EVENT_MOUSEMOVE, '_LVMove')
    $hListview = GUICtrlCreateListView('Playlist|Length', 5, 5, 390, 200, Default, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_FULLROWSELECT, $LVS_EX_DOUBLEBUFFER))
    GUICtrlSendMsg($hListview, $LVM_SETCOLUMNWIDTH, 0, 290)
    GUICtrlSendMsg($hListview, $LVM_SETCOLUMNWIDTH, 1, 60)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    For $i = 0 To 9
    GUICtrlCreateListViewItem('Titel' & $i & '|' & Random(100, 999, 1), $hListview)
    Next
    Global $iDropItem
    GUISetState()

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

    While True
    Sleep(20)
    WEnd

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

    Func _End()
    Exit
    EndFunc ;==>_End

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

    Func _LVDrop()
    Local $aItem = _GUICtrlListView_HitTest(GUICtrlGetHandle($hListview))
    If $aItem[0] <> $iDropItem Then
    Local $aItemText = _GUICtrlListView_GetItemTextArray($hListview, $iDropItem)
    _GUICtrlListView_DeleteItem(GUICtrlGetHandle($hListview), $iDropItem)
    Local $InsItem = _GUICtrlListView_InsertItem($hListview, $aItemText[1], $aItem[0])
    _GUICtrlListView_SetItemText($hListview, $InsItem, $aItemText[2], 1)
    _GUICtrlListView_SetItemSelected($hListview, $InsItem)
    _GUICtrlListView_SetItemFocused($hListview, $InsItem)
    EndIf
    EndFunc ;==>_LVDrop

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

    Func _LVDrag()
    Local $aItem = _GUICtrlListView_HitTest(GUICtrlGetHandle($hListview))
    $iDropItem = $aItem[0]
    EndFunc ;==>_LVDrag

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

    Func _LVMove()
    Local $aInfo = GUIGetCursorInfo($hGui)
    If Not IsArray($aInfo) Then Return
    If $aInfo[2] Then
    Local $aItem = _GUICtrlListView_HitTest(GUICtrlGetHandle($hListview))
    _GUICtrlListView_SetItemSelected($hListview, -1, False)
    _GUICtrlListView_SetItemSelected($hListview, $aItem[0])
    EndIf
    EndFunc ;==>_LVMove

    [/autoit]

    Das ist zwar nicht das Schönste, aber mir reicht das. :)

  • Drag & Drop innerhalb eines Listviews

    Ja, ich suche schon seit gestern Abend nach einer Lösung.
    Aber alle Beispiele, die ich bisher gefunden habe, beziehen sich immer auf ein Drag&Drop von Dateien oder von einem anderen Control-Element in das Listview.
    Ich finde nichts, wie man die Einträge innerhalb des Listviews verschieben kann.

  • Drag & Drop innerhalb eines Listviews

    Ich habe da ein Problem mit einem Listview und zwar möchte ich einzelne Einträge eines Listviews verschieben.
    Also innerhalb desselben Listviews z.B. Eintrag2 zwischen Eintrag7 und Eintrag8.

    Beispielscript:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    Opt('GUIOnEventMode', 1)
    $hGui = GUICreate('test', 400, 500)
    GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
    GUISetOnEvent($GUI_EVENT_DROPPED, '_Drop')
    $hListview1 = GUICtrlCreateListView('Playlist|Length', 5, 5, 390, 200)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    For $i = 0 To 10
    GUICtrlCreateListViewItem('Titel' & $i & '|' & Random(1, 6, 1), $hListview1)
    Next
    $hListview2 = GUICtrlCreateListView('Playlist|Length', 5, 215, 390, 200)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    For $i = 0 To 10
    GUICtrlCreateListViewItem('Titel' & $i & '|' & Random(1, 6, 1), $hListview2)
    Next

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

    GUISetState()

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

    While True
    Sleep(20)
    WEnd

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

    Func _End()
    Exit
    EndFunc ;==>_End

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

    Func _Drop()
    MsgBox(0, 0, @GUI_DropId)
    EndFunc ;==>_Drop

    [/autoit]

    Wenn ich von einem Listview zum anderen einen Eintrag verschiebe, dann öffnet sich die MsgBox, aber beim verschieben innerhalb eines Listviews nicht.
    Wie kann man das Problem lösen? Bin schon am verzweifeln...

  • Obfuscator ünnützlich

    Diese ganzen Versuche mit dem verschlüsseln sind nutzlos, da man die Daten am Netzwerkanschluss mitsniffen kann. Dort müssen sie so übertragen werden, dass der FTP-Server sie versteht, was das Ganze angreifbar macht.

  • Eigenen kleinen Explorer

    Was soll dabei rauskommen?
    Wenn das keine real existierenden Ordner auf der Festplatte sind, sondern Virtuelle, dann musst Du Dir erstmal darüber Gedanken machen, wie Du die Ordner-Struktur speichern willst.
    Man könnte das über ein Array machen, in dem die einzelnen Elemente die "Pfade" enthalten. Im Listview angezeigt werden dann nur die Ordner/Dateien, die im aktuellen "Pfad" liegen.

  • GUI - Installer: Button mit Countdown?!

    Mal ein Beispiel:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    $iCount = 10
    GUICreate('test', 200, 100)
    $hPause = GUICtrlCreateButton('Auto-Install (' & $iCount & ')', 10, 70, 100, 20)
    $hInstall = GUICtrlCreateButton('Installieren', 120, 70, 70, 20)
    GUISetState()
    AdlibEnable('_CountDown', 1000)
    While True
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $hPause
    AdlibDisable()
    GUICtrlSetData($hPause, 'Pause')
    GUICtrlSetState($hPause, $GUI_DISABLE)
    Case $hInstall
    _Install()
    EndSwitch
    WEnd

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

    Func _CountDown()
    $iCount -= 1
    GUICtrlSetData($hPause, 'Auto-Install (' & $iCount & ')')
    If $iCount = 0 Then
    AdlibDisable()
    _Install()
    EndIf
    EndFunc

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

    Func _Install()
    MsgBox(0, 0, 'Installiere...')
    EndFunc

    [/autoit]

  • Starplayer (MP3-Player)

    Entschuldige, ich war so mit dem Umsetzen der anderen Features beschäftigt...

    Ich bin mir aber auch nicht ganz sicher, ob ich wirklich noch mehr Formate unterstützen will. Wenn schon mehr Formate, dann alle, die _SoundPlay() abspielen kann. Aber da weiß ich noch nicht, welche das sind.
    Außerdem habe ich ja jetzt das Drag&Drop ganzer Ordner (inkl. Unterordner) hinzugefügt. Dort benutze ich BugFixs Funktion "_GetFilesFolder_Rekursiv", die ich dann erstmal auf mehrere Datei-Filter umschreiben müsste.
    Also alles in allem relativ viel Aufwand für einen geringen Nutzen. Oder hast Du so viele Lieder im WAV-Format?

  • Taskleiste verschwinden lassen

    Statt alles andere zu verstecken, könnte man doch auch eine bildschirmfüllende GUI erstellen und die in den Vordergrund packen!?
    Beispiel:

    [autoit]


    #include <WindowsConstants.au3>
    GUICreate('test', @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP)
    GUICtrlCreatePic(@WindowsDir & '\Seifenblase.bmp', 0, 0, @DesktopWidth, @DesktopHeight)
    GUISetState()
    Do
    Until GUIGetMsg() = -3

    [/autoit]

  • Spiele-Problem

    Das Problem liegt vermutlich darin, dass Du den MessageLoop-Modus verwendest.
    In einer MessageLoop-Schleife soll ja die Prozessorauslastung möglichst nicht auf 100% ansteigen, während eigentlich nur auf ein Event gewartet wird und demzufolge passt GUIGetMsg den "internen Sleep" dynamisch an.
    Man kann das an diesem Beispiel ganz gut erkennen:

    Spoiler anzeigen
    [autoit]


    GUICreate('test', 200, 100)
    $hLabel = GUICtrlCreateLabel('0', 20, 30, 100, 20)
    GUISetState()
    $iCount = 0
    Do
    $iCount += 1
    GUICtrlSetData($hLabel, $iCount)
    Until GUIGetMsg() = -3

    [/autoit]


    Sobald die Maus bewegt wird, zählt die Schleife viel schneller. Hält man die Maus an, wird es wieder langsamer.
    Wenn dieses Verhalten in einem Programm störend ist, dann muss man das Script auf den OnEvent-Modus umschreiben. Dort kann man den Sleep-Wert in der Endlosschleife selbst festlegen.

  • Fehlerabwicklung

    Ich denke, Du hast da was falsch verstanden. :D
    Wenn AutoIt mit einer Fehlermeldung abbricht, dann solltest Du den Fehler suchen und ihn beseitigen und nicht nach einer Möglichkeit suchen das Script trotz Fehler weiterlaufen zu lassen (was in den meisten Fällen so oder so zu Folgefehlern führen würde).

  • Buttons aus Variablen

    @L0c4lh0sT: Was sollen denn das für Control-Elemente sein, wo das eingetragen werden soll?
    Statt das in ASCII-Art aufzumalen, könntest Du mal Koda benutzen und eine GUI entwerfen, dann müssen wir nicht raten. ;)