commdlg.fi

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FI 代码 · 共 381 行 · 第 1/2 页

*$noreference

*$ifndef __386__
*$pragma library commdlg
*$endif

      STRUCTURE /OPENFILENAME/
          INTEGER   lStructSize
          INTEGER*2 hwndOwner
          INTEGER*2 hInstance
          INTEGER   lpstrFilter
          INTEGER   lpstrCustomFilter
          INTEGER   nMaxCustFilter
          INTEGER   nFilterIndex
          INTEGER   lpstrFile
          INTEGER   nMaxFile
          INTEGER   lpstrFileTitle
          INTEGER   nMaxFileTitle
          INTEGER   lpstrInitialDir
          INTEGER   lpstrTitle
          INTEGER   Flags
          INTEGER*2 nFileOffset
          INTEGER*2 nFileExtension
          INTEGER   lpstrDefExt
          INTEGER   lCustData
          INTEGER   lpfnHook
          INTEGER   lpTemplateName
      END STRUCTURE

      EXTERNAL GetOpenFileName
      EXTERNAL GetSaveFileName
      EXTERNAL GetFileTitle
      INTEGER*2 GetOpenFileName
      INTEGER*2 GetSaveFileName
      INTEGER*2 GetFileTitle

      INTEGER    OFN_READONLY
      PARAMETER (OFN_READONLY=                 '1'x)
      INTEGER    OFN_OVERWRITEPROMPT
      PARAMETER (OFN_OVERWRITEPROMPT=          '2'x)
      INTEGER    OFN_HIDEREADONLY
      PARAMETER (OFN_HIDEREADONLY=             '4'x)
      INTEGER    OFN_NOCHANGEDIR
      PARAMETER (OFN_NOCHANGEDIR=              '8'x)
      INTEGER    OFN_SHOWHELP
      PARAMETER (OFN_SHOWHELP=                 '10'x)
      INTEGER    OFN_ENABLEHOOK
      PARAMETER (OFN_ENABLEHOOK=               '20'x)
      INTEGER    OFN_ENABLETEMPLATE
      PARAMETER (OFN_ENABLETEMPLATE=           '40'x)
      INTEGER    OFN_ENABLETEMPLATEHANDLE
      PARAMETER (OFN_ENABLETEMPLATEHANDLE=     '80'x)
      INTEGER    OFN_NOVALIDATE
      PARAMETER (OFN_NOVALIDATE=               '100'x)
      INTEGER    OFN_ALLOWMULTISELECT
      PARAMETER (OFN_ALLOWMULTISELECT=         '200'x)
      INTEGER    OFN_EXTENSIONDIFFERENT
      PARAMETER (OFN_EXTENSIONDIFFERENT=       '400'x)
      INTEGER    OFN_PATHMUSTEXIST
      PARAMETER (OFN_PATHMUSTEXIST=            '800'x)
      INTEGER    OFN_FILEMUSTEXIST
      PARAMETER (OFN_FILEMUSTEXIST=            '1000'x)
      INTEGER    OFN_CREATEPROMPT
      PARAMETER (OFN_CREATEPROMPT=             '2000'x)
      INTEGER    OFN_SHAREAWARE
      PARAMETER (OFN_SHAREAWARE=               '4000'x)
      INTEGER    OFN_NOREADONLYRETURN
      PARAMETER (OFN_NOREADONLYRETURN=         '8000'x)
      INTEGER    OFN_NOTESTFILECREATE
      PARAMETER (OFN_NOTESTFILECREATE=         '10000'x)

! Return values for the registered message sent to the hook function
! when a sharing violation occurs.  OFN_SHAREFALLTHROUGH allows the
! filename to be accepted, OFN_SHARENOWARN rejects the name but puts
! up no warning (returned when the app has already put up a warning
! message), and OFN_SHAREWARN puts up the default warning message
! for sharing violations.
!
! Note:  Undefined return values map to OFN_SHAREWARN, but are
!        reserved for future use.
!

      INTEGER    OFN_SHAREFALLTHROUGH
      PARAMETER (OFN_SHAREFALLTHROUGH=     2)
      INTEGER    OFN_SHARENOWARN
      PARAMETER (OFN_SHARENOWARN=          1)
      INTEGER    OFN_SHAREWARN
      PARAMETER (OFN_SHAREWARN=            0)

      STRUCTURE /CHOOSECOLOR/
          INTEGER   lStructSize
          INTEGER*2 hwndOwner
          INTEGER*2 hInstance
          INTEGER   rgbResult
          INTEGER   lpCustColors
          INTEGER   Flags
          INTEGER   lCustData
          INTEGER   lpfnHook
          INTEGER   lpTemplateName
      END STRUCTURE

      EXTERNAL ChooseColor
      INTEGER*2 ChooseColor

      INTEGER    CC_RGBINIT
      PARAMETER (CC_RGBINIT=               '1'x)
      INTEGER    CC_FULLOPEN
      PARAMETER (CC_FULLOPEN=              '2'x)
      INTEGER    CC_PREVENTFULLOPEN
      PARAMETER (CC_PREVENTFULLOPEN=       '4'x)
      INTEGER    CC_SHOWHELP
      PARAMETER (CC_SHOWHELP=              '8'x)
      INTEGER    CC_ENABLEHOOK
      PARAMETER (CC_ENABLEHOOK=            '10'x)
      INTEGER    CC_ENABLETEMPLATE
      PARAMETER (CC_ENABLETEMPLATE=        '20'x)
      INTEGER    CC_ENABLETEMPLATEHANDLE
      PARAMETER (CC_ENABLETEMPLATEHANDLE=  '40'x)

      STRUCTURE /FINDREPLACE/
          INTEGER   lStructSize          ! size of this struct 0x20
          INTEGER*2 hwndOwner            ! handle to owner's window
          INTEGER*2 hInstance            ! instance handle of.EXE that
                                         ! contains cust. dlg. template
          INTEGER   Flags                ! one or more of the FR_??
          INTEGER   lpstrFindWhat        ! ptr. to search string
          INTEGER   lpstrReplaceWith     ! ptr. to replace string
          INTEGER*2 wFindWhatLen         ! size of find buffer
          INTEGER*2 wReplaceWithLen      ! size of replace buffer
          INTEGER   lCustData            ! data passed to hook fn.
          INTEGER   lpfnHook             ! ptr. to hook fn. or NULL
          INTEGER   lpTemplateName       ! custom template name
      END STRUCTURE

      INTEGER    FR_DOWN
      PARAMETER (FR_DOWN=                          '1'x)
      INTEGER    FR_WHOLEWORD
      PARAMETER (FR_WHOLEWORD=                     '2'x)
      INTEGER    FR_MATCHCASE
      PARAMETER (FR_MATCHCASE=                     '4'x)
      INTEGER    FR_FINDNEXT
      PARAMETER (FR_FINDNEXT=                      '8'x)
      INTEGER    FR_REPLACE
      PARAMETER (FR_REPLACE=                       '10'x)
      INTEGER    FR_REPLACEALL
      PARAMETER (FR_REPLACEALL=                    '20'x)
      INTEGER    FR_DIALOGTERM
      PARAMETER (FR_DIALOGTERM=                    '40'x)
      INTEGER    FR_SHOWHELP
      PARAMETER (FR_SHOWHELP=                      '80'x)
      INTEGER    FR_ENABLEHOOK
      PARAMETER (FR_ENABLEHOOK=                    '100'x)
      INTEGER    FR_ENABLETEMPLATE
      PARAMETER (FR_ENABLETEMPLATE=                '200'x)
      INTEGER    FR_NOUPDOWN
      PARAMETER (FR_NOUPDOWN=                      '400'x)
      INTEGER    FR_NOMATCHCASE
      PARAMETER (FR_NOMATCHCASE=                   '800'x)
      INTEGER    FR_NOWHOLEWORD
      PARAMETER (FR_NOWHOLEWORD=                   '1000'x)
      INTEGER    FR_ENABLETEMPLATEHANDLE
      PARAMETER (FR_ENABLETEMPLATEHANDLE=          '2000'x)
      INTEGER    FR_HIDEUPDOWN
      PARAMETER (FR_HIDEUPDOWN=                    '4000'x)
      INTEGER    FR_HIDEMATCHCASE
      PARAMETER (FR_HIDEMATCHCASE=                 '8000'x)
      INTEGER    FR_HIDEWHOLEWORD
      PARAMETER (FR_HIDEWHOLEWORD=                 '10000'x)

      integer*2 FindText
      integer*2 ReplaceText

      STRUCTURE /CHOOSEFONT/
          INTEGER   lStructSize        !
          INTEGER*2 hwndOwner          ! caller's window handle
          INTEGER*2 hDC                ! printer DC/IC or NULL
          INTEGER   lpLogFont          ! ptr. to a LOGFONT struct
          INTEGER*2 iPointSize         ! 10 * size in points of selected font
          INTEGER   Flags              ! enum. type flags
          INTEGER   rgbColors          ! returned text color
          INTEGER   lCustData          ! data passed to hook fn.
          INTEGER   lpfnHook           ! ptr. to hook function
          INTEGER   lpTemplateName     ! custom template name
          INTEGER*2 hInstance          ! instance handle of.EXE that contains
                                       ! cust. dlg. template
          INTEGER   lpszStyle          ! return the style field here must be
                                       ! LF_FACESIZE or bigger
          INTEGER*2 nFontType          ! same value reported to the EnumFonts
                                       ! call back with the extra FONTTYPE_
                                       ! bits added
          INTEGER*2 nSizeMin           ! minimum pt size allowed &