Window Controller

Window Controller is driven via a script that takes multiple parameters. To pass these parameters I use a set of custom functions. You need three: Option, Get Option, and Parameter. You may as well copy Set Option and Result, although they're not used. If you use another way to pass multiple parameters (e.g. the one from SixFriedRice), go on and replace these functions. Only Option and Parameter functions are used by scripts; the Get Option is called by Parameter.

Copy custom functions

1. Option( key, value )

   Substitute( "¶" & Substitute( key; [ "^"; ".^" ]; [ "¶"; ".^^" ] ) & "¶" & Substitute( value; [ "^"; ".^" ]; [ "¶"; ".^^" ] ) & "¶"; [ "^"; ".^" ]; [ "¶"; ".^^" ] ) & "¶"

2. Get Option( options, key )

   Case( IsEmpty( options ) or IsEmpty( key ); ""; Let( [ unwrapped options = Substitute( options; [ "¶"; "" ]; [ ".^^"; "¶" ]; [ ".^"; "^" ] ); key position = Position( "¶" & options; "¶.^^" & key & ".^^"; 1; 1 ) ]; If( key position = 0; ""; Let( [ value position = ValueCount( Left( options; key position ) ); option string = MiddleValues( options; value position; 1 ); start = Position( option string; ".^^"; 1; 2 ) + Length( ".^^" ); end = Position( option string; ".^^"; 1; 3 ) ]; Substitute( Middle( option string; start; end - start ); [ ".^^"; "¶" ]; [ ".^"; "^" ]; [ "¶"; "" ]; [ ".^^"; "¶" ]; [ ".^"; "^" ] ) ) ) ) )

3. Set Option( options, changed options )

   Case( IsEmpty( options ); changed options; IsEmpty( changed options ); options; ValueCount( changed options ) > 1; Set Option( Set Option( options; LeftValues( changed options; 1 ) ); RightValues( changed options; ValueCount( changed options ) - 1 ) ); Let( [ key = MiddleValues( Substitute( changed options; [ "¶"; "" ]; [ ".^^"; "¶" ]; [ ".^"; "^" ] ); 2; 1 ); option position = ValueCount( Left( options; Position( "¶" & options; "¶.^^" & Left( key; Length( key ) - 1 ) & ".^^"; 1; 1 ) ) ) ]; If( option position = 0; options & changed options; LeftValues( options; option position - 1 ) & changed options & RightValues( options; ValueCount( options ) - option position ) ) ) )

4. Parameter( key )

   Get Option( Get( ScriptParameter ); key )

5. Result( key )

   Get Option( Get( ScriptResult ); key )

6. Pressed( key code )

   Mod( Div( Get( ActiveModifierKeys ); key code ); 2 )

7. Set Contains( set, subset )

   Case( IsEmpty( set ); False; IsEmpty( subset ); False; // else subset & Case( Right( subset; 1 ) ≠ "¶"; "¶" ) = FilterValues( subset; set ) )

8. Get Original Window Name( window name )

   /* When FileMaker opens a new window, it uses the original name and a suffix of type " - N", where N is the next sequential number for windows with this name. The Get Original WIndow Name function takes a window name with or without suffix and returns the original name of the window. */ Let( [ right word = RightWords( window name; 1 ); right word is number = Filter( right word; "0123456789" ) = right word ]; If( not right word is number; window name; // else Let( [ suffix = " - " & right word; suffix length = Length( suffix ) ]; If( Right( window name; suffix length ) ≠ suffix; window name; // else Left( window name; Length( window name ) - suffix length ) ) ) ) )

9. Get Window Suffix( window name )

   Let( original name = Get Original Window Name( window name ); If( window name = original name; 1; GetAsNumber( RightWords( window name; 1 ) ) ) )

Copy value lists

1. Window Size Unit

   px in cm

2. Window Size Zoom

   Same 100 - 25 50 75 - 150 200 300 400

3. Window Size Status Toolbar

   Same On On, locked Off Off, locked

4. Window Size Status View

   Form List Table

5. Window Size Options

   Scale down to fit

6. Alignment ID, Name; use the following settings:

   

7. Alignment Reference

   desktop current window object

8. Alignment Horizontal Proxy

   left edge center right edge

9. Alignment Horizontal Point

   left center right

10. Alignment Vertical Proxy

    top edge middle bottom edge

11. Alignment Vertical Point

    top middle bottom

Window Size Name and Alignment Name are used only in the demo file and are not necessary for the controller itself.

Copy tables

1. Copy Window Size, Window Alignment and Window Settings tables. These are data tables, they don't depend on anything from external tables.

2. Add a new TO for Window Alignment and call it Default Alignment. Establish a relationship from Window Size::Alignment ID to Default Alignment::ID:

   

You probably have a single-record table in your applicaiton already. If not, add one; I typically call it System. In order not to break anything we'll copy fields one by one.

1. Copy and paste User, Item, and Window fields into the System table

2. Establish a relationship from System::Window to Window Size::Name

   

3. Establish a relationship from System::User, System::Window and System::Item to Window Settings::User, Window Settings::Window and Window Settings::Item.

   

4. Copy and paste the Alignment field.

5. Establish a relationship from System::Alignment to Window Alignment::Name

   

6. Copy and paste remaining fields: Window Controller, Width, Heihgt, Top, Left, Status Area, Zoom.

Copy layouts

1. Make sure you have layouts System, Window Size, Window Alignment and Window Settings. If you used your own table as System you might need to rename an existing layout; you can rename it back after you paste scripts. Note that layout names are case sensitive.

2. Switch the Window Size layout into list view and set layout parts to: header: 41 px; body: 106 px; trailing grand summary: 19 px.

3. Switch the Window Alignment layout into list view and set layout parts to: header: 41 px; body: 121 px; trailing grand summary: 19 px.

4. Add an empty layout Demo, Test. Link it to Window Size table. Make it blank, small and use some background you like.

Copy scripts

• Copy and paste script from the following folders:

  

Copy layout elements

1. Copy and paste layout elements from the Window Size layout. Delete the Demo tab.

2. Copy and paste layout elements from the Window Alignment layout. Delete the Demo tab.

You should be ready to use the controller. The demo file also has a customized menu, but you cannot easily copy it. The menu doesn't contain anything specific, only renamed New Record, Duplicate Record, Delete Record and browse commands commands. The only custom command is Test, but it has a button.

blog comments powered by Disqus