XYplorer Beta Club

Code: Select all

  $homemenu = <<<>>>
<bla bla bla>
>>>;

  $szScreen = 1920;
  $szIcon = 32;

  // CTB Position "X"
  if ($xValue) {
    $xPosition = get("cursorpos", x);
    $valuePositionX = $szScreen / $xPosition;
    $xDiff = $szIcon / $valuePositionX;
  }
  $xValue = $xPosition - $xDiff;

  // CTB Position "Y"
  if ($yValue) {
    $yPosition = get("cursorpos", y);
    if ($buttonSet) {
      if (buttonset() == 1) {
        $buttonSet = 93;
      }
      elseif (buttonset() == 2) {
        $buttonSet = 58;
      }
    }
  }
  $yValue = ($yPosition - $yPosition) + $buttonSet;

  $command = trim(popupnested($homemenu,$xValue,$yValue, 7:="|"));

  if ($command != '') { load $command,, s; }
  

Code: Select all

    $homemenu = <<<>>>
hello
world
>>>;

    // We only need "special" icons here
    // "-" in toolbar() is the separator
    // Icons with the same width can be in a single line (","-separated)
    $specialWidths = <<<>>>
-=8
tbs=10
menu=14
back,fore,undo,redo=36
    >>>;
    $normalWidth = 32;

    $tb     = controlposition("TB"); // 86|75|2458|33
    $tbX    = gettoken($tb, 1, "|"); // 86
    $tbY    = gettoken($tb, 2, "|"); // 75
    $tbH    = gettoken($tb, 4, "|"); // 33
    $tbYMax = $tbY + $tbH;           // 75 + 33 = 108

    $cursor  = get("cursorpos"); // 425;237
    $cursorX = gettoken($cursor, 1, ";"); // 425
    $cursorY = gettoken($cursor, 2, ";"); // 237

    $iconPos = posatpos();
    $toolbar = toolbar();
    $screen  = get("Screen", "width");


    // Check click boundaries
    if ($cursorY >= $tbY && $cursorY <= $tbYMax) {
        // Get all icons _before_ the one that was clicked
        $icons = gettoken($toolbar, $iconPos - 1, ",", , 1); // tbs,menu,back,fore,-

        // Try to calculate the width of all of them...
        $iconWidths = 0;
        foreach($icon, $icons, ",", "e") {
            // tbs=10 or -=8, etc.
            $width = regexmatches($specialWidths, "(^|,).*?" . $icon . ".*?=\d+");
            $width = gettoken($width, 2, "=", "t");

            // Use standard size if it's not a special width
            if (!$width) { $width = $normalWidth; }

            // Add up
            $iconWidths += $width;
        }
        // All widths were relative to XY, bring it to screen size
        // You'd need a cli tool to get the XY window size (the X position)
        // In your case you could just add your 192 px
        $iconWidths += 96;

        // Calculate the click boundaries again and use the $iconWidths
        // variable (+ padding eventually)
        // ...

        $sel = popupmenu($homemenu, $iconWidths, $tbYMax);
        // ...
    }

Code: Select all

  $i  = 1;
  $tb = toolbar();
  foreach($row, $tb,, e) {
    if (gettokenindex("ctb<get trigger ctbindex>", $row, ",", "")) { break; }
    $i++;
  }
  $r  = gettoken($tb, "count", "|");
  $tb = controlposition("TB");
  $h  = gettoken($tb, 4, "|") / $r;
  $y  = gettoken($tb, 2, "|") + $h * $i;
  popupmenu("a|b|c", <get cursorpos x>-($h/2), $y);