;(comdlg32.as) #ifdef __hsp30__ #ifndef __COMDLG32__ #define global __COMDLG32__ #uselib "COMDLG32.DLL" #func global ArrowBtnWndProc "ArrowBtnWndProc" sptr,sptr,sptr,sptr #define global ChooseColor ChooseColorA #func global ChooseColorA "ChooseColorA" sptr #func global ChooseColorW "ChooseColorW" wptr #define global ChooseFont ChooseFontA #func global ChooseFontA "ChooseFontA" sptr #func global ChooseFontW "ChooseFontW" wptr #func global ColorDlgProc "ColorDlgProc" sptr,sptr,sptr,sptr #func global CommDlgExtendedError "CommDlgExtendedError" #func global EditIntegerOnly "EditIntegerOnly" sptr,sptr,sptr,sptr #func global FileOpenDlgProc "FileOpenDlgProc" sptr,sptr,sptr,sptr #func global FileSaveDlgProc "FileSaveDlgProc" sptr,sptr,sptr,sptr #func global FindReplaceDlgProc "FindReplaceDlgProc" sptr,sptr,sptr,sptr #define global FindText FindTextA #func global FindTextA "FindTextA" sptr #func global FindTextW "FindTextW" wptr #func global FontFamilyEnumProc "FontFamilyEnumProc" sptr,sptr,sptr,sptr #func global FontStyleEnumProc "FontStyleEnumProc" sptr,sptr,sptr,sptr #func global FormatCharDlgProc "FormatCharDlgProc" sptr,sptr,sptr,sptr #define global GetFileTitle GetFileTitleA #func global GetFileTitleA "GetFileTitleA" sptr,sptr,sptr #func global GetFileTitleW "GetFileTitleW" wptr,wptr,wptr #define global GetOpenFileName GetOpenFileNameA #func global GetOpenFileNameA "GetOpenFileNameA" sptr #func global GetOpenFileNameW "GetOpenFileNameW" wptr #define global GetSaveFileName GetSaveFileNameA #func global GetSaveFileNameA "GetSaveFileNameA" sptr #func global GetSaveFileNameW "GetSaveFileNameW" wptr #func global LoadAlterBitmap "LoadAlterBitmap" sptr,sptr,sptr #define global PageSetupDlg PageSetupDlgA #func global PageSetupDlgA "PageSetupDlgA" sptr #func global PageSetupDlgW "PageSetupDlgW" wptr #define global PrintDlg PrintDlgA #func global PrintDlgA "PrintDlgA" sptr #func global PrintDlgProc "PrintDlgProc" sptr,sptr,sptr,sptr #func global PrintDlgW "PrintDlgW" wptr #func global PrintSetupDlgProc "PrintSetupDlgProc" sptr,sptr,sptr,sptr #define global ReplaceText ReplaceTextA #func global ReplaceTextA "ReplaceTextA" sptr #func global ReplaceTextW "ReplaceTextW" wptr #func global WantArrows "WantArrows" sptr,sptr,sptr,sptr #func global dwLBSubclass "dwLBSubclass" sptr,sptr,sptr,sptr #func global dwOKSubclass "dwOKSubclass" sptr,sptr,sptr,sptr #endif #endif