Textfarbe in Skript beeinflussen...?

[Wuggy]

Moin,

ich bin noch gaaanz am Anfang in Sachen Apple Skript. Daher weiss ich auch auch nicht,
ob ich hier mit meiner Frage richtig bin.

Ich möchte mir über Apple Skript - Font Book - Create Font Sample meine
Schriftsammlung ausdrucken. Jetzt wird ja der gesamte Text in schwarzer Schrift
in TextEdit angezeigt. Ich möchte jetzt aber die jeweilige Überschrift (Schriftschnitt Name)
in einer anderen Farbe (z.B. blau) angezeigt bekommen.

Ist das irgendwie möglich? Vielleicht mit set color to XXX oder so etwas?
Und welche Werte muss ich da dann einsetzen?


Gruß
Wuggy

 

[hubionmac]

Wenn du in der OSX Schriftsammlung die Fonts auswählst und dann auf Drucken gehst, bekommst Du auch eine nett Vorschau und den Schirftnamen hervorgehoben... hilft das vielleicht?

 

[Wuggy]

Moin hubionmac,

danke für den Hinweis. Das ist dann zwar nicht farblich getrennt, dafür ist die Aufmachung
aber ganz ok und man kann das so doch recht gut auseinander halten.

Werd ich dann erst mal so nutzen.


Danke,

Wuggy

 

[hubionmac]

Zeig' doch mal so eine Textdatei...

 

[Wuggy]

Moin,

was für eine Text-Datei meinst du ?
Ich häng mal die Seitenansicht aus TextEdit an, hoffe du meintest das.

So sieht es jedenfalls aus, wenn man mit dem Skript 'Create Font Sample' arbeitet.
Um da jetzt die Schriftnamen farblich hervor zu heben könnte man das ja alles manuell
in TextEdit ändern... aber bei so vielen Schriften... aber war ja auch nur eine Idee.

 

[CloneOfMyself]

den letzten tell-block an das front dokument von "TextEdit" mal austauschen gegen:

...

		tell the front document of application "TextEdit"
			tell paragraph paraIndex
				set font to "LucidaGrande"
				set size to 14
				set color of characters 1 thru -1 to {62791, 33951, 8336}
				set characters to familyName & return & return
			end tell
			set paraIndex to paraIndex + 1
			
			repeat with psName in postScriptNames
				set success to true
				try
					tell paragraph paraIndex
						set font to psName
						set size to 12
						set color of characters 1 thru -1 to {0, 0, 0}
						
						set characters to tab & psName & return & return
					end tell
				on error
					set success to false
				end try
				if success then
					set paraIndex to paraIndex + 1
				end if
			end repeat
			set paragraph paraIndex to return & return
			set paraIndex to paraIndex + 1
		end tell

...

 

[Wuggy]

YES YES YES !!!

Genau so wollte ich das haben !
1000-dank an Dich für die Antwort und Mühe.


Gruß vom sich freuenden Wuggy