Notes: Change the size of PicklistCollection dialog box

(from a notes forum post by Sam Chung)

«I have found out the ini for resize PickList Window:
"WindowSizePickKeywords"

However, the parameter is found in Notes6 rather than 5, so chk version before writing it.

You can enlarge the PickList Window size before calling @PickList and restore it after calling

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub AssignPickWinSize

'To enlarge the PickList WIndow Size by setting system Notes.INI
'Backup the sys one with the same name as a user setting($)
On Error Goto ErrH
Const delim = " "
Const key="WindowSizePickKeywords"
Dim tmpstr As String

Set ss = New NotesSession
'get the system variable
tmpstr=Trim(ss.GetEnvironmentString(key, True))
If Len(tmpstr) Then
'BackUp the environment var
Call ss.SetEnvironmentVar(key, tmpstr, False )

tmpArr= Fulltrim(Split(tmpstr, delim))

tmpArr(2)="1000"
tmpArr(3)="900"

tmpstr=Join(tmpArr, " ")
'Set
Call ss.SetEnvironmentVar(key, tmpstr, True)
End If
Exit Sub
ErrH:
Print "Err in setting picklist window size."
End Sub


"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

Sub RestorePickWinSize

'Restore the backup setting from the same name user setting($) in ini
On Error Goto ErrH
Const key="WindowSizePickKeywords"
Dim ss As NotesSession
Dim tmpstr As String
Set ss = New NotesSession

tmpstr=Trim(ss.GetEnvironmentString(key, False))
If Len(tmpstr) Then
'Reset the system
Call ss.SetEnvironmentVar(key, tmpstr , True )
'Clear the user one
Call ss.SetEnvironmentVar(key, "" , False )
End If

ErrH:

End Sub »