XYplorer Beta Club

Code: Select all

    $relationShips = <<<>>>
ShowDragStatusBox <--> General | Safety Belts, Network | Safety Belts | Show drag status box
DisallowDragging <--> General | Safety Belts, Network | Safety Belts | Disallow left-dragging from folder tree
DisallowDraggingFromList <--> General | Safety Belts, Network | Safety Belts | Disallow left-dragging from file list
ConfirmDrop <--> General | Safety Belts, Network | Safety Belts | Confirm drag and drop
ConfirmFileOp <--> General | Safety Belts, Network | Safety Belts | Confirm copy and move operations
ConfirmFileDelete <--> General | Safety Belts, Network | Safety Belts | Confirm delete operations
DeleteOnKeyUp <--> General | Safety Belts, Network | Safety Belts | Delete on key up
DisallowDeleteByKeyTree <--> General | Safety Belts, Network | Safety Belts | Disallow delete by key in folder tree
PortableDevicesReadOnly <--> General | Safety Belts, Network | Safety Belts | Treat portable devices as read-only
DFCProtection <--> General | Safety Belts, Network | Safety Belts | Directional formatting codes protection
NetworkNetServerEnum <--> General | Safety Belts, Network | Network | Fast network enumeration
AssumeServersExist <--> General | Safety Belts, Network | Network | Assume that servers are available
NetworkPrecheckServers <--> General | Safety Belts, Network | Network | Pre-check availability of servers
CacheServers <--> General | Safety Belts, Network | Network | Cache network servers
>>>;

    // Reformat $relationShips
    $iniKeys = regexreplace($relationShips, "^([^ ]+)([ ].*?)(?=\r?\n|$)", "$1");
    // Get longest iniKey
    $maxLen = 0;
    foreach($entry, $iniKeys, <crlf>, "e") {
        $len = strlen($entry);
        if ($len > $maxLen) { $maxLen = $len; }
    }
    // Reformat by longest iniKey as reference
    $newRelationShips = "";
    foreach($line, $relationShips, <crlf>, "e") {
        $iniKey    = regexreplace($line, "^([^ ]+)([ ].+?$)", "$1");
        $guiKey    = regexreplace($line, "^(.+ <--> )(.+?$)", "$2");
        $lenIniKey = strlen($iniKey);
        $padding   = $maxLen - $lenIniKey;
        $newRelationShips .= $iniKey . strrepeat(<space>, $padding) . " <--> " . $guiKey . <crlf>;
        // $padding   = ($maxLen - $lenIniKey) / 4;
        // $newRelationShips .= $iniKey . strrepeat(<tab>, $padding) . " <-->" . <tab> . $guiKey . <crlf>;
    }
    $sel = inputselect("Type to find...", $newRelationShips, <crlf>, 4+32+64+4096, , 800, 600);

Code: Select all

    + SC inputselect enhanced: Now you can use the Edit Text font in the list, 
      just pass bit 16384 in the style argument.
      Syntax: inputselect(header, listdata, [separator="|"], [style=1], _
                  [cancel], [width=800], [height=400], [windowcaption], [preselect])
        style: 
         16384 = Use Edit Text font (instead of the default Buttons and Labels font).
      Examples:
        text inputselect("Test", listfolder(), , 1);          // Buttons and Labels font
        text inputselect("Test", listfolder(), , 1 + 16384);  // Edit Text font

Code: Select all

Invalid source path:
"H:\Pictures", "I:\Pictures", 1, 0, 1, "c"\

Code: Select all

  $sync = <<<>>>
Photos <-->  Drive (I:)|"H:\Pictures", "I:\Pictures", 1, 0, 1, "c"|:sync
Taxes <-->  Drive (H:)|"G:\Taxes", "H:\Taxes", 1, 0, 1, "c"|:fvs
AHK <-->  Toshiba Rosewill|"D:\Tools\AutoHotkey", "O:\AutoHotkey", 1, 0, 1, "c"|:copyto
Photos <-->  Toshiba Rosewill|"H:\Pictures", "O:\Pictures", 1, 0, 1, "c"|:moveto
Wallpaper <-->  Toshiba Rosewill|"G:\Wallpaper", "O:\Wallpaper", 1, 0, 1, "c"|:sync
Icons <-->  Toshiba Rosewill|"D:\Graphics\Icons", "O:\Icons", 1, 0, 1, "c"|:fore
Taxes <-->  Toshiba Rosewill|"G:\Taxes", "O:\Taxes", 1, 0, 1, "c"|::openwith
XYplorer <-->  Toshiba Rosewill|"D:\Tools\XYplorer", "O:\XYbackup", 1, 0, 1, "c"|:backupto
XYplorer <-->  G:\XYBackup|"D:\Tools\XYplorer", "G:\XYbackup", 1, 0, 1, "c"|:nuke
Downloads <-->  SP flash|"G:\Downloads", "R:\Downloads", 1, 0, 1, "c"|:favs
Photos <-->  SP Flash|"H:\Pictures", "R:\Pictures", 1, 0, 1, "c"|:back
>>>;

   // Reformat $sync
    $syncKeys = regexreplace($sync, "^([^ ]+)([ ].*?)(?=\r?\n|$)", "$1");
    // Get longest iniKey
    $maxLen = 0;
    foreach($entry, $syncKeys, <crlf>, "e") {
        $len = strlen($entry);
        if ($len > $maxLen) { $maxLen = $len; }
    }
    // Reformat by longest iniKey as reference
	$newSync = "";
	foreach($line, $sync, <crlf>, "e") {
		$syncCaption = gettoken($line, 1, "|");
		$syncDataIcon = gettoken($line, 2, "|",, 2);
		$sourceKey    = regexreplace($syncCaption, "^([^ ]+)([ ].+?$)", "$1");
		$targetKey    = regexreplace($syncCaption, "^(.+ <--> )(.+?$)", "$2");
		$lenSourceKey = strlen($sourceKey);
		$padding   = $maxLen - $lenSourceKey;
		$newSync .= $sourceKey . strrepeat(<space>, $padding) . " <--> " . $targetKey . "|" . $syncDataIcon . <crlf>;
	}

	$sel = inputselect("   SOURCE             <-->             TARGET", $newSync, <crlf>,1+4+32+1024+8192+16384, , 330, 400, "SYNC OPERATIONS");
	text $sel;
		if($sel) {sync $sel;}

Code: Select all

$sep = " <--> ";
$iniKeys = regexreplace($relationShips, "^(.+?)$sep(.+?)(?=\r?\n|$)", "$1");
...

// Same line again, only with different variables
$iniKey    = regexreplace($line, "^(.+?)$sep(.+?)(?=\r?\n|$)", "$1");