Script-AddIn: Symbolleiste "Ort" für Dual/Einzel-Modus

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

Script-AddIn: Symbolleiste "Ort" für Dual/Einzel-Modus

Beitrag von Kundal » 21. Feb 2014 01:02

In DOpus 11 ist das Ortsfeld für jede Dateianzeige standardmässig in den Dateianzeige-Rahmen integriert, der jetzt wie eine vollwertige Symbolleiste funktioniert. Ich habe mich entschieden, das Ortsfeld zu entfernen und dort stattdessen diverse Schalter einzufügen. Ich nutze also weiterhin eine separate Symbolleiste "Ort". Da ich beim Wechsel zwischen Dual- und Einzel-Modus jeweils passend eine Leiste mit einem bzw. zwei Ortsfeldern haben möchte, habe ich dieses Script-AddIn geschrieben. Das Skript läuft im Hintergrund und wechselt beim Dual/Einzel-Wechsel automatisch die Symbolleisten Ort-Dual und Ort-Einzel, die natürlich existieren/erstellt werden müssen, damit das Ganze funktioniert. Beim Erstellen kann ich ggfs. helfen.

Der Skriptcode muss in eine Textdatei kopiert werden, die in ToggleLocationToolbarDualSingle.vbs umbenannt wird. Diese Datei wird dann im DOpus-Konfigurationsordner im Pfad /dopusdata\Script AddIns gespeichert.

Event.GUI_ToggleLocationToolbarDualSingle.vbs

Code: Alles auswählen

' ToggleToolbarForDualSingle
' (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)
    url = "http://www.haage-partner.de/forum/viewtopic.php?f=45&t=4566"
    uid = "1DDC1D6A-53BF-4429-8109-BB7979F56A18"
    initData.name = "Event.GUI: ToggleLocationToolbarDualSingle"
    initData.desc = "Wechselt die Symbolleiste 'Ort' für Dual- und Einzelmodus"
    initData.copyright = "(c) 2014 Kundal"
    initData.default_enable = True
    initData.version = "v1.1"
End Function

Function OnAboutScript(data) 'v0.1
    Set cmd = DOpus.Create.Command()
    If (Not cmd.Commandlist("s").exists("ScriptWizard")) Then 
      If (DOpus.Dlg.Request("Das Add-In 'ScriptWizard' wurde nicht gefunden."&vbCrLf&vbCrLf&_ 
         "Installiere 'ScriptWizard' von [resource.dopus.com]."&vbCrLf&"Das Add-In aktiviert diesen Dialog und bietet ausserdem "&_ 
         "einfaches updaten von Scripts und vieles mehr.","Ja, zum Download!|Abbrechen", "No About.. ", data.window)) Then _
         cmd.RunCommand("http://resource.dopus.com/viewtopic.php?f=35&t=23179")
      Else
         cmd.RunCommand("ScriptWizard ABOUT WIN="&data.window&" FILE="""&Script.File&"""")
   End If
End Function

' Called when a change to the Lister UI occurs
Function OnListerUIChange(listerUIChangeData)
    If ListerUIChangeData.Change = "dual" Then
        If DOpus.Create.Command.IsSet ("dual=On") Then
            DOpus.Create.Command.RunCommand ("Toolbar Close NAME=Ort-Einzel")
            DOpus.Create.Command.RunCommand ("Toolbar NAME=Ort-Dual")
        Else
            DOpus.Create.Command.RunCommand ("Toolbar NAME=Ort-Einzel")
            DOpus.Create.Command.RunCommand ("Toolbar Close NAME=Ort-Dual")
        End If
    End If
End Function

'MD5 = "a4d57a94bd947c9f8051a3e39c982701"; DATE = "2014.11.29 - 07:34:14"
Das gleiche Script als JScript-Version:

Event.GUI_ToggleLocationToolbarDualSingle.js

Code: Alles auswählen

// ToggleLocationToolbarDualSingle
// (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)
{
	var url = "http://www.haage-partner.de/forum/viewtopic.php?f=45&t=4566";
	var uid = "126EC0F9-D5E2-4172-BC7C-4F8CBFFD915D";
	initData.name = "Event.GUI: ToggleLocationToolbarDualSingle";
	initData.desc = "Wechselt die Symbolleiste 'Ort' für Dual- und Einzelmodus";
	initData.copyright = "(c) 2014 Kundal";
	initData.default_enable = true;
	initData.version = "v1.1";
}

function OnAboutScript(data){ //v0.1
	var cmd = DOpus.Create.Command();
	if (!cmd.Commandlist('s').exists("ScriptWizard")){
		if (DOpus.Dlg.Request("Das Add-In 'ScriptWizard' wurde nicht gefunden.\n\n"+
"Installiere 'ScriptWizard' von [resource.dopus.com].\nDas Add-In aktiviert diesen Dialog und bietet ausserdem "+
"einfaches updaten von Scripts und vieles mehr.","Ja, zum Download!|Abbrechen", "No About.. ", data.window))
		cmd.RunCommand('http://resource.dopus.com/viewtopic.php?f=35&t=23179');}
	else
		cmd.RunCommand('ScriptWizard ABOUT WIN='+data.window+' FILE="'+Script.File+'"');
}

// Called when a change to the Lister UI occurs
function OnListerUIChange(listerUIChangeData)
{
	if (listerUIChangeData.Change == 'dual')
		if 	(DOpus.Create.Command.IsSet("dual=On"))
			{
			DOpus.Create.Command.RunCommand ("Toolbar Close NAME=Ort-Einzel")
			DOpus.Create.Command.RunCommand ("Toolbar NAME=Ort-Dual")
			}
		else
			{
			DOpus.Create.Command.RunCommand ("Toolbar NAME=Ort-Einzel")
			DOpus.Create.Command.RunCommand ("Toolbar Close NAME=Ort-Dual")
			}
}
//MD5 = "8d718b8c921ad289f32ef0c55aa3910c"; DATE = "2014.11.29 - 07:06:51"
Download:
Event.GUI_ToggleLocationToolbarDualSingle.vbs.txt
VBScript v1.1
(3.9 KiB) 62-mal heruntergeladen
Event.GUI_ToggleLocationToolbarDualSingle.js.txt
JScript v1.1
(3.59 KiB) 82-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: Script-AddIn: Symbolleiste "Ort" für Dual/Einzel-Modus

Beitrag von Kundal » 29. Nov 2014 10:33

Update auf Version 1.1:
  • 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.

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast