1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Windows Interface Reference: CommonDialog structure</title>
</head>
<body>
<h1>CommonDialog</h1>
<p>The CommonDialog structure contains functions and structures to create common forms of
dialogue boxes.</p>
<pre>structure CommonDialog :
sig
type HWND and HDC and COLORREF = Color.COLORREF and HINSTANCE
type POINT = { x: int, y: int }
type RECT = { left: int, top: int, right: int, bottom: int }
(* Error codes *)
datatype CDERR =
DIALOGFAILURE
| GENERALCODES
| STRUCTSIZE
| INITIALIZATION
| NOTEMPLATE
| NOHINSTANCE
| LOADSTRFAILURE
| FINDRESFAILURE
| LOADRESFAILURE
| LOCKRESFAILURE
| MEMALLOCFAILURE
| MEMLOCKFAILURE
| NOHOOK
| REGISTERMSGFAIL
| PRINTERCODES
| SETUPFAILURE
| PARSEFAILURE
| RETDEFFAILURE
| LOADDRVFAILURE
| GETDEVMODEFAIL
| INITFAILURE
| NODEVICES
| NODEFAULTPRN
| DNDMMISMATCH
| CREATEICFAILURE
| PRINTERNOTFOUND
| DEFAULTDIFFERENT
| CHOOSEFONTCODES
| NOFONTS
| MAXLESSTHANMIN
| FILENAMECODES
| SUBCLASSFAILURE
| INVALIDFILENAME
| BUFFERTOOSMALL
| FINDREPLACECODES
| BUFFERLENGTHZERO
| CHOOSECOLORCODES
val CommDlgExtendedError : unit -> CDERR
(* ChooseColor *)
structure ChooseColorFlags :
sig
include BIT_FLAGS
val CC_ANYCOLOR : flags
val CC_FULLOPEN : flags
val CC_PREVENTFULLOPEN : flags
val CC_RGBINIT : flags
val CC_SHOWHELP : flags
val CC_SOLIDCOLOR : flags
end
type CHOOSECOLOR =
{
owner: HWND option,
result: COLORREF,
customColors: COLORREF list,
flags: ChooseColorFlags.flags
}
val ChooseColor : CHOOSECOLOR -> CHOOSECOLOR option
(* ChooseFont *)
structure ChooseFontFlags :
sig
include BIT_FLAGS
val CF_ANSIONLY : flags
val CF_APPLY : flags
val CF_BOTH : flags
val CF_EFFECTS : flags
val CF_FIXEDPITCHONLY : flags
val CF_FORCEFONTEXIST : flags
val CF_NOFACESEL : flags
val CF_NOOEMFONTS : flags
val CF_NOSCRIPTSEL : flags
val CF_NOSIMULATIONS : flags
val CF_NOSIZESEL : flags
val CF_NOSTYLESEL : flags
val CF_NOVECTORFONTS : flags
val CF_NOVERTFONTS : flags
val CF_PRINTERFONTS : flags
val CF_SCALABLEONLY : flags
val CF_SCREENFONTS : flags
val CF_SCRIPTSONLY : flags
val CF_SELECTSCRIPT : flags
val CF_SHOWHELP : flags
val CF_TTONLY : flags
val CF_WYSIWYG : flags
end
structure ChooseFontTypes :
sig
include BIT_FLAGS
val BOLD_FONTTYPE : flags
val ITALIC_FONTTYPE : flags
val PRINTER_FONTTYPE : flags
val REGULAR_FONTTYPE : flags
val SCREEN_FONTTYPE : flags
val SIMULATED_FONTTYPE : flags
end
type CHOOSEFONT =
{
owner: HWND option,
context: HDC option,
logFont: Font.LOGFONT option,
pointSize: int,
flags: ChooseFontFlags.flags,
colors: COLORREF,
style: string option,
fontType: ChooseFontTypes.flags,
size: {min: int, max: int} option
}
val ChooseFont : CHOOSEFONT -> CHOOSEFONT option
(* FindText and ReplaceText *)
structure FindReplaceFlags :
sig
include BIT_FLAGS
val FR_DIALOGTERM : flags
val FR_DOWN : flags
val FR_FINDNEXT : flags
val FR_HIDEMATCHCASE : flags
val FR_HIDEUPDOWN : flags
val FR_HIDEWHOLEWORD : flags
val FR_MATCHCASE : flags
val FR_NOMATCHCASE : flags
val FR_NOUPDOWN : flags
val FR_NOWHOLEWORD : flags
val FR_REPLACE : flags
val FR_REPLACEALL : flags
val FR_SHOWHELP : flags
val FR_WHOLEWORD : flags
end
datatype
TemplateType =
TemplateDefault
| TemplateHandle of Dialog.DLGTEMPLATE
| TemplateResource of HINSTANCE * Resource.RESID
type FINDREPLACE =
{
owner : HWND,
template: TemplateType,
flags: FindReplaceFlags.flags,
findWhat: string,
replaceWith: string,
bufferSize: int
}
val <a
href="#FindText">FindText</a> : FINDREPLACE -> HWND
val <a href="#ReplaceText">ReplaceText</a> : FINDREPLACE -> HWND
(* GetOpenFileName and GetSaveFileName *)
structure OpenFileFlags :
sig
include BIT_FLAGS
val OFN_ALLOWMULTISELECT : flags
val OFN_CREATEPROMPT : flags
val OFN_EXPLORER : flags
val OFN_EXTENSIONDIFFERENT : flags
val OFN_FILEMUSTEXIST : flags
val OFN_HIDEREADONLY : flags
val OFN_LONGNAMES : flags
val OFN_NOCHANGEDIR : flags
val OFN_NODEREFERENCELINKS : flags
val OFN_NOLONGNAMES : flags
val OFN_NONETWORKBUTTON : flags
val OFN_NOREADONLYRETURN : flags
val OFN_NOTESTFILECREATE : flags
val OFN_NOVALIDATE : flags
val OFN_OVERWRITEPROMPT : flags
val OFN_PATHMUSTEXIST : flags
val OFN_READONLY : flags
val OFN_SHAREAWARE : flags
val OFN_SHOWHELP : flags
end
type OPENFILENAME =
{
owner: HWND option,
template: TemplateType,
filter: (string * string) list,
customFilter: (string * string) option,
filterIndex: int,
file: string, (* Initial value of file and returned result. *)
maxFile: int, (* Max size of expected file name. *)
fileTitle : string,
initialDir: string option,
title: string option, (* Optional title - default is Save or Open. *)
flags: OpenFileFlags.flags,
defExt: string option
}
val GetFileTitle : string -> string
val <a
name="GetOpenFileName">GetOpenFileName</a> : OPENFILENAME -> OPENFILENAME option
val <a
name="GetSaveFileName">GetSaveFileName</a> : OPENFILENAME -> OPENFILENAME option
(* PageSetupDlg *)
structure PageSetupFlags :
sig
include BIT_FLAGS
val PSD_DEFAULTMINMARGINS : flags
val PSD_DISABLEMARGINS : flags
val PSD_DISABLEORIENTATION : flags
val PSD_DISABLEPAGEPAINTING : flags
val PSD_DISABLEPAPER : flags
val PSD_DISABLEPRINTER : flags
val PSD_INHUNDREDTHSOFMILLIMETERS : flags
val PSD_INTHOUSANDTHSOFINCHES : flags
val PSD_MARGINS : flags
val PSD_MINMARGINS : flags
val PSD_NONETWORKBUTTON : flags
val PSD_NOWARNING : flags
val PSD_RETURNDEFAULT : flags
val PSD_SHOWHELP : flags
end
type PAGESETUPDLG =
{
owner: HWND option,
devMode: DeviceContext.DEVMODE option,
devNames: DeviceContext.DEVNAMES option,
flags: PageSetupFlags.flags,
paperSize: POINT,
minMargin: RECT,
margin: RECT
(* For the moment we ignore the other options. *)
}
val <a
name="PageSetupDlg">PageSetupDlg</a> : PAGESETUPDLG -> PAGESETUPDLG option
(* PrintDlg *)
structure PrintDlgFlags :
sig
include BIT_FLAGS
val PD_ALLPAGES : flags
val PD_COLLATE : flags
val PD_DISABLEPRINTTOFILE : flags
val PD_HIDEPRINTTOFILE : flags
val PD_NONETWORKBUTTON : flags
val PD_NOPAGENUMS : flags
val PD_NOSELECTION : flags
val PD_NOWARNING : flags
val PD_PAGENUMS : flags
val PD_PRINTSETUP : flags
val PD_PRINTTOFILE : flags
val PD_RETURNDC : flags
val PD_RETURNDEFAULT : flags
val PD_RETURNIC : flags
val PD_SELECTION : flags
val PD_SHOWHELP : flags
val PD_USEDEVMODECOPIES : flags
val PD_USEDEVMODECOPIESANDCOLLATE : flags
end
type PRINTDLG =
{
owner: HWND option,
devMode: DeviceContext.DEVMODE option,
devNames: DeviceContext.DEVNAMES option,
context: HDC option,
flags: PrintDlgFlags.flags,
fromPage: int,
toPage: int,
minPage: int,
maxPage: int,
copies: int
(* For the moment we ignore the other options. *)
}
val <a
name="PrintDlg">PrintDlg</a> : PRINTDLG -> PRINTDLG option
end</pre>
<p>Generally these functions create modal dialogue boxes. They take a configuration
structure as an argument and return an option type. NONE is returned if the user
presses Cancel. If the user presses OK the result is SOME with a modified structure
containing the user's input. </p>
<p><tt><a name="FindText">FindText</a>(findReplace): HWND<br>
<a name="ReplaceText">ReplaceText</a>(findReplace): HWND<br>
</tt>These create modeless dialogues and return a handle to the window for the dialogue.
They send <a href="Message.html#FINDMSGSTRING">FINDMSGSTRING</a> messages to the
parent window to indicate various changes of state.</p>
</body>
</html>
|