Besondere Seite durch Druckknopf anzuzeigen

Hallo Jacques

Was für einen Grund gibt es, die Option "Hyperlink" auszuschliessen? Das ist doch genau die zweckmässige Lösung für dein Problem!

Gruss
Thomas

Hallo Norbert und Thomas,

vielleicht werde ich endlich Hyperlinks in "Objekten wie Knöpfe"
basteln… nach meinen ersten Versuchen scheint es, ziemlich bequem zu
sein.

Danke !

Freundliche Grüsse !

jacques

>> Gibt es einen Trick ?

Am 05.04.2009 um 10:39 schrieb Jacques Villars:

> Hallo Norbert und Thomas,
>
> vielleicht werde ich endlich Hyperlinks in "Objekten wie Knöpfe"
> basteln… nach meinen ersten Versuchen scheint es, ziemlich bequem zu
> sein.

Hallo Jacques

ich arbeite sehr viel mit Hyperlinks innerhalb eines Dokuments.

Das RT-Handling empfinde ich als "rückwärts zum intuitiven Vorgehen".

Ich habe mir daher ein Skript gebastelt,
das für mich intuitiv zu bedienen ist (Es beginnt mit dem "Knopftext")
und mir eine Menge "mouseaction" erspart.

Ich habe es für Links innerhalb von Texten gemacht
und weiß nicht, ob es auch zwischen Rechenblättern und Textkomponenten
funktioniert.

Da ich nur ein Gelegenheitsscripter bin,
musste ich an zwei Stellen mit GUI-Scripting arbeiten.
Deshalb kann das Skript nur von außerhalb von RT benutzt werden.
Diese Teile müssen also gegebenfalls "lokalisiert" werden,
d.h., die Button-Namen müssen übersetzt werden.

Auch habe ich mit dem Button-Trick von Detlef Schulz arbeiten müssen.
Daher müssen die auch die Komandos übersetzt werden.

Die "delays" (Pausen im Ablauf) dienen zum großen Teil nur dazu,
den Ablauf zu verlangsamen/zu verdeutlichen und
können entfernt werden – siehe jeweils die Anmerkungen.

Last but not least könnten natürlich auch die "display-dialog-Texte"
lokalisiert werden.

Falls noch Fragen sind ... versuche ich gerne, sie zu beantworten.

Gruß
Lutz

tell application "RagTime 6.5"
activate
if selection as text is "" then -- Prüfung, ob etwas markiert wurde.
display dialog "Bitte markieren Sie den \"Knopftext\"!"
else
set theStartmarketext to selection as text
-- Rückmeldung über das, was als "Absprungmarke" markiert wurde und
Aufforderung, die Zielmarke zu markieren
display dialog "Sie haben \"" & theStartmarketext & "\"" & return &
"als Knopftext markiert!" & return & return & "Markieren Sie nun das
Sprungziel!"
set theStartmarke to selection
-- Das Script wartet, bis die Zielmarke markiert wurde, –
wahrscheinlich nicht unendlich lange.
repeat until selection as text is not "" and selection as text is
not theStartmarketext
delay 0.5 -- Muss bleiben – gegebenenfalls erhöhen
end repeat
set theSprungzieltext to selection as text
-- Hier hat man die Möglichkeit, einen anderen Namen einzugeben, als
den Text, den man als Sprungziel markiert hat.
display dialog "Bitte geben Sie den Namen für das Sprungziel ein!"
default answer theSprungzieltext
set theSprungzieltext to text returned of result
delay 1 -- kann entfernt werden
tell document 1
if exists button "Menübefehle" then -- Wenn Knopf bereits existiert
-- Knopfbefehl auf einen Menünamen setzen:
set command name of button "Menübefehle" to "Namen" -- Muss
lokalisiert werden.
--Knopfbefehl ausführen:
execute button "Menübefehle" -- entsprechend
else -- Wenn Knopf noch nicht existiert, einen mit dem Menübefehl
anlegen und ausführen
set theButton to make new button at end with properties
{name:"Menübefehle", command name:"Namen"} -- Muss lokalisiert werden.
execute theButton
end if
end tell
delay 2 -- kann entfernt werden
tell application "System Events"
tell process "RagTime"
click button "Neu" of window "Namen" -- Muss lokalisiert werden
end tell
end tell
delay 2 -- kann entfernt werden
set selection to theSprungzieltext
delay 2 -- kann entfernt werden
close window "Namen"
select theStartmarke
delay 3 -- kann entfernt werden
tell document 1
-- Knopfbefehl auf einen Menünamen setzen:
set command name of button "Menübefehle" to "Als Verknüpfung
markieren" -- Muss lokalisiert werden.
--Knopfbefehl ausführen:
execute button "Menübefehle"
end tell
delay 0.1 -- muss bleiben - gegebenenfalls erhöhen
tell application "System Events"
tell process "RagTime"
keystroke tab -- Lokalisierung nicht erforderlich.
end tell
end tell
delay 2 -- kann entfernt werden
set selection to theSprungzieltext
delay 2 -- kann entfernt werden
close window 1
end if
end tell

Hallo Lutz,
Danke vielmal für das Skript.
Habe, was darin notwendig ist, übersetzt. Funktioniert prima, auch
zwischen verschiedenenTextkomponenten !
Freundliche Grüsse,
jacques

Le 6 avr. 09 à 22:20, Lutz-Dieter Bornemann a écrit :

>
> Am 05.04.2009 um 10:39 schrieb Jacques Villars:
>
>> Hallo Norbert und Thomas,
>>
>> vielleicht werde ich endlich Hyperlinks in "Objekten wie Knöpfe"
>> basteln… nach meinen ersten Versuchen scheint es, ziemlich bequem
>> zu sein.
>
> Hallo Jacques
>
> ich arbeite sehr viel mit Hyperlinks innerhalb eines Dokuments.
>
> Ich habe mir daher ein Skript gebastelt,
>

Am 07.04.2009 um 19:41 schrieb Jacques Villars:

> Hallo Lutz,
> Danke vielmal für das Skript.
> Habe, was darin notwendig ist, übersetzt. Funktioniert prima, auch
> zwischen verschiedenenTextkomponenten !
> Freundliche Grüsse,
> jacques

Hallo Jacques,

hoffentlich muss ich nicht noch öfter nachbessern.

Ersetze bitte die Stelle

repeat until selection as text is not "" and selection as text is not
theStartmarketext
delay 0.5 -- Muss bleiben – gegebenenfalls erhöhen
end repeat

durch folgenden Skripttext

repeat
try
if selection as text is not "" and selection as text is not
theStartmarketext then
exit repeat
end if
end try
delay 0.5 -- Muss bleiben – gegebenefalls erhöhen
end repeat

Der Grund ist die Vermeidung einer Fehlermeldung,
wenn man über den Menübefehl "Gehe zu Seite…"
zum Bereich einer weit entfernten Textstelle springen will.

Gruß
Lutz

…mit SlideTime habe ich die folgende Lösung gefunden ; habt Ihr
etwas besser ?

um die z.B. 3. Seite anzuzeigen :

im Druckknopf :

Zelle(1;FC SlideTime!$A$1) UND STStarten('Feuillet présentation';3)

im Rechenblatt 'FC SlideTime' :

Wenn(Und(STAngezeigteSeite=3;A1=1);STStoppen UND Zelle(0;A1))

–––––

Die Funktion SetzeZelle und die Zelle A1 mit dem Inhalt 1 oder 0
sind nötig, um die Seite 3 durch einen anderen Knopfauf auch auf dem
Vollbildschirm als Dia anzeigen zu können.

jacques

Le 4 avr. 09 à 17:39, Jacques Villars a écrit :

> Hallo Liste,
> Gibt es einen Trick (finde keinen Befehl), um durch einen
> Druckknopf automatisch (das heisst : ohne Anzeige einer Dialogbox)
> eine besondere Seite im laufenden Layout anzuzeigen ? Aber ohne
> Applescript und ohne SlideTime. (Mit SlideTime habe ich vielleicht
> eine Idee, das wäre aber sicher nicht optimal.)
> jacques
>

Hallo, ich weiß ’was!

Ich arbeite mit Mac OS X Version 10.5.6 und RagTime 6.0.2 (Build
1632) sowie RagTime 6.5.0 (Build 1815) auf einem iMac mit 2,4 GHz
Intel Core 2 Duo.z.

Ich klicke auf die Seitenzahl rechts am Srcoll-Balken und gebe in das
sich öffnende Fenster die Nummer oder den Namen der gewünschten Seite
ein. Welchen Vorteil soll Deine Lösung haben?

Mit freundlichen Grüßen
Norbert O

Am 04.04.2009 um 18:26 schrieb Jacques Villars:

> …mit SlideTime habe ich die folgende Lösung gefunden ; habt Ihr
> etwas besser ?
>
> um die z.B. 3. Seite anzuzeigen :
>
> im Druckknopf :
>
> Zelle(1;FC SlideTime!$A$1) UND STStarten('Feuillet présentation';3)
>
> im Rechenblatt 'FC SlideTime' :
>
> Wenn(Und(STAngezeigteSeite=3;A1=1);STStoppen UND Zelle(0;A1))
>
> –––––
>
> Die Funktion SetzeZelle und die Zelle A1 mit dem Inhalt 1 oder 0
> sind nötig, um die Seite 3 durch einen anderen Knopfauf auch auf dem
> Vollbildschirm als Dia anzeigen zu können.
>
> jacques
>
> Le 4 avr. 09 à 17:39, Jacques Villars a écrit :
>
>> Hallo Liste,
>> Gibt es einen Trick (finde keinen Befehl), um durch einen
>> Druckknopf automatisch (das heisst : ohne Anzeige einer Dialogbox)
>> eine besondere Seite im laufenden Layout anzuzeigen ? Aber ohne
>> Applescript und ohne SlideTime. (Mit SlideTime habe ich vielleicht
>> eine Idee, das wäre aber sicher nicht optimal.)
>> jacques
>>
>
>