FileMaker Pro Custom Functions

/* AppleScript_Choose_Color ( result_field ; format ) version 10 --------------------------------------------- Thomas Siebert, 11.11.2011 info@t-seabird.de www.t-seabird.de --------------------------------------------- Choose a color by the Apple Color Chooser and return the result to a FileMaker field. format: 1 = RGB, (FileMaker style) --> rgb ( 228;123;96 ) 2 = RGB, (html/css style) --> rgb(228,123,96) 3 = HEX, (html/css style) --> #E47B60 Die CF wird über den Scriptschritt "AppleScript ausführen" mit der Option "Berechnetes Script" genutzt. "AppleScript ausführen" steht auch direkt in den Tastenkommandos zur Verfügung. Use the ScriptStep "Perform AppleScript" using the option "Calculated AppleScript" You also shall use "Perform AppleScript" directly from a button. */ Let ([ FMP = Case ( RightWords ( Get ( FileMakerPath ) ; 1 ) = "Advanced" ; "FileMaker Pro Advanced" ; "FileMaker Pro" ) ; FMP_Version = Get ( ApplicationVersion ) ; defaultColor = Filter ( result_field ; "0123456789ABCDEF,;" ) ; format = Case ( not IsEmpty ( format ) ; format ; 1 ) ; defaultRGB = Substitute ( Filter ( defaultColor ; "0123456789ABCDEF,;" ) ; [ ";" ; ¶ ] ; [ "," ; ¶ ] ; [ " " ; "" ] ) ; defaultRGB = ( MiddleValues ( defaultRGB ; 1 ; 1 ) * 257 ) & ", " & ( MiddleValues ( defaultRGB ; 2 ; 1 ) * 257 ) & ", " & ( MiddleValues ( defaultRGB ; 3 ; 1 ) * 257 ) ; HEX_1 = ( Position ( "0123456789ABCDEF" ; Middle ( defaultColor ; 1 ; 1 ) ; 1 ; 1 ) - 1 ) * 257 ; HEX_2 = ( Position ( "0123456789ABCDEF" ; Middle ( defaultColor ; 2 ; 1 ) ; 1 ; 1 ) - 1 ) * 257 ; HEX_3 = ( Position ( "0123456789ABCDEF" ; Middle ( defaultColor ; 3 ; 1 ) ; 1 ; 1 ) - 1 ) * 257 ; HEX_4 = ( Position ( "0123456789ABCDEF" ; Middle ( defaultColor ; 4 ; 1 ) ; 1 ; 1 ) - 1 ) * 257 ; HEX_5 = ( Position ( "0123456789ABCDEF" ; Middle ( defaultColor ; 5 ; 1 ) ; 1 ; 1 ) - 1 ) * 257 ; HEX_6 = ( Position ( "0123456789ABCDEF" ; Middle ( defaultColor ; 6 ; 1 ) ; 1 ; 1 ) - 1 ) * 257 ; HEX_R = HEX_2 + ( HEX_1 * 16 ) ; HEX_G = HEX_4 + ( HEX_3 * 16 ) ; HEX_B = HEX_6 + ( HEX_5 * 16 ) ; defaultColor = Case ( Left ( result_field ; 1 ) = "#" ; HEX_R & ", " & HEX_G & ", " & HEX_B ; defaultRGB ) ; result_field = Substitute ( GetFieldName ( result_field ) ; "::" ; ¶ ) ; Cell_Result = Substitute ( RightValues ( result_field ; 1 ) ; ¶ ; "" ) ; Table_Result = Substitute ( LeftValues ( result_field ; 1 ) ; ¶ ; "" ) ]; "set FMP_DB to \"" & Get ( FileName ) & "\" ¶--tell application \"" & FMP & "\" ¶set FMP_ID_CurrentRec to the ID of current record of database FMP_DB ¶--end tell ¶set format to " & format & " ¶set defaultColor to {" & defaultColor & "} ¶set the hex_list to {\"0\", \"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"A\", \"B\", \"C\", \"D\", \"E\", \"F\"} ¶ ¶ choose color default color defaultColor ¶ ¶ 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 (R_Result) div 256 ¶ set G_Result to (G_Result) div 256 ¶ set B_Result to (B_Result) div 256 ¶ ¶ if format = 1 then ¶ set myResult to \"rgb ( \" & R_Result & \";\" & G_Result & \";\" & B_Result & \" )\" as string ¶ else if format = 2 then ¶ set myResult to \"rgb(\" & R_Result & \",\" & G_Result & \",\" & B_Result & \")\" as string ¶ else if format = 3 then ¶ ¶ set Rdiv to ((R_Result) div 16) + 1 ¶ set Rdiv to item Rdiv of hex_list ¶ set Gdiv to ((G_Result) div 16) + 1 ¶ set Gdiv to item Gdiv of hex_list ¶ set Bdiv to ((B_Result) div 16) + 1 ¶ set Bdiv to item Bdiv of hex_list ¶ ¶ set Rmod to ((R_Result) mod 16) + 1 ¶ set Rmod to item Rmod of hex_list ¶ set Gmod to ((G_Result) mod 16) + 1 ¶ set Gmod to item Gmod of hex_list ¶ set Bmod to ((B_Result) mod 16) + 1 ¶ set Bmod to item Bmod of hex_list ¶ ¶ set myResult to \"#\" & Rdiv & Rmod & Gdiv & Gmod & Bdiv & Bmod as string ¶ end if ¶ ¶--tell application \"" & FMP & "\" ¶ save record id FMP_ID_CurrentRec of table \"" & Table_Result & "\" of database FMP_DB ¶ set cell \"" & Cell_Result & "\" of record id FMP_ID_CurrentRec of table \"" & Table_Result & "\" of database FMP_DB to myResult ¶--end tell" )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.