Newest functions Upload a function Leave a tip My account

There are 2,520 functions in this library.

isFrontMostTabPanel ( _objectName )

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

  Average rating: 4.4 (33 votes) Log in to vote

Fabrice Nordmann - Show more from this author 1-more-thing https://www.1-more-thing.com

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

/* isFrontMostTabPanel ( _objectName ) by Fabrice Nordmann 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 ) ) Click to copy

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 )
)
---------------------

 

Comments

Log in to post comments.

 

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

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 20 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: