commdlg.fi

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

          INTEGER*2 nSizeMax           ! max pt size allowed if
                                       ! CF_LIMITSIZE is used
      END STRUCTURE

      EXTERNAL ChooseFont
      INTEGER*2 ChooseFont

      INTEGER    CF_SCREENFONTS
      PARAMETER (CF_SCREENFONTS=                '1'x)
      INTEGER    CF_PRINTERFONTS
      PARAMETER (CF_PRINTERFONTS=               '2'x)
      INTEGER    CF_BOTH
      PARAMETER (CF_BOTH= (CF_SCREENFONTS .OR. CF_PRINTERFONTS))
      INTEGER    CF_SHOWHELP
      PARAMETER (CF_SHOWHELP=                   '4'x)
      INTEGER    CF_ENABLEHOOK
      PARAMETER (CF_ENABLEHOOK=                 '8'x)
      INTEGER    CF_ENABLETEMPLATE
      PARAMETER (CF_ENABLETEMPLATE=             '10'x)
      INTEGER    CF_ENABLETEMPLATEHANDLE
      PARAMETER (CF_ENABLETEMPLATEHANDLE=       '20'x)
      INTEGER    CF_INITTOLOGFONTSTRUCT
      PARAMETER (CF_INITTOLOGFONTSTRUCT=        '40'x)
      INTEGER    CF_USESTYLE
      PARAMETER (CF_USESTYLE=                   '80'x)
      INTEGER    CF_EFFECTS
      PARAMETER (CF_EFFECTS=                    '100'x)
      INTEGER    CF_APPLY
      PARAMETER (CF_APPLY=                      '200'x)
      INTEGER    CF_ANSIONLY
      PARAMETER (CF_ANSIONLY=                   '400'x)
      INTEGER    CF_NOVECTORFONTS
      PARAMETER (CF_NOVECTORFONTS=              '800'x)
      INTEGER    CF_NOOEMFONTS
      PARAMETER (CF_NOOEMFONTS=                 CF_NOVECTORFONTS)
      INTEGER    CF_NOSIMULATIONS
      PARAMETER (CF_NOSIMULATIONS=              '1000'x)
      INTEGER    CF_LIMITSIZE
      PARAMETER (CF_LIMITSIZE=                  '2000'x)
      INTEGER    CF_FIXEDPITCHONLY
      PARAMETER (CF_FIXEDPITCHONLY=             '4000'x)
      INTEGER    CF_WYSIWYG ! must also have CF_SCREENFONTS & CF_PRINTERFONTS
      PARAMETER (CF_WYSIWYG=                    '8000'x)
      INTEGER    CF_FORCEFONTEXIST
      PARAMETER (CF_FORCEFONTEXIST=             '10000'x)
      INTEGER    CF_SCALABLEONLY
      PARAMETER (CF_SCALABLEONLY=               '20000'x)
      INTEGER    CF_TTONLY
      PARAMETER (CF_TTONLY=                     '40000'x)
      INTEGER    CF_NOFACESEL
      PARAMETER (CF_NOFACESEL=                  '80000'x)
      INTEGER    CF_NOSTYLESEL
      PARAMETER (CF_NOSTYLESEL=                 '100000'x)
      INTEGER    CF_NOSIZESEL
      PARAMETER (CF_NOSIZESEL=                  '200000'x)

! these are extra nFontType bits that are added to what is returned to the
! EnumFonts callback routine

      INTEGER    SIMULATED_FONTTYPE
      PARAMETER (SIMULATED_FONTTYPE=            '8000'x)
      INTEGER    PRINTER_FONTTYPE
      PARAMETER (PRINTER_FONTTYPE=              '4000'x)
      INTEGER    SCREEN_FONTTYPE
      PARAMETER (SCREEN_FONTTYPE=               '2000'x)
      INTEGER    BOLD_FONTTYPE
      PARAMETER (BOLD_FONTTYPE=                 '100'x)
      INTEGER    ITALIC_FONTTYPE
      PARAMETER (ITALIC_FONTTYPE=               '200'x)
      INTEGER    REGULAR_FONTTYPE
      PARAMETER (REGULAR_FONTTYPE=              '400'x)

      INTEGER    WM_CHOOSEFONT_GETLOGFONT
      PARAMETER (WM_CHOOSEFONT_GETLOGFONT=      (WM_USER + 1))

! strings used to obtain unique window message for communication
! between dialog and caller.

      CHARACTER*27      LBSELCHSTRING
      PARAMETER         (LBSELCHSTRING='commdlg_LBSelChangedNotify'c)
      CHARACTER*23      SHAREVISTRING
      PARAMETER         (SHAREVISTRING='commdlg_ShareViolation'c)
      CHARACTER*19      FILEOKSTRING
      PARAMETER         (FILEOKSTRING='commdlg_FileNameOK'c)
      CHARACTER*15      COLOROKSTRING
      PARAMETER         (COLOROKSTRING='commdlg_ColorOK'c)
      CHARACTER*20      SETRGBSTRING
      PARAMETER         (SETRGBSTRING='commdlg_SetRGBColor'c)
      CHARACTER*20      FINDMSGSTRING
      PARAMETER         (FINDMSGSTRING='commdlg_FindReplace'c)
      CHARACTER*13      HELPMSGSTRING
      PARAMETER         (HELPMSGSTRING='commdlg_help'c)

! HIWORD values for lParam of commdlg_LBSelChangeNotify message
      INTEGER    CD_LBSELNOITEMS
      PARAMETER (CD_LBSELNOITEMS= -1)
      INTEGER    CD_LBSELCHANGE
      PARAMETER (CD_LBSELCHANGE=   0)
      INTEGER    CD_LBSELSUB
      PARAMETER (CD_LBSELSUB=      1)
      INTEGER    CD_LBSELADD
      PARAMETER (CD_LBSELADD=      2)

      STRUCTURE /PRINTDLG/
          INTEGER   lStructSize
          INTEGER*2 hwndOwner
          INTEGER*2 hDevMode
          INTEGER*2 hDevNames
          INTEGER*2 hDC
          INTEGER   Flags
          INTEGER*2 nFromPage
          INTEGER*2 nToPage
          INTEGER*2 nMinPage
          INTEGER*2 nMaxPage
          INTEGER*2 nCopies
          INTEGER*2 hInstance
          INTEGER   lCustData
          INTEGER   lpfnPrintHook
          INTEGER   lpfnSetupHook
          INTEGER   lpPrintTemplateName
          INTEGER   lpSetupTemplateName
          INTEGER*2 hPrintTemplate
          INTEGER*2 hSetupTemplate
      END STRUCTURE


      EXTERNAL PrintDlg
      INTEGER PrintDlg

      INTEGER    PD_ALLPAGES
      PARAMETER (PD_ALLPAGES=                  '0'x)
      INTEGER    PD_SELECTION
      PARAMETER (PD_SELECTION=                 '1'x)
      INTEGER    PD_PAGENUMS
      PARAMETER (PD_PAGENUMS=                  '2'x)
      INTEGER    PD_NOSELECTION
      PARAMETER (PD_NOSELECTION=               '4'x)
      INTEGER    PD_NOPAGENUMS
      PARAMETER (PD_NOPAGENUMS=                '8'x)
      INTEGER    PD_COLLATE
      PARAMETER (PD_COLLATE=                   '10'x)
      INTEGER    PD_PRINTTOFILE
      PARAMETER (PD_PRINTTOFILE=               '20'x)
      INTEGER    PD_PRINTSETUP
      PARAMETER (PD_PRINTSETUP=                '40'x)
      INTEGER    PD_NOWARNING
      PARAMETER (PD_NOWARNING=                 '80'x)
      INTEGER    PD_RETURNDC
      PARAMETER (PD_RETURNDC=                  '100'x)
      INTEGER    PD_RETURNIC
      PARAMETER (PD_RETURNIC=                  '200'x)
      INTEGER    PD_RETURNDEFAULT
      PARAMETER (PD_RETURNDEFAULT=             '400'x)
      INTEGER    PD_SHOWHELP
      PARAMETER (PD_SHOWHELP=                  '800'x)
      INTEGER    PD_ENABLEPRINTHOOK
      PARAMETER (PD_ENABLEPRINTHOOK=           '1000'x)
      INTEGER    PD_ENABLESETUPHOOK
      PARAMETER (PD_ENABLESETUPHOOK=           '2000'x)
      INTEGER    PD_ENABLEPRINTTEMPLATE
      PARAMETER (PD_ENABLEPRINTTEMPLATE=       '4000'x)
      INTEGER    PD_ENABLESETUPTEMPLATE
      PARAMETER (PD_ENABLESETUPTEMPLATE=       '8000'x)
      INTEGER    PD_ENABLEPRINTTEMPLATEHANDLE
      PARAMETER (PD_ENABLEPRINTTEMPLATEHANDLE= '10000'x)
      INTEGER    PD_ENABLESETUPTEMPLATEHANDLE
      PARAMETER (PD_ENABLESETUPTEMPLATEHANDLE= '20000'x)
      INTEGER    PD_USEDEVMODECOPIES
      PARAMETER (PD_USEDEVMODECOPIES=          '40000'x)
      INTEGER    PD_DISABLEPRINTTOFILE
      PARAMETER (PD_DISABLEPRINTTOFILE=        '80000'x)
      INTEGER    PD_HIDEPRINTTOFILE
      PARAMETER (PD_HIDEPRINTTOFILE=           '100000'x)

      STRUCTURE /DEVNAMES/
          INTEGER*2 wDriverOffset
          INTEGER*2 wDeviceOffset
          INTEGER*2 wOutputOffset
          INTEGER*2 wDefault
      END STRUCTURE


      INTEGER    DN_DEFAULTPRN
      PARAMETER (DN_DEFAULTPRN=      '1'x)

      EXTERNAL CommDlgExtendedError
      INTEGER CommDlgExtendedError

*$reference