GUIListViewEx - Deprecated Version

[LondonNDIB]

Awesome!  And here I thought my project was finished, but I can make great use of that combo feature.  And by returning the old values in the array, I an now make my error checking a lot more efficient.  Thanks!

[nobbitry]

Hi melba,

I use your great UDF for an tv channel list editor. You can drag and drop items from lists of all supported channels into favorite lists.

Since the '[bUGFIX VERSION] - 24 Dec 14 - Fixed: Bottom item no longer moves to top if dragged into empty space below in the ListView.' it is not quite as comfortable as before to drag items into a small list, because you have to drop on an item. Dropping into empty space doesn't work anymore. I miss that.

More important is, when I create new lists, I am not able to drop items into this empty list anymore. Am I correct?

regards nobbitry

[Melba23]

nobbitry,

The law of unintended consequences strikes again!

I have amended the UDF code so that you can drop into empty space within another ListView but not drag there within the original - please try it and let me know if it allows you to do what you require:

<snip>

How is that?

M23

Edited February 9, 2015 by Melba23
Removed Beta code

[nobbitry]

Hey Melba, you are fast.

It works as discribed!

The new items dropped into the empty space are inserted at the top of the list, but thats fine for me (previously it was the same). Thank you very much.

regards nobbitry

Edited February 9, 2015 by nobbitry

[Melba23]

nobbitry,

I try to give good service!

I will look and see how hard it would be to add the dropped items at the end of the list - but no promises.

M23

Edit:

Easier than I though it would be:

<snip>

Edited February 9, 2015 by Melba23
Beta code removed

[nobbitry]

Melba, what can I say, you are awesome!

It works. New elements are added at the end of the list. The same now with elements from the list. If you drop them into the empty space of the list, they appear at the end. I think that wans't the case with the last version, or? I think thats good. I would expect that behaviour.

Thanks Melba

[Melba23]

nobbitry,

Glad you like it - and I think the new behaviour is more intuitive as well.

M23

[Melba23]

[NEW VERSION] - 9 Feb 15

Changed: Previous changes led to unwanted behaviour when dropping to the empty space below existing items in other ListViews. Now dropping items into the empty space will automatically place the item at the end of the list.

Thanks to nobbitry for the report and the nudge to get it working intuitively.

New UDF in the first post.

M23

[EpsilonZero]

I noticed a problem with preventing single-digit fields from being editable when there is a multiple-digit field with the same first digit (e.g. 1 vs 10) that is editable.  I fixed it by...

...replacing...

If Not StringInStr(";" & $sCols, ";" & $aLocation[1]) Then

...with...

If Not StringInStr(";" & $sCols & ";", ";" & $aLocation[1] & ";") Then

The modification to the evaluated string (& ";") is not explicitly required, but would fix a problem with the final field if $sCols didn't already end in ";".

I have used this UDF in several projects now, and it has been a great asset.  Thanks again, Melba!

[Melba23]

EpsilonZero,

Thanks for that. I am just working on an update to cope with column reordering and I will add that change as well.

M23

[Melba23]

[NEW VERSION] - 13 Mar 15

Added: UDF can now cope with reordered columns when the $LVS_EX_HEADERDRAGDROP style is applied to the ListView. There is no time penalty if the style is not applied and the UDF automatically detects and deals with a changed column order. See Example 4 for a demonstration.

Fixed: A small problem with defining the editable columns if there were more than 9 - thanks to EpsilonZero for the report.

New UDF in the first post.

M23

[mpower]

Thanks Melba23, great UDF! Love it!

I do have a couple of questions though:

• is it possible to remove the listview header?
• is it possible to remove the border around the listview control?
• is it possible to register clicks on listivew items but without highlighting them?

Thanks !

[Melba23]

mpower,

As you create the basic ListView yourself the first two factors are entirely under your control (the $LVS_NOCOLUMNHEADER & $WS_EX_CLIENTEDGE styles are ones you need to add/omit). Using _GUICtrlListView_SetItemSelected with the $iIndex parameter set to -1 should deselect all items so again you can do that yourself.

M23

[dynamitemedia]

ok i have been playing with this and i guess my question is there mor edocumentation as far as what edit, row, col and esc modes...

unless i missed it i am sorry...

this is exactly what i was looking for!

 

been playing with example #2

was wondering the following:

1.)  how to make right side  View Blank

2.)  where do i find the code that show the drag over?  i want to see in console where i added to the list

3.)  and how can i save this to a txt file?  

4.)  i dont want to "insert" into right View

5.) how do i NOT delete left view when clicking delete, only delete in right view... i see how it will NOT delete when dragged i only want to delete Right Column

if i missed it please show me the post(s)  thanks!!

Edited March 19, 2015 by dynamitemedia

[dynamitemedia]

<snip>

Ok been working on editing this some more and this is error is now being tossed

 

"C:\Documents and Settings\admin\Desktop\App\GUIListViewEx.au3" (1874) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$aItemData[$i] = $aGLVEx_SrcArray[$iGLVEx_DraggedIndex + 1][$i]
$aItemData[$i] = ^ ERROR

basically i am creating an array from filenames in a directory...  it works to add to list.  but when i try to drag i get the above error...

i have stripped it down  and  here is what i have:

 

expandcollapse popup

; Create GUI
$hGUI = GUICreate("playlist creator", 640, 430)
GUISetIcon(@ScriptDir & "\www\bin\IPTV.ico", -1)


; browse for folder
$Browse4Folder = GUICtrlCreateButton("Browse", 10, 18, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")


$clearLeft = GUICtrlCreateButton("Clear", 90, 18, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")


$cListView_Left = GUICtrlCreateListView("Name", 10, 50, 350, 290, BitOR($LVS_SINGLESEL, $LVS_SHOWSELALWAYS))
_GUICtrlListView_SetExtendedListViewStyle($cListView_Left, $LVS_EX_FULLROWSELECT)
_GUICtrlListView_SetColumnWidth($cListView_Left, 0, 245)


#cs


THIS actually will load and i can  Drag around




; get all the video files from folder
Local $FileList2 = _FileListToArray($folderTwo, "*.flv")
$file = FileOpen($playList, 1)




For $i = 1 To $FileList2[0]
       $aLV_List_Left = $FileList2[$i]
  GUICtrlCreateListViewItem($FileList2[$i], $cListView_Left)
    Next


$iLV_Left_Index = _GUIListViewEx_Init($cListView_Left, $aLV_List_Left, 0, 0, True, 128 + 256)
#ce


$iLV_Left_Index = _GUIListViewEx_Init($cListView_Left, 0, 0, True, 128 + 256)


; Create Right ListView
GUICtrlCreateLabel("UDF ListView" & @CRLF & "Multiple selection - no count element - no sort or edit", 380, 5, 300, 35)
$hListView_Right = _GUICtrlListView_Create($hGUI, "Name", 380, 50, 250, 290, BitOR($LVS_SHOWSELALWAYS, $LVS_REPORT, $WS_BORDER))
_GUICtrlListView_SetExtendedListViewStyle($hListView_Right, $LVS_EX_FULLROWSELECT)
_GUICtrlListView_SetColumnWidth($hListView_Right, 0, 205)
ControlDisable($hGUI , "", HWnd(_GUICtrlListView_GetHeader($hListView_Right)))


$iLV_Right_Index = _GUIListViewEx_Init($hListView_Right, 0, 0x00FF00)


; Create buttons
$cSave_Button = GUICtrlCreateButton("Save", 430, 350, 200, 30)
GUISetState()


; Register for dragging and editing
_GUIListViewEx_MsgRegister()


; Set the right ListView as active
_GUIListViewEx_SetActive(2)


While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit


Case $cSave_Button


;---------------------------- my  buttons --------------------------


Case $clearLeft ; clears left side


_GUICtrlListView_DeleteAllItems($cListView_Left)
MsgBox(0, "   ", "Folder Cleared!")


Case  $Browse4Folder


Local $sMessage = "Select a folder"
Local $sFileSelectFolder = FileSelectFolder($sMessage, "")
If @error Then
  MsgBox("   ", "", "No folder was selected.")
Else


MsgBox("    ", "", "You chose the following folder:" & @CRLF & $sFileSelectFolder)
  Local $FileList2 = _FileListToArray($sFileSelectFolder, "*.flv")
  For $i = 1 To $FileList2[0]
 $aLV_List_Left = $FileList2[$i]
 GUICtrlCreateListViewItem($FileList2[$i], $cListView_Left)
 ConsoleWrite($aLV_List_Left & @CRLF)
  Next
EndIf
;-----------------------------------------------------------------------
EndSwitch


$aRet = _GUIListViewEx_EditOnClick($iEditMode)
; Array only returned AFTER EditOnClick process - so check array exists
If IsArray($aRet) Then
; Uncomment to see returned array
;_ArrayDisplay($aRet, @error)
EndIf
WEnd

notice on line like 52  if i pre load the array up there it works but when i try to add more to the array it will then toss that error .

i would really like to be able to browse and get more filenames into the array to create this playlist

also notice the "Clear" button will clear the list BUT its actually still there if i use the pre loaded array

you can test this by:

1.)  un commenting line 52 that will load the array

2.) hit clear button, list should be blank

3.) browse for folder it will show the .flv files

4.) drag one of those and it will drag but the original files on load is there NOT the name u drag

Edited March 19, 2015 by Melba23
Removed quote of previous post

[mjolnirmarkiv]

Hello Melba23,

Thanks for the update, just a couple of suggestions:

1) First a really minor thing. In _GUIListViewEx_EditProcess, in "Wait for a key press or combo down/up" loop it's worth adding a wait loop until mouse key is released at the end:

While _WinAPI_GetAsyncKeyState(0x01)
    Sleep(10)
WEnd

Otherwise the user will cancel the edit upon mouse pointer leaving the temporary control even though the mouse button was clicked and hold within control's boundaries. It's not very convenient that way, imagine if you need to select some text in the temoporary edit with a mouse and you occasionally moved mouse pointer too far, outside control's boundaries.

2) In _GUIListViewEx_ChangeItem worth adding "False" at the end:

_GUIListViewEx_ReWriteLV($hGLVEx_SrcHandle, $aData_Array, $aCheck_Array, $iLV_Index, False)

Otherwise it's a fatal error in _GUIListViewEx_ReWriteLV if checkboxes aren't set for ListView ($aCheck_Array is not an array). At least that's my hypothesis on why I'm getting an error.

 

BTW nice addition with _GUIListViewEx_ChangeItem, previously I was need one, because I run data validation user inputs. But my way is a bit more complicated -- I show an error tooltip and refuse edit confirmation to a user until value is ok or the edit is cancelled (item data is reset to a previously stored data) -- would be nice to see this implemeted.

[Melba23]

mjolnirmarkiv,

1) I agree and I have added a wait loop.

2) I can see the problem. I thought that declaring the $aData_Array in the function using _GUIListViewEx_ReturnArray was sufficient, but checking further I see that that function returns an empty string if the ListView does not have checkboxes and so there would be no array to pass. I have recoded the function to create its own array to ensure that there will indeed be an array parameter to pass. I have checked all the other _GUIListViewEx_ReturnArray calls and also added a further code to each call to check if the ListView has checkboxes and specifically set the final flag parameter.

Thanks for the reports - and the suggested fix.

dynamitemedia,

I am looking into your problem now.

M23

[Melba23]

dynamitemedia,

I have been trying to understand your problem and I think I have managed to get the code to do most of what you want. Please try the following example and see how it matches what you want:

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>

#include "GUIListViewEx.au3"

; Create GUI
$hGUI = GUICreate("playlist creator", 640, 430)

; browse for folder
$Browse4Folder = GUICtrlCreateButton("Browse", 10, 18, 75, 25)

$clearLeft = GUICtrlCreateButton("Clear", 90, 18, 75, 25)

$cDeleteRight = GUICtrlCreateButton("Delete Selected", 380, 18, 150, 25)

$cListView_Left = GUICtrlCreateListView("Name", 10, 50, 350, 290, BitOR($LVS_SINGLESEL, $LVS_SHOWSELALWAYS))
_GUICtrlListView_SetExtendedListViewStyle($cListView_Left, $LVS_EX_FULLROWSELECT)
_GUICtrlListView_SetColumnWidth($cListView_Left, 0, 245)

; get all the files from folder
Local $FileList2 = _FileListToArray("M:\Program\Au3 Scripts", "*.au3")
For $i = 1 To $FileList2[0]
    $aLV_List_Left = $FileList2[$i]
    GUICtrlCreateListViewItem($FileList2[$i], $cListView_Left)
Next

$iLV_Left_Index = _GUIListViewEx_Init($cListView_Left, $aLV_List_Left, 0, 0, True, 128 + 256)

; Create Right ListView
$hListView_Right = _GUICtrlListView_Create($hGUI, "Name", 380, 50, 250, 290, BitOR($LVS_SHOWSELALWAYS, $LVS_REPORT, $WS_BORDER))
_GUICtrlListView_SetExtendedListViewStyle($hListView_Right, $LVS_EX_FULLROWSELECT)
_GUICtrlListView_SetColumnWidth($hListView_Right, 0, 205)
ControlDisable($hGUI, "", HWnd(_GUICtrlListView_GetHeader($hListView_Right)))

$iLV_Right_Index = _GUIListViewEx_Init($hListView_Right, 0, 0x00FF00)

; Create buttons
$cSave_Button = GUICtrlCreateButton("Save", 430, 350, 200, 30)

GUISetState()

; Register for dragging and editing
_GUIListViewEx_MsgRegister()

; Set the left ListView as active
_GUIListViewEx_SetActive($iLV_Left_Index)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit

        Case $cSave_Button

        Case $clearLeft
            _GUICtrlListView_DeleteAllItems($cListView_Left)
            ; Delete ListView from UDF
            _GUIListViewEx_Close($iLV_Left_Index)
            ; Re-initiialise ListView with no content
            $iLV_Left_Index = _GUIListViewEx_Init($cListView_Left, "", 0, 0, True, 128 + 256)
            MsgBox(0, "   ", "Folder Cleared!")

        Case $Browse4Folder
            Local $sMessage = "Select a folder"
            Local $sFileSelectFolder = FileSelectFolder($sMessage, "")
            If @error Then
                MsgBox("   ", "", "No folder was selected.")
            Else
                MsgBox("    ", "", "You chose the following folder:" & @CRLF & $sFileSelectFolder)
                Local $FileList2 = _FileListToArray($sFileSelectFolder, "*.au3")
                ; Add items to left ListView using UDF
                _GUIListViewEx_SetActive($iLV_Left_Index)
                For $i = 1 To $FileList2[0]
                    _GUIListViewEx_Insert($FileList2[$i])
                Next
            EndIf

        Case $cDeleteRight
            ; Delete items from right ListView using UDF
            _GUIListViewEx_SetActive($iLV_Right_Index)
            _GUIListViewEx_Delete()

    EndSwitch

WEnd

That works for me. I can add new files to, and clear, the left ListView - and the new button deletes items from the right ListView.

 

is there mor edocumentation as far as what edit, row, col and esc modes

The header for _GUIListViewEx_EditOnClick explains the edit and escape modes:

; Parameters ....: $iEditMode - Only used if using Edit control:
;                                    Return after single edit - 0 (default)
;                                    {TAB} and arrow keys move to next item - 2-digit code (row mode/column mode)
;                                        1 = Reaching edge terminates edit process
;                                        2 = Reaching edge remains in place
;                                        3 = Reaching edge loops to opposite edge
;                                        Positive value = ESC abandons current edit only, previous edits remain
;                                        Negative value = ESC resets all edits in current session

Please ask if you have any further questions on any of the above.

M23

[dynamitemedia]

yes that works!  only things i see i need help on is 

1.)  where can i add add code to write to console each time a file is dragged over?

2.) how to save the list from right side, i do want to add some text to is it why i would like to  know where #1 above located...

I added some error checking in case no files in folder was tossing errors.

[Melba23]

dynamitemedia,

Glad to see we are getting there!

You can get the content of the right ListView at any time by using the _GUIListViewEx_ReturnArray function - so why do you need to know when a file is dragged over to that side?

M23