1<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
2<html>
3
4<head>
5<title>Windows Interface Reference: Cursor structure</title>
6</head>
7
8<body>
9
10<h1>Cursor </h1>
11
12<p>The Cursor structure contains functions and structures to create and operate on
13cursors.</p>
14
15<pre>structure Cursor:
16  sig
17    type HCURSOR and HINSTANCE
18    type POINT = { x : int, y: int }
19    type RECT =  { left: int, top: int, right: int, bottom: int }
20    val hcursorNull : HCURSOR
21    val isHcursorNull : HCURSOR -&gt; bool
22
23    datatype
24      CursorId =
25          OCR_APPSTARTING
26        | OCR_CROSS
27        | OCR_IBEAM
28        | OCR_NO
29        | OCR_NORMAL
30        | OCR_SIZEALL
31        | OCR_SIZENESW
32        | OCR_SIZENS
33        | OCR_SIZENWSE
34        | OCR_SIZEWE
35        | OCR_UP
36        | OCR_WAIT
37
38    val ClipCursor : RECT -&gt; unit
39    val CopyCursor : HCURSOR -&gt; HCURSOR
40    val DestroyCursor : HCURSOR -&gt; unit
41    val GetClipCursor : unit -&gt; RECT
42    val GetCursor : unit -&gt; HCURSOR
43    val GetCursorPos : unit -&gt; POINT
44    val LoadCursor : HINSTANCE * Resource.RESID -&gt; HCURSOR
45    val LoadCursorFromFile : string -&gt; HCURSOR
46    val LoadSystemCursor : CursorId -&gt; HCURSOR
47    val LoadSystemCursorFromFile : CursorId -&gt; HCURSOR
48    val SetCursor : HCURSOR -&gt; HCURSOR
49    val SetCursorPos : int * int -&gt; unit
50    val SetSytemCursor : HCURSOR * CursorId -&gt; unit
51    val ShowCursor : bool -&gt; int
52  end</pre>
53</body>
54</html>
55