In order for this site to work correctly, and for us to improve the site, we need to store a small file (called a cookie) on your computer.
By continuing to use this website, you agree to our cookies and privacy policy.
Home page Home page Home page Home page
Pixel Header R1 C1 Pixel
Pixel Header R2 C1 Pixel
Pixel Header R3 C1 Pixel

Deep Zoom by Les Palenik - Cosmotron Systems Ltd

Usually, if you want to display a secondary window from a current window, you would add a softkey option to that window, e.g. Shift-F1 with a code of "W" and name of the secondary window. If you need to "jump" into several windows, e.g. product, customer, vendor from an invoice window, you'll have to use multiple soft keys, e.g. Shift- F1 for products, Shift-F2 for customers and Shift-F3 for vendors. This method is usually too difficult to remember for the users and in complex screens it uses up too many keys.

We adopted in all our applications a consistent single "Deep Zoom" key that allows the user to invoke the desired secondary window. You can use any soft key, but to make it easier for the user, use Shift-F3 which is similar to F3 (zoom).

This is what it takes :- In each window, define the Shift-F3 key as the "Deep Zoom" soft key key.

 Key   User Description                   Code    Command            
 SF1   Invoice Report                     S       INVOICE_REPORT     
 SF3   Deep Zoom                          S       DEEPZOOM           

In the prompt table (Shift-F6 in the Paint), insert the name of the corresponding windows into the Register 1 for all applicable prompts. Now when you press Shift-F3, the DEEPZOOM subroutine retrieves the name of the specified window, and invokes that window (if prompt contains any data, the @Id is loaded with that value).

0001    Subroutine DeepZoom
0002    *******************
0003    * Author:Les Palenik, Cosmotron Systems Ltd.
0004      $Insert Include, Window_Common%
0005      * Load the window name from Register 1
0006      WindowName = WC_Prompts%<WC_Wi%, 47>
0007      * Load the current prompt data
0008      RecId = WC_Is%
0009      If WindowName Then
0010       SaveId = @Id ; SaveRec = @Record
0011       Call Catalyst("W", WindowName : " " : RecId)
0012       @Id = SaveId ; @Record = SaveRec
0013      End
0014    Return

The only limitation of the above method is that you must position the cursor on the right prompt before you can "zoom" into the desired secondary window. The advantages of the intuitive "Deep Zoom" operation, however, outweigh by far that restriction. In fact, many of our users consider now the Deep Zoom key an integral part of Advanced Revelation, and are surprised when this keystroke won't work in other Revelation applications.

(Volume 4, Issue 9, Page 11)
Pixel Footer R1 C1 Pixel