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 -> 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 -> unit 39 val CopyCursor : HCURSOR -> HCURSOR 40 val DestroyCursor : HCURSOR -> unit 41 val GetClipCursor : unit -> RECT 42 val GetCursor : unit -> HCURSOR 43 val GetCursorPos : unit -> POINT 44 val LoadCursor : HINSTANCE * Resource.RESID -> HCURSOR 45 val LoadCursorFromFile : string -> HCURSOR 46 val LoadSystemCursor : CursorId -> HCURSOR 47 val LoadSystemCursorFromFile : CursorId -> HCURSOR 48 val SetCursor : HCURSOR -> HCURSOR 49 val SetCursorPos : int * int -> unit 50 val SetSytemCursor : HCURSOR * CursorId -> unit 51 val ShowCursor : bool -> int 52 end</pre> 53</body> 54</html> 55