Shopping Cart

Free Newsletter
Signup

Contact me | vCard

Brian on CNN

Brian on CBS Radio

FileMaker is a registered trademark of FileMaker, Inc. in the U.S. and other countries.

FileMaker Pro Custom Functions

Search | List | Show Random | Upload | Add This to Your Site

isFrontMostTabPanel ( _objectName )

Fabrice Nordmann, BH&A
http://www.bh-a.com

Returns 1 if _objectName is or contains the frontmost tab panel, else 0

Sample Input:

isFrontMostTabPanel ( "myTab" )

Sample Output:

/* isFrontMostTabPanel ( _objectName ) by Fabrice Nordmann, BH&A http://www.bh-a.com v.1, Dec 2007 Retuns 1 if _objectName is or contains the frontmost tap panel, else 0. Based on Agnès Barouh's CustomList ( http://www.briandunning.com/cf/747 ) NOT RECURSIVE */ Let ([ $x = _objectName ; $EON = $x & ¶ & /* #################### LIST OF ENCLOSING OBJECTS ######################## */ Let ( [ start = 1 ; end = ValueCount ( LayoutObjectNames ( Get ( FileName ) ; Get ( LayoutName ))) ; function = "case ( not isempty ( $x ) ; getlayoutobjectattribute ( $x ; \"enclosingobject\" ) & let([ $x = getlayoutobjectattribute ( $x ; \"enclosingobject\" )];\"\"))" // Number List : --------------- Create numeric list ------------------- ; NumCalc = Substitute ( ( 10 ^ 33 ) -1; "9"; "100100100" ) ; List1_99 = Substitute ( "_00" & NumToJText ( Left ( NumCalc * NumCalc ; 295 ) ; 1 ; 0 ) ; ["," ; "_"] ; ["." ; "_"] ) ; $List100_199 = "_100" & Substitute ( List1_99 ; ["_0" ; "_1"] ) ; // (local variable makes it faster in a looped script ) EndMax = LeftWords ( List1_99 & $List100_199 & "_200" ; Int ( ( End - 100 ) / 100 ) + 1 ) ; FinalList = MiddleWords ( List1_99 & Evaluate ( Substitute ( "(\"_" & EndMax ; [ "_"; ( "|Substitute( $List100_199 ; \"_1\"; \"_" ) ] ; [ "|"; "\") & "] ) & "\")" ) ; Start ; End - Start + 1 ) ; //----------------------------- End Create numeric list ----------------- FunctionR = Substitute ( Function ; "[n]" ; "Num" ) ; // Execute : Create the function string to be evaluated Execute = Case ( not IsEmpty ( Function ) ; Case ( Left ( Substitute ( Lower ( Function ) ; ["Define" ; "Let" ] ; [" " ; ""] ; ["¶" ; ""]) ; 5 ) = "Let([" ; // If it's a Let() Substitute ( "Let([Num=" & FinalList & "|" ; [ "_"; "|¶Let([Num="] ; [ "|"; ";" & Replace ( FunctionR ; 1 ; Position ( FunctionR ; "[" ; 1 ; 1 ) ; "" ) & "&\"^|^\"&"] ) ; Substitute ( "Let([Num=" & FinalList & "|" ; [ "_"; "|¶Let([Num="] ; [ "|"; "];" & FunctionR & ")&\"^|^\"&"] ) ) ) ; // X - Set the number of "packs" to work around the Evaluate limitation X = Int ( End / 1700 ) ; // Result : if "Function" parameter is empty, result is numeric list Result = Substitute ( "^" & Case ( IsEmpty ( Function ) ; Substitute ( "_" & FinalList ; ["_00" ; "¶"] ; [ "_0" ; "¶"] ; [ "_" ; "¶"] ) ; Evaluate ( MiddleValues ( Execute ; 1 ; 1700 ) & "\"\"") & Case ( X >= 1 ; Evaluate ( MiddleValues ( Execute; 1701; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 2 ; Evaluate ( MiddleValues ( Execute; 3401; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 3 ; Evaluate ( MiddleValues ( Execute; 5101; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 4 ; Evaluate ( MiddleValues ( Execute; 6801; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 5 ; Evaluate ( MiddleValues ( Execute; 8501; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 6 ; Evaluate ( MiddleValues ( Execute; 10201; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 7 ; Evaluate ( MiddleValues ( Execute; 11901; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 8 ; Evaluate ( MiddleValues ( Execute; 13601; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 9 ; Evaluate ( MiddleValues ( Execute; 15301; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 10 ; Evaluate ( MiddleValues ( Execute; 17001; 1700 ) & "\"\"" ) ; "" )) & "^" ; [ "^|^"; "¶" ] ; [ "¶"; "¶^" ] ; [ "^¶"; "" ] ; [ "¶^"; "¶" ] ; [ "¶^" ; "" ] ; [ "^" ; "" ] ) ] ; Result ) ; $IFTP = /* #################### LIST OF FRONT TAB PANELS ######################## */ Let ( [ start = 1 ; end = ValueCount ( $EON ) ; function = "let([ $o = getvalue ( $EON ; [n] )]; getlayoutobjectattribute ( $o ; \"isFrontTabPanel\" ))" // Number List : --------------- Create numeric list ------------------- ; NumCalc = Substitute ( ( 10 ^ 33 ) -1; "9"; "100100100" ) ; List1_99 = Substitute ( "_00" & NumToJText ( Left ( NumCalc * NumCalc ; 295 ) ; 1 ; 0 ) ; ["," ; "_"] ; ["." ; "_"] ) ; $List100_199 = "_100" & Substitute ( List1_99 ; ["_0" ; "_1"] ) ; // (local variable makes it faster in a looped script ) EndMax = LeftWords ( List1_99 & $List100_199 & "_200" ; Int ( ( End - 100 ) / 100 ) + 1 ) ; FinalList = MiddleWords ( List1_99 & Evaluate ( Substitute ( "(\"_" & EndMax ; [ "_"; ( "|Substitute( $List100_199 ; \"_1\"; \"_" ) ] ; [ "|"; "\") & "] ) & "\")" ) ; Start ; End - Start + 1 ) ; //----------------------------- End Create numeric list ----------------- FunctionR = Substitute ( Function ; "[n]" ; "Num" ) ; // Execute : Create the function string to be evaluated Execute = Case ( not IsEmpty ( Function ) ; Case ( Left ( Substitute ( Lower ( Function ) ; ["Define" ; "Let" ] ; [" " ; ""] ; ["¶" ; ""]) ; 5 ) = "Let([" ; // If it's a Let() Substitute ( "Let([Num=" & FinalList & "|" ; [ "_"; "|¶Let([Num="] ; [ "|"; ";" & Replace ( FunctionR ; 1 ; Position ( FunctionR ; "[" ; 1 ; 1 ) ; "" ) & "&\"^|^\"&"] ) ; Substitute ( "Let([Num=" & FinalList & "|" ; [ "_"; "|¶Let([Num="] ; [ "|"; "];" & FunctionR & ")&\"^|^\"&"] ) ) ) ; // X - Set the number of "packs" to work around the Evaluate limitation X = Int ( End / 1700 ) ; // Result : if "Function" parameter is empty, result is numeric list Result = Substitute ( "^" & Case ( IsEmpty ( Function ) ; Substitute ( "_" & FinalList ; ["_00" ; "¶"] ; [ "_0" ; "¶"] ; [ "_" ; "¶"] ) ; Evaluate ( MiddleValues ( Execute ; 1 ; 1700 ) & "\"\"") & Case ( X >= 1 ; Evaluate ( MiddleValues ( Execute; 1701; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 2 ; Evaluate ( MiddleValues ( Execute; 3401; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 3 ; Evaluate ( MiddleValues ( Execute; 5101; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 4 ; Evaluate ( MiddleValues ( Execute; 6801; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 5 ; Evaluate ( MiddleValues ( Execute; 8501; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 6 ; Evaluate ( MiddleValues ( Execute; 10201; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 7 ; Evaluate ( MiddleValues ( Execute; 11901; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 8 ; Evaluate ( MiddleValues ( Execute; 13601; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 9 ; Evaluate ( MiddleValues ( Execute; 15301; 1700 ) & "\"\"" ) ; "" ) & Case ( X >= 10 ; Evaluate ( MiddleValues ( Execute; 17001; 1700 ) & "\"\"" ) ; "" )) & "^" ; [ "^|^"; "¶" ] ; [ "¶"; "¶^" ] ; [ "^¶"; "" ] ; [ "¶^"; "¶" ] ; [ "¶^" ; "" ] ; [ "^" ; "" ] ) ] ; Result ) ]; PatternCount ( $IFTP ; 1 ) = ValueCount ( $IFTP ) )
Then copy & paste into FileMaker Advanced's Edit Custom Function window.

if you have myFMbutler's Clip Manager installed

Description:

Thanks to Agnès Barouh's CustomList, it is now possible to know if a tab is at frontmost without a recursive funciton.
The above code is long because it integrates CustomList in order to make this function available to FM Pro.
With Custom List installed as a custom function, this code would suffice :
----------------------
Let ([ $x = _objectName

// ENCLOSING OBJECTS
; $EON = $x & ¶ &
CustomList ( 1 ; ValueCount ( LayoutObjectNames ( Get ( FileName ) ; Get ( LayoutName ))) ; "case ( not isempty ( $x ) ; getlayoutobjectattribute ( $x ; \"enclosingobject\" ) & let([ $x = getlayoutobjectattribute ( $x ; \"enclosingobject\" )];\"\"))" )

//FRONT TAB PANELS
; $IFTP =
CustomList ( 1 ; ValueCount ( $EON ) ; "let([ $o = getvalue ( $EON ; [n] )]; getlayoutobjectattribute ( $o ; \"isFrontTabPanel\" ))")

];
PatternCount ( $IFTP ; 1 ) = ValueCount ( $IFTP )
)
---------------------

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

This is my Custom Function and I want to edit it

digg this page | del.icio.us this page

Download the Custom Function Dashboard Widget for OS X
Keep all the latest Custom Functions right at your fingertips!

Newest Custom Functions:

1.	CustomList_BottomUp ( Start ; End ; Function )
	(Mon, Jul 21, 5:44am)
2.	ColumnsAcross ( listOfValues ; numberOfColumns ; columnDelimiter )
	(Tue, Jul 15, 8:01am)
3.	_cf_Country_Letter_Code ( _Country )
	(Mon, Jul 14, 8:02pm)

Quick Poll...

Are you mainly Mac
or mainly Windows?

• Mac

• Windows

View the answers

Calendar Snap

Free pop-up calendar for your FileMaker solution. Click here.

Custom Function Authors:
Link to all of your own custom functions on this site with the following URL:
http://www.briandunning.com/filemaker-custom-functions/results.php?author=Your Name Here


			[ Close Window ]
	The class that teaches you how to successfully sell your FileMaker Pro solution as a professional shrinkwrapped software application.
	Let's Meet in Person Sunday, August 13 2006, Orlando FL Courtyard Orlando International Drive
	Don't miss this most important day of the Developer Conference. Please click here for complete details and online registration.

FileMaker Pro Custom Functions

Let's Meet in Person