Jump to content
Sign in to follow this  
czardas

[SOLVED] Inserted ListView Item not deleting

Recommended Posts

When I use _GUICtrlListView_InsertItem() I don't seem to be able to delete the inserted item. Does anyone know if I'm doing something wrong, or is this the intended behaviour. I could write another function to insert a row into my ListView control, but I would like to know why this method is not working.

It's the empty 3rd row that should have been deleted.

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>

_Run()

Func _SetData($hListView)
    For $i = 0 To 3
        GUICtrlCreateListViewItem( _
        $i + 1 &"|"& _
        "Item " & $i &"|"& _
        "C_" & $i+Random(100,700, 1) &"|"& _
        "D_" & $i+Random(100,700, 1) &"|"& _
        "M_" & $i+Random(100,700, 1) , $hListView)
    Next
    _GUICtrlListView_InsertItem($hListView, "", 2) ; Item to be deleted
EndFunc

Func _Run()
    Local $bStyle = BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX)
    Local $hDataBuzz = GUICreate(" AU3 Databuzz", 300,200, Default, Default, $bStyle)

    Local $sHeadings = "Index"
    For $i = 1 To 4
        $sHeadings &= "| "
    Next

    $hListView = GUICtrlCreateListView($sHeadings, 0, 0, 300, 200, _
    BitOR($LVS_REPORT,$LVS_SHOWSELALWAYS))
    _GUICtrlListView_SetExtendedListViewStyle($hListView, _
    BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES))
    _GUICtrlListView_HideColumn($hListView, 0)

    _SetData($hListView)
    ; _GUICtrlListView_DeleteItem($hListView, 1) ; This works, but =>
    _GUICtrlListView_DeleteItem($hListView, 2) ; This isn't working!

    GUISetState(@SW_SHOW)

    ;================================================================================
    While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
    ;===============================================================================
EndFunc
Edited by czardas

Share this post


Link to post
Share on other sites

czardas,

Mixing native and UDF creation and item functions in ListViews is always fraught with danger - best to stick with one or the other. :)

Here is the script adapted to use the UDF functions - I also moved the GUISetState and added a Sleep so you can see it working: ;)

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>

_Run()

Func _SetData($hListView)
    For $i = 0 To 3
        $iIndex = _GUICtrlListView_AddItem($hListView, $i + 1)
        _GUICtrlListView_AddSubItem($hListView, $iIndex, "Item " & $i, 1)
        _GUICtrlListView_AddSubItem($hListView, $iIndex, "C_" & $i+Random(100,700, 1), 2)
        _GUICtrlListView_AddSubItem($hListView, $iIndex, "D_" & $i+Random(100,700, 1), 3)
        _GUICtrlListView_AddSubItem($hListView, $iIndex, "M_" & $i+Random(100,700, 1), 4)
    Next
    _GUICtrlListView_InsertItem($hListView, "", 2) ; Item to be deleted
EndFunc

Func _Run()
    Local $bStyle = BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX)
    Local $hDataBuzz = GUICreate(" AU3 Databuzz", 300,200, Default, Default, $bStyle)

    Local $sHeadings = "Index"
    For $i = 1 To 4
        $sHeadings &= "| "
    Next

    $hListView = _GUICtrlListView_Create($hDataBuzz, $sHeadings, 0, 0, 300, 200, _
    BitOR($LVS_REPORT,$LVS_SHOWSELALWAYS))
    _GUICtrlListView_SetExtendedListViewStyle($hListView, _
    BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES))
    _GUICtrlListView_HideColumn($hListView, 0)

    GUISetState(@SW_SHOW)

    _SetData($hListView)

    Sleep(1000)

    ;_GUICtrlListView_DeleteItem($hListView, 1) ; This works, but =>
    _GUICtrlListView_DeleteItem($hListView, 2) ; This isn't working!



    ;================================================================================
    While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
    ;===============================================================================
EndFunc

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

 

Share this post


Link to post
Share on other sites

Thanks. I can see that this is going to be tricky. I may be have to change much more of my code than I had hoped, or I may have to compromise for the time being. I also experienced the same problem with deleting items after using _GUICtrlListView_AddArray so I wrote another function to add the array. I currently need to contemplate time constraints. The phone rings as I speak.

Share this post


Link to post
Share on other sites

Actually, after a quick analysis, it doesn't look all that bad. I think I'll be able to make the changes needed quite quickly. Whether everything will still work afterwards is unknown, but your explanation gives me a clearer picture. Thanks again. :)

Share this post


Link to post
Share on other sites

I have been thinking about this for most of a sleepless night. I haven't been brave enough to attempt the changes yet since there appear to be significant differences between the two different ways of creating a ListView control; and I have the feeling that no matter which root I take, I will need to make a lot of adjustments. Until I try I won't really know the outcome.

My concern is as follows: all the help file examples for the conflicting UDF functions mentioned above use GUICtrlCreateListView, which is a native function. If this is a risky affair, then many of the ListView help file functions would appear to need rewriting. I will be trying the changes with some trepidation withiin the next 48 hours, but I feel I ought to mention my concerns about these help file examples and the accompanying documentation.

Edited by czardas

Share this post


Link to post
Share on other sites

czardas,

The Help file examples work because they do not mix the creation functions. The _GUICtrlListView_DeleteItem Example1 uses the native functions to create the ListView AND add the items - Example_UDF_Created uses the UDF functions to create the ListView AND add the items.

In your script above, you were mixing native and UDF functions to add items:

Func _SetData($hListView)
    For $i = 0 To 3
        GUICtrlCreateListViewItem( _  ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        $i + 1 &"|"& _
        "Item " & $i &"|"& _
        "C_" & $i+Random(100,700, 1) &"|"& _
        "D_" & $i+Random(100,700, 1) &"|"& _
        "M_" & $i+Random(100,700, 1) , $hListView)
    Next
    _GUICtrlListView_InsertItem($hListView, "", 2) ; Item to be deleted ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
EndFunc

It is this which caused your problem. ;)

ListView are complex beasts and although the UDF functions normally work on native created ListViews, mixing the creation functions is a sure-fire way of getting them to fail. If you need to use _GUICtrlListView_InsertItem to interleave items into your existing ListView then I believe you will have to change the whole script to use the UDF functions.

Sorry not to be more optimistic. I can only imagine that there is something that AutoIt native functions do the ListView which makes it incompatible with the UDF functions - and as it is probably buried deep in the core code we are unlikely to see any changes. :)

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

 

Share this post


Link to post
Share on other sites

If you need to use _GUICtrlListView_InsertItem to interleave items into your existing ListView then I believe you will have to change the whole script to use the UDF functions.

Although I know a fix for the code which I have at present, I was concerned that all future functions which I intend to write might run into the same problem. It looks like I will have to change everything to use UDF functions. I just did a complete overhaul to functions which enable and disable menu items, and I'm finding Undo / Redo buffers quite a challenge. Sometimes it seems that each new thing you add involves a complete rewrite, as if I'm constantly barking up the wrong tree.

;)

Now I understand this more clearly. The UDF ListView behaves differently. For example grid lines do not appear to extend to fill empty the space. You can see this difference if you maximize the two versions above. I need to know what else might be different, and perhaps mess around with GUI and control backgrouds etc. We're lucky that there are experienced coders around, like you, to explain this stuff. Much appreciated.

:)

Edited by czardas

Share this post


Link to post
Share on other sites

The Listview UDF functions don't work well with control IDs when referring to the Listview itself. You should always use the function GUICtrlGetHandle to get the handle of the ListView when using the UDF functions. They will accept the control ID of the listview in the functions, but odd things happen when you do it that way. If you make sure that all your function calls to _GUICtrlListview_xxx use the handle, it will be much easier to work with them.


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

Share this post


Link to post
Share on other sites

Thanks BrewManNH, Ill bear that in mind.

I tried to implement _GUICtrlListView_InsertItem() but it was no surpise to me that it failed. Sometimes you just have to keep climbing whichever rock you are climbing. This is one of those occasions where turning back is not an option.. I have found a solution which allows me to insert multiple items using GUICtrlCreateListViewItem() , although it's a little bit complicated since GUICtrlCreateListViewItem() only appends items at the end of the control. The code is messy and it would take too long to write a reproducer, so instead of that, I have written a simulation of this method using _ArrayDisplay() to represent the ListView control. While the method may not be ideal, it could have practical application elsewhere.

Simulation

Imagine that after deleting multiple selected items from a ListView control, the user decides to undo their previous action. This requires inserting multiple rows back into their original positions. A number of possibilities exist, but this method adds them to the end of the ListView first, and repositions them later. To do this, the original Index numbers need to be put back the way they were before deleting the rows. Positioning is then just a question of sorting on an index column. As it happens my original script has a hidden index column.

Reconstruction

#include <Array.au3>

Dim $aListView[4][2] = [[1,"Item 2"],[2,"Item 3"],[3,"Item 6"],[4,"Item 7"]] ; Snapshot after deleting Item 1, Item 4 and Item 5
Dim $aAction2Undo[4][2] = [[3,""],[4,"Item 5"],[3,"Item 4"],[0,"Item 1"]] ; Undo Buffer

_ArrayDisplay($aListView, "After Deleting Rows",-1,0,"","","Row|Index|Data") ; Simulate ListView Control

_UndoDelete($aListView, $aAction2Undo)

_ArrayDisplay($aListView, "After Undo Delete",-1,0,"","","Row|Index|Data") ; Simulate ListView Control

Func _UndoDelete(ByRef $aListView, $aAction2Undo)
    Local $iCount = $aAction2Undo[0][0], $iRows = UBound($aListView), $iOccurence = 3 ; $iOccurence is stored elsewhere

    ; Reconstruct original indeces (Code needs to be streamlined)
    $j = 0
    For $i = 1 To $iOccurence
        For $j = $j To $iRows -1
            If $aListView[$j][0] = $aAction2Undo[$iCount][0] +1 Then
                For $k = $j To $iRows -1
                    $aListView[$k][0] += 1
                Next
                $iCount -= 1
                ExitLoop
            EndIf
        Next
    Next

    For $i = $aAction2Undo[0][0] To $aAction2Undo[0][0] - $iOccurence +1 Step -1 ; From the original script
        ; Redo Buffer code omitted for this simulation

        ; Simulate GUICtrlCreateListViewItem
        ReDim $aListView[UBound($aListView) +1][2] ; Append Rows
        $aListView[UBound($aListView) -1][0] = $aAction2Undo[$i][0] +1
        $aListView[UBound($aListView) -1][1] = $aAction2Undo[$i][1]
    Next

    _ArraySort($aListView) ; Simulate _GUICtrlListView_SimpleSort

    ; Clear Undo Buffer code omitted for this simulation
EndFunc

The code I have written for the real ListView control is heavily embedded code and it struck me that using array functions would make it easier to demonstrate how I solved this problem. Since I no longer need to use _GUICtrlListView_InsertItem() everything is working again.

Finally, it appears that however ListView Control Items are created must be consistant throughout the script. Which is what Melba told me earlier. :) Now to write the Redo function. ;)

Edited by czardas

Share this post


Link to post
Share on other sites

The Listview UDF functions don't work well with control IDs when referring to the Listview itself. You should always use the function GUICtrlGetHandle to get the handle of the ListView when using the UDF functions. They will accept the control ID of the listview in the functions, but odd things happen when you do it that way. If you make sure that all your function calls to _GUICtrlListview_xxx use the handle, it will be much easier to work with them.

I was just wondering if this only affects ListView controls created using _GUICtrlListView_Create() , since I have never had a problem with my ListView which is created using GUICtrlCreateListView() .

Share this post


Link to post
Share on other sites

Actually, it (meaning the ListView UDF functions) has more of a problem with Listviews created with GUICtrlCreateListview because the value returned is a control ID and not a handle. If you're using the UDF functions, then you need to reference the handle of the LV, if you're using the native functions, you need the controlID.


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

Share this post


Link to post
Share on other sites

If you say this is the case then I won't dispute it. Perhaps if I had multiple List View controls active at the same time I would have come across this problem. The only problem I encountered was the incompatibility of mixing List View creation functions mentioned earlier (now resolved). What I am writing is unlikely to get to public release stage any time soon (if I ever release it at all), however I will thoroughly test it if I do release it.

Although the program is only half written, I started using it today. I have until the end of the Month to prepare my accounts (Government Deadline) and I find using Excel tedious as regards data input, besides being non portable and bloated as regards advanced macros. All I need is a simple table with an accumilative balance and column totals. I don't want to write cell formulas or keep upgrading (paying for) an office program which for my purposes is complete overkill. Although Office is a brilliant program, it's also generally very annoying.

It has only taken me two months to get to this stage, and seeing the program append an accumilative balance column on a years transactions in the blink of an eye makes me very happy. My app also doubles up as a DB and I'm already using it to store professional contact information. Eventually i will implement some easy to use features that normally would require advanced computer skills when done with MS Office. These will include a few basic accounting formulas and date formatting functions; plus a search engine which will include a diacritic case sensitivity option, since much of my work involves Spanish words and phrases. The program works with csv tsv and dat formats.

Thanks everyone for all your advice. I have reached a major stage in this project's development. :)

Edited by czardas

Share this post


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
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By UEZ
      This project has been discontinued!
       
      Here a small tool I wrote to update my Sysinternal tools collection without the need to download always the whole package or visiting the site to check for updates. I know that there are several tools available (also some tools written in AutoIt) but here another one for the collection. It was good exercise for me to code it.
       
       
        
       
       
      Some files from the live web site cannot be downloaded although they are visible!
       
      Here the download link of the source code only: AutoIt Sysinternal Tools Synchronizer v0.99.6 build 2020-09-23 beta.7z  (1557 downloads previously)
      -=> Requires AutoIt version 3.3.13.20 or higher / tested on Win8.1 real machine and some VMs: Win7 / Vista / Win10
       
      Compiled exe only: @MediaFire
       
      Just select the Sysinternal Tools folder or create one and press the synchronize button to download the selected items. Click on AutoIt label (near to left upper corner) to open menu.
       
      Special thanks to LarsJ, Melba23 and mesale0077 for their help. 
       
      I've still some ideas to implement which are more gimmick related, so it is not finished yet...
      If you want to add your language please check out #Region Language. Thanks. 
       
      Please report any bug or if you have any suggestions.
       
      The language of the tool tip from each of the executable in the left list view were automatically created using Google translator and weren't checked for correctness.
       
      Br,
      UEZ
    • By Cengokill
      Hi everyone,
      I have created a ListView that is in a tab, and I want to display an image in that tab, with the ListView on top.
      However, the image still appears on top of my ListView.
      If I remove the tabs everything works. 
      I looked at the autoit documentation and the <GuiListView.au3> documentation , I can't figure out how to display a background image, and put on top a ListView, inside a tab. 😥
      Here is the code:
      Opt("GUIOnEventMode", 1) $Form1 = GUICreate($Titre, 700, 627, $Form1Width, $Form1Height); main window $tabulation = GUICtrlCreateTab(148,0,700,580); creating tabs $tab1=GUICtrlCreateTabItem("Tab 1"); first tab GUICtrlSetState(-1, $GUI_SHOW); this tab is selected by default $Pic1 = GUICtrlCreatePic("image.jpg", 0, 30, 700, 627) GUICtrlSetState(-1, $GUI_DISABLE). $idListview = GUICtrlCreateListView("list 1|list 2|list 3", 200, 50, 390, 200) GUISetState(@SW_SHOW) While 1     Sleep(100) WEnd Thank you in advance.

    • By DrJohn
      Hello all.  It's me again.
      I've got a ListView with an associated ImageList to display icons.  What I seem to be hung up on is how to keep the ImageList updated to match the ListView as the latter changes.  I thought it was the case that the indices of the items in the ListView and those in the ImageList just needed to match.  So, for example, if I:
      Delete an item from the ListView [_GUICtrlListView_DeleteItem()], and also delete the image at the matching index in the ImageList [_GUIImageList_Remove()]. Then add a new item to the end of the ListView [_GUICtrlListView_AddItem()], and correspondingly add an image at the end of the ImageList [_GUIImageList_AddIcon()] Shouldn't everything stay in sync?
      Here's the code I thought would work:
      #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <FontConstants.au3> #include <WindowsConstants.au3> #include <GuiImageList.au3> Test() func Test() $gui = GUICreate("Test", 400, 300) ; Create ListView $lv = _GUICtrlListView_Create($gui, "", 10, 10, 380, 240, $LVS_DEFAULT) _GUICtrlListView_AddColumn($lv, "Col1", 50) _GUICtrlListView_AddColumn($lv, "Col2", 50) for $i = 0 to 2 $s = StringFormat("%d,1", $i+1) _GUICtrlListView_AddItem($lv, $s, $i) $s = StringFormat("%d,2", $i+1) _GUICtrlListView_AddSubItem($lv, $i, $s, 1) next ; Add ImageList $img_list = _GUIImageList_Create(16, 16, 5, 3) for $i = 0 to 2 $ico = StringFormat("%d.ico", $i+1) _GUIImageList_AddIcon($img_list, $ico) next _GUICtrlListView_SetImageList($lv, $img_list, 1) ; $btn = GUICtrlCreateButton("Test", 10, 260, 60, 30) GUISetState(@SW_SHOW) HotKeySet("^q", Quit) ; Loop until the user exits. while True switch GUIGetMsg() case $GUI_EVENT_CLOSE Exit case $btn ; Remove 2nd list item and image _GUICtrlListView_DeleteItem($lv, 1) _GUIImageList_Remove($img_list, 1) ; Add new item to end of ListView $idx = _GUICtrlListView_AddItem($lv, "foo") _GUICtrlListView_AddSubItem($lv, $idx, "bar", 1) ; Add new image to end of ImageList _GUIImageList_AddIcon($img_list, "5.ico") endswitch wend GUIDelete() endfunc func Quit() Exit endfunc What seems to happen is that when the new item is added to the ListView, its icon is 1.ico (the first item in the ImageList), rather than 5.ico (the newly added item that should be at the end of the ImageList).
      Or do I need to re-create the whole ImageList any time the ListView changes?
      A zip file is attached that contains the script and also the .ico files, for easier testing.
      Thanks!
      /John
      test.zip
    • By Dan_555
      Hi.
      I'm using the FreeCommander XE file manager here, and i'v written a script, which will create an empty, new file, after choosing an extension out from the Listbox.
       
      The listview code  is not mine, iv found the scripts somewhere on this forum. I have no credits in it, because it was intended to be only for my personal use.
      But now, i have a lot of free time, so i remembered that i haven't posted anything on this forum, yet, so here is my first script:
      It should be compiled with the Autoit v3.3.14.3 .
      The compiled exe needs a folder passed as a parameter, so that it know where to create the new file.
      A Listbox is opened, with a selection of available extensions.
      After selecting and doubleclicking (or using the ok button), the script creates a filename (if specified in the config file) with increased numbers (up to 9999).
      If the filename exist, the counter is checking the next number, until the maximum is reached.
      This script uses an ini file for configuration, called "NewFile.ini" which should be in the same folder, as the compiled exe.
      NewFile.au3
      #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GuiListView.au3> #include <String.au3> #include <WinAPIFiles.au3> #include <Array.au3> #include <EditConstants.au3> #include <GuiEdit.au3> #include <ScrollBarsConstants.au3> Global $test[0][2], $hFile, $cmd = "", $cmdtmp, $tmptxt, $tmpinidir, $filesetting, $MouseX, $MouseY, $UseMouseX, $UseMouseY, $Edit1 Global $aArray[1] = [] $cmdtmp = StringReplace($cmdlineraw, Chr(34), "") If StringLen($cmdtmp) = 2 Then     If StringRight($cmdtmp, 1) = ":" Then         $cmd = $cmdtmp & "\"     EndIf Else     If StringRight($cmdtmp, 1) <> "\" Or StringRight($cmdtmp, 1) <> "/" Then         $cmd = $cmdtmp & "\"     EndIf EndIf If Not FileExists($cmd) Then                    ;Check if the folder exists, display an error message if not !     DisplayReadMe(1)     Exit EndIf If StringLen(@ScriptDir) > 3 And StringRight(@ScriptDir, 1) <> "\" Then     $tmpinidir = @ScriptDir & "\" Else     $tmpinidir = @ScriptDir EndIf Local Const $sFilePath = $tmpinidir & "NewFile.ini" $filesetting = IniRead($sFilePath, "setting", "filename", "MyNewFile") $filesetting = StringReplace($filesetting, ">", " ") ;msgbox (0,"",$filesetting)  ;Debugging If FileExists($sFilePath) Then     $aArray = IniReadSectionNames($sFilePath) ; Read the INI section names. This will return a 1 dimensional array. EndIf $UseMouseX = IniRead($sFilePath, "setting", "UseMouseX", "1") $UseMouseY = IniRead($sFilePath, "setting", "UseMouseY", "0") ; Check if an error occurred. If Not @error Then     ; Enumerate through the array displaying the section names.     Local $count = 0     If FileExists($sFilePath) Then         For $i = 1 To $aArray[0]             $tmp1 = IniRead($sFilePath, $aArray[$i], "1", "none")             If $tmp1 <> "none" And StringLeft($tmp1, 1) = "." Then            ;Extension need to have a dot, or it will be ignored !                 $tmptxt = $tmptxt & $tmp1 & "|" & $aArray[$i] & @CRLF                 $count = $count + 1                                            ;Count how many extensions are added !             EndIf         Next     EndIf     If $count = 0 Then $tmptxt = ".au3|AutoIt 3" & @CRLF & ".txt|Text File" & @CRLF     ;MsgBox($MB_SYSTEMMODAL,"",$tmptxt)     _ArrayAdd($test, $tmptxt, 0, "|", @CRLF) Else                                                            ;Reading the ini failed, create a default array for the extensions     $tmptxt = ".au3|AutoIt 3" & @CRLF & ".txt|Text" & @CRLF     _ArrayAdd($test, $tmptxt, 0, "|", @CRLF) EndIf ;Local $test[5][2] = [['.au3', 'AutoIt'], ['.ahk', 'Auto Hotkey'], ['.txt', 'text'], ['.sdlbas', 'Sdl Basic'], ['.html', 'Webpage']] If $UseMouseX = 1 Then     $MouseX = MouseGetPos(0) Else     $MouseX = -1 EndIf If $UseMouseY = 1 Then     $MouseY = MouseGetPos(1) Else     $MouseY = -1 EndIf $Form1 = GUICreate("Create New File", 210, 247, $MouseX, $MouseY, $WS_CAPTION, $WS_EX_TOOLWINDOW) $List = GUICtrlCreateListView("", 5, 5, 200, 200) _GUICtrlListView_InsertColumn($List, 0, "Extension", 65) _GUICtrlListView_InsertColumn($List, 1, "Description", 115) _GUICtrlListView_AddArray($List, $test) GUICtrlCreateLabel("Example:" & $filesetting & "0000.ext", 5, 205) $Button1 = GUICtrlCreateButton("Ok", 16, 224, 45, 22) $Button3 = GUICtrlCreateButton("ReadMe", 80, 224, 55, 22) $Button2 = GUICtrlCreateButton("Cancel", 150, 224, 45, 22) $cDummy = GUICtrlCreateDummy() GUISetState(@SW_SHOW) GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") While 1     $nMsg = GUIGetMsg()     Switch $nMsg         Case $GUI_EVENT_CLOSE, $Button2             Exit         Case $Button3             DisplayReadMe(0)         Case $Button1, $cDummy             Local $tmptxt = StringSplit(_GUICtrlListView_GetItemTextString($List), "|")[1]             If StringLen($tmptxt) > 0 Then                 Local $fnr = 0, $tmpfile = ""                 While $fnr < 10000                     $tmpfile = $cmd & $filesetting & _StringRepeat("0", 4 - StringLen($fnr)) & $fnr & $tmptxt                     ;MsgBox(0,"",$tmpfile) ; for debugging                     If Not (FileExists($tmpfile)) Then                         $hFile = _WinAPI_CreateFile($tmpfile, 0)                         _WinAPI_CloseHandle($hFile)                         Exit                     EndIf                     $fnr = $fnr + 1                 WEnd             EndIf     EndSwitch WEnd ;================================================================================ Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)     Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView     $hWndListView = $List     If Not IsHWnd($List) Then $hWndListView = GUICtrlGetHandle($List)     $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)     $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))     $iCode = DllStructGetData($tNMHDR, "Code")     Switch $hWndFrom         Case $hWndListView             Switch $iCode                 Case $NM_DBLCLK                     ; Fire the dummy if the ListView is double clicked                     GUICtrlSendToDummy($cDummy)             EndSwitch     EndSwitch     Return $GUI_RUNDEFMSG EndFunc   ;==>WM_NOTIFY Func DisplayReadMe($err)     Local $Form1 = GUICreate("Read Me", 550, 400, 10, 10, BitOR($WS_CAPTION, $WS_THICKFRAME ,$WS_MAXIMIZEBOX))     $Edit1 = GUICtrlCreateEdit("", 0, 0, 549, 399)     GUICtrlSetData(-1, "")     GUISetState(@SW_SHOW)     If $err=1 then         local $txttmp01="Error: Path does not exist"         local $txttmp02="Commandline call was: "         AddText ($txttmp01)         Addtext ($txttmp02 & $cmd & @CRLF & @CRLF)     EndIf     AddText("Instructions:" & @CRLF)     AddText("Displays a selection of available extensions and then creates a new file at the Path's location." & @CRLF & @CRLF & "Usage: NewFile Path")     AddText("Example: NewFile c:\myfolder\" & @CRLF)     AddText("Result: A file with a name 'MyFile0000.ext' will be created at the Path's location.")     AddText("If the filename exists, the number counter will increase, until it finds a free number, up to 9999." & @CRLF)     AddText("Uses a configuration file in the .exe folder named NewFile.ini !" & @CRLF)     AddText("Example of a config file:" & @CRLF)     AddText("[setting]" & @CRLF & "filename=MyFile>")     AddText("UseMouseX=0                ;0 or 1 - position the dialog at the mouse x coordinate - usefull for multi monitor settings !")     AddText("UseMouseY=0                ;0 or 1 - Set this and UseMouseX to spawn the dialog at the mouse coordinates !" & @CRLF)     AddText(";Use > in filename as a space char ! (only needed if you want the space char at the beginning or at the end : in between filename and the number)" & @CRLF)     AddText(";Format for this ini file is:" & @CRLF & ";Name              e.g [Auto It]")     AddText(";extension       e.g 1=.au3" & @CRLF & "; p.s. only 1 extension per section ! the number must be 1" & @CRLF)     AddText("[AutoIt3]" & @CRLF & "1=.au3" & @CRLF & @CRLF & "[Text]" & @CRLF & "1=.txt")     _GUICtrlEdit_SetSel($Edit1, 0, 0)     _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET)     If $err=1 Then         _GUICtrlEdit_SetSel($Edit1, 0, StringLen($txttmp01 & $txttmp02 & $cmd)+5)     EndIf     While 1         $nMsg = GUIGetMsg()         Switch $nMsg             Case $GUI_EVENT_CLOSE                 GUIDelete($Form1)                 ExitLoop         EndSwitch     WEnd EndFunc   ;==>DisplayReadMe Func AddText($edittxt)     _GUICtrlEdit_AppendText($Edit1, $edittxt & @CRLF) EndFunc   ;==>AddText  
       NewFile.ini
      [setting] filename=MyNewFile_ UseMouseX=0                ;0 or 1 - position the dialog at the mouse x coordinate - usefull for multi monitor settings ! UseMouseY=0                ;0 or 1 - Set this and UseMouseX to spawn the dialog at the mouse coordinates ! ;Use > in filename as a space char ! (only needed if you want the space char at the beginning or at the end : in between filename and the number) ;Format for this ini file is: ;Name              e.g [Auto It] ;extension       e.g 1=.au3 ; p.s. only 1 extension per section ! the number must be 1 [AutoIt3] 1=.au3 [Auto Hotkey] 1=.ahk [Text] 1=.txt [Sdl Basic] 1=.sdlbas [Webpage] 1=.html [Basic] 1=.bas [Pascal] 1=.pas [Rich Text (RTF)] 1=.rtf [Word Document] 1=.doc [Hex File] 1=.hex
    • By Miliardsto
      I have the following code. You can see there are $color_normal and $color_trans
      In my case normal is too dark . And color trans is to much violet.
      If you run it you will see how its looks. I want gui with listView have the same color like taskbar in windows 10.
      How to achieve that?
       
       
      #include <Date.au3> #include <MsgBoxConstants.au3> #include <GuiListBox.au3> #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <GuiListView.au3> HotKeySet("{ESC}", "Terminate") $color_normal = "0x" & StringLeft(StringRight(RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Accent", "AccentPalette"), 24), 6) $color_trans = "0x" & StringLeft(StringRight(RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Accent", "AccentPalette"), 16), 6) $trans = RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize", "EnableTransparency") ConsoleWrite("Transpart = " & $trans & @CRLF) ConsoleWrite("Color normal = " & $color_normal & @CRLF) ConsoleWrite("Color trans = " & $color_trans & @CRLF) ConsoleWrite(_Get_taskbar_color()); It return AARRGGBB $taskbarColor = _Get_taskbar_color() Global $gui = GUICreate("Test", 150, 58,@DesktopWidth-300,@DesktopHeight-58,$WS_POPUP,BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) Global $idListview = GUICtrlCreateListView("", 0, 0, 150, 58,BitOR($LBS_NOTIFY,$LBS_SORT), 0) ;_GuiCtrlMakeTrans(-1,100) ; Add column _GUICtrlListView_AddColumn($idListview, "Msgs", 100) GUICtrlSetFont(-1, 7, 400, 0, "Segoe UI") GUICtrlSetColor(-1, 0x470C4F) GUICtrlSetBkColor($idListview, 0x310638) GUISetState() While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func Terminate() Exit EndFunc Func _Get_taskbar_color() If RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize", "ColorPrevalence") Then If RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize", "EnableTransparency") Then Return "0xD9" & StringLeft(StringRight(RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Accent", "AccentPalette"), 16), 6) Else Return "0xFF" & StringLeft(StringRight(RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Accent", "AccentPalette"), 24), 6) EndIf Else If RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize", "EnableTransparency") Then Return "0xD9000000" Else Return "0xFF000000" EndIf EndIf EndFunc  
×
×
  • Create New...