Jump to content

Suggested modification to ArrayDisplayInternals.au3

Tippex

By Tippex
in AutoIt Example Scripts

 Share
Go to solution Solved by Tippex,

Recommended Posts

Tippex Wayfarer

Tippex

Posted
Posted (edited)

(please kindly relocate this post if I've posted in in the wrong area).

 

The latest AutoIT release removed (depreciated) the copy button options that were in _ArrayDisplay() but they are now in _DebugArrayDisplay().

However, _ArrayDisplay() now always has a  "data label" which may not always be wanted and _DebugArrayDisplay() has an "Exit Script" button that again may not always be wanted. 

I appreciate that we can all just customise these to our own needs but I wish to put forward a suggestion that ArrayDisplayInternals.au3 is modified to allow _DebugArrayDisplay() to have a couple of additional iFlags: 

$ARRAYDISPLAY_ONLYCOPYBUTTONS = 16 ; Only 'Copy' buttons displayed      ... this used to be in the last version as: "16 = Only 'Copy' buttons displayed"

$ARRAYDISPLAY_NODATALABELDISPLAY = 128 ; No data label displayed

_ArrayDisplay() can perhaps be left as is for whatever the reason was that it was changed initially?

For my own purposes, I've made this (minor) modification to Melba23 & JPM's UDF which I wish to suggest; it includes the bugfix found by Melba23 194070-bug-report 

...
; #CONSTANTS# ===================================================================================================================
Global Const $ARRAYDISPLAY_COLALIGNLEFT = 0 ; (default) Column text alignment - left
Global Const $ARRAYDISPLAY_TRANSPOSE = 1 ; Transposes the array (2D only)
Global Const $ARRAYDISPLAY_COLALIGNRIGHT = 2 ; Column text alignment - right
Global Const $ARRAYDISPLAY_COLALIGNCENTER = 4 ; Column text alignment - center
Global Const $ARRAYDISPLAY_VERBOSE = 8 ; Verbose - display MsgBox on error and splash screens during processing of large arrays
Global Const $ARRAYDISPLAY_ONLYCOPYBUTTONS = 16 ; Only 'Copy' buttons displayed
Global Const $ARRAYDISPLAY_NOBUTTONSDISPLAY = 32 ; No buttons displayed
Global Const $ARRAYDISPLAY_NOROW = 64 ; No 'Row' column displayed
Global Const $ARRAYDISPLAY_CHECKERROR = 128 ; return if @error <> 0 (avoid display after _Array*() errors)
Global Const $ARRAYDISPLAY_NODATALABELDISPLAY = 256 ; No data label displayed
Global Const $ARRAYDISPLAY_NORIGHTCLICK = 512 ; Disables ability to right-click a cell to copy its content
Global Const $ARRAYDISPLAY_SUBTITLECOLOUR = 1024 ; Contrasts the subtitle with a light grey background
Global Const $ARRAYDISPLAY_MAXTITLE = 2048 ; Maximize title width regardless of array width

Global Const $_ARRAYCONSTANT_tagLVITEM = "struct;uint Mask;int Item;int SubItem;uint State;uint StateMask;ptr Text;int TextMax;int Image;lparam Param;" & _
        "int Indent;int GroupID;uint Columns;ptr pColumns;ptr piColFmt;int iGroup;endstruct"
; ===============================================================================================================================
...

:)

 

 

 

 

 

beta_v3_3_17_1_ArrayDisplayInternals.au3 ArrayDisplayInternals.au3

Edited by Tippex
Updated includes for v.3.3.16.1 and beta v.3.3.17.1
BrewManNH Universalist

BrewManNH

Posted
Posted

_DebugArrayDisplay should only be used for debugging the scripts it's used in. If you're using it for anything else, then you missed that point in its name. It already does way more than it needs to do for simply displaying an array's contents in a script to make sure that you're array contains what  you expect it to.

It's great that you have modified it to your liking, but I would hope it doesn't get into production AutoIt.

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

  • 1 month later...
argumentum Universalist

argumentum

Posted
Posted (edited)
On 12/12/2018 at 1:41 PM, Tippex said:

and _DebugArrayDisplay() has an "Exit Script" button that again may not always be wanted. 

I agree and added for my use _DebugArrayDisplay_DefaultFlags(). 

... ...
Global $__g_ArrayDisplay_Share_iFlags = 0
Func _DebugArrayDisplay_DefaultFlags($iFlags = 0)
    $__g_ArrayDisplay_Share_iFlags = $iFlags
EndFunc

Func __ArrayDisplay_Share(Const ByRef $aArray, $sTitle = Default, $sArrayRange = Default, $iFlags = Default, $vUser_Separator = Default, $sHeader = Default, $iMax_ColWidth = Default, $hUser_Function = Default, $bDebug = True)
    Local $vTmp, $sMsgBoxTitle = (($bDebug) ? ("DebugArray") : ("ArrayDisplay"))

    ; Default values
    If $sTitle = Default Then $sTitle = $sMsgBoxTitle
    If $sArrayRange = Default Then $sArrayRange = ""
    If $iFlags = Default Then $iFlags = 0
    If $vUser_Separator = Default Then $vUser_Separator = ""
    If $sHeader = Default Then $sHeader = ""
    If $iMax_ColWidth = Default Then $iMax_ColWidth = 350
    If $hUser_Function = Default Then $hUser_Function = 0

    If $__g_ArrayDisplay_Share_iFlags And $bDebug And Not $iFlags Then $iFlags = $__g_ArrayDisplay_Share_iFlags
... ...

and I placed it in my Template.au3 as 

... ...
#include <Debug.au3>
If @Compiled Then _DebugArrayDisplay_DefaultFlags(BitOR($ARRAYDISPLAY_ONLYCOPYBUTTONS, $ARRAYDISPLAY_NODATALABELDISPLAY))
... ...

:)

Edited by argumentum
better code

Follow the link to my code contribution ( and other things too ).
FAQ - Please Read Before Posting.
autoit_scripter_blue_userbar.png

  • 1 month later...
argumentum Universalist

argumentum

Posted
Posted (edited)

...so, I'm happy coding and watching the array and I'd like to ClipPut the value in the cell. Not the row, just the cell.
So I added that, if one is to right click the cell, it puts the value on the clipboard.
Attached is ArrayDisplayInternals.au3 for AutoIt v3.3.14.5

PS: do not overwrite the original file as this one is not supported by the AutoIt Team.

 

ArrayDisplayInternals.au3

Edited by argumentum
better code

Follow the link to my code contribution ( and other things too ).
FAQ - Please Read Before Posting.
autoit_scripter_blue_userbar.png

  • 2 years later...
Tippex Wayfarer

Tippex

Posted
  • Author
Posted (edited)

3 years later ...

Added this declaration check: 

If IsDeclared("iButtonBorder") = $DECLARED_UNKNOWN Then Local $iButtonBorder

(It prevents problems if $iButtonBorder is already defined from include file Debug.au3). 

; Set lower button border
    If IsDeclared("iButtonBorder") = $DECLARED_UNKNOWN Then Local $iButtonBorder
    $iButtonBorder = 40
    If $bDebug Then
        Select
            Case Not BitAND($iFlags, $ARRAYDISPLAY_NODATALABELDISPLAY) And BitAND($iFlags, $ARRAYDISPLAY_NOBUTTONSDISPLAY) ;Allow border to show data label
                $iButtonBorder = 20
            Case BitAND($iFlags, $ARRAYDISPLAY_NOBUTTONSDISPLAY) ;No border required for buttons or label (see above, NODATALABELDISPLAY = True)
                $iButtonBorder = 0
            Case Not BitAND($iFlags, $ARRAYDISPLAY_ONLYCOPYBUTTONS) ;Allow border to show both copy & exit buttons (& data label if required)
                $iButtonBorder = 40
            Case BitAND($iFlags, $ARRAYDISPLAY_ONLYCOPYBUTTONS) And Not BitAND($iFlags, $ARRAYDISPLAY_NODATALABELDISPLAY) ; Allow border to show copy buttons & data label (no exit button required)
                $iButtonBorder = 40
            Case Not BitAND($iFlags, $ARRAYDISPLAY_NODATALABELDISPLAY) ;Allow border to show copy buttons, data label & exit button (NODATALABELDISPLAY = False)
                $iButtonBorder = 40
            Case BitAND($iFlags, $ARRAYDISPLAY_ONLYCOPYBUTTONS) And BitAND($iFlags, $ARRAYDISPLAY_NODATALABELDISPLAY) ;Allow border to show copy buttons (no data label)
                $iButtonBorder = 20
            Case Else
                $iButtonBorder = 40
        EndSelect
    Else
        $iButtonBorder = 20 ;Allow border to show data label as there's no NODATALABELDISPLAY option for _ArrayDisplay()
    EndIf

 

@argumentumbelated thank you 

 

Edited by Tippex
(see first post for latest attachments)
Tippex Wayfarer

Tippex

Posted
  • Author
Posted (edited)

(Changed for AutoIT v3.3.16. 0)

Edit: added back the missed Exit Script and Data Label condition: 

; Check if other buttons are required
        If Not BitAND($iFlags, $ARRAYDISPLAY_ONLYCOPYBUTTONS) And Not BitAND($iFlags, $ARRAYDISPLAY_NOBUTTONSDISPLAY) Then
            Local $iButtonWidth_Var = $iButtonWidth_1
            Local $iOffset = $iButtonWidth_1
            If IsFunc($hUser_Function) Then
                ; Create UserFunc button if function passed
                $idUser_Func = GUICtrlCreateButton("Run User Func", $iButtonWidth_2, $aiGUISize[1] - 20, $iButtonWidth_2, 20)
                $iButtonWidth_Var = $iButtonWidth_2
                $iOffset = $iButtonWidth_2 * 2
            EndIf
            ; Create Exit button and data label
            $idExit_Script = GUICtrlCreateButton("Exit", $iOffset, $aiGUISize[1] - 20, $iButtonWidth_Var, 20)
            ;$idData_Label = GUICtrlCreateLabel($sDisplayData, 0, $aiGUISize[1] - 20, $iButtonWidth_Var, 18, BitOR($_ARRAYCONSTANT_SS_CENTER, $_ARRAYCONSTANT_SS_CENTERIMAGE))
            If Not BitAND($iFlags, $ARRAYDISPLAY_NODATALABELDISPLAY) Then $idData_Label = GUICtrlCreateLabel($sDisplayData, 0, $aiGUISize[1] - 20, $iButtonWidth_Var, 18, BitOR($_ARRAYCONSTANT_SS_CENTER, $_ARRAYCONSTANT_SS_CENTERIMAGE))
        Else
            If Not BitAND($iFlags, $ARRAYDISPLAY_NODATALABELDISPLAY) Then $idData_Label = GUICtrlCreateLabel($sDisplayData, 0, $aiGUISize[1] - 20, $aiGUISize[0], 18, BitOR($_ARRAYCONSTANT_SS_CENTER, $_ARRAYCONSTANT_SS_CENTERIMAGE))
        EndIf

 

Edited by Tippex
(see first post for latest attachments)
  • 6 months later...
Tippex Wayfarer

Tippex

Posted
  • Author
Posted (edited)

(Changed for AutoIT v3.3.16.1) 

Global Const $ARRAYDISPLAY_ONLYCOPYBUTTONS = 16 ; Only 'Copy' buttons displayed
Global Const $ARRAYDISPLAY_NOBUTTONSDISPLAY = 32 ; No buttons displayed
Global Const $ARRAYDISPLAY_NOROW = 64 ; No 'Row' column displayed
Global Const $ARRAYDISPLAY_NODATALABELDISPLAY = 128 ; No data label displayed
Global Const $ARRAYDISPLAY_CHECKERROR = 128 ; return if @error <> 0 (avoid display after _Array*() errors)
... ...
Global $__g_ArrayDisplay_Share_iFlags = 0
Func _DebugArrayDisplay_DefaultFlags($iFlags = 0)
    $__g_ArrayDisplay_Share_iFlags = $iFlags
EndFunc   ;==>_DebugArrayDisplay_DefaultFlags

Func __ArrayDisplay_SubItemHitTest_ClipPut($hWnd, $iX = -1, $iY = -1)
    $hWnd = GUICtrlGetHandle($hWnd)
    Local $_mPos = MouseGetPos(), $aTest = _GUICtrlListView_SubItemHitTest($hWnd, $iX, $iY)
    ReDim $aTest[12]
    $aTest[11] = _GUICtrlListView_GetItemText($hWnd, $aTest[0], $aTest[1])
    ClipPut($aTest[11])
    ToolTip($aTest[11], $_mPos[0] - 20, $_mPos[1] - 60, "ClipPut", 0, 4)
    AdlibRegister("__ArrayDisplay_ToolTipOff", 500)
    Return $aTest
EndFunc   ;==>__ArrayDisplay_SubItemHitTest_ClipPut

Func __ArrayDisplay_ToolTipOff()
    AdlibUnRegister("__ArrayDisplay_ToolTipOff")
    ToolTip("")
EndFunc   ;==>__ArrayDisplay_ToolTipOff

... ...
; Set lower button border
    ;Local $iButtonBorder = (($bDebug) ? (40) : (20))

    If IsDeclared("iButtonBorder") = $DECLARED_UNKNOWN Then Local $iButtonBorder
    $iButtonBorder = 40
    If $bDebug Then
        Select
            Case Not BitAND($iFlags, $ARRAYDISPLAY_NODATALABELDISPLAY) And BitAND($iFlags, $ARRAYDISPLAY_NOBUTTONSDISPLAY) ;Allow border to show data label
                $iButtonBorder = 20
            Case BitAND($iFlags, $ARRAYDISPLAY_NOBUTTONSDISPLAY) ;No border required for buttons or label (see above, NODATALABELDISPLAY = True)
                $iButtonBorder = 0
            Case Not BitAND($iFlags, $ARRAYDISPLAY_ONLYCOPYBUTTONS) ;Allow border to show both copy & exit buttons (& data label if required)
                $iButtonBorder = 40
            Case BitAND($iFlags, $ARRAYDISPLAY_ONLYCOPYBUTTONS) And Not BitAND($iFlags, $ARRAYDISPLAY_NODATALABELDISPLAY) ; Allow border to show copy buttons & data label (no exit button required)
                $iButtonBorder = 40
            Case Not BitAND($iFlags, $ARRAYDISPLAY_NODATALABELDISPLAY) ;Allow border to show copy buttons, data label & exit button (NODATALABELDISPLAY = False)
                $iButtonBorder = 40
            Case BitAND($iFlags, $ARRAYDISPLAY_ONLYCOPYBUTTONS) And BitAND($iFlags, $ARRAYDISPLAY_NODATALABELDISPLAY) ;Allow border to show copy buttons (no data label)
                $iButtonBorder = 20
            Case Else
                $iButtonBorder = 40
        EndSelect
    Else
        $iButtonBorder = 20 ;Allow border to show data label as there's no NODATALABELDISPLAY option for _ArrayDisplay()
    EndIf
    
... ...
; Check if other buttons are required
        If Not BitAND($iFlags, $ARRAYDISPLAY_ONLYCOPYBUTTONS) And Not BitAND($iFlags, $ARRAYDISPLAY_NOBUTTONSDISPLAY) Then
            Local $iButtonWidth_Var = $iButtonWidth_1
            Local $iOffset = $iButtonWidth_1
            If IsFunc($hUser_Function) Then
                ; Create UserFunc button if function passed
                $idUser_Func = GUICtrlCreateButton("Run User Func", $iButtonWidth_2, $aiGUISize[1] - 20, $iButtonWidth_2, 20)
                $iButtonWidth_Var = $iButtonWidth_2
                $iOffset = $iButtonWidth_2 * 2
            EndIf
            ; Create Exit button and data label
            $idExit_Script = GUICtrlCreateButton("Exit", $iOffset, $aiGUISize[1] - 20, $iButtonWidth_Var, 20)
            ;$idData_Label = GUICtrlCreateLabel($sDisplayData, 0, $aiGUISize[1] - 20, $iButtonWidth_Var, 18, BitOR($_ARRAYCONSTANT_SS_CENTER, $_ARRAYCONSTANT_SS_CENTERIMAGE))
            If Not BitAND($iFlags, $ARRAYDISPLAY_NODATALABELDISPLAY) Then $idData_Label = GUICtrlCreateLabel($sDisplayData, 0, $aiGUISize[1] - 20, $iButtonWidth_Var, 18, BitOR($_ARRAYCONSTANT_SS_CENTER, $_ARRAYCONSTANT_SS_CENTERIMAGE))
        Else
            If Not BitAND($iFlags, $ARRAYDISPLAY_NODATALABELDISPLAY) Then $idData_Label = GUICtrlCreateLabel($sDisplayData, 0, $aiGUISize[1] - 20, $aiGUISize[0], 18, BitOR($_ARRAYCONSTANT_SS_CENTER, $_ARRAYCONSTANT_SS_CENTERIMAGE))
        EndIf

 

 

 

Edited by Tippex
(see first post for latest attachments)
argumentum Universalist

argumentum

Posted
Posted (edited)

The file you posted is not the updated one. Things like "If $iFlags = Default Then $iFlags = $__g_ArrayDisplay_Share_iFlags" are not there @Tippex.

Global Const $ARRAYDISPLAY_NODATALABELDISPLAY = 256 ; 128 <-- is taken; No data label displayed

I also added: 

Global Const $ARRAYDISPLAY_NoRightClick = 512
... ...
    Local $iRightClickClipPut = True
    If BitAND($iFlags, $ARRAYDISPLAY_NoRightClick) = $ARRAYDISPLAY_NoRightClick Then $iRightClickClipPut = False
... ...
                Case $GUI_EVENT_SECONDARYUP
                    If $iRightClickClipPut Then __ArrayDisplay_SubItemHitTest_ClipPut($idListView)

to the version.

Edited by argumentum
more

Follow the link to my code contribution ( and other things too ).
FAQ - Please Read Before Posting.
autoit_scripter_blue_userbar.png

Tippex Wayfarer

Tippex

Posted
  • Author
Posted (edited)
On 10/1/2022 at 3:11 AM, argumentum said:

"If $iFlags = Default Then $iFlags = $__g_ArrayDisplay_Share_iFlags"

Also missing from the attachment Posted March 20, 2019 ?

Thank you. I have updated my attachment in my previous post.

Edited by Tippex
(previous post has an updated attachment)
  • 2 years later...
Tippex Wayfarer

Tippex

Posted
  • Author
Posted (edited)

... ~3 years later, added an [unofficial] update for ArrayDisplayInternals.au3 for both v3.3.16.1 and v3.3.17.1 beta.
Added:

$ARRAYDISPLAY_SUBTITLECOLOUR = 1024 ; Contrasts the subtitle with a light grey background

$ARRAYDISPLAY_MAXTITLE = 2048 ; Maximize title width regardless of array width 

Test Script 

#include "ArrayDisplayInternals.au3"
#include <Debug.au3>
#include <Array.au3>


; Sample 2D array for all tests
Global $aTestArray[4][3] = [ _
    [1, "Red", True], _
    [2, "Green", False], _
    [3, "Blue", True], _
    [4, "Yellow", False] _
]

; Flag Constants
Global Const $F_LEFT        = 0
Global Const $F_TRANSPOSE   = 1
Global Const $F_RIGHT       = 2
Global Const $F_CENTER      = 4
Global Const $F_VERBOSE     = 8
Global Const $F_COPYONLY    = 16
Global Const $F_NOBUTTONS   = 32
Global Const $F_NOROW       = 64
Global Const $F_CHECKERR    = 128
Global Const $F_NODATALABEL = 256
Global Const $F_NORIGHTCLICK= 512
Global Const $F_SUBTITLECOLOUR = 1024
Global Const $F_MAXTITLE = 2048

; Utility function to log and invoke display
Func RunFlagTest($sLabel, $iFlags)
    ConsoleWrite("Test: " & $sLabel & " | Flags: " & $iFlags & @CRLF)
    _DebugArrayDisplay($aTestArray, $sLabel, Default, $iFlags)
EndFunc

ConsoleWrite("=== Starting ARRAYDISPLAY Flag Tests ===" & @CRLF)

; --- Individual Flag Tests ---
RunFlagTest("LEFT Align (Default)", $F_LEFT)
RunFlagTest("TRANSPOSE", $F_TRANSPOSE)
RunFlagTest("RIGHT Align", $F_RIGHT)
RunFlagTest("CENTER Align", $F_CENTER)
RunFlagTest("VERBOSE Mode", $F_VERBOSE)
RunFlagTest("COPY ONLY Buttons", $F_COPYONLY)
RunFlagTest("NO Buttons Displayed", $F_NOBUTTONS)
RunFlagTest("NO ROW Column", $F_NOROW)
RunFlagTest("CHECK ERROR (on valid input)", $F_CHECKERR)
RunFlagTest("NO DATA LABEL Display", $F_NODATALABEL)
RunFlagTest("NO RIGHT-CLICK Menu", $F_NORIGHTCLICK)
RunFlagTest("CONTRAST SUBTITLE", $F_SUBTITLECOLOUR)
RunFlagTest("A VERY LONG ARRAY TITLE THAT SHOULDN'T BE TRUNCATED", $F_MAXTITLE)

; --- Combination Tests ---
RunFlagTest("TRANSPOSE + CENTER Align", BitOR($F_TRANSPOSE, $F_CENTER))
RunFlagTest("RIGHT Align + NO ROW", BitOR($F_RIGHT, $F_NOROW))
RunFlagTest("COPY ONLY + SUBTITLE COLOUR", BitOR($F_COPYONLY, $F_SUBTITLECOLOUR))
RunFlagTest("NO Buttons + NO DATA LABEL", BitOR($F_NOBUTTONS, $F_NODATALABEL))
RunFlagTest("VERBOSE + CHECK ERROR + CENTER Align", BitOR($F_VERBOSE, $F_CHECKERR, $F_CENTER))
RunFlagTest("TRANSPOSE + COPY ONLY + NO ROW", BitOR($F_TRANSPOSE, $F_COPYONLY, $F_NOROW))
RunFlagTest("CENTER Align + NO DATA LABEL + NO RIGHT-CLICK", BitOR($F_CENTER, $F_NODATALABEL, $F_NORIGHTCLICK))

ConsoleWrite("=== Tests Complete ===" & @CRLF)

 

 

Edited by Tippex
(see first post for latest attachments)
Tippex Wayfarer

Tippex

Posted
  • Author
Posted (edited)

I agree, thank you.

Your patch is necessary to automatically remove left over "AutoIt v3 Script (32 bit)" remnants (visible in Task Manager) if an AutoIT script is closed from the system tray. The problem exists in the unmodified ArrayDisplayInternals.au3 even in AutoIT v3.3.17.1 (beta).

Attached are the patched replacements.

 

Edited by Tippex
(see first post for latest attachments)
argumentum Universalist

argumentum

Posted
Posted

...if you read some comments in the scripts you'll see some "; #DUPLICATED Functions to avoid big #include ..." because the idea is to make it light ( as in how heavy is to load HTML concept ). And that's the reason that I can not push for these in the standard distribution. I did add the     WinSetOnTop($hGUI, "", 1)    WinSetOnTop($hGUI, "", 0)   because is light and does serve a needed "fix" for it not opening in the foreground at times.
For the rest of the goodies, if anyone cares, the "deluxe models" are here :) 
Thanks for the updates @Tippex

Follow the link to my code contribution ( and other things too ).
FAQ - Please Read Before Posting.
autoit_scripter_blue_userbar.png

argumentum Universalist

argumentum

Posted
Posted (edited)

@Tippex, I made a bug in my most masterful creation :( 
Please look at the "✨new and improved✨" code, and patch with that 😅

Edit: the  GUICtrlCreateLabel("@ArrayDisplayInternals@GUIidentifier@", 0, -10, 0, 0)  is to aid some people that keep a bunch of these open and need to close them in bulk.

Spoiler 
#include <Array.au3>
Exit CloseAllThemArrayDisplay()
Func CloseAllThemArrayDisplay()
    Local $sText, $aArray = WinList("[CLASS:AutoIt v3 GUI;]", "@ArrayDisplayInternals@GUIidentifier@")
    For $n = UBound($aArray) -1 To 1 Step -1
        $sText = WinGetText($aArray[$n][0])
        ConsoleWrite($n & @TAB & $sText & @CRLF)
        If StringInStr($sText, "@ArrayDisplayInternals@GUIidentifier@") <> 1 Then
            _ArrayDelete($aArray, $n)
            $aArray[0][0] -= 1
        EndIf
    Next
    _ArrayDisplay($aArray, "@ArrayDisplayInternals@GUIidentifier@")
    For $n = 1 To UBound($aArray) -1
        ; You do your closing WinClose() or WinKill() or ... anything
        WinClose($aArray[$n][0])
    Next
EndFunc

That's the reason for the hidden label.

Edited by argumentum
more

Follow the link to my code contribution ( and other things too ).
FAQ - Please Read Before Posting.
autoit_scripter_blue_userbar.png

Tippex Wayfarer

Tippex

Posted
  • Author
Posted
21 hours ago, argumentum said:

...if you read some comments in the scripts you'll see some "; #DUPLICATED Functions to avoid big #include ..." because the idea is to make it light ( as in how heavy is to load HTML concept ). And that's the reason that I can not push for these in the standard distribution

Those comments ";#DUPLICATED Functions ..." are already in the [unmodified] standard distribution, even for the new beta. Pushing for our modifications as a replacement would not change that. 

argumentum Universalist

argumentum

Posted
Posted (edited)
12 minutes ago, Tippex said:

Those comments ";#DUPLICATED Functions ..." are already in the [unmodified] standard distribution, even for the new beta. Pushing for our modifications as a replacement would not change that. 

I've looked at incorporating stuff into the script to not have to include more #includes but is a rabbit's hole and each #include, have their #includes... .
I'll look at it deeper when I get more time to fiddle with them.

Do remove the other post with attachments as they are not needed :) ( not the post but the attachments )

Edited by argumentum
clarify

Follow the link to my code contribution ( and other things too ).
FAQ - Please Read Before Posting.
autoit_scripter_blue_userbar.png

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
 Share
Go to topic listing
×
×
  • Create New...