AS_Dialog_Choose_Color ( result_field ; output_format ; default_color )

use Apple color chooser to choose a color in formats Filemaker decimal, FileMaker RGB, css RGB and HEX

Average rating: 4.0 (47 votes) Log in to vote

Thomas Siebert - Show more from this author
http://www.t-seabird.de

Sample input:

Perform AppleScript [ AS_Color_Choose ( table::target_field ; 0 ; table::target_field) ]

Perform AppleScript [ AS_Color_Choose ( table::target_field ; 1 ; "#FF0066") ]

Sample output:

10053171

#FFFF22

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
AS_Dialog_Choose_Color( result_field ; output_format ; default_color )

version 20
---------------------------------------------
Thomas Siebert, 26.04.2017
info@t-seabird.de
www.t-seabird.de
---------------------------------------------
Choose a color by the Apple Color Chooser and return the result to a FileMaker field.

output_format:
0 = FileMaker Decimal --> 10053171
1 = RGB, (FileMaker style) --> RGB (153;102;51 )
2 = RGB, (html/css style) --> 153,102,51
3 = HEX, (html/css style) --> #996633

Use the ScriptStep "Perform AppleScript" using the option "Calculated AppleScript"
You also shall use "Perform AppleScript" directly from a button.

*/

"set defaultColor to " & Quote ( default_color ) & " as string
¶set format to " & Quote ( output_format ) & "
¶
¶if format = \"\" then
¶	set format to 1
¶end if
¶
¶
¶if defaultColor = \"\" then
¶	set defaultColor to {0, 0, 0}
¶else
¶	if format = \"0\" then
¶		set defaultColor to FileMakerToRGB(" & Quote ( Filter ( default_color ; "1234567890" ) ) & ")
¶	else if format = \"1\" then
¶		set defaultColor to fmpList_to_AppleScriptList(" & Quote ( Filter ( Substitute ( default_color ; [ ";" ; "¶" ] )  ; "1234567890¶" ) ) & ")
¶		set R to (item 1 of defaultColor) * 257
¶		set G to (item 2 of defaultColor) * 257
¶		set B to (item 3 of defaultColor) * 257
¶		set defaultColor to {R, G, B}
¶	else if format = \"2\" then
¶		set defaultColor to fmpList_to_AppleScriptList(" & Quote ( Filter ( Substitute ( default_color ; [ "," ; "¶" ] )  ; "1234567890¶" ) ) & ")
¶		set R to (item 1 of defaultColor) * 257
¶		set G to (item 2 of defaultColor) * 257
¶		set B to (item 3 of defaultColor) * 257
¶		set defaultColor to {R, G, B}
¶	else if format = \"3\" then
¶		set defaultColor to HEXtoRGB(" & Quote ( Filter ( default_color ; "1234567890ABCDEFabcdef" ) ) & ")
¶	end if
¶	
¶end if
¶
¶try
¶	choose color default color defaultColor
¶	set myResult to result
¶on error number -128
¶	set myResult to result
¶end try
¶
¶
¶set myResult to result
¶set R_Result to (get item 1 of myResult)
¶set G_Result to (get item 2 of myResult)
¶set B_Result to (get item 3 of myResult)
¶
¶set R_Result to round (R_Result / 257)
¶set G_Result to round (G_Result / 257)
¶set B_Result to round (B_Result / 257)
¶
¶if format = \"0\" then
¶	set myResult to RGBtoFileMaker(R_Result, G_Result, B_Result)
¶else if format = \"1\" then
¶	set myResult to \"RGB ( \" & R_Result & \";\" & G_Result & \";\" & B_Result & \" )\" as string
¶else if format = \"2\" then
¶	set myResult to R_Result & \",\" & G_Result & \",\" & B_Result as string
¶else if format = \"3\" then
¶	set myResult to RGBtoHEX(R_Result, G_Result, B_Result)
¶end if
¶
¶if myResult is not false then
¶	try
¶		return_value_to_FileMaker_field(\"" & GetFieldName ( result_field ) & "\", myResult)
¶	on error number -1728
¶		return_value_to_FileMaker_field(\"" & result_field & "\", myResult)
¶	end try
¶end if
¶
¶on return_value_to_FileMaker_field(field_reference, Value)
¶	(* version 9, Thomas Siebert, info@t-seabird.de, 23.04.2017,  
¶	return a value to any FileMaker Field  (global or local) of the current table  
¶	or to a global field of any other table. *)
¶	set AppleScript's text item delimiters to \"::\"
¶	set the item_list to every text item of field_reference
¶	set AppleScript's text item delimiters to \"\"
¶	set myList to item_list as list
¶	set TableName to item 1 of myList
¶	set FieldName to item 2 of myList
¶	--tell application \"FileMaker Pro Advanced\"
¶		set currentTable to name of current table
¶		try
¶			if TableName = currentTable then
¶				save
¶				set cell FieldName of record ID (ID of current record) of table TableName to Value
¶			else
¶				set cell FieldName of table TableName to Value
¶			end if
¶		on error number the error_number
¶			if error_number = -10006 then
¶				display dialog \"No records in target table. \rThere should be at least 1 record.\"
¶			else if error_number = -10011 then
¶				display dialog \"Record lock conflict.\"
¶			end if
¶		end try
¶	—end tell
¶end return_value_to_FileMaker_field
¶
¶on list_position(this_item, this_list)
¶	repeat with i from 1 to the count of this_list
¶		if item i of this_list is this_item then return i
¶	end repeat
¶	return 0
¶end list_position
¶
¶on RGBtoHEX(R, G, B)
¶	set the hex_list to {\"0\", \"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"A\", \"B\", \"C\", \"D\", \"E\", \"F\"}
¶	set Rdiv to ((R) div 16) + 1
¶	set Rdiv to item Rdiv of hex_list
¶	set Gdiv to ((G) div 16) + 1
¶	set Gdiv to item Gdiv of hex_list
¶	set Bdiv to ((B) div 16) + 1
¶	set Bdiv to item Bdiv of hex_list
¶	
¶	set Rmod to ((R) mod 16) + 1
¶	set Rmod to item Rmod of hex_list
¶	set Gmod to ((G) mod 16) + 1
¶	set Gmod to item Gmod of hex_list
¶	set Bmod to ((B) mod 16) + 1
¶	set Bmod to item Bmod of hex_list
¶	
¶	return \"#\" & Rdiv & Rmod & Gdiv & Gmod & Bdiv & Bmod as string
¶end RGBtoHEX
¶
¶on HEXtoRGB(HEX)
¶	set the hex_list to {\"0\", \"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"A\", \"B\", \"C\", \"D\", \"E\", \"F\"}
¶	set HEX_1 to (list_position(item 1 of HEX, hex_list) - 1) * 16
¶	set HEX_2 to (list_position(item 2 of HEX, hex_list) - 1)
¶	set HEX_3 to (list_position(item 3 of HEX, hex_list) - 1) * 16
¶	set HEX_4 to (list_position(item 4 of HEX, hex_list) - 1)
¶	set HEX_5 to (list_position(item 5 of HEX, hex_list) - 1) * 16
¶	set HEX_6 to (list_position(item 6 of HEX, hex_list) - 1)
¶	set R to (HEX_1 + HEX_2) * 257
¶	set G to (HEX_3 + HEX_4) * 257
¶	set B to (HEX_5 + HEX_6) * 257
¶	return {R, G, B}
¶end HEXtoRGB
¶
¶on RGBtoFileMaker(R, G, B)
¶	(* version 1, Thomas Siebert, info@t-seabird.de, 26.04.2017, AppleScript RGB to FileMaker decimal color *)
¶	return (R * 65536) + (G * 256) + (B * 1)
¶end RGBtoFileMaker
¶
¶on FileMakerToRGB(RGB)
¶	(* version 1, Thomas Siebert, info@t-seabird.de, 26.04.2017, FileMaker decimal Ccolor to AppleScript RGB *)
¶	set R to (RGB div 65536)
¶	set G to (RGB div 256) - (R * 256)
¶	set B to (RGB div 1) - (G * 256) - (R * 65536)
¶	set R to (R * 257)
¶	set G to (G * 257)
¶	set B to (B * 257)
¶	return {R, G, B}
¶end FileMakerToRGB
¶
¶on fmpList_to_AppleScriptList(myList)
¶	(* version 2, Thomas Siebert, info@t-seabird.de, 19.01.2017, FileMaker Listen werden in in AppleScript Listen umgewandelt *)
¶	set AppleScript's text item delimiters to ASCII character 166
¶	set the item_list to every text item of myList
¶	set AppleScript's text item delimiters to \"\\\", \\\"\"
¶	set myList to item_list as list
¶	set AppleScript's text item delimiters to \"\"
¶	return myList
¶end fmpList_to_AppleScriptList
¶
¶on string_substitute(myString, mySearch, myReplace)
¶	set AppleScript's text item delimiters to mySearch
¶	set the item_list to every text item of myString
¶	set AppleScript's text item delimiters to myReplace
¶	set myString to the item_list as string
¶	set AppleScript's text item delimiters to \"\"
¶	return myString
¶end string_substitute"

Apple/Mac only.
opens the Apple standard color chooser via AppleScript and returns the result as RGB values or HEX to a FileMaker text field.

input / output_format:
0 = FileMaker Decimal --> 10053171
1 = RGB, (FileMaker style) --> RGB (153;102;51 )
2 = RGB, (html/css style) --> 153,102,51
3 = HEX, (html/css style) --> #996633

Use the cf within the scriptstep "Perform AppleScript".
Choose the option "Calculated AppleScript".

You also shall use "Perform AppleScript" directly from a button.

Comments

		Michael Holznagel, Germany Apr 3, 2010
Apple Mac OS 10.5.8/FM Pro Advanced 10: Works fine. No Snow Leopard required.

		Thomas Siebert Nov 14, 2015
complete rewrite of the function. the whole code is AppleScript now.

		Thomas Siebert Apr 25, 2017
New input/output format: FileMaker decimal The number is usable within the function "TextColor ( text ; RGB ( red ; green ; blue ) )" such as: TextColor ( text ; 10053171 ) some errors in color conversions corrected

		Thomas Siebert Apr 25, 2017
canceling color chooser dialog doesn't return an error message anymore

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

AS_Dialog_Choose_Color ( result_field ; output_format ; default_color )

Comments

Support this website.

Support this website.