If your users use different screen resolutions you generally would have to design your navigators for the lowest common denominator. Using this code, you can provide different navigators depending on the size of the screen.
By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
'Paste the following into the database script declarations:
Declare Function GetSystemMetrics Lib "user32" (Byval nIndex As Long) As Long
Sub Postopen(Source As Notesuidatabase)
Dim session As New NotesSession
'get the screen width and assign it to the screensize environment variable
scrnwidth=Str(getsystemmetrics(16)) Call session.SetEnvironmentVar( "screensize", scrnwidth) End Sub
I've found it is best to put the following code in the About document (hotspot, button etc..) and get the user to enter the database from there. This code will launch the relevant full screen navigator.
REM "Launches either the 1024*768 nav or 800*600"; @Command([FileCloseWindow]) ; @If(@TextToNumber(@Environment("screensize")) > 1000; @PostedCommand([OpenNavigator];"Main1024";"1"); @PostedCommand([OpenNavigator];"Main800";"1"))
From a normal navigator, use the same code to return to the main navigator if you are going between screens.
This code could also be used to load different size forms for document creation eg:-
@If(@TextToNumber(@Environment("screensize")) > 1000; @Command([Compose];"Form1024"); @Command([Compose];"Form800"))