System Color Chart
Posted: Mon Dec 23, 2013 7:14 pm
While trying to find all the color names used by the system,
I found the function, put the colornames which listed all of them.
But I couldn't see any colors. So i wrote this little Button routine
which displayed all the 552 names-- in the color of the name.
Create a text field named, "color.names" and put this code in a Button.
And this is what you get.
I found the function, put the colornames which listed all of them.
But I couldn't see any colors. So i wrote this little Button routine
which displayed all the 552 names-- in the color of the name.
Create a text field named, "color.names" and put this code in a Button.
Code: Select all
on mouseUp
local ii, the.color
put the colornames into fld "color.names"
set the textstyle of fld "color.names" to "bold"
set the textsize of fld "color.names" to 16
replace cr with ", " in fld "color.names"
set the label of me to number of items in fld "color.names" && "Colors"
repeat with ii=1 to number of items in fld "color.names"
put item ii of fld "color.names" into the.color
set the textcolor of item ii of field "color.names" to the.color
end repeat
end mouseUp- Sample Colors