Code: Select all
GetFile({{'RTF files', '*.rtf'}, {'Text files', '*.txt'}},,,,, 2)
Code: Select all
nIndex := 2
PutFile({{'RTF file', '*.rtf'}, {'Text file', '*.txt'}},,,,,, @nIndex)
I did this mainly so I could distinguish between two filters with the same extension, e.g.
Code: Select all
{{'RTF file', '*.rtf'}, {'Unicode text file', '*.txt'}, {'ANSI text file', '*.txt'}}
I've tested these enhancements and put proposed revisions on my site at http://kevincarmody.com/hmg/SOURCE/ . I've also posed proposed revisions to the documentation of these two functions at http://kevincarmody.com/hmg/DOC/ .
Kevin