About This Code
Brief Description:
Adjust Font sizes for better resolution for visually impaired or displaying on projections
Last Modified:
27 Jan 2006
OpenNTF Disclaimer
All of the program code and information presented in the OpenNTF.org Code Bin are provided "as-is", and should be used at your own risk. OpenNTF.org make no express or implied warranty about anything in the Code Bin, and OpenNTF.org will not be responsible or liable for any damage caused by the use or misuse of anything from this site. OpenNTF.org makes no guarantees about anything. Please thoroughly test all of the knowledge and code you find here before you attempt to use them in your production environment.
Code / Description
%REM
/**
******** Change Default Text Size
******** Jim Romaine
******** Created 01.20.06 Modified 01.27.2006
*
*PURPOSE
*To aid in adjusting the font size for either users or when demonstrating via projections.
*
*SPECIAL NOTES
*This could be modified to prompt & close out of Notes directly instead of the request to have the user do it.
*
*HISTORY
*01.20.06 Jim Romaine created this action
*01.27.06 JRR updated the comments for posting
*
*/
%END REM
Sub Click(Source As Button)
On Error Goto ErrorHandler
Dim s As New NotesSession
Dim intSize As Integer
Dim strAns As String
Dim intAns As Integer
strAns = Inputbox$( "Please enter a value between 0 - 25 to increase the font size by." + _
Chr$(10) + "Leave as Zero to reset it to the standard.", "Increase Default Font Size", 0)
If Isnumeric ( strAns ) Then
intSize = Cint ( strAns )
If intSize < 0 Or intSize > 25 Then
Msgbox "The value you entered < " + Cstr( intSize ) + " > is not between 0 - 25. Please re-enter", 0 + 16, "Canceled"
Else
intAns = Msgbox ( "You selected to increase the standard Font size by < " + Cstr( intSize ) + " >. " + _
Chr$(10) + "Do you want to Continue?", 4 + 32, "Continue with Font Size Change" )
If intAns = 6 Then
Call s.SetEnvironmentVar( "Display_font_adjustment", intSize, True )
Msgbox "The standard Font size has been changed by the factor < " + Cstr( intSize ) + " >. " + _
Chr$(10) + "Please Exit Notes and re-enter to view the change.", 0 + 64, "Change Complete"
Else
Msgbox "Process Canceled"
End If
End If
Else
End If
ExitSub:
Exit Sub
ErrorHandler:
Msgbox "Process Canceled"
Goto ExitSub
End Sub
Usage / Example
I received a request from a user to have their resolution & fonts appear bigger ( even after resetting the screen resolution ), and found in the documentation the instructions to have the user change to "HIGH CONTRAST" , update the user preferences to "Use system colors" and an additional step to do VIEW - Text - Larger. After trying this out and seeing the ugly results of High Contrast under standard settings, I saw the note to have the ini setting changed.
So from the Notes Client help:
To add large font settings to your NOTES.INI file
NOTES.INI is a configuration file, located in your Notes directory, that stores information about your personal Notes installation. If you need to use larger fonts at all times, close Notes, open your NOTES.INI file, and add the following setting as a new line anywhere in the file:
Display_font_adjustment=n
Here, n is the number of points added to the default size and is a number between 0 and 25. For example, if you want to increase the font size to 5, you would type:
Display_font_adjustment=5
This lead to creation of the button script text included above, which after further testing found it also affects designer, which could be useful, as described above, to help when illustrating examples on overhead projections to quickly change back and forth between sizes.