Jump to content

List View and Selecting Multiple Out-of-Sequence Rows


Recommended Posts

Hello All:

I am reading data from a ListView and based on criteria I want to have the script select certain rows in the ListView.  The script would loop through the ListView data and would select multiple rows out-of-sequence.  At the end, the script would press a button on the form which would remove the selected rows.

I'd originally had the script read a row and if criteria was met it would click on the button and remove that row.  In some cases there can be thousands of rows in the listview and clicking a button and then moving back to the listview was slow.  Selecting all affected rows and then pressing the button once would speed things up.

I've tried various functions and GUI UDF's to select a row but each time I ran the script I'd only get 1 row selected when I know there are dozens of records that should be selected.   What I think is happening is that the ControlSend method I was using to move down the rows by sending the ListView a Down key may have been deselecting each selected row as soon as the Down Arrow was sent.

Everything except for the Selection piece is working.  I've looked through the help files and the forums and could not find information on another way to cycle through the ListView rows.  I've included the code below along with each of the functions or UDF's I tried.

Could someone let me know if there is another way to move through the Listview rows other than using ControlSend that won't deselect Selected records?  If that's not an option, can someone let me know if there's another way to select rows in a ListView that won't be affected by the Down Arrow key?

Thank you.

Bill

#AutoIt3Wrapper_UseX64=Y

#include <MsgBoxConstants.au3>
#include <array.au3>
#include <GuiListbox.au3>
#include <GuiToolbar.au3>
#include <GuiListView.au3>

HotKeySet("!{Esc}", "Terminate")

Opt("MustDeclareVars", 1) ; Must declare variables
Opt("WinTitleMatchMode", 2) ; Can match substrings in title

Dim $hWnd ; main Title handle
Dim $hCntrlLV1 ; List View handle ("SysListView328")

Dim $sSubject ; Column 0
Dim $sStatus ; Column 1
Dim $sSize ; Column 2
Dim $sDate ; Column 3
Dim $sPoster ; Column 4
Dim $sGroup ; Column 5

Dim $bDelete = False
Dim $iMaxRows ; Total Rows in List View
Dim $iMaxCols ; Total Columns in List View
Dim $iCurRow ; Current Row being read
Dim $iSelected ; Total items Selected

Dim $sTitle1 = "Main Title"

If WinExists($sTitle1, "") Then

    $hWnd = WinActivate($sTitle1, "")
    If @error Then
        MsgBox(48, $sTitle1, "Could not activate the form.")
        Terminate
    EndIf

    $hCntrlLV1 = ControlGetHandle($hWnd, "", "SysListView328")

    ControlFocus($hWnd, "", $hCntrlLV1)
    $iMaxRows = ControlListView($hWnd, "", $hCntrlLV1, "GetItemCount")
    $iMaxCols = _GUICtrlListView_GetColumnCount($hCntrlLV1)

    ControlSend($hWnd, "", $hCntrlLV1, "{Home}")

    $iCurRow = 0 ; Zero based row in listview

    Do
        $bDelete = False ; Default

        ; This reads the data - (tested - no problem).

        $sSubject = ControlListView($hWnd, "", $hCntrlLV1, "GetText", $iCurRow, 0)
        $sStatus = ControlListView($hWnd, "", $hCntrlLV1, "GetText", $iCurRow, 1)
        $sSize = ControlListView($hWnd, "", $hCntrlLV1, "GetText", $iCurRow, 2)
        $sDate = ControlListView($hWnd, "", $hCntrlLV1, "GetText", $iCurRow, 3)
        $sPoster = ControlListView($hWnd, "", $hCntrlLV1, "GetText", $iCurRow, 4)
        $sGroup = ControlListView($hWnd, "", $hCntrlLV1, "GetText", $iCurRow, 5)


        ; Identifies if a row should be deleted and sets the flag $bDelete to True (tested - no problem).
        Select

            Case StringLeft($sStatus, 8) = "Idle/Old"
                $bDelete = True

            Case StringInStr($sGroup, "Test1") > 0
                $bDelete = True

            Case StringInStr($sSubject, "Test2") > 0
                $bDelete = True

        EndSelect

        ; If the row should be deleted, select it in the same way as a Ctrl+Left Mouse Click.

        ; (tested the following but the "select" didn't stick.  See note below regarding ControlSend Down. 

        If $bDelete = True Then ;
            ;_GUICtrlListView_SetItemSelected($hCntrlLV1,$iCurRow)
            ; ControlListView($hWnd, "", $hCntrlLV1,"Select", $iCurRow)
            ;_GUICtrlListView_SetSelectionMark($hCntrlLV1, $iCurRow)
            $bDelete = False ; Reset the flag
        EndIf

        ;   Move to the next row and increment the current row counter. (tested - no problem).

        ; Pressing the down arrow deselects any Selected records.       
        ; Is there another method for moving up or down a listview?
        ControlSend($hWnd, "", $hCntrlLV1, "{Down}")
        $iCurRow = $iCurRow + 1

        ; Keep going until the end of the List View is reached.
    Until $iCurRow = $iMaxRows

    ; Get the number of items "Selected" in the List View. (tested - Both show 1 record selected.)

    $iSelected = 0
        $iSelected = ControlListView($hWnd, "", $hCntrlLV1, "GetSelectedCount")
    MsgBox(262144, 'Debug line ~' & @ScriptLineNumber, 'Selection:' & @CRLF & '$iSelected' & @CRLF & @CRLF & 'Return:' & @CRLF & $iSelected) ;### Debug MSGBOX

    $iSelected = 0
    $iSelected = _GUICtrlListView_GetSelectedCount($hCntrlLV1)
    MsgBox(262144, 'Debug line ~' & @ScriptLineNumber, 'Selection:' & @CRLF & '$iSelected' & @CRLF & @CRLF & 'Return:' & @CRLF & $iSelected) ;### Debug MSGBOX

    If $iSelected > 0 Then
        ;   MouseClick("left",506,70,1) ; This clicks a button to remove records. (tested by clicking button when cycling through each record - no problem)

    EndIf

Else

    MsgBox(0, "Error", "Form not active.") ; If the program isn't running then error out and quit

EndIf

Func Terminate()
    Exit
EndFunc   ;==>Terminate

 

Link to post
Share on other sites
  • Moderators

OldGuyWalking,

ListViews can be created with either a single or multiple selection style - can you manually (usually with Ctrl pressed) select multiple options within the ListView?

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to post
Share on other sites

Instead of selections you could try this :
1st step
- create an array "rows to remove"
- loop through the listview rows, get text, check the criteria, if true then store the row index in the array
2nd step
- loop through the array and use _GUICtrlListView_DeleteItem on each stored index

Link to post
Share on other sites

Melba23 - yes I can do a Control+Left Mouse Click in the listview. 

Mikell - Thank you. I'd thought of doing that.  I've done that in other scripts (I think I have another post somewhere on here where I did that exact thing except with comma delimited data I was pulling from the clipboard) .  In this case I'm working with a third party application so I have to work within their application.  I need to select the rows and then have the script press a button (Mark Items as Old) in the application.  It doesn't delete the rows, it just hides them.  I'm writing this because I've waited for over 2 years for the programmer to fix a filtering problem in their program that displays records that had previously been flagged as old but keep showing up.

Anyways - I have neighbors across the courtyard who decided to stay up and chat loudly (I think drinking was involved) until 4:30 this morning so I had time to keep plugging away at the problem.    Turns out I just hadn't found the right combination.  Trial and error wins again. 

The command I needed to use to move through the ListView without deselecting rows (the imporant part) was

_GUICtrlListView_GetNextItem($hCntrlLV1, 1).  <<-- This second parameter tells the function which row to start from.  I put this outside the loop.  Once the loop starts the command is  _GUICtrlListView_GetNextItem($hCntrlLV1) without the 2nd parameter.

The ControlListView($hWnd, "", $hCntrlLV1, "Select", $iCurRow) command selects and highlights the row.  (The other two "select" functions I'd tried (see code) didn't seem to do anything with this ListView.)

Anyway, thank you for the suggestions.  Turned out I only had to read just about every _GUIListView command before I came across the right one.  2 hours well spent.... heh.

 

If WinExists($sTitle1, "") Then

    $hWnd = WinActivate($sTitle1, "")
    If @error Then
        MsgBox(48, $sTitle1, "Could not activate the form.")
        Terminate
    EndIf

    ; Added this temporarily until I figure out why the Control Handle changed.
    MouseClick("left", 230, 316)
    $hCntrlLV1 = ControlGetFocus($hWnd)

;   $hCntrlLV1 = ControlGetHandle($hWnd, "", "SysListView328")

    ControlFocus($hWnd, "", $hCntrlLV1)
    $iMaxRows = ControlListView($hWnd, "", $hCntrlLV1, "GetItemCount")
    $iMaxCols = _GUICtrlListView_GetColumnCount($hCntrlLV1)

    ControlSend($hWnd, "", $hCntrlLV1, "{Home}")

    $iCurRow = 0 ; Zero based row in listview

    ; Added this. This sets the starting point.  There's a 2nd one around
    ; line 102 that actually cycles through the ListView. It doesn't 
    ; move from row to row in the same way that ControlSend ({Down}) would.
    _GUICtrlListView_GetNextItem($hCntrlLV1, 1)

    Do
        $bDelete = False ; Default

        ; This reads the data - (tested - no problem).

        $sSubject = ControlListView($hWnd, "", $hCntrlLV1, "GetText", $iCurRow, 0)
        MsgBox(262144, 'Debug line ~' & @ScriptLineNumber, 'Selection:' & @CRLF & '$sSubject' & @CRLF & @CRLF & 'Return:' & @CRLF & $sSubject) ;### Debug MSGBOX
        $sStatus = ControlListView($hWnd, "", $hCntrlLV1, "GetText", $iCurRow, 1)
        $sSize = ControlListView($hWnd, "", $hCntrlLV1, "GetText", $iCurRow, 2)
        $sDate = ControlListView($hWnd, "", $hCntrlLV1, "GetText", $iCurRow, 3)
        $sPoster = ControlListView($hWnd, "", $hCntrlLV1, "GetText", $iCurRow, 4)
        $sGroup = ControlListView($hWnd, "", $hCntrlLV1, "GetText", $iCurRow, 5)


        ; Identifies the data and sets the flag $bDelete to True (tested - no problem).
        Select

            Case StringLeft($sStatus, 8) = "Idle/Old"
                $bDelete = True

            Case StringInStr($sGroup, "test1") > 0
                $bDelete = True

            Case StringInStr($sSubject, ".txt") > 0
                $bDelete = True

        EndSelect

        ; If the row should be deleted, select it in the same way as a Ctrl+Left Mouse Click.

        ; (tested the following. The first one works and displays each row that's selected..)

        If $bDelete = True Then ;
            ControlListView($hWnd, "", $hCntrlLV1, "Select", $iCurRow)
            ;_GUICtrlListView_SetSelectionMark($hCntrlLV1, $iCurRow)
            ;_GUICtrlListView_SetItemSelected($hCntrlLV1,$iCurRow)
            $bDelete = False ; Reset the flag
        EndIf

        ;   Move to the next row and increment the current row counter. (tested - no problem).

        ; Pressing the down arrow deselects any Selected records.
        ; This cycles to the next row in the listview
        _GUICtrlListView_GetNextItem($hCntrlLV1)
        ;ControlSend($hWnd, "", $hCntrlLV1, "{Down}")
        $iCurRow = $iCurRow + 1

        ; Keep going until the end of the List View is reached.
        ; Verified what row was being checked and if more than one row was being
        ; selected. 
        ; $iSelected = ControlListView($hWnd, "", $hCntrlLV1, "GetSelectedCount")
        ; MsgBox(262144, 'Debug line ~' & @ScriptLineNumber, '$iSelected = ' & $iSelected & @CRLF & '$iCurRow = ' & $iCurRow) ;### Debug MSGBOX

    Until $iCurRow = $iMaxRows

    ; Get the number of items "Selected" in the List View.
    $iSelected = 0
    $iSelected = ControlListView($hWnd, "", $hCntrlLV1, "GetSelectedCount")
    MsgBox(262144, 'Debug line ~' & @ScriptLineNumber, '$iSelected = ' & $iSelected & @CRLF & '$iCurRow = ' & $iCurRow) ;### Debug MSGBOX

    If $iSelected > 0 Then
        ;   MouseClick("left",506,70,1) ; This clicks a button to remove records. (tested by clicking button when cycling through each record - no problem)
    EndIf

Else

    MsgBox(0, "Error", "Form not active.") ; If the program isn't running then error out and quit

EndIf

 

 

Edited by OldGuyWalking
Just some minor clarifications, grammar fixes, and spelling corrections.
Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By RAMzor
      Hello, 
      I'm trying to implement Virtual ListView in my project. I have been based on example from @LarsJ.
      The script loads data from csv file instead of array as in original example and perform some parsing.
      Sometimes, when running a script, it adds garbage to the end of the correct data.
      The data is loaded correctly into the global array (double-clicking on a row with garbage displays it correct in the console), but is not displayed correctly.
      What am I missing or doing wrong?
      #include <GUIConstants.au3> #include <WindowsConstants.au3> #include <GuiImageList.au3> #include <GuiListView.au3> #include <GuiStatusBar.au3> #include <FileConstants.au3> #include <GuiListBox.au3> #include <SendMessage.au3> #include <EditConstants.au3> Opt("MustDeclareVars", 1) Global $hWnd, $idLV, $hLV, $aItems[1][1] Global $gWinXMin = 1130, $gWinYMin = 615 Global Const $TopMost = 262144 ; Set MsgBox top-most attribute Example() Func Example() Local $Ver = "Virtual LV" ; Create GUI $hWnd = GUICreate("iTS - Test Sequencer [Ver " & $Ver & "]", $gWinXMin, $gWinYMin, -1, -1, BitOR($WS_SIZEBOX, $WS_SYSMENU, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX)) ; Create ListView Reduces flicker Checkboxes Tooltip Icons Local $iLvStyle = BitOR($WS_EX_CLIENTEDGE, $LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER, $LVS_EX_CHECKBOXES, $LVS_EX_INFOTIP);, $LVS_EX_SUBITEMIMAGES) $idLV = GUICtrlCreateListView("", 8, 50, 915, 477, $LVS_OWNERDATA, $iLvStyle) $hLV = GUICtrlGetHandle($idLV) ; Virtual listview ; --- ListView Add columns --- _GUICtrlListView_AddColumn($hLV, "# ID", 45) ; 0 _GUICtrlListView_AddColumn($hLV, "Group", 120) ; 1 _GUICtrlListView_AddColumn($hLV, "Name", 335) ; 2 _GUICtrlListView_AddColumn($hLV, "Min", 50) ; 3 _GUICtrlListView_AddColumn($hLV, "Max", 50) ; 4 _GUICtrlListView_AddColumn($hLV, "Result", 50) ; 5 _GUICtrlListView_AddColumn($hLV, "Status", 50) ; 6 _GUICtrlListView_AddColumn($hLV, "Description", 179) ; 7 ; Checkboxes _GUICtrlListView_SetCallBackMask($hLV, 32) ; 32 - The application stores the image list index of the current state image ; Load icon images ;~ Local $hImage = _GUIImageList_Create() ;~ _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hLV, 0xFF0000, 16, 16)) ; Index = 0 ;~ _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hLV, 0x00FF00, 16, 16)) ; Index = 1 ;~ _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hLV, 0x0000FF, 16, 16)) ; Index = 2 ;~ _GUICtrlListView_SetImageList($hLV, $hImage, 1) ; --- StatusBar --- Local $aStatusBarParts[5] = [220, 160, 160, 140, -1] Global $StatusBar = _GUICtrlStatusBar_Create($hWnd, $aStatusBarParts) ; $SBARS_SIZEGRIP ; --- DEBUG --- Local $Debug_1 = GUICtrlCreateButton("Check Random", 928, 383, 91, 25) ; 152 Local $Debug_2 = GUICtrlCreateButton("Load From Array", 1024, 383, 91, 25) ; 152 Local $Debug_3 = GUICtrlCreateButton("Load 15 Rows", 928, 412, 91, 25) Local $Debug_4 = GUICtrlCreateButton("Load 500 Rows", 1024, 412, 91, 25) Local $DebugLabel_1 = GUICtrlCreateLabel("DEBAG", 928, 444, 36, 17) GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") GUIRegisterMsg($WM_SIZE, "WM_SIZE") GUIRegisterMsg($WM_GETMINMAXINFO, "MY_WM_GETMINMAXINFO") ; Restrict minimaze window below specified size [$gWinXMin, $gWinYMin] GUISetState(@SW_SHOW) ; ============================================================================================= ; --- Load Test --- Local $sTestCsvFile = @ScriptDir & "\Test CSV 15.csv" _ListView_Load($sTestCsvFile, $aItems, True) ; Load Autosized ; ============================================================================================= ; Message loop While 1 Switch GUIGetMsg() Case $Debug_1 ConsoleWrite(UBound($aItems, 1) & @CRLF) ConsoleWrite(UBound($aItems, 2) & @CRLF) For $i = 0 To UBound($aItems, 1) - 1 $aItems[$i][10] = 8192 ; Checked Next ConsoleWrite("- $i " & $i & @CRLF) GUICtrlSendMsg( $idLV, $LVM_SETITEMCOUNT, $i, 0 ) ;~ $aItems[$i][10] = 4096 ; Unchecked ;~ $aItems[$k+$j][10] = 8192 ; Checked Case $Debug_2 Local $iRows = 250 Dim $aItems[$iRows+1][12] For $iRow = 0 To $iRows - 1 $aItems[$iRow][0] = $iRow + 1 $aItems[$iRow][1] = "AAA-" & Random(1000000, 9999999, 1) $aItems[$iRow][2] = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB" $aItems[$iRow][3] = "CCC-" & Random(1000000, 9999999, 1) $aItems[$iRow][4] = "DDD-" & Random(1000000, 9999999, 1) $aItems[$iRow][10] = 4096 ; Unchecked Next GUICtrlSendMsg( $idLV, $LVM_SETITEMCOUNT, $iRow, 0 ) _GUICtrlStatusBar_SetText($StatusBar, $iRow & " Rows Loaded", 1) Case $Debug_3 GUICtrlSetData($Debug_3, "Load 15") $sTestCsvFile = @ScriptDir & "\Test CSV 15.csv" _ListView_Load($sTestCsvFile, $aItems, True) ; Load Autosized Case $Debug_4 GUICtrlSetData($Debug_4, "Load 500") $sTestCsvFile = @ScriptDir & "\Test CSV 500.csv" _ListView_Load($sTestCsvFile, $aItems, True) ; Load Autosized Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd GUIDelete() EndFunc ;==>Example ; ; ; Return Test Count Func _ListView_Load($sTestCsvFile, ByRef $aItems, $AutoSize = True) Local $iRow = 0, $iNumLen, $aData, $aName, $GroupName, $TestName, $TestIdx, $MinVal, $MaxVal, $iStatus;, $aName Local $sTestIniFile = StringRegExpReplace($sTestCsvFile, '\.[^.]*$', '.tcf') ; INI File ;~ _SendMessage($hLV, $LVM_DELETEALLITEMS) ; Delete All Local $aCsv = FileReadToArray($sTestCsvFile) ; 9.289ms If @error Then Return MsgBox($TopMost+16, "_ListView_Load()", "! CSV File Reading ERROR") Local $LinesCount = @extended Dim $aItems[$LinesCount][12] $iNumLen = StringLen($LinesCount) For $i = 1 To $LinesCount-1 ; If StringLeft($aCsv[$i], 5) = "TEST_" Then $aData = StringSplit($aCsv[$i], ",") If $aData[0] >= 5 Then $iRow += 1 $aData[1] = StringReplace($aData[1], "TEST_", "", 1) $aData[1] = StringReplace(StringReplace($aData[1], "__", "|", 1), "_", " ", 1) $aName = StringSplit($aData[1], "|", 3) If @error Then $GroupName = "" $TestName = $aName[0] Else $GroupName = $aName[0] $TestName = StringReplace($aName[1], "_", " ") ; (all '_' replaced with ' ') EndIf $TestIdx = StringStripWS($aData[2], 7) $MinVal = StringStripWS($aData[3], 7) $MaxVal = StringStripWS( $aData[4], 7) $aItems[$iRow - 1][0] = StringFormat("%0" & $iNumLen & "i ", $iRow) $aItems[$iRow - 1][1] = $GroupName $aItems[$iRow - 1][2] = $TestName $aItems[$iRow - 1][3] = $MinVal $aItems[$iRow - 1][4] = $MaxVal $aItems[$iRow - 1][10] = 4096 ; 4096-Unchecked, 8192-Checked EndIf Else ContinueLoop EndIf Next _GUICtrlListView_BeginUpdate($hLV) GUICtrlSendMsg($idLV, $LVM_SETITEMCOUNT, $iRow, 0) ; Update data [$aItems] to ListView _GUICtrlListView_SetColumnWidth($hLV, 0, -1) If $AutoSize Then For $i = 1 To 2 _GUICtrlListView_SetColumnWidth($hLV, $i, $LVSCW_AUTOSIZE) Next EndIf _GUICtrlListView_EndUpdate($hLV) _GUICtrlStatusBar_SetText($StatusBar, $iRow & " Rows Loaded", 1) Return $iRow EndFunc ;==>_ListView_Load Func WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam) Local Static $tText = DllStructCreate("wchar[50]") Local Static $pText = DllStructGetPtr($tText) Local $tNMHDR, $hWndFrom, $iCode $tNMHDR = DllStructCreate($tagNMHDR, $lParam) $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom")) $iCode = DllStructGetData($tNMHDR, "Code") Switch $hWndFrom Case $hLV Switch $iCode Case $LVN_GETDISPINFOW Local $tNMLVDISPINFO = DllStructCreate($tagNMLVDISPINFO, $lParam) Local $iItem = DllStructGetData($tNMLVDISPINFO, "Item") Local $iSubItem = DllStructGetData($tNMLVDISPINFO, "SubItem") Local $iMask = DllStructGetData($tNMLVDISPINFO, "Mask") ; Text If BitAND($iMask, $LVIF_TEXT) Then Local $sText = $aItems[$iItem][$iSubItem] DllStructSetData($tText, 1, $sText) DllStructSetData($tNMLVDISPINFO, "Text", $pText) DllStructSetData($tNMLVDISPINFO, "TextMax", StringLen($sText)) EndIf ; Checkbox in first column If BitAND($iMask, $LVIF_STATE) And $iSubItem = 0 Then DllStructSetData($tNMLVDISPINFO, "State", $aItems[$iItem][10]) EndIf ; Icon in first column ; Use proper $iSubItem value for other columns If BitAND($iMask, $LVIF_IMAGE) And $iSubItem = 6 Then ; Status Column Icon DllStructSetData($tNMLVDISPINFO, "Image", $aItems[$iItem][11]) EndIf Case $NM_CUSTOMDRAW Local $tNMLVCUSTOMDRAW = DllStructCreate($tagNMLVCUSTOMDRAW, $lParam) Local $dwDrawStage = DllStructGetData($tNMLVCUSTOMDRAW, "dwDrawStage") Local $dwItemSpec = DllStructGetData($tNMLVCUSTOMDRAW, "dwItemSpec") Switch $dwDrawStage ; Holds a value that specifies the drawing stage Case $CDDS_PREPAINT ; Before the paint cycle begins Return $CDRF_NOTIFYITEMDRAW ; Notify the parent window of any item-related drawing operations Case $CDDS_ITEMPREPAINT ; Before painting an item If Mod($dwItemSpec, 2) = 1 Then DllStructSetData($tNMLVCUSTOMDRAW, "ClrTextBk", 0xFFFFFF) Else DllStructSetData($tNMLVCUSTOMDRAW, "ClrTextBk", 0xEBF7FF) ; BGR EndIf Return $CDRF_NEWFONT ; $CDRF_NEWFONT must be returned after changing font or colors EndSwitch Case $NM_CLICK Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $lParam) Local $iItem = DllStructGetData($tInfo, "Index") Local $iSubItem = DllStructGetData($tInfo, "SubItem") If $iSubItem = 0 Then If $aItems[$iItem][10] = 4096 Then $aItems[$iItem][10] = 8192 ; Checked Else $aItems[$iItem][10] = 4096 ; Unchecked EndIf _GUICtrlListView_RedrawItems($hLV, $iItem, $iItem) EndIf Case $NM_DBLCLK ; User double-clicks an item with the left mouse button (No return value) Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $lParam) Local $iItem = DllStructGetData($tInfo, "Index") Local $iSubItem = DllStructGetData($tInfo, "SubItem") ConsoleWrite("--> DBLCLK Row : " & $iItem + 1 & @CRLF) ConsoleWrite("--> Name : " & $aItems[$iItem][$iSubItem] & @CRLF) EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc ;==>WM_NOTIFY ; Resize the status bar when GUI size changes Func WM_SIZE($hWnd, $iMsg, $wParam, $lParam) #forceref $hWnd, $iMsg, $wParam, $lParam ;~ ConsoleWrite("ListView Width " & ControlGetPos($hWnd, "", $idLV)[2] & @CRLF) _GUICtrlStatusBar_Resize($StatusBar) Return $GUI_RUNDEFMSG EndFunc ;==>WM_SIZE Func MY_WM_GETMINMAXINFO($hWnd, $Msg, $wParam, $lParam) Local $minmaxinfo = DllStructCreate("int;int;int;int;int;int;int;int;int;int",$lParam) DllStructSetData($minmaxinfo, 7, $gWinXMin); min X (+15) DllStructSetData($minmaxinfo, 8, $gWinYMin); min Y (+15) Return 0 EndFunc
      Test CSV 15.csv Test CSV 500.csv Virt_LV_Garbage.au3
    • By RAMzor
      Hello all,
      I have an ListView with checkboxes and about 300 - 400 items. Entire list is loaded (from ini) every time and I need to store and load "checked scenario" by name. 
      Store list of checked indexless is a bad idea because in the case of sorting the list - scenario will no longer be correct.
      What is the best way to store list of various scenarios of checked items?
      Base code and database ini are attached 
      Example_LV_Store_Scenario.au3 Example.ini
    • By ahha
      Under program control is there an easy way to move a slider (thumb) to the top or bottom?
      I am aware of Melba23's GUIScrollbars_Ex UDF (https://www.autoitscript.com/forum/topic/113723-scrollbars-made-easy-bugfix-version-2-may-21/) but I believe it's overkill for my simple needs.
      In a listview with a vertical scrollbar when the window is active one can hit Ctrl+Home to move the scrollbar slider (thumb) to the top and Ctrl+End to the bottom.
      One can also right click the slider and choose Scroll Here, Top, Bottom, Page UP, Page Down, Scroll Up, and Scroll Down.
      I must be doing something basically wrong but am stuck.  Move the thumb to the middle before clicking the Top button to test the code below (Bottom is not coded).  I've commented out other trys.  try #3 is a strange fail.
      Any comments on what I'm missing greatly appreciated as I'm stuck
      #AutoIt3Wrapper_run_debug_mode=Y #include <Debug.au3> #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <GuiScrollBars.au3> AutoItSetOption("MustDeclareVars", 1) ;v1b - cut out extraneous code Example() Exit Func Example() Local $i, $j, $x, $hGUI, $idListView, $bTop, $bBottom $hGUI = GUICreate("Scrollbar Question", 300, 400) ;get handle in case we need it later $idListView = GUICtrlCreateListView("Col 0", 10, 10, 280, 300) $bTop = GUICtrlCreateButton("Top", 10, 350, 60, 25) $bBottom = GUICtrlCreateButton("Bottom", 120, 350, 60, 25) ;Pause("$hGUI = '" & $hGUI &"'"& @CRLF & "$idListView = '" & $idListView &"'") For $i = 1 to 100 _GUICtrlListView_AddItem($idListView, $i) Next GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop Case $bTop ;drag thumb to middle of scrollbar before clicking Top button ;try #1 - FAILS Opt("WinTitleMatchMode", 2) ;2 = Match any substring in the title $x = WinActivate("Scrollbar Question") ;not $idListview but main GUI $hGUI - neither working If $x <> $hGUI Then Pause("WinActivate FAILED") Send("^{HOME}") ;Ctrl+home ;try#2 - FAILS ;~ $x = WinActivate($hGUI) ;try Main GUI ;~ If $x <> $hGUI Then Pause("WinActivate FAILED") ;~ Send("^{HOME}") ;Ctrl+home ;try#3 - strange FAILS ;~ $x = WinActivate($idListview) ;try $idListview ;~ If $x <> $idListview Then Pause("WinActivate FAILED") ;strange it works BUT if I comment out this line it fails ;~ ;Sleep(1000) ;it's not a time delay issue ;~ Send("^{HOME}") ;Ctrl+home ;try#4 - same strange fail as #3 ;~ $x = WinActivate($idListview) ;try $idListview ;~ If $x <> $idListview Then Pause("WinActivate FAILED") ;~ Send("{UP 100}") ;try#5 - what the heck is going on? same strange fail as #3 ;$x = WinActivate($idListview) ;try $idListview ;~ $x = WinActivate($hGUI) ;try Main GUI ;~ If $x <> $idListview Then Pause("WinActivate FAILED") ;~ MouseWheel($MOUSE_WHEEL_UP, 100) ;_GUIScrollBars_ScrollWindow($hGUI, 0, 100) ;NO - moves the ListView window in the $hGUI ;_GUIScrollBars_ScrollWindow($idListview, 0, 100) ;does not seem to work ;_GUIScrollBars_SetScrollInfoPos($hGUI, $SB_VERT, 30) ;does not work ;_GUIScrollBars_SetScrollInfoPos($idListview, $SB_VERT, 30) ;does not work ;I'm doing something very basic wrong. I need help. Pause("Scrollbar thumb should be at Top") Case $bBottom Pause("In: Case $bBottom") Pause("Scroll bar should be at BOttom") EndSwitch WEnd GUIDelete($idListView) EndFunc ;Func Example() Func Pause($text="") MsgBox(262144, "DEBUG", "Paused: " & $text) EndFunc  
    • By ahha
      Newbie to _GUICtrlListView_RegisterSortCallBack and can't get it to sort properly on date in format MM/DD/YYYY.
      Example code below.  Q - How do I get the date to sort properly?
      ;#AutoIt3Wrapper_run_debug_mode=Y #include <GUIConstantsEx.au3> #include <GuiListView.au3> Global $g_id_ListView Example() Exit Func Example() Local $idRow1, $idRow2, $idRow3 GUICreate("ListView Sort Question", 300, 200) $g_id_ListView = GUICtrlCreateListView("Row#|Name|Date", 10, 10, 280, 180) $id_Row1 = GUICtrlCreateListViewItem("#1|Alice|01/15/2022", $g_id_ListView) $id_Row2 = GUICtrlCreateListViewItem("#2|Bob|02/22/2021", $g_id_ListView) $id_Row3 = GUICtrlCreateListViewItem("#3|Carol|03/13/2021", $g_id_ListView) $id_Row10 = GUICtrlCreateListViewItem("#10|Dave|10/09/2021", $g_id_ListView) $id_Row11 = GUICtrlCreateListViewItem("#11|Eve|11/21/2021", $g_id_ListView) GUISetState(@SW_SHOW) ;$vCompareType = 0 ;not ok as Row# sort #1, #10, and want #1, #2, ;$vCompareType = 1 ;not ok as Row# sort #1, #10, and want #1, #2, $vCompareType = 2 ;Row# okay but Date messed up _GUICtrlListView_RegisterSortCallBack($g_id_ListView, $vCompareType) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop Case $g_id_ListView ;MsgBox(0,"","col="&GUICtrlGetState($g_id_ListView)) _GUICtrlListView_SortItems($g_id_ListView, GUICtrlGetState($g_id_ListView)) EndSwitch WEnd _GUICtrlListView_UnRegisterSortCallBack($g_id_ListView) GUIDelete($g_id_ListView) EndFunc ;Func Example()  
    • By mLipok
      Usually when I collect data from DataBase I need to give EndUser a possibility to select rows which should be taken in the processing loop.
      I was searching on the forum and I'm not able to find any UDF or even example of how to select data from array.
      I have my own solutions but I think they are not worth posting on the forum as it is very old code and I am looking for a better solution.

      Could anybody point me to some examples/solutions ?

      Thank you in advance.
      @mLipok
×
×
  • Create New...