[Work around] _GUICtrlListView_InsertItem: delimiter ignored

[Simpel]

Hi.

I want to change item order with drag and drop using this script:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <GuiListView.au3>
#include <misc.au3>
Opt("GUIOnEventMode", 1);
GUICreate("_GUICtrlListView_InsertItem-Delimiter-Problem", 824 , 530)
GUISetFont(14)
Global $g_hListView = GUICtrlCreateListView("1|2|3|4", 10, 10, 804, 500)
For $i = 0 To 5
    GUICtrlCreateListViewItem("1|2|3|4", $g_hListView)
Next
GUICtrlSendMsg($g_hListView, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg($g_hListView, $LVM_SETCOLUMNWIDTH, 1, 200)
GUICtrlSendMsg($g_hListView, $LVM_SETCOLUMNWIDTH, 2, 200)
GUICtrlSendMsg($g_hListView, $LVM_SETCOLUMNWIDTH, 3, 200)
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN,"_Arrange_List")
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")
GUISetState(@SW_SHOW)
While 1
    Sleep(10)
WEnd

Func _Arrange_List()
    Local $Selected = _GUICtrlListView_GetHotItem($g_hListView)
    If $Selected = -1 Then Return
    While _IsPressed(1)
    WEnd
    Local $Dropped = _GUICtrlListView_GetHotItem($g_hListView)
    If $Dropped > -1 Then
        ConsoleWrite(_GUICtrlListView_GetItemTextString($g_hListView, $Selected) & @CRLF)
        _GUICtrlListView_BeginUpdate($g_hListView)
        If $Selected < $Dropped Then
            _GUICtrlListView_InsertItem($g_hListView, _GUICtrlListView_GetItemTextString($g_hListView, $Selected), $Dropped + 1) ; ignores delimiter |
            _GUICtrlListView_DeleteItem($g_hListView, $Selected)
        ElseIf $Selected > $Dropped Then
            _GUICtrlListView_InsertItem($g_hListView, _GUICtrlListView_GetItemTextString($g_hListView, $Selected), $Dropped) ; ignores delimiter |
            _GUICtrlListView_DeleteItem($g_hListView, $Selected + 1)
        EndIf
        _GUICtrlListView_EndUpdate($g_hListView)
    EndIf
EndFunc

Func _Exit()
    Exit
EndFunc

But if I drag and drop a row the whole text of the complete item including | is inserted in the first subitem.

Any suggestions? Conrad

Edited September 21, 2017 by Simpel
[work around]

[Simpel]

Found a work around with _GUICtrlListView_SetItemText ( $hWnd, $iIndex, $sText [, $iSubItem = 0] ) and $iSubItem with -1 (undocumented):

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <GuiListView.au3>
#include <misc.au3>
Opt("GUIOnEventMode", 1);
GUICreate("_GUICtrlListView_InsertItem-Delimiter-Problem", 824 , 530)
GUISetFont(14)
Global $g_hListView = GUICtrlCreateListView("1|2|3|4", 10, 10, 804, 500)
For $i = 1 To 5
    GUICtrlCreateListViewItem($i * 1 & "|" & $i * 2 & "|" & $i * 3 & "|" & $i * 4, $g_hListView)
Next
GUICtrlSendMsg($g_hListView, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg($g_hListView, $LVM_SETCOLUMNWIDTH, 1, 200)
GUICtrlSendMsg($g_hListView, $LVM_SETCOLUMNWIDTH, 2, 200)
GUICtrlSendMsg($g_hListView, $LVM_SETCOLUMNWIDTH, 3, 200)
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN,"_Arrange_List")
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")
GUISetState(@SW_SHOW)
While 1
    Sleep(10)
WEnd

Func _Arrange_List()
    Local $Selected = _GUICtrlListView_GetHotItem($g_hListView)
    If $Selected = -1 Then Return
    While _IsPressed(1)
    WEnd
    Local $Dropped = _GUICtrlListView_GetHotItem($g_hListView)
    If $Dropped > -1 Then
        ConsoleWrite(_GUICtrlListView_GetItemTextString($g_hListView, $Selected) & @CRLF)
        _GUICtrlListView_BeginUpdate($g_hListView)
        If $Selected < $Dropped Then
            _GUICtrlListView_InsertItem($g_hListView, "", $Dropped + 1)
            _GUICtrlListView_SetItemText($g_hListView, $Dropped +1, _GUICtrlListView_GetItemTextString($g_hListView, $Selected), -1)
            _GUICtrlListView_DeleteItem($g_hListView, $Selected)
        ElseIf $Selected > $Dropped Then
            _GUICtrlListView_InsertItem($g_hListView, "", $Dropped)
            _GUICtrlListView_SetItemText($g_hListView, $Dropped, _GUICtrlListView_GetItemTextString($g_hListView, $Selected + 1), -1)
            _GUICtrlListView_DeleteItem($g_hListView, $Selected + 1)
        EndIf
        _GUICtrlListView_EndUpdate($g_hListView)
    EndIf
EndFunc

Func _Exit()
    Exit
EndFunc

Conrad

Edited September 21, 2017 by Simpel
typo