Fischer-Bayern.de
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

FileMaker Fenstergröße als bounds lesen: als AS ins FM-file

 
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Pool
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
spirigwi
•----->
•----->


Anmeldedatum: 10.07.2003
Beiträge: 1529
Wohnort: Olten-CH

BeitragVerfasst am: 31.05.2005 - 19:48    Titel: FileMaker Fenstergröße als bounds lesen: als AS ins FM-file Antworten mit Zitat

Fenstergrösse von FileMaker-files lesen + aus den dadurch erworbenen bound-Daten ein AS erhalten, das man einfach in das entspr. FileMaker File hineinlegen kann
Von dort aus kann es dann ganz einfach jederzeit wieder ausgelöst werden und stellt die gelesene Fensterposition wieder her, inkl Anwahl des ebenfalls ermittelten Layouts.
Je nach Bildschirmgrösse sind 2 obtionale Zeilen dafür vorgesehen: als Bildschirm-Mass dient die Papierkorbposition.
Als sehr praktisch erweist sich dabei ein Tastenkürzel zu verwenden, auch ins SkriptMenu gelegt tus seinen Dienst.
Am besten einfach ausprobieren(1 FM-Fenster muss aber mindest offen sein!):

Zitat:
-- ==================================================
global STARTNAME, AppFM, ClipInhalt, n, BounOfWinlist, FMDATEI, ScriptInhalt1, ScriptInhalt2, CurrLay, BuDefDia1, TitelDia1
property AnfZ : "\""
--
==================================================
my PROPERTYER()
--
oooooooooooooooooooooooooooooooo
on PROPERTYER()
set STARTNAME to (first item of (list disks)) as string
--
hier propertys definieren
set AppFM to my AppFMer()
--
Dias
set TitelDia1 to my TEX1()
end PROPERTYER
--
==============================
tell application "FileMaker Pro"
activate
set CurrLay to name of current layout
set FMDATEI to name of window 1
set AppleScript's text item delimiters to ""
set BounOfWinlist to bounds of window 1
--
----------------------------------------------------------------------------------------
set ScriptInhalt1 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 " & AnfZ & CurrLay & AnfZ & ¬
"
of window " & AnfZ & FMDATEI & AnfZ & return & ¬
"
tell application \"Finder\"
set PositionPapierkorbListe to position of trash
end tell
if item 1 of PositionPapierkorbListe > 760 then --kein Farb iMac

else --iMac farbig

end if
(*-------für Fremddatei----------------
tell application \"FileMaker Pro\"
set APA1 to \"
" & FMDATEI & "\"
do script FileMaker script \"open window\" of window APA1
end tell
*)
"
-- das FM-Script do script FileMaker script "open window" empfehle ich für jedes FM-file weil es die Last-action erlaubt: Bildschirm in Vordergrund des gewünschten files, AS kann das nicht weil in starter-file zurück will.
--
----------------------------------------------------------------------------------------
set ScriptInhalt2 to ¬
"set bounds of window \"" & FMDATEI & "\"" & " to {" & item 1 of BounOfWinlist & "," & ¬
item 2 of BounOfWinlist & "," & ¬
item 3 of BounOfWinlist & "," & ¬
item 4 of BounOfWinlist & "}" & ¬
"
--" & CurrLay & "•• "
------------------------------------------------------------------------------------------
set TEXBUTAntwDialog2 to my Dia1()
set AppleScript's text item delimiters to ""
activate
if item 2 of TEXBUTAntwDialog2 = Bu2Dia1 then -- "-> ScriptName u/o AppleScript ?_V!"
set ClipInhalt to "" & ScriptInhalt1
my ClipBoFullAusVaClipInhalt()
else --"kopiert?FileNameBounds?= ?æ_C"
set ClipInhalt to "" & ScriptInhalt2
my ClipBoFullAusVaClipInhalt()
end if
tell application AppFM to activate
activate
end tell
--
ooooooooooooooooooooooooooooooooooooooooooooooooooooo
property Bu1Dia1 : "macht COPY:?FileName?&Bounds"
property Bu2Dia1 : "macht COPY d.AS=Skripttext vollst."
on Dia1()
set BuDefDia1 to Bu2Dia1
activate
set DisplDia1 to (display dialog TitelDia1 ¬
buttons {Bu1Dia1, BuDefDia1} ¬
default button Bu2Dia1 ¬
default answer FMDATEI ¬
giving up after 120 with icon 2)
set TEXBUTAntwDialog2 to {text returned, button returned} ¬
of DisplDia1
end Dia1
--
ooooooooooooooooooooooooooooooooooooooooooooooooooooo
on Dia2()
tell application "FileMaker Pro" to ¬
activate (display dialog n & ¬
".Menu sollte ScriptMaker™ öffnen
daraus schliesse ich dass Ansicht
= Layout-Ansicht
(Blättern ist richtig)
" & return ¬
& "Ich nehme nächstes Menu = 9")
--do menu menu item 1 of menu 9 --nicht OSX-läufig
end Dia2
--
ooooooooooooooooooooooooooooooooooooooooooooooooooooo
on TEX1()
"ScriptMaker™Tipps
•Fenster(nach MarkKlick)AUF/AB= ctrl_K/L
•in Menu aufn.(nach Mark)=LEERS.
•Skript bearb.(nach Mark-Klick)= ENTER
•SkriptNamenListe<->SkriptFenster= TAB
•Skript->SkriptFenster=LEERS.
•AppleScript bearbeiten=LEERS.
Du (!)machst in FM ?æ_V
"
end TEX1
--
ooooooooooooooooooooooooooooooooooooooooooooooooooooo
(*
--wenn Fkt. in file
on ClipBoFullAusVaClipInhalt()
set PFAD to ((first item of (list disks)) as string) & ":" & ¬
" ALLE_öffner:PRAKTISCH!:9999HANDLERS:ClipBoFullAusVaClipInhalt_HA"
return ClipBoFullAusVaClipInhalt(ClipInhalt) of (load script file PFAD)
end ClipBoFullAusVaClipInhalt
*)
--
ooooooooooooooooooooooooooooooooooooooooooooooooooooo
--
(*--wenn Fkt.in diesem file
on ClipBoFullAusVaClipInhalt()
try
--a
--
set ClipInhalt to "" & ClipInhalt--komischerweise unnötig
set the clipboard to ClipInhalt -- ok
on error
--a
beep 3
try
tell application "Finder"
activate
set ClipInhalt to "" & ClipInhalt --nötig!
set the clipboard to ClipInhalt as text --the !!
end tell
on error
activate (display dialog ¬
"Darf nicht auftreten ")
end try
end try
end ClipBoFullAusVaClipInhalt
--
*)
--
ooooooooooooooooooooooooooooooooooooooooooooooooooooo
on Menu8()
tell application AppFM to activate
tell application "FileMaker Pro"
--get name of menu item 1 of menu 8--"ScriptMaker™..."
--
do menu menu item 1 of menu "ScriptMaker™..."
set n to name of menu 8 as text
if n contains "Script" then
--activate (display dialog n)
do menu menu item 1 of menu 8
else
try
my Dia2()
on error
return
end try
end if
end tell
end Menu8
--
ooooooooooooooooooooooooooooooooooooooooooooooooooooo
(*
--für selektives Programmwählen, Fkt in file deponiert
on AppFMer()
set PFAD to ((first item of (list disks)) as string) & ":" & ¬
" ALLE_öffner:PRAKTISCH!:9999HANDLERS:Programme_HA"
set AppFM to FM() of (load script file PFAD)
end AppFMer
*)
--
ooooooooooooooooooooooooooooooooooooooooooooooooooooo
on AppFMer()
set AppFM to "FileMaker Pro"
end AppFMer



ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
_________________
 Skript-Fan => ein � -Fan =>Scr¿¿-KongFuSius_Kurpfusius
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden AIM-Name
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Pool Alle Zeiten sind GMT + 2 Stunden
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2002 phpBB Group
Deutsche Übersetzung von phpBB.de


AppleScript für absolute Starter