1<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
2<html>
3
4<head>
5<title>Windows Interface Reference: Pen structure</title>
6</head>
7
8<body>
9
10<h1>Pen </h1>
11
12<p>The Pen structure contains functions and structures to create pens.</p>
13
14<pre>structure Pen :
15  sig
16    type HPEN 
17    datatype
18      PenStyle =
19          PS_ALTERNATE
20        | PS_COSMETIC
21        | PS_DASH
22        | PS_DASHDOT
23        | PS_DASHDOTDOT
24        | PS_DOT
25        | PS_ENDCAP_FLAT
26        | PS_ENDCAP_ROUND
27        | PS_ENDCAP_SQUARE
28        | PS_GEOMETRIC
29        | PS_INSIDEFRAME
30        | PS_JOIN_BEVEL
31        | PS_JOIN_MITER
32        | PS_JOIN_ROUND
33        | PS_NULL
34        | PS_SOLID
35        | PS_USERSTYLE
36
37    type COLORREF = Color.COLORREF
38    type LOGBRUSH = Brush.LOGBRUSH
39    type LOGPEN = PenStyle * int option * COLORREF
40
41    val CreatePen : PenStyle list * int * COLORREF -&gt; HPEN
42    val CreatePenIndirect : LOGPEN -&gt; HPEN
43    val ExtCreatePen : PenStyle list * int * LOGBRUSH * (int * int) list -&gt; HPEN
44  end</pre>
45</body>
46</html>
47