System Color Chart

[townsend]

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.

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

And this is what you get.

Sample Colors

[jon@armasoft.co.uk]

Most useful. I also created a copy on a black background and another pair setting the background colour on each name with black/white text.