Set DUAL=toggle,remember mit verbesserter Remember-Funktion

Forum zur Erstellung von Anwendungen der erweiterten Scripting-Funktion
Info: Diese Schalter und Script-Anwendungen funktionieren erst ab der Version 11
Antworten
Benutzeravatar
Kundal
Moderator
Beiträge: 1337
Registriert: 20. Apr 2010 21:26
Betriebssystem: Win7 & Win 10 Pro 64 bit
Produkt: DOpus 12 x64 - Letzte Betaversion
Version DOpus: Pro

Set DUAL=toggle,remember mit verbesserter Remember-Funktion

Beitrag von Kundal » 11. Feb 2014 22:27

Bei dem Befehl Set DUAL=toggle,remember, der zwischen dem Dual- und Einzel-Modus umschaltet hat mich immer geärgert, dass das Argument remember sich nur unvollständig an den vorherigen Zustand erinnert, wenn vom Einzel-Modus in den Dual-Modus zurückgeschaltet wird. Es wird zwar der vorherige Zielpfad wiederhergestellt aber Dopus erinnert sich nicht, welcher Pfad in der linken und welcher in der rechten Dateianzeige war. Statddessen wird der Quellpfad immer in der linken Anzeige dargestellt, auch wenn er vorher rechts war.

Mit der neuen Scriptfunktion gibt es nun die Möglichkeit, Schalter zu erstellen, die den vorherigen Zustand exakt wiederherstellen. Ich habe hier 3 Schalter in VB-Script erstellt, die alle vom Dual- in den Einzel-Modus umschalten und die Metadatenanzeige oder Dateivorschau einblenden. Die Schalter arbeiten perfekt zusammen, d.h. wenn ich z.B. die Dateivorschau im Einzel-Modus öffne, kann ich durch Klick auf den Metadaten-Schalter die Metadatenanzeige zusätzlich einblenden. Erst wenn ich wieder den Dateivorschau-Schalter klicke, komme ich zurück in den Dual-Modus. Der Schalter Dual-Modus umschalten geht immer sofort in den Dual-Modus zurück und schaltet sowohl Dateivorschau als auch Metadaten-Anzeige ab, wenn er im Einzel-Modus geklickt wird.

Die Schalter basieren auf einem Script des Users Peperoni aus diesem Beitrag im englischen Forum: DO11 Scripting: Create Lister variables on OnClick function

Achtung: Diese Schaltercodes funktionieren nicht DOpus 10, da die erweiterten Scripting-Funktionen von DOpus 11 benötigt werden.

Dateivorschau Umschalten

Code: Alles auswählen

<?xml version="1.0"?>
<button backcol="none" display="both" textcol="none">
   <label>ToggleViewpane</label>
   <icon1>#viewerpane</icon1>
   <function type="script">
      <instruction>@language vbscript</instruction>
      <instruction />
      <instruction>Function OnClick(ByRef ClickData)</instruction>
      <instruction>   If (ClickData.Func.Command.IsSet("VIEWPANE=Off")) Then</instruction>
      <instruction>      Call Restore(ClickData)</instruction>
      <instruction>   Else</instruction>
      <instruction>      Call Save(ClickData)</instruction>
      <instruction>   End If</instruction>
      <instruction>End Function</instruction>
      <instruction />
      <instruction>Sub Save(ClickData)</instruction>
      <instruction>   If (ClickData.Func.Command.IsSet("DUAL=Off")) Then</instruction>
      <instruction>      DOpus.vars.Set "VIEWPANEDUAL", false</instruction>
      <instruction>   Else</instruction>
      <instruction>      DOpus.vars.Set "VIEWPANEDUAL", true</instruction>
      <instruction>      If ClickData.Func.sourcetab.right Then</instruction>
      <instruction>         DOpus.vars.Set "DUALSWAP", true</instruction>
      <instruction>      Else</instruction>
      <instruction>         DOpus.vars.Set "DUALSWAP", false</instruction>
      <instruction>      End If</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")</instruction>
      <instruction>   End If</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("Set VIEWPANE=On")</instruction>
      <instruction>End Sub</instruction>
      <instruction />
      <instruction>Sub Restore(ClickData)</instruction>
      <instruction>   Dim dual, swap</instruction>
      <instruction>   dual = false</instruction>
      <instruction>   swap = false</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("Set VIEWPANE=Off")</instruction>
      <instruction>   If DOpus.vars.Exists("VIEWPANEDUAL") Then</instruction>
      <instruction>      dual = DOpus.vars.Get("VIEWPANEDUAL")</instruction>
      <instruction>   End If</instruction>
      <instruction>   If (ClickData.Func.Command.IsSet("DUAL=Off")) and dual Then</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("Set METAPANE=Off")</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")</instruction>
      <instruction>      If DOpus.vars.Exists("DUALSWAP") Then</instruction>
      <instruction>         swap = DOpus.vars.Get("DUALSWAP")</instruction>
      <instruction>      End If</instruction>
      <instruction>      If swap Then</instruction>
      <instruction>         ClickData.Func.Command.RunCommand("Go SWAP")</instruction>
      <instruction>         ClickData.Func.Command.RunCommand("Set FOCUS=Right ")</instruction>
      <instruction>      End If</instruction>
      <instruction>   End If</instruction>
      <instruction>End Sub</instruction>
   </function>
</button>
Metadaten-Anzeige umschalten

Code: Alles auswählen

<?xml version="1.0"?>
<button backcol="none" display="both" textcol="none">
   <label>ToggleMetapane</label>
   <icon1>#metapane</icon1>
   <function type="script">
      <instruction>@language vbscript</instruction>
      <instruction />
      <instruction>Function OnClick(ByRef ClickData)</instruction>
      <instruction>   If (ClickData.Func.Command.IsSet("METAPANE=Off")) Then</instruction>
      <instruction>      Call Restore(ClickData)</instruction>
      <instruction>   Else</instruction>
      <instruction>      Call Save(ClickData)</instruction>
      <instruction>   End If</instruction>
      <instruction>End Function</instruction>
      <instruction />
      <instruction>Sub Save(ClickData)</instruction>
      <instruction>   If (ClickData.Func.Command.IsSet("DUAL=Off")) Then</instruction>
      <instruction>      DOpus.vars.Set "METAPANEDUAL", false</instruction>
      <instruction>   Else</instruction>
      <instruction>      DOpus.vars.Set "METAPANEDUAL", true</instruction>
      <instruction>      If ClickData.Func.sourcetab.right Then</instruction>
      <instruction>         DOpus.vars.Set "DUALSWAP", true</instruction>
      <instruction>      Else</instruction>
      <instruction>         DOpus.vars.Set "DUALSWAP", false</instruction>
      <instruction>      End If</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")</instruction>
      <instruction>   End If</instruction>
      <instruction>   ClickData.Func.Command.RunCommand("Set METAPANE=On")</instruction>
      <instruction>End Sub</instruction>
      <instruction />
      <instruction>Sub Restore(ClickData)</instruction>
      <instruction>   Dim dual, swap</instruction>
      <instruction>   dual = false</instruction>
      <instruction>   swap = false</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("Set METAPANE=Off")</instruction>
      <instruction>   If DOpus.vars.Exists("METAPANEDUAL") Then</instruction>
      <instruction>      dual = DOpus.vars.Get("METAPANEDUAL")</instruction>
      <instruction>   End If</instruction>
      <instruction>   If (ClickData.Func.Command.IsSet("DUAL=Off")) and dual Then</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("Set VIEWPANE=Off")</instruction>
      <instruction>      If DOpus.vars.Exists("DUALSWAP") Then</instruction>
      <instruction>         swap = DOpus.vars.Get("DUALSWAP")</instruction>
      <instruction>      End If</instruction>
      <instruction>      If swap Then</instruction>
      <instruction>         ClickData.Func.Command.RunCommand("Go SWAP")</instruction>
      <instruction>         ClickData.Func.Command.RunCommand("Set FOCUS=Right ")</instruction>
      <instruction>      End If</instruction>
      <instruction>   End If</instruction>
      <instruction>End Sub</instruction>
   </function>
</button>
Dual-Modus umschalten

Code: Alles auswählen

<?xml version="1.0"?>
<button backcol="none" display="both" textcol="none">
   <label>Toggledual</label>
   <icon1>#dualdisplay</icon1>
   <function type="script">
      <instruction>@language vbscript</instruction>
      <instruction />
      <instruction>Function OnClick(ByRef ClickData)</instruction>
      <instruction>   If (ClickData.Func.Command.IsSet("DUAL=On")) Then</instruction>
      <instruction>      Call Save(ClickData)</instruction>
      <instruction>   Else</instruction>
      <instruction>      Call Restore(ClickData)</instruction>
      <instruction>   End If</instruction>
      <instruction>End Function</instruction>
      <instruction />
      <instruction>Sub Save(ClickData)</instruction>
      <instruction>   If ClickData.Func.sourcetab.right Then</instruction>
      <instruction>      DOpus.vars.Set "DUALSWAP", true</instruction>
      <instruction>   Else</instruction>
      <instruction>      DOpus.vars.Set "DUALSWAP", false</instruction>
      <instruction>   End If</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")</instruction>
      <instruction>End Sub</instruction>
      <instruction />
      <instruction>Sub Restore(ClickData)</instruction>
      <instruction>   Dim swap</instruction>
      <instruction>   swap = false</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("Set VIEWPANE=Off")</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("Set METAPANE=Off")</instruction>
      <instruction>   If DOpus.vars.Exists("DUALSWAP") Then</instruction>
      <instruction>      swap = DOpus.vars.Get("DUALSWAP")</instruction>
      <instruction>      End If</instruction>
      <instruction>   If (ClickData.Func.Command.IsSet("DUAL=Off")) and swap Then</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("Go SWAP")</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("Set SOURCE=Right ")</instruction>
      <instruction>   Else</instruction>
      <instruction>      ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")</instruction>
      <instruction>      End If</instruction>
      <instruction>End Sub</instruction>
   </function>
</button>
Download der neuesten Version als Script-Add-In (siehe weitere Beiträge):
Event.GUI_RestoreDual.js.txt
v1.2
(10.02 KiB) 69-mal heruntergeladen

Benutzeravatar
Kundal
Moderator
Beiträge: 1337
Registriert: 20. Apr 2010 21:26
Betriebssystem: Win7 & Win 10 Pro 64 bit
Produkt: DOpus 12 x64 - Letzte Betaversion
Version DOpus: Pro

Re: Set DUAL=toggle,remember mit verbesserter Remember-Funktion

Beitrag von Kundal » 21. Feb 2014 10:12

Nachdem ich Einiges über das Arbeiten mit dem neuen Scripting Interface dazugelernt habe, kann ich jetzt eine verbesserte Version dieser Schalter vorstellen.

Dieser Code ist im Unterschied zu den Codes im ersten Beitrag kein einfacher Schaltercode sondern ein Script-AddIn. Das heisst, das der Code für VB-Script in einer *.vbs-Datei gespeichert ist (*.js für JScript), die im Ordner /dopusdata\Script AddIns abgelegt werden muss.
Ich werde in Kürze ein Tutorial zur Erstellung eines Script-AddIns in Directory Opus Code als Sticky in diesem Forums-Bereich anpinnen. Dort demonstriere ich Schritt für Schritt die Erstellung dieses Skripts.

Das Script setzt automatisch im Hintergrund die Variable DUALSWAP=true, wenn sich im Dual-Modus die aktive Dateianzeige auf der rechten Seite befindet. Ist die aktive Dateianzeige links, wird DUALSWAP=false gesetzt.
Das Script erstellt ausserdem einen neuen Skriptbefehl RestoreDual in der Befehlsliste des Anpassen-Dialogs, der anhand der Variable das Wechseln zwischen Dual- und Einzel-Modus mit Wiederherstellung der Quelle auf der ursprünglichen Seite übernimmt. Dadurch kann in einem Schalter einfach der Befehl RestoreDual statt des Befehls Set Dual=remember,toggle verwendet und beliebig mit anderen Befehlen kombiniert werden.

RestoreDual.vbs (VB-Script Version)
Code in eine Texdatei speichern, diese nach RestoreDual.vbs umbenennen und nach /dopusdata\Script Addins kopieren.

Code: Alles auswählen

' RestoreDual
' (c) 2014 Kundal
' 
' This is a script for Directory Opus.
' See http://www.gpsoft.com.au/redirect.asp?page=scripts for development information.
' 
' 
' 
' Called by Directory Opus to initialize the script
Function OnInit(initData)
	initData.name = "RestoreDual"
	initData.desc = "'Set Dual=remember,toggle' mit Wiederherstellung der Quelle in der rechten Dateianzeige"
	initData.version = "v1.0"
	initData.copyright = "(c) 2014 Kundal"
	initData.default_enable = true

	Set cmd = initData.AddCommand
	cmd.name = "RestoreDual"
	cmd.method = "OnRestoreDual"
	cmd.desc = "Der Befehl 'RestoreDual' erweitert den Befehl " &_
		   "'Set Dual=remember,toggle',indem er es ermöglicht, " &_
		   "die Quelle in der rechten Dateianzeige " &_
		   "wiederherzustellen, wenn diese sich vor dem Verlassen " &_
		   "des Dual-Modus auf der rechten Seite befand" & vbCrLf & vbCrLf &_
		   "JScript v1.0" &_
		   "(c) 2014 Kundal"
	cmd.label = "RestoreDual"
	cmd.template = ""
	cmd.icon = "dualdisplay"
End Function

' Called when the source and destination are changed
Function OnSourceDestChange(SourceDestData)
	If SourceDestData.Tab.right = SourceDestData.source then
		DOpus.vars.Set "DUALSWAP", true
	Else
		DOpus.vars.Set "DUALSWAP", false
	End If
End Function


' Implement the RestoreDual command
Function OnRestoreDual(ByRef ClickData)
	swap = false
	If DOpus.vars.Exists("DUALSWAP") Then
		swap = DOpus.vars.Get("DUALSWAP")
	End If
	If (ClickData.Func.Command.IsSet("DUAL=Off")) and swap Then
		ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")
		ClickData.Func.Command.RunCommand("Go SWAP")
		ClickData.Func.Command.RunCommand("Set SOURCE=Right ")
	Else
		ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")
	End If
End Function
Schaltercodes für die drei oben beschriebenen Schalter:

Dateivorschau Umschalten

Code: Alles auswählen

@ifset: METAPANE=On
Set ViewPane=TOGGLE ViewPaneSize 55
@ifset:else
Set ViewPane=TOGGLE ViewPaneSize 55
RestoreDual 
Metadaten-Anzeige umschalten

Code: Alles auswählen

@ifset:ViewPane=On
Set METAPANE=Toggle METAPANESIZE 55
@ifset:else
Set METAPANE=Toggle METAPANESIZE 55
RestoreDual 
Dual-Modus umschalten

Code: Alles auswählen

Set VIEWPANE=Off METAPANE=Off 
RestoreDual  

Benutzeravatar
Kundal
Moderator
Beiträge: 1337
Registriert: 20. Apr 2010 21:26
Betriebssystem: Win7 & Win 10 Pro 64 bit
Produkt: DOpus 12 x64 - Letzte Betaversion
Version DOpus: Pro

Re: Set DUAL=toggle,remember mit verbesserter Remember-Funktion

Beitrag von Kundal » 22. Feb 2014 10:59

Dasselbe Skript, wie im zweiten Beitrag (RestoreDual.vbs) hier noch einmal in der JScript-Version. Es gibt keinen Unterschied in Funktion und Verwendung der Schaltercodes, ausser dass dieses Skript in einer Datei mit Namen RestoreDual.js im Ordner /dopusdata\Script Addins abgelegt werden muss.
Achtung: Bitte nicht beide Versionen gleichzeitig verwenden, sondern nur eine der Dateien im Script AddIns-Ordner abspeichern.

RestoreDual.js (JScript-Version)

Code: Alles auswählen

// RestoreDual
// (c) 2014 Kundal
// 
// This is a script for Directory Opus.
// See http://www.gpsoft.com.au/redirect.asp?page=scripts for development information.
// 
// 
// 
// Called by Directory Opus to initialize the script
function OnInit(initData)
{
	initData.name = "RestoreDual";
	initData.desc = "'Set Dual=remember,toggle' mit Wiederherstellung der Quelle in der rechten Dateianzeige";
	initData.version = "v1.0"
	initData.copyright = "(c) 2014 Kundal";
	initData.default_enable = true;

	var cmd = initData.AddCommand();
	cmd.name = "RestoreDual";
	cmd.method = "OnRestoreDual";
	cmd.desc = "Der Befehl 'RestoreDual' erweitert den Befehl \r\n" +
         "'Set Dual=remember,toggle', indem er es ermöglicht, \r\n" +
         "die Quelle in der rechten Dateianzeige \r\n" +
         "wiederherzustellen, wenn diese sich vor dem Verlassen \r\n" +
	 "des Dual-Modus auf der rechten Seite befand. \r\n" +
 	 "\r\n" +
	 "JScript v1.0 \r\n" +
	 "(c) 2014 Kundal";
	cmd.label = "RestoreDual";
	cmd.template = "";
	cmd.icon = "dualdisplay";
}
var DUALSWAP;

// Called when the source and destination are changed
function OnSourceDestChange(SourceDestData)
{
	if (SourceDestData.Tab.right == SourceDestData.source)
		DOpus.vars.Set ("DUALSWAP", true);
	else
		DOpus.vars.Set ("DUALSWAP", false);
}


// Implement the RestoreDual command
function OnRestoreDual(ClickData)
{
	swap = false
	if (DOpus.vars.Exists("DUALSWAP"))
		swap = (DOpus.vars.Get("DUALSWAP"))
	if ((ClickData.Func.Command.IsSet("DUAL=Off")) && swap)
		{
		ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")
		ClickData.Func.Command.RunCommand("Go SWAP")
		ClickData.Func.Command.RunCommand("Set SOURCE=Right ")
		}
	else
		ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")
}
RestoreDual_v1.js.txt
JScript Version 1.0
(1.78 KiB) 63-mal heruntergeladen

Benutzeravatar
Kundal
Moderator
Beiträge: 1337
Registriert: 20. Apr 2010 21:26
Betriebssystem: Win7 & Win 10 Pro 64 bit
Produkt: DOpus 12 x64 - Letzte Betaversion
Version DOpus: Pro

Re: Set DUAL=toggle,remember mit verbesserter Remember-Funktion

Beitrag von Kundal » 23. Feb 2014 00:34

Ich habe das Script noch einmal verbessert. Version 1.1 hat die Argumente VIEWPANE und METAPANE dazu bekommen. Das erleichtert das Erstellen der Schaltercodes erheblich, weil keine @ifset-Bedingungen und weitere Befehlszeilen mehr benötigt werden. Alle Schalter können jetzt in einer einzigen kurzen Zeile erstellt werden.

RestoreDual (JScript-Version v1.1)
Code in eine Texdatei speichern, diese nach RestoreDual.js umbenennen und in den Ordner /dopusdata\Script Addins kopieren.

Code: Alles auswählen

// RestoreDual
// (c) 2014 Kundal
// 
// This is a script for Directory Opus.
// See http://www.gpsoft.com.au/redirect.asp?page=scripts for development information.
// 
// 
// 
// Called by Directory Opus to initialize the script
function OnInit(initData)
{
	initData.name = "RestoreDual";
	initData.desc = "'Set Dual=remember,toggle' mit Wiederherstellung der Quelle in der rechten Dateianzeige";
	initData.version = "v1.1"
	initData.copyright = "(c) 2014 Kundal";
	initData.default_enable = true;

	var cmd = initData.AddCommand();
	cmd.name = "RestoreDual";
	cmd.method = "OnRestoreDual";
	cmd.desc = "Der Befehl 'RestoreDual' erweitert den Befehl \r\n" +
         "'Set Dual=remember,toggle', indem er es ermöglicht, \r\n" +
         "die Quelle in der rechten Dateianzeige \r\n" +
         "wiederherzustellen, wenn diese sich vor dem Verlassen \r\n" +
	 "des Dual-Modus auf der rechten Seite befand. \r\n" +
 	 "\r\n" +
	 "JScript v1.1 \r\n" +
	 "(c) 2014 Kundal";
	cmd.label = "RestoreDual";
	cmd.template = "VIEWPANE/S,METAPANE/S";
	cmd.icon = "dualdisplay";
}
var DUALSWAP;

// Called when the source and destination are changed
function OnSourceDestChange(SourceDestData)
{
	if (SourceDestData.Tab.right == SourceDestData.source)
		DOpus.vars.Set ("DUALSWAP", true);
	else
		DOpus.vars.Set ("DUALSWAP", false);
}


// Implement the RestoreDual command
function OnRestoreDual(ClickData)
{
	swap = false
	if (DOpus.vars.Exists("DUALSWAP"))
		swap = (DOpus.vars.Get("DUALSWAP"))
	if ((ClickData.Func.Command.IsSet("DUAL=Off")) && swap)
	{
		if	(ClickData.func.args.got_arg.viewpane) 
		{
			if (ClickData.Func.Command.IsSet("METAPANE=On"))
				ClickData.Func.Command.RunCommand("Set VIEWPANE=Toggle VIEWPANESIZE=50")
			else
				{
				ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")
				ClickData.Func.Command.RunCommand("Go SWAP")
				ClickData.Func.Command.RunCommand("Set SOURCE=Right ")
				ClickData.Func.Command.RunCommand("Set VIEWPANE=Toggle VIEWPANESIZE=50")
				}
		}
		if	(ClickData.func.args.got_arg.metapane)
		{
			if (ClickData.Func.Command.IsSet("VIEWPANE=On"))
				ClickData.Func.Command.RunCommand("Set METAPANE=Toggle METAPANESIZE=50")
			else
				{
				ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")
				ClickData.Func.Command.RunCommand("Go SWAP")
				ClickData.Func.Command.RunCommand("Set SOURCE=Right ")
				ClickData.Func.Command.RunCommand("Set METAPANE=Toggle METAPANESIZE=50")
				}
		}
		if	((!ClickData.func.args.got_arg.metapane) && (!ClickData.func.args.got_arg.viewpane))
				{
				ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")
				ClickData.Func.Command.RunCommand("Go SWAP")
				ClickData.Func.Command.RunCommand("Set SOURCE=Right ")
				ClickData.Func.Command.RunCommand("Set METAPANE=Off VIEWPANE=Off")
				}
		}
	else
	{
		if	(ClickData.func.args.got_arg.metapane) 
			if (ClickData.Func.Command.IsSet("VIEWPANE=On"))
				ClickData.Func.Command.RunCommand("Set METAPANE=Toggle METAPANESIZE=50")
			else
				{
				ClickData.Func.Command.RunCommand("Set METAPANE=Toggle METAPANESIZE=50")
				ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")
				}
		if	(ClickData.func.args.got_arg.viewpane)
			if (ClickData.Func.Command.IsSet("METAPANE=On"))
				ClickData.Func.Command.RunCommand("Set VIEWPANE=Toggle VIEWPANESIZE=50")
			else
				{
				ClickData.Func.Command.RunCommand("Set VIEWPANE=Toggle VIEWPANESIZE=50")
				ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")
				}
		if	((!ClickData.func.args.got_arg.metapane) && (!ClickData.func.args.got_arg.viewpane))
				{
				ClickData.Func.Command.RunCommand("SET Dual=Remember,Toggle")
				ClickData.Func.Command.RunCommand("Set METAPANE=Off VIEWPANE=Off")
				}
	}
}
Schaltercodes:

Dateivorschau Umschalten
Wechselt aus dem Dual- in den Einzel-Dateianzeige-Modus, wenn die Dateivorschau eingeblendet wird und stellt die ursprüngliche Rechts/Links-Situation von Quelle und Ziel wieder her, wenn in den Dual-Modus zurück gewechselt wird.

Code: Alles auswählen

RestoreDual VIEWPANE
Metadaten-Anzeige umschalten
Wechselt aus dem Dual- in den Einzel-Dateianzeige-Modus, wenn die Metadaten-Anzeige eingeblendet wird und stellt die ursprüngliche Rechts/Links-Situation von Quelle und Ziel wieder her, wenn in den Dual-Modus zurück gewechselt wird.

Code: Alles auswählen

RestoreDual METAPANE
Dual-Modus umschalten
Wechselt zwischen Dual- und Einzel-Dateianzeige-Modus und stellt die ursprüngliche Rechts/Links-Situation von Quelle und Ziel wieder her, wenn in den Dual-Modus gewechselt wird.

Code: Alles auswählen

RestoreDual
RestoreDual_v1.1.js.txt
JScript Version 1.1
(4.17 KiB) 64-mal heruntergeladen

Benutzeravatar
Kundal
Moderator
Beiträge: 1337
Registriert: 20. Apr 2010 21:26
Betriebssystem: Win7 & Win 10 Pro 64 bit
Produkt: DOpus 12 x64 - Letzte Betaversion
Version DOpus: Pro

Re: Set DUAL=toggle,remember mit verbesserter Remember-Funktion

Beitrag von Kundal » 29. Nov 2014 10:23

Update auf Version 1.2:
  • Das Script bietet jetzt volle Unterstützung für ScriptWizard von tbone. Dadurch wird der Info-Button in der Script-Konfiguration aktiviert. Der Info-Dialog ermöglicht direktes Aufsuchen dieser Webseite, Update auf die neueste Version und einiges mehr. Wenn ScriptWizard noch nicht installiert ist, erscheint ein Dialog, von dem aus man direkt zum Download des Scripts im Resource Centre gehen kann.
Der Download findet sich im ersten Beitrag.

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast