File selection - %fs[path]

In this section:

• Displaying Text
  • Font name - %fn[font_name]
  • Get font - %gf
  • Font attributes - %it, %bf, %ul
  • System font - %sf
  • Font default - %fd
  • Subscript - %sd
  • Superscript - %su
  • Text size - %ts
  • Text colour - %tc
  • Variable string _ %N.mst
  • Sterling pound symbol - %pd
  • Mathematical equation - %eq[equation]
• Edit Boxes
  • Edit box - %eb
  • Text array - %N.Mtx[options]
• File selection and filter
  • File selection - %fs[path]
  • File filter - %ft[name][filter]

%fs (Directory for File Dialog) together with the related %ft (Filter for File Dialog) format code (see below), changes the default file selection used by a subsequent FILE_OPENR or FILE_OPENW call-back function (see FILE_OPENR). The information is used in the standard Windows dialog displayed by these call-back functions. %fs is followed by a standard character string, that is either:

a) the path name of a directory to be used rather than the current working directory (e.g. C:\TEST), or

b) a complete file selection specification (e.g. C:\TEST\*.EXE).

In the latter case the file filter information, displayed at the bottom of the standard 'file open' dialog, is replaced by the specified filter.

 WINAPP
 CHARACTER*129 filenm
 INTEGER i,winio@
 COMMON filenm
 EXTERNAL disp_name
 filenm=' '
 i=winio@('%fs[c:\dbos.dir\*.wri]&')
 i=winio@('%mn[&File[&Open]]&','FILE_OPENR',filenm,disp_name)
 i=winio@('%mn[[E&xit]]','EXIT')
 END

 INTEGER FUNCTION disp_name()
 CHARACTER*129 filenm
 INTEGER i,winio@
 COMMON filenm
 i=winio@('%ws %`bt[OK]',filenm)
 disp_name=1
 END