OSAX: MonitorDepth - set/max/min monitor depth

[Snow]

Beschreibung: Das Skript ermittelt die derzeitige Farbtiefe des Monitors, stellt dabei auch die Maximal- und Minimumwerte fest und erlaubt schließlich, per Dialogauswahl, die Farbtiefe umzuschalten.


Code:

set Button1 to "8 Bit"
set Button2 to "16 Bit"
set Button3 to "32 Bit"

set curMonitorDepth to monitor depth
set maxMonitorDepth to max monitor depth
set minMonitorDepth to min monitor depth

if curMonitorDepth = maxMonitorDepth then
set Button3 to "Abbrechen"
else if curMonitorDepth = minMonitorDepth then
set Button1 to "Abbrechen"
else
set Button2 to "Abbrechen"
end if
set ButtonList to { Button1, Button2, Button3 }

set thePressedButton to button returned of (display dialog "Ihr Monitor ist auf " & ¬
curMonitorDepth & " Bit eingestellt. Maximal möglich sind: " & ¬
maxMonitorDepth & " Bit." buttons ButtonList with icon note)

if thePressedButton = "Abbrechen" then
return
else
set NewDepth to (text 1 thru -5 of thePressedButton) as integer
end if

set monitor depth NewDepth


Anmerkung:
In diesem Skript kommen alle Möglichkeiten vor, welche die OSAX "MonitorDepth" anbietet.
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com

[hurrypeace]

It is a source of knowledge that is very useful too. I will study every day.