Wunsch für automatische Fenstergröße

Am 06.04.2009 um 23:11 schrieb djschulz:

> Hallo,
>
> wenn sich die Arbeitsumgebung hauptsächlich in der Bildschirmgröße
> unterscheidet, dann braucht man eigentlich nur nach der Größe
> desselbigen zu fragen. Wie macht man das? In dem man einfach die
> Größe des Schreibtisches ermittelt:
> tell application "Finder"
> bounds of window of desktop
> end tell
>
> Das Ergebnis ist eine Liste mit vier Integerwerten. Die letzen
> beiden stellen die Breite und Höhe des Monitors dar:
> {0, 0, 1680, 1050}
>

Hallo Detlef,

vielen herzlichen Dank für Deine konstruktiven Hinweise.

Ich habe zunächst so etwas wie einen erweiterbaren Prototyp gebastelt.
Man kann die Struktur auch dazu verwenden,
um den Befehl "Komponente öffnen" durch ein entsprechendes Skript zu
erweitern.

Gruß
Lutz

tell application "Finder"
-- Ermittlung der Monitorgöße bze. -auflösung
set theMonitorgroesse to bounds of window of desktop
-- Eine Größe (item 3 = Breite oder item 4 = Höhe) reicht in der
Regel für die Unterscheidung der Monitore und für absolute
Positionierung
set theMonitorgroesse to item 3 of theMonitorgroesse
end tell

tell application "RagTime 6.5"
activate
-- Das beim Aufruf des Skripts ausgewählte RT-Fenster wird "notiert"
set theStartfenster to name of window 1
-- Beginn der Aufräumarbeit
repeat with i in (get name of every window)
select window i
-- Standartgröße und -skalierung
if theMonitorgroesse = 1920 then
set theLeft to 200.0
set theTop to 80.0
set theRight to 1800.0
set theBottom to 1190.0
set theScale to 1.5
end if
if theMonitorgroesse = 1024 then
set theLeft to 0.0
set theTop to 80.0
set theRight to 900.0
set theBottom to 768.0
set theScale to 1.0
end if
-- Die folgenden Ausnahmen können erweitert werden
if name of window i contains "Inventar" then
if theMonitorgroesse = 1920 then
set theLeft to 1600.0
set theTop to 80.0
set theRight to 1920.0
set theBottom to 1190.0
set theScale to 1.0
end if
if theMonitorgroesse = 1024 then
set theLeft to 700.0
set theTop to 80.0
set theRight to 1024.0
set theBottom to 758.0
set theScale to 1.0
end if
end if -- Ende der ersten und hier einzigen Ausnahme
-- Positionierung des jeweiligen Fensters
set bounds of window i to {theLeft, theTop, theRight, theBottom}
-- Skalierung des jeweiligen Fensters
try -- Ist für Textkomponentenfenster erforderlich.
set display scale of window i to theScale
end try
delay 2 -- Verlangsamung zu Demozwecken – kann entfallen
end repeat
-- Ende der Aufräumarbeit
-- Das "notierte" Fenster wird wieder in den Vordergrund geholt.
select window theStartfenster
end tell

Hallo Lutz

Auch wenn du ein Super-Script geschrieben hast: Es heisst immer noch "Standardgröße" und nicht "Standartgröße"! (Standarte = militärischer Wimpel; Standard = Norm)

Mit freundlichem Gruss
Thomas

Am 08.04.2009 um 19:16 schrieb Thomas Kaegi:

> Hallo Lutz
>
> Auch wenn du ein Super-Script geschrieben hast: Es heisst immer noch
> "Standardgröße" und nicht "Standartgröße"! (Standarte =
> militärischer Wimpel; Standard = Norm)
>

Hallo Thomas,

stimmt.
Ich bitte um Entschuldigung

Gruß
Lutz

Guten Tag Allerseits,

ich habe mir ein Skript gebastelt,
das mir Fenster mit bestimmten Namen(sbestandteilen)
an einer bestimmten Stelle auf dem Bildschirm
in einer bestimmten Größe
mit einer bestimmten Skalierung öffnet.

Dieses Skript gilt leider nur für eine einzige Arbeitsumgebung.
Ich würde es gerne so erweitern,
dass es automatisch die Arbeitsumgebung abfragt
und in Abhängigkeit davon die Fenster und Skalierung setzt.

1. Arbeitsumgebung
Am häuslichen Schreibtisch habe ich das 30-Zoll Apple Cinema Display
an mein 17-Zoll MacBook Pro angeschlossen (Bildschirme nicht
synchronisiert)

2. Arbeitsumgebung
In der Schule arbeite ich im Unterricht mit einem Beamer (1024 x 768)
– Bildschirme synchronisiert.

3. Arbeitsumgebung
Ich arbeite ausschließlich mit dem MacBook Pro (1920 x 1200).

Das Skript müsste nun zunächst feststellen,
was angeschlossen ist und/oder welche Auflösung gilt.

Mit den Mitteln von AppleScript geht dies wohl nicht.
Gibt es trotzdem eine Chance?

Gruß
Lutz