style = 512 for inputselect()

[highend]

Most of the logic already exists in popupmenu (to handle the Caption|Data|Icon logic).
A bit of copy and paste and minimal refactoring should be able to handle this.

The good thing: XY could be a superb program starter (because it's filterable!) as well...
I'd even provide a script for it

[admin]

The logic is fine. But this is not a case for copy and paste.

Well, anyway, what is that "Data" field supposed to do?

[highend]

Caption = What to display in the inputselect() window
Data = What to return for the selected item (if Data is not used, return from Caption instead)
Icon = If not provided, return from Data (and if Data is not used, return from Caption)

I thought I've explained it within the example script on post #14?
viewtopic.php?p=160211#p160211

[admin]

Data = What to return for the selected item (if Data is not used, return from Caption instead)

I expected that but it was not totally clear from that other post. Better ask twice.

OK, I'm on it. It might work out...

[highend]

Great, then I can finally close my 7 year old "user configurable icon for inputselect()" request:
viewtopic.php?f=5&t=6839

[zakhar]

[admin]

Yes, you will get your thing as well. Flag 2048.

[highend]

Very cool, thanks for adding this stuff. Lots of usecases here...

One small bug:

Code: Select all

  $list = <<<>>>
Audacity||D:\Tools\@Shortcuts\Audacity [Portable].lnk
>>>;

  text inputselect("Test: Caption|Data|Icon", $list, <crlf>, 1 + 1024);

It should return Audacity, not "<empty>". Rule: If "Data" isn't populated at all, return "Caption"
The icon is displayed correctly btw.

[admin]

This is not a missing field but an empty field. IMO it's correct to return nothing in this case.

[zakhar]

Yes, you will get your thing as well. Flag 2048.

I am happy!
Thank you very much!

[highend]

IMO it's correct to return nothing in this case.

Ok, I can live with that.

What I'd like to see supported though: XY internal icons...

E.g.

Code: Select all

  $list = <<<>>>
7-Zip|7-Zip Selected|:del
>>>;
  text inputselect("Test: Caption|Data|Icon", $list, <crlf>, 1 + 1024);

doesn't show the icon for :del

[admin]

IMO it's correct to return nothing in this case.

Ok, I can live with that.

In the meantime I rethought it. What could be the use of returning nothing? Well, I cannot see much there. I will silently change the behavior with the next release. I will update the last change log accordingly already now.

[admin]

What I'd like to see supported though: XY internal icons...

Coming...

[highend]

@zakhar

Code: Select all

    end compare(<xyver>, "19.00.0302", "v") == -1, "This script requires at least v19.00.0302, terminating now!";

    $sepID   = "<sep>";
    $sepIcon = ":queue";

    $subLocations = <<<>>>
%USERPROFILE%\Desktop\1
%USERPROFILE%\Desktop\2
%USERPROFILE%\Desktop\3
>>>;
    $sep = strrepeat("-", 46) . "x";

    $listOfLinks = "";
    foreach($subLocation, $subLocations, <crlf>, "e") {
        if (exists($subLocation) == 2) {
            $links = quicksearch(".lnk", $subLocation);
            if ($links) { $listOfLinks .= $links . <crlf> . "$sep|$sepID|$sepIcon" . <crlf>; }
        }
    }
    $listOfLinks .= quicksearch(".lnk /n", "%USERPROFILE%\Desktop");

    // Build "Caption|Data|Icon"
    $listOfLinks = regexreplace($listOfLinks, "^(.+\\)(.*?)(?=\r?\n|$)", "$2|$1$2|$1$2");
    // Remove (.exe).lnk in "Caption"
    $listOfLinks = regexreplace($listOfLinks, "^(.+?)(\.exe)?\.lnk\|", "$1|");

    // Sel + execute item
    $selected = inputselect("", $listOfLinks, <crlf>, 1+1024, , 400, 700);
    if ($selected == $sepID) { status "No valid entry selected, aborted!", "8B4513", "stop"; end true; }
    open $selected;

Sure, this could be done with style = 2048 as well but I personally don't want to see any ".exe.lnk" extensions...

[zakhar]

Some hours ago I have switched to v19.00.0301 and my script looks now like this (very simple):

Code: Select all

 $qs1 = quicksearch(".lnk","C:\Users\User\Desktop\1");
 $qs2 = quicksearch(".lnk","C:\Users\User\Desktop\2");
 $qs3 = quicksearch(".lnk","C:\Users\User\Desktop\3");
 $qs4 = quicksearch(".lnk /n","C:\Users\User\Desktop");
  
 $d = "--------------------------------------------x";
 $qs1 = "$qs1<crlf>$d<crlf>$qs2<crlf>$d<crlf>$qs3<crlf>$d<crlf>$qs4";
 
 $a = inputselect("","$qs1","<crlf>",1+2048,0,400,700,"",);
 if($a == "" || $a == $d){
 $a = 0;
 }
 end $a == 0;

 open "$a";

It works fine!

What I would like to have changed is the representation of $d - in the dialog window it has a "gray question" icon but I think that is not
a problem as I can simulate this separator element by a link to a renamed icon file. Its name would then be something like this
"--------------------------------------------x.lnk". Clicking it will end the script.

To day I would not use regexp elements ("^(.+\\)(.*?)(?=\r?\n|$)" and others) while I am not familiar with them.
I understand what they do, but not now. May be later. Therefore .lnk tail will stay a while.