fürFileMaker:liest Fenstergröße /pos/Layout/fileName

[spirigwi]

Fenstergröße können schweizer wie ich nicht mal schreiben
"Ich würde euch gerne eine Kleinigkeit in SNOWS Snippets-
Sammlung schreiben, welche mir extrem viel Zeit im Umgang mit FM
gespart hat:
Da mir der Maestro aber regelmässig seine Pfeiffe an den
Knöcheln ausklopft (Schwielennachweis positiv aber Recht hatte
er IMMER) brauche ich Hilfe: das Skript läuft bei mir zwar
tadellos, habe aber noch keine Anung von möglichen Fehlern.
Darum wär ich natürlich vor definitver Fassung froh, einer mit
denselben Problemen im FileMaker würde es mir ausprobieren und
feed-backen mit Vorschlägen und Korrekturen.
----------------------------------
Funktionsbeschreibung des geplanten SNIPPETS
-------------------------------
Titel:
FileMaker Funktionen: Liest Fenster -Pos/Grösse Layout/File-Name
für den Clipboard,als SkriptName UND AppleScript Inhalt past-bar

Beschreibung:
Die von FileMaker häufig benutzte Methode des
Fenster umschalten [Zoomen]
ist in der Praxis vollkommen unbrauchbar da
1. das Resultat ändert mit jedem neuen Feld im Layout
2. die Bildschirm-Position wird nicht definiert
3. Furchterregend arbeitsintensiv!
Dieses SNIPPET stellt ein AppleSkript für den Zwischenspeicher
her das sich merkt:
Pos/Grösse, Layout-Name, FileName des aufgeschlagenen FM-Fenster
und als Vorgabe dient (mittels *æ_V = past kann abladen) und
führt direkt ins ScriptMaker™-Fenster für
a) für den Skript-Namen eines ev neuen Skripts
b) als fertiges Script ins AppleScript Funktionsfeld des
FM-ScriptMaker™
c) Alternativ kann man damit auch den Namen des Files kopieren

Ich hoffe meine schwitzerei habe sich gelohnt und es hat nicht
allzuviele Fehler und möge von Nutzen sein"
tell application "FileMaker Pro"
activate
set TEXAFZ to TEXAFZ3() of me
set CurrLay to name of current layout
set FMDATEI to name of window 1
set OrigDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to ""
set BounOfWinlist to {}
set BounOfWinlist to bounds of window 1
set ALLTEXT to ¬
"set bounds of window \"" & FMDATEI & "\"" & ¬
" to {" & item 1 of BounOfWinlist & "," & ¬
item 2 of BounOfWinlist & "," & ¬
item 3 of BounOfWinlist & "," & ¬
item 4 of BounOfWinlist & "}" & ¬
"--" & CurrLay & "••" & ¬
return & "go to layout " & ¬
TEXAFZ & CurrLay & TEXAFZ
--get name of menu item 1 of menu 8--"ScriptMaker™..."
--do menu menu item 1 of menu "ScriptMaker™..."
set Bu1Dia1 to "->ScriptName u/o AppleScript *_V!"
set TEXBUTAntwDialog2 to Dialog1(FMDATEI, Bu1Dia1) of me
set AppleScript's text item delimiters to OrigDelim
activate
if item 2 of TEXBUTAntwDialog2 = Bu1Dia1 then
set the clipboard to "" & ALLTEXT
else
set the clipboard to "" & FMDATEI
end if
do menu menu item 1 of menu 8
--activate
end tell
on Dialog1(FMDATEI, Bu1Dia1)
set TEXDia1 to TEX1() of me
set Bu1Dia2 to "kopiert * FileName * = *æ_C"
set BuDefDia1 to Bu1Dia1
activate
set Dialog1DisplayDialog to (display dialog TEXDia1 ¬
buttons {Bu1Dia2, BuDefDia1} ¬
default button Bu1Dia1 ¬
default answer FMDATEI ¬
giving up after 120 with icon 2)
set TEXBUTAntwDialog2 to {text returned, button returned} ¬
of Dialog1DisplayDialog
end Dialog1
--• ScriptenMaker-öffn.= Al_*_c
--Tastatur Kurzbefehle für FM im
-- File-Name bei Bed.kopieren(*_c)
on TEX1()
"ScriptMaker™ maus-arm:
•Fenster(nach MarkKlick)AUF/AB= ctrl_K/L
•in Menu aufn.(nach Mark)= LEERSCHLAG
•Skript bearb.(nach Mark-Klick)= ENTER
•SkriptNamenListe<->SkriptFenster= TAB
•Skript->SkriptFenster= LEERSCHLAG
•AppleScript bearbeiten= LEERSCHLAG"
end TEX1
on TEXAFZ3()
"\""
end TEXAFZ3
"Das Skript muss in AppleSkript oder Smile(sehr zu empfehlen!) bei einem wunschgemäss
positionierten und grössen-definierten Fm-Fenster gestartet werden
Viel Spass beim ersten mal starten des Skript-Resultates
aus dem FileMaker heraus.
WIlly"