pmstddlg.fi

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

c$noreference

c$ifdef INCL_WINSTDDLGS
c$define INCL_WINSTDFILE
c$define INCL_WINSTDFONT
c$define INCL_WINSTDSPIN
c$define INCL_WINSTDDRAG
c$define INCL_WINSTDCNR
c$define INCL_WINSTDSLIDER
c$define INCL_WINSTDVALSET
c$define INCL_WINSTDBOOK
c$endif

c$ifdef INCL_WINSTDCNR
c$define INCL_WINSTDDRAG
c$endif

c$ifdef INCL_WINSTDVALSET
c$define INCL_WINSTDDRAG
c$endif

c$ifdef INCL_WINSTDFILE

        integer  FDS_CENTER
        parameter (FDS_CENTER = '00000001'x)
        integer  FDS_CUSTOM
        parameter (FDS_CUSTOM = '00000002'x)
        integer  FDS_FILTERUNION
        parameter (FDS_FILTERUNION = '00000004'x)
        integer  FDS_HELPBUTTON
        parameter (FDS_HELPBUTTON = '00000008'x)
        integer  FDS_APPLYBUTTON
        parameter (FDS_APPLYBUTTON = '00000010'x)
        integer  FDS_PRELOAD_VOLINFO
        parameter (FDS_PRELOAD_VOLINFO = '00000020'x)
        integer  FDS_MODELESS
        parameter (FDS_MODELESS = '00000040'x)
        integer  FDS_INCLUDE_EAS
        parameter (FDS_INCLUDE_EAS = '00000080'x)
        integer  FDS_OPEN_DIALOG
        parameter (FDS_OPEN_DIALOG = '00000100'x)
        integer  FDS_SAVEAS_DIALOG
        parameter (FDS_SAVEAS_DIALOG = '00000200'x)
        integer  FDS_MULTIPLESEL
        parameter (FDS_MULTIPLESEL = '00000400'x)
        integer  FDS_ENABLEFILELB
        parameter (FDS_ENABLEFILELB = '00000800'x)

        integer  FDS_EFSELECTION
        parameter (FDS_EFSELECTION = 0)
        integer  FDS_LBSELECTION
        parameter (FDS_LBSELECTION = 1)

        integer  FDS_SUCCESSFUL
        parameter (FDS_SUCCESSFUL = 0)
        integer  FDS_ERR_DEALLOCATE_MEMORY
        parameter (FDS_ERR_DEALLOCATE_MEMORY = 1)
        integer  FDS_ERR_FILTER_TRUNC
        parameter (FDS_ERR_FILTER_TRUNC = 2)
        integer  FDS_ERR_INVALID_DIALOG
        parameter (FDS_ERR_INVALID_DIALOG = 3)
        integer  FDS_ERR_INVALID_DRIVE
        parameter (FDS_ERR_INVALID_DRIVE = 4)
        integer  FDS_ERR_INVALID_FILTER
        parameter (FDS_ERR_INVALID_FILTER = 5)
        integer  FDS_ERR_INVALID_PATHFILE
        parameter (FDS_ERR_INVALID_PATHFILE = 6)
        integer  FDS_ERR_OUT_OF_MEMORY
        parameter (FDS_ERR_OUT_OF_MEMORY = 7)
        integer  FDS_ERR_PATH_TOO_LONG
        parameter (FDS_ERR_PATH_TOO_LONG = 8)
        integer  FDS_ERR_TOO_MANY_FILE_TYPES
        parameter (FDS_ERR_TOO_MANY_FILE_TYPES = 9)
        integer  FDS_ERR_INVALID_VERSION
        parameter (FDS_ERR_INVALID_VERSION = 10)
        integer  FDS_ERR_INVALID_CUSTOM_HANDLE
        parameter (FDS_ERR_INVALID_CUSTOM_HANDLE = 11)
        integer  FDS_ERR_DIALOG_LOAD_ERROR
        parameter (FDS_ERR_DIALOG_LOAD_ERROR = 12)
        integer  FDS_ERR_DRIVE_ERROR
        parameter (FDS_ERR_DRIVE_ERROR = 13)

        integer  FDM_FILTER
        parameter (FDM_FILTER = WM_USER + 40)
        integer  FDM_VALIDATE
        parameter (FDM_VALIDATE = WM_USER + 41)
        integer  FDM_ERROR
        parameter (FDM_ERROR = WM_USER + 42)

        structure /FILEDLG/
            integer*4 cbSize
            integer*4 fl
            integer*4 ulUser
            integer*4 lReturn
            integer*4 lSRC
            integer*4 pszTitle
            integer*4 pszOKButton
            integer*4 pfnDlgProc
            integer*4 pszIType
            integer*4 papszITypeList
            integer*4 pszIDrive
            integer*4 papszIDriveList
            integer*4 hMod
            integer*1 szFullFile(CCHMAXPATH)
            integer*4 papszFQFilename
            integer*4 ulFQFCount
            integer*2 usDlgId
            integer*2 x
            integer*2 y
            integer*2 sEAType
        end structure

        external WinFileDlg
        integer*4 WinFileDlg

        external WinDefFileDlgProc
        integer*4 WinDefFileDlgProc

        external WinFreeFileDlgList
        integer*4 WinFreeFileDlgList

        integer  DID_FILE_DIALOG
        parameter (DID_FILE_DIALOG = 256)
        integer  DID_FILENAME_TXT
        parameter (DID_FILENAME_TXT = 257)
        integer  DID_FILENAME_ED
        parameter (DID_FILENAME_ED = 258)
        integer  DID_DRIVE_TXT
        parameter (DID_DRIVE_TXT = 259)
        integer  DID_DRIVE_CB
        parameter (DID_DRIVE_CB = 260)
        integer  DID_FILTER_TXT
        parameter (DID_FILTER_TXT = 261)
        integer  DID_FILTER_CB
        parameter (DID_FILTER_CB = 262)
        integer  DID_DIRECTORY_TXT
        parameter (DID_DIRECTORY_TXT = 263)
        integer  DID_DIRECTORY_LB
        parameter (DID_DIRECTORY_LB = 264)
        integer  DID_FILES_TXT
        parameter (DID_FILES_TXT = 265)
        integer  DID_FILES_LB
        parameter (DID_FILES_LB = 266)
        integer  DID_HELP_PB
        parameter (DID_HELP_PB = 267)
        integer  DID_APPLY_PB
        parameter (DID_APPLY_PB = 268)
        integer  DID_OK_PB
        parameter (DID_OK_PB = DID_OK)
        integer  DID_CANCEL_PB
        parameter (DID_CANCEL_PB = DID_CANCEL)

        integer  IDS_FILE_ALL_FILES_SELECTOR
        parameter (IDS_FILE_ALL_FILES_SELECTOR = 1000)
        integer  IDS_FILE_BACK_CUR_PATH
        parameter (IDS_FILE_BACK_CUR_PATH = 1001)
        integer  IDS_FILE_BACK_PREV_PATH
        parameter (IDS_FILE_BACK_PREV_PATH = 1002)
        integer  IDS_FILE_BACK_SLASH
        parameter (IDS_FILE_BACK_SLASH = 1003)
        integer  IDS_FILE_BASE_FILTER
        parameter (IDS_FILE_BASE_FILTER = 1004)
        integer  IDS_FILE_BLANK
        parameter (IDS_FILE_BLANK = 1005)
        integer  IDS_FILE_COLON
        parameter (IDS_FILE_COLON = 1006)
        integer  IDS_FILE_DOT
        parameter (IDS_FILE_DOT = 1007)
        integer  IDS_FILE_DRIVE_LETTERS
        parameter (IDS_FILE_DRIVE_LETTERS = 1008)
        integer  IDS_FILE_FWD_CUR_PATH
        parameter (IDS_FILE_FWD_CUR_PATH = 1009)
        integer  IDS_FILE_FWD_PREV_PATH
        parameter (IDS_FILE_FWD_PREV_PATH = 1010)
        integer  IDS_FILE_FORWARD_SLASH
        parameter (IDS_FILE_FORWARD_SLASH = 1011)
        integer  IDS_FILE_PARENT_DIR
        parameter (IDS_FILE_PARENT_DIR = 1012)
        integer  IDS_FILE_Q_MARK
        parameter (IDS_FILE_Q_MARK = 1013)
        integer  IDS_FILE_SPLAT
        parameter (IDS_FILE_SPLAT = 1014)
        integer  IDS_FILE_SPLAT_DOT
        parameter (IDS_FILE_SPLAT_DOT = 1015)
        integer  IDS_FILE_SAVEAS_TITLE
        parameter (IDS_FILE_SAVEAS_TITLE = 1016)
        integer  IDS_FILE_SAVEAS_FILTER_TXT
        parameter (IDS_FILE_SAVEAS_FILTER_TXT = 1017)
        integer  IDS_FILE_SAVEAS_FILENM_TXT
        parameter (IDS_FILE_SAVEAS_FILENM_TXT = 1018)
        integer  IDS_FILE_DUMMY_FILE_NAME
        parameter (IDS_FILE_DUMMY_FILE_NAME = 1019)
        integer  IDS_FILE_DUMMY_FILE_EXT
        parameter (IDS_FILE_DUMMY_FILE_EXT = 1020)
        integer  IDS_FILE_DUMMY_DRIVE
        parameter (IDS_FILE_DUMMY_DRIVE = 1021)
        integer  IDS_FILE_DUMMY_ROOT_DIR
        parameter (IDS_FILE_DUMMY_ROOT_DIR = 1022)
        integer  IDS_FILE_PATH_PTR
        parameter (IDS_FILE_PATH_PTR = 1023)
        integer  IDS_FILE_VOLUME_PREFIX
        parameter (IDS_FILE_VOLUME_PREFIX = 1024)
        integer  IDS_FILE_VOLUME_SUFFIX
        parameter (IDS_FILE_VOLUME_SUFFIX = 1025)
        integer  IDS_FILE_PATH_PTR2
        parameter (IDS_FILE_PATH_PTR2 = 1026)
        integer  IDS_FILE_INVALID_CHARS
        parameter (IDS_FILE_INVALID_CHARS = 1027)

        integer  IDS_FILE_BAD_DRIVE_NAME
        parameter (IDS_FILE_BAD_DRIVE_NAME = 1100)
        integer  IDS_FILE_BAD_DRIVE_OR_PATH_NAME
        parameter (IDS_FILE_BAD_DRIVE_OR_PATH_NAME = 1101)
        integer  IDS_FILE_BAD_FILE_NAME
        parameter (IDS_FILE_BAD_FILE_NAME = 1102)
        integer  IDS_FILE_BAD_FQF
        parameter (IDS_FILE_BAD_FQF = 1103)
        integer  IDS_FILE_BAD_NETWORK_NAME
        parameter (IDS_FILE_BAD_NETWORK_NAME = 1104)
        integer  IDS_FILE_BAD_SUB_DIR_NAME
        parameter (IDS_FILE_BAD_SUB_DIR_NAME = 1105)
        integer  IDS_FILE_DRIVE_NOT_AVAILABLE
        parameter (IDS_FILE_DRIVE_NOT_AVAILABLE = 1106)
        integer  IDS_FILE_FQFNAME_TOO_LONG
        parameter (IDS_FILE_FQFNAME_TOO_LONG = 1107)
        integer  IDS_FILE_OPEN_DIALOG_NOTE
        parameter (IDS_FILE_OPEN_DIALOG_NOTE = 1108)
        integer  IDS_FILE_PATH_TOO_LONG
        parameter (IDS_FILE_PATH_TOO_LONG = 1109)
        integer  IDS_FILE_SAVEAS_DIALOG_NOTE
        parameter (IDS_FILE_SAVEAS_DIALOG_NOTE = 1110)

        integer  IDS_FILE_DRIVE_DISK_CHANGE
        parameter (IDS_FILE_DRIVE_DISK_CHANGE = 1120)
        integer  IDS_FILE_DRIVE_NOT_READY
        parameter (IDS_FILE_DRIVE_NOT_READY = 1122)
        integer  IDS_FILE_DRIVE_LOCKED
        parameter (IDS_FILE_DRIVE_LOCKED = 1123)
        integer  IDS_FILE_DRIVE_NO_SECTOR
        parameter (IDS_FILE_DRIVE_NO_SECTOR = 1124)
        integer  IDS_FILE_DRIVE_SOME_ERROR
        parameter (IDS_FILE_DRIVE_SOME_ERROR = 1125)
        integer  IDS_FILE_DRIVE_INVALID
        parameter (IDS_FILE_DRIVE_INVALID = 1126)
        integer  IDS_FILE_INSERT_DISK_NOTE
        parameter (IDS_FILE_INSERT_DISK_NOTE = 1127)
        integer  IDS_FILE_OK_WHEN_READY
        parameter (IDS_FILE_OK_WHEN_READY = 1128)

c$endif

c$ifdef INCL_WINSTDFONT

        structure /FONTDLG/
            integer*4 cbSize
            integer*4 hpsScreen
            integer*4 hpsPrinter
            integer*4 pszTitle
            integer*4 pszPreview
            integer*4 pszPtSizeList
            integer*4 pfnDlgProc
            integer*4 pszFamilyname
            integer*4 fxPointSize
            integer*4 fl
            integer*4 flFlags
            integer*4 flType
            integer*4 flTypeMask
            integer*4 flStyle
            integer*4 flStyleMask
            integer*4 clrFore
            integer*4 clrBack
            integer*4 ulUser
            integer*4 lReturn
            integer*4 lSRC
            integer*4 lEmHeight
            integer*4 lXHeight
            integer*4 lExternalLeading
            integer*4 hMod
            record /FATTRS/ fAttrs
            integer*2 sNominalPointSize
            integer*2 usWeight
            integer*2 usWidth
            integer*2 x
            integer*2 y
            integer*2 usDlgId
            integer*2 usFamilyBufLen
            integer*2 usReserved
        end structure

        integer  FNTS_CENTER
        parameter (FNTS_CENTER = '00000001'x)
        integer  FNTS_CUSTOM
        parameter (FNTS_CUSTOM = '00000002'x)
        integer  FNTS_OWNERDRAWPREVIEW
        parameter (FNTS_OWNERDRAWPREVIEW = '00000004'x)
        integer  FNTS_HELPBUTTON
        parameter (FNTS_HELPBUTTON = '00000008'x)
        integer  FNTS_APPLYBUTTON
        parameter (FNTS_APPLYBUTTON = '00000010'x)
        integer  FNTS_RESETBUTTON
        parameter (FNTS_RESETBUTTON = '00000020'x)
        integer  FNTS_MODELESS
        parameter (FNTS_MODELESS = '00000040'x)
        integer  FNTS_INITFROMFATTRS
        parameter (FNTS_INITFROMFATTRS = '00000080'x)
        integer  FNTS_BITMAPONLY
        parameter (FNTS_BITMAPONLY = '00000100'x)
        integer  FNTS_VECTORONLY
        parameter (FNTS_VECTORONLY = '00000200'x)
        integer  FNTS_FIXEDWIDTHONLY
        parameter (FNTS_FIXEDWIDTHONLY = '00000400'x)
        integer  FNTS_PROPORTIONALONLY
        parameter (FNTS_PROPORTIONALONLY = '00000800'x)
        integer  FNTS_NOSYNTHESIZEDFONTS
        parameter (FNTS_NOSYNTHESIZEDFONTS = '00001000'x)

        integer  FNTF_NOVIEWSCREENFONTS
        parameter (FNTF_NOVIEWSCREENFONTS = 1)
        integer  FNTF_NOVIEWPRINTERFONTS
        parameter (FNTF_NOVIEWPRINTERFONTS = 2)
        integer  FNTF_SCREENFONTSELECTED
        parameter (FNTF_SCREENFONTSELECTED = 4)
        integer  FNTF_PRINTERFONTSELECTED
        parameter (FNTF_PRINTERFONTSELECTED = 8)

        integer  CLRC_FOREGROUND
        parameter (CLRC_FOREGROUND = 1)
        integer  CLRC_BACKGROUND
        parameter (CLRC_BACKGROUND = 2)

        integer  FNTI_BITMAPFONT
        parameter (FNTI_BITMAPFONT = '00000001'x)
        integer  FNTI_VECTORFONT
        parameter (FNTI_VECTORFONT = '00000002'x)
        integer  FNTI_FIXEDWIDTHFONT
        parameter (FNTI_FIXEDWIDTHFONT = '00000004'x)
        integer  FNTI_PROPORTIONALFONT
        parameter (FNTI_PROPORTIONALFONT = '00000008'x)
        integer  FNTI_SYNTHESIZED
        parameter (FNTI_SYNTHESIZED = '00000010'x)
        integer  FNTI_DEFAULTLIST
        parameter (FNTI_DEFAULTLIST = '00000020'x)
        integer  FNTI_FAMILYNAME
        parameter (FNTI_FAMILYNAME = '00000100'x)
        integer  FNTI_STYLENAME
        parameter (FNTI_STYLENAME = '00000200'x)
        integer  FNTI_POINTSIZE
        parameter (FNTI_POINTSIZE = '00000400'x)

        integer  FNTS_SUCCESSFUL
        parameter (FNTS_SUCCESSFUL = 0)
        integer  FNTS_ERR_INVALID_DIALOG
        parameter (FNTS_ERR_INVALID_DIALOG = 3)
        integer  FNTS_ERR_ALLOC_SHARED_MEM
        parameter (FNTS_ERR_ALLOC_SHARED_MEM = 4)
        integer  FNTS_ERR_INVALID_PARM
        parameter (FNTS_ERR_INVALID_PARM = 5)
        integer  FNTS_ERR_OUT_OF_MEMORY
        parameter (FNTS_ERR_OUT_OF_MEMORY = 7)
        integer  FNTS_ERR_INVALID_VERSION
        parameter (FNTS_ERR_INVALID_VERSION = 10)
        integer  FNTS_ERR_DIALOG_LOAD_ERROR
        parameter (FNTS_ERR_DIALOG_LOAD_ERROR = 12)

        integer  FNTM_FACENAMECHANGED
        parameter (FNTM_FACENAMECHANGED = WM_USER + 50)
        integer  FNTM_POINTSIZECHANGED
        parameter (FNTM_POINTSIZECHANGED = WM_USER + 51)
        integer  FNTM_STYLECHANGED
        parameter (FNTM_STYLECHANGED = WM_USER + 52)
        integer  FNTM_COLORCHANGED
        parameter (FNTM_COLORCHANGED = WM_USER + 53)
        integer  FNTM_UPDATEPREVIEW