1<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> 2<html> 3 4<head> 5<title>Windows Interface Reference: Brush structure</title> 6</head> 7 8<body> 9 10<h1>Brush</h1> 11 12<p>The Brush structure contains functions and structures to create and operate on brushes. 13 Brushes are used to fill areas of the screen with single colours or patterns.</p> 14 15<pre>structure Brush: 16 sig 17 type HBITMAP and HBRUSH and HDC 18 19 datatype 20 HatchStyle = 21 HS_BDIAGONAL 22 | HS_CROSS 23 | HS_DIAGCROSS 24 | HS_FDIAGONAL 25 | HS_HORIZONTAL 26 | HS_VERTICAL 27 28 datatype 29 BrushStyle = 30 BS_HATCHED of HatchStyle 31 | BS_HOLLOW 32 | BS_PATTERN of HBITMAP 33 | BS_SOLID 34 35 type COLORREF = Color.COLORREF 36 37 type LOGBRUSH = BrushStyle * COLORREF 38 type POINT = {x: int, y: int} 39 type RasterOpCode = Bitmap.RasterOpCode 40 41 datatype ColorType = 42 COLOR_SCROLLBAR 43 | COLOR_BACKGROUND 44 | COLOR_ACTIVECAPTION 45 | COLOR_INACTIVECAPTION 46 | COLOR_MENU 47 | COLOR_WINDOW 48 | COLOR_WINDOWFRAME 49 | COLOR_MENUTEXT 50 | COLOR_WINDOWTEXT 51 | COLOR_CAPTIONTEXT 52 | COLOR_ACTIVEBORDER 53 | COLOR_INACTIVEBORDER 54 | COLOR_APPWORKSPACE 55 | COLOR_HIGHLIGHT 56 | COLOR_HIGHLIGHTTEXT 57 | COLOR_BTNFACE 58 | COLOR_BTNSHADOW 59 | COLOR_GRAYTEXT 60 | COLOR_BTNTEXT 61 | COLOR_INACTIVECAPTIONTEXT 62 | COLOR_BTNHIGHLIGHT 63 | COLOR_3DDKSHADOW 64 | COLOR_3DLIGHT 65 | COLOR_INFOTEXT 66 | COLOR_INFOBK 67 68 val CreateBrushIndirect : LOGBRUSH -> HBRUSH 69 val CreateHatchBrush : HatchStyle * COLORREF -> HBRUSH 70 val CreatePatternBrush : HBITMAP -> HBRUSH 71 val CreateSolidBrush : COLORREF -> HBRUSH 72 val GetSysColorBrush : ColorType -> HBRUSH 73 val GetBrushOrgEx : HDC -> POINT 74 val PatBlt : HDC * int * int * int * int * RasterOpCode -> unit 75 val SetBrushOrgEx : HDC * POINT -> POINT 76 end</pre> 77</body> 78</html> 79