极语言6-12 comdlg32源码

//常数库：
const OFN_READONLY = $000001;
const OFN_OVERWRITEPROMPT = $000002;
const OFN_HIDEREADONLY = $000004;
const OFN_NOCHANGEDIR = $000008;
const OFN_SHOWHELP = $000010;
const OFN_ENABLEHOOK = $000020;
const OFN_ENABLETEMPLATE = $000040;
const OFN_ENABLETEMPLATEHANDLE = $000080;
const OFN_NOVALIDATE = $000100;
const OFN_ALLOWMULTISELECT = $000200;
const OFN_EXTENSIONDIFFERENT = $000400;
const OFN_PATHMUSTEXIST = $000800;
const OFN_FILEMUSTEXIST = $001000;
const OFN_CREATEPROMPT = $002000;
const OFN_SHAREAWARE = $004000;
const OFN_NOREADONLYRETURN = $008000;
const OFN_NOTESTFILECREATE = $010000;
const OFN_NONETWORKBUTTON = $020000;
const OFN_NOLONGNAMES = $040000;
const OFN_EXPLORER = $080000;
const OFN_NODEREFERENCELINKS = $100000;
const OFN_LONGNAMES = $200000;
const CDN_FIRST = -601;
const CDN_LAST = -699;
const CDN_INITDONE = [CDN_FIRST-0];
const CDN_SELCHANGE = [CDN_FIRST-1];
const CDN_FOLDERCHANGE = [CDN_FIRST-2];
const CDN_SHAREVIOLATION = [CDN_FIRST-3];
const CDN_HELP = [CDN_FIRST-4];
const CDN_FILEOK = [CDN_FIRST-5];
const CDN_TYPECHANGE = [CDN_FIRST-6];
const CDM_FIRST = [$400+100];
const CDM_LAST = [$400+200];
const CDM_GETSPEC = [CDM_FIRST+0];
const CDM_GETFILEPATH = [CDM_FIRST+1];
const CDM_GETFOLDERPATH = [CDM_FIRST+2];
const CDM_GETFOLDERIDLIST = [CDM_FIRST+3];
const CDM_SETCONTROLTEXT = [CDM_FIRST+4];
const CDM_HIDECONTROL = [CDM_FIRST+5];
const CDM_SETDEFEXT = [CDM_FIRST+6];
const CC_RGBINIT = $001;
const CC_FULLOPEN = $002;
const CC_PREVENTFULLOPEN = $004;
const CC_SHOWHELP = $008;
const CC_ENABLEHOOK = $010;
const CC_ENABLETEMPLATE = $020;
const CC_ENABLETEMPLATEHANDLE = $040;
const CC_SOLIDCOLOR = $080;
const CC_ANYCOLOR = $100;
const FR_DOWN = $00001;
const FR_WHOLEWORD = $00002;
const FR_MATCHCASE = $00004;
const FR_FINDNEXT = $00008;
const FR_REPLACE = $00010;
const FR_REPLACEALL = $00020;
const FR_DIALOGTERM = $00040;
const FR_SHOWHELP = $00080;
const FR_ENABLEHOOK = $00100;
const FR_ENABLETEMPLATE = $00200;
const FR_NOUPDOWN = $00400;
const FR_NOMATCHCASE = $00800;
const FR_NOWHOLEWORD = $01000;
const FR_ENABLETEMPLATEHANDLE = $02000;
const FR_HIDEUPDOWN = $04000;
const FR_HIDEMATCHCASE = $08000;
const FR_HIDEWHOLEWORD = $10000;
const CF_SCREENFONTS = $0000001;
const CF_PRINTERFONTS = $0000002;
const CF_BOTH = [CF_SCREENFONTS|CF_PRINTERFONTS];
const CF_SHOWHELP = $0000004;
const CF_ENABLEHOOK = $0000008;
const CF_ENABLETEMPLATE = $0000010;
const CF_ENABLETEMPLATEHANDLE = $0000020;
const CF_INITTOLOGFONTSTRUCT = $0000040;
const CF_USESTYLE = $0000080;
const CF_EFFECTS = $0000100;
const CF_APPLY = $0000200;
const CF_ANSIONLY = $0000400;
const CF_SCRIPTSONLY = CF_ANSIONLY;
const CF_NOVECTORFONTS = $0000800;
const CF_NOOEMFONTS = CF_NOVECTORFONTS;
const CF_NOSIMULATIONS = $0001000;
const CF_LIMITSIZE = $0002000;
const CF_FIXEDPITCHONLY = $0004000;
const CF_WYSIWYG = $0008000;
const CF_FORCEFONTEXIST = $0010000;
const CF_SCALABLEONLY = $0020000;
const CF_TTONLY = $0040000;
const CF_NOFACESEL = $0080000;
const CF_NOSTYLESEL = $0100000;
const CF_NOSIZESEL = $0200000;
const CF_SELECTSCRIPT = $0400000;
const CF_NOSCRIPTSEL = $0800000;
const CF_NOVERTFONTS = $1000000;
const WM_CHOOSEFONT_GETLOGFONT = [$400+1];
const WM_CHOOSEFONT_SETLOGFONT = [$400+101];
const WM_CHOOSEFONT_SETFLAGS = [$400+102];
const PD_ALLPAGES = $000000;
const PD_SELECTION = $000001;
const PD_PAGENUMS = $000002;
const PD_NOSELECTION = $000004;
const PD_NOPAGENUMS = $000008;
const PD_COLLATE = $000010;
const PD_PRINTTOFILE = $000020;
const PD_PRINTSETUP = $000040;
const PD_NOWARNING = $000080;
const PD_RETURNDC = $000100;
const PD_RETURNIC = $000200;
const PD_RETURNDEFAULT = $000400;
const PD_SHOWHELP = $000800;
const PD_ENABLEPRINTHOOK = $001000;
const PD_ENABLESETUPHOOK = $002000;
const PD_ENABLEPRINTTEMPLATE = $004000;
const PD_ENABLESETUPTEMPLATE = $008000;
const PD_ENABLEPRINTTEMPLATEHANDLE = $010000;
const PD_ENABLESETUPTEMPLATEHANDLE = $020000;
const PD_USEDEVMODECOPIES = $040000;
const PD_USEDEVMODECOPIESANDCOLLATE = $040000;
const PD_DISABLEPRINTTOFILE = $080000;
const PD_HIDEPRINTTOFILE = $100000;
const PD_NONETWORKBUTTON = $200000;
const PSD_DEFAULTMINMARGINS = $000000;
const PSD_INWININIINTLMEASURE = $000000;
const PSD_MINMARGINS = $000001;
const PSD_MARGINS = $000002;
const PSD_INTHOUSANDTHSOFINCHES = $000004;
const PSD_INHUNDREDTHSOFMILLIMETERS = $000008;
const PSD_DISABLEMARGINS = $000010;
const PSD_DISABLEPRINTER = $000020;
const PSD_NOWARNING = $000080;
const PSD_DISABLEORIENTATION = $000100;
const PSD_RETURNDEFAULT = $000400;
const PSD_DISABLEPAPER = $000200;
const PSD_SHOWHELP = $000800;
const PSD_ENABLEPAGESETUPHOOK = $002000;
const PSD_ENABLEPAGESETUPTEMPLATE = $008000;
const PSD_ENABLEPAGESETUPTEMPLATEHANDLE = $020000;
const PSD_ENABLEPAGEPAINTHOOK = $040000;
const PSD_DISABLEPAGEPAINTING = $080000;
const PSD_NONETWORKBUTTON = $200000;
const WM_PSD_PAGESETUPDLG = $400;
const WM_PSD_FULLPAGERECT = [$400+1];
const WM_PSD_MINMARGINRECT = [$400+2];
const WM_PSD_MARGINRECT = [$400+3];
const WM_PSD_GREEKTEXTRECT = [$400+4];
const WM_PSD_ENVSTAMPRECT = [$400+5];
const WM_PSD_YAFULLPAGERECT = [$400+6];
const CDERR_DIALOGFAILURE = $0FFFF;
const CDERR_GENERALCODES = $00000;
const CDERR_STRUCTSIZE = $00001;
const CDERR_INITIALIZATION = $00002;
const CDERR_NOTEMPLATE = $00003;
const CDERR_NOHINSTANCE = $00004;
const CDERR_LOADSTRFAILURE = $00005;
const CDERR_FINDRESFAILURE = $00006;
const CDERR_LOADRESFAILURE = $00007;
const CDERR_LOCKRESFAILURE = $00008;
const CDERR_MEMALLOCFAILURE = $00009;
const CDERR_MEMLOCKFAILURE = $0000A;
const CDERR_NOHOOK = $0000B;
const CDERR_REGISTERMSGFAIL = $0000C;
const PDERR_PRINTERCODES = $01000;
const PDERR_SETUPFAILURE = $01001;
const PDERR_PARSEFAILURE = $01002;
const PDERR_RETDEFFAILURE = $01003;
const PDERR_LOADDRVFAILURE = $01004;
const PDERR_GETDEVMODEFAIL = $01005;
const PDERR_INITFAILURE = $01006;
const PDERR_NODEVICES = $01007;
const PDERR_NODEFAULTPRN = $01008;
const PDERR_DNDMMISMATCH = $01009;
const PDERR_CREATEICFAILURE = $0100A;
const PDERR_PRINTERNOTFOUND = $0100B;
const PDERR_DEFAULTDIFFERENT = $0100C;
const CFERR_CHOOSEFONTCODES = $02000;
const CFERR_NOFONTS = $02001;
const CFERR_MAXLESSTHANMlib = $02002;
const FNERR_FILENAMECODES = $03000;
const FNERR_SUBCLASSFAILURE = $03001;
const FNERR_INVALIDFILENAME = $03002;
const FNERR_BUFFERTOOSMALL = $03003;
const FRERR_FINDREPLACECODES = $04000;
const FRERR_BUFFERLENGTHZERO = $04001;
const CCERR_CHOOSECOLORCODES = $05000;

//类型库：
type OPENFILENAME {
整数 lStructSize,hwndOwner,hInstance,lpstrFilter,lpstrCustomFilter,nMaxCustFilter,nFilterIndex,lpstrFile,nMaxFile,lpstrFileTitle,nMaxFileTitle,lpstrInitialDir,lpstrTitle,Flags,nFileOffset,lpstrDefExt,lCustData,lpfnHook,lpTemplateName;
}

type CHOOSECOLOR {
整数 lStructSize,hwndOwner,hInstance,rgbResult,lpCustColors,Flags,lCustData,lpfnHook,lpTemplateName;
}

type FINDREPLACE {
整数 lStructSize,hwndOwner,hInstance,Flags,lpstrFindWhat,lpstrReplaceWith,wFindWhatLen,lCustData,lpfnHook,lpTemplateName;
}

type CHOOSEFONT {
整数 lStructSize,hwndOwner,hDC,lpLogFont,iPointSize,Flags,rgbColors,lCustData,lpfnHook,lpTemplateName,hInstance,lpszStyle,nFontType,nSizeMin,nSizeMax;
}

type PRINTDLG {
整数 lStructSize,hwndOwner,hDevMode,hDevNames,hDC,Flags;
整形 nFromPage,nToPage,nMinPage,nMaxPage,nCopies;
整数 hInstance,lCustData,lpfnPrintHook,lpfnSetupHook,lpPrintTemplateName,lpSetupTemplateName,hPrintTemplate,hSetupTemplate;
}

type DEVNAMES {
整形 wDriverOffset,wDeviceOffset,wOutputOffset,wDefault;
}

type PAGESETUPDLG {
整数 lStructSize,hwndOwner,hDevMode,hDevNames,Flags,ptPaperSize.x,ptPaperSize.y,rtMinMargin.left,rtMinMargin.top,rtMinMargin.right,rtMinMargin.bottom,rtMargin.left,rtMargin.top,rtMargin.right,rtMargin.bottom,hInstance,lCustData,lpfnPageSetupHook,lpfnPagePaintHook,lpPageSetupTemplateName,hPageSetupTemplate;
}
类型 页面框类{整数 长度,窗口,设备,名称,标记,纸宽,纸高,左边,上边,右边,下边,左宽,上宽,右宽,下宽,实例,数据,设置回调,重绘回调,设置模板名,设置模板;}

//函数库：
导入 颜色选框 别名 ChooseColorA 支持库 "COMDLG32.DLL",1;
导入 字体选框 别名 ChooseFontA 支持库 "COMDLG32.DLL",1;
导入 对话错误 别名 CommDlgExtendedError 支持库 "COMDLG32.DLL",0;
导入 搜索选框 别名 FindTextA 支持库 "COMDLG32.DLL",1;
导入 FormatCharDlgProc 支持库 "COMDLG32.DLL",4;
导入 文件标题 别名 GetFileTitleA 支持库 "COMDLG32.DLL",3;
导入 文件选框 别名 GetOpenFileNameA 支持库 "COMDLG32.DLL",1;
导入 保存选框 别名 GetSaveFileNameA 支持库 "COMDLG32.DLL",1;
导入 加载改图 别名 LoadAlterBitmap 支持库 "COMDLG32.DLL",3;
导入 页面设置 别名 PageSetupDlgA 支持库 "COMDLG32.DLL",1;
导入 打印选项 别名 PrintDlgA 支持库 "COMDLG32.DLL",1;
导入 替换选框 别名 ReplaceTextA 支持库 "COMDLG32.DLL",1;
导入 WantArrows 支持库 "COMDLG32.DLL",4;
导入 dwLBSubclass 支持库 "COMDLG32.DLL",4;
导入 dwOKSubclass 支持库 "COMDLG32.DLL",4;