assign a Keyboard Shortcut to a User Button

[atisoro]

can you help by an example?

[highend]

Show the full script in code tags

[atisoro]

it's too hard for me.
I stop here

[atisoro]

it doesn't matter.
I got hold of the solution.
(with regexreplace)
It works, but it does not take into account the existence of any previously set buttons.

Code: Select all

 $newCB = <<<'EOD'
[CustomButtons]
Version=1
Count=1
1=""loader|:ladybug|1|0"  load "<xyscripts>.\myscript.xys";		"

[BookmarkButtons]  
 EOD;

 $content = readfile("<xydata>\<xyini>");
 $content_new = regexreplace($content, "\[CustomButtons]([\s\S]*?)\[BookmarkButtons]", $newCB);
 writefile("<xydata>\<xyini>", $content_new, "o");
 #190;   //restart

any addition (such as by code addition of CommandButton1 in the toolbar) is welcome

[highend]

toolbar()?

[atisoro]

smoothly add a custom button at the end of active toolbar

Code: Select all

$oldtoolbar = toolbar();
 toolbar($oldtoolbar."-,ctb1,".);

[highend]

Can you at least test such things more extensively before posting them?

You're effectively removing the last entry with it^^

Code: Select all

    $oldToolbar = toolbar();
    if (!regexmatches($oldToolbar, "\bctb1\b")) {
        toolbar($oldToolbar . ",ctb1");
    }

[atisoro]

actually, I initially tested this code to adds to the first position and I mistakenly assumed that it works correctly (surprisingly, it doesn't)
working code //for first position cbt1

Code: Select all

$oldtoolbar = toolbar();
 toolbar("ctb1,-".$oldtoolbar); 

my proposals are only at the beginner level, (a few days of juggling the codes), my experience being in VBA and VB.net
in any case, I accept the criticism

[highend]

toolbar("ctb1,-".$oldtoolbar);

Cool, and now you're removing the existing first entry^^

[atisoro]

indeed
your code works flawlessly
Kudos

Code: Select all

    $oldToolbar = toolbar();
    if (!regexmatches($oldToolbar, "\bctb1\b")) {
        toolbar($oldToolbar . ",ctb1");
    }

[highend]

And this is a way how it could be really done...

Code: Select all

    $script = <<<'#EOD'
"loader|:ladybug|1|0" load "<xyscripts>\myscript.xys";
#EOD;

    $script     = replace(trim($script, <crlf>), <crlf>, "¶");
    $iniFile    = "<xydata>\<xyini>";
    $iniContent = readfile($iniFile);

    $section = getsectionlist("CustomButtons", $iniFile);
    $cntBtns = gettoken(regexmatches($section, "^Count=\d+$"), 2, "=");
    $section = regexreplace($section, "^(Version|Count)=\d+(\r?\n|$)");

    $btnID = "";
    while ($i++ < 64) {
        $line = gettoken($section, $i, <crlf>);
        // Find an existing but not-populated line or an empty one
        if (regexmatches($line, "^\d{1,2}=""""$") || $line == "") {
            $btnID = $i;
            break;
        }
    }
    end ($btnID == ""), "No free (x of 64) custom button entry found, aborted!";

    // Add new / overwrite empty entry and adjust the "Count" if necessary
    $newLine = quote($script . <tab 2>);
    if ($btnID > $cntBtns) { setkey $btnID, "Count", "CustomButtons", $iniFile, 2; }
    setkey $newLine, $btnID, "CustomButtons", $iniFile, 2;

    // Restart without saving
    #190;

[atisoro]

this is sophisticated far beyond the knowledge of most users (at least mine).
elegant, simple and useful.

[atisoro]

again, a problem in which I ask for your help.
after the code successfully writes to the xyplorer.ini file,

whatever I try, after Exit(saving) or savesettings or save configuration, the changes disappear.

can anything be done?

[highend]

That's why it uses "Restart without saving" at the end^^

[atisoro]

This trick works great.
Thank you.