Line | |
---|
1 | ' Classes/System/Drawing/misc.ab
|
---|
2 |
|
---|
3 | Namespace System
|
---|
4 | Namespace Drawing
|
---|
5 |
|
---|
6 | Enum RotateFlipType
|
---|
7 | RotateNoneFlipNone = 0
|
---|
8 | Rotate90FlipNone = 1
|
---|
9 | Rotate180FlipNone = 2
|
---|
10 | Rotate270FlipNone = 3
|
---|
11 |
|
---|
12 | RotateNoneFlipX = 4
|
---|
13 | Rotate90FlipX = 5
|
---|
14 | Rotate180FlipX = 6
|
---|
15 | Rotate270FlipX = 7
|
---|
16 |
|
---|
17 | RotateNoneFlipY = 6
|
---|
18 | Rotate90FlipY = 7
|
---|
19 | Rotate180FlipY = 4
|
---|
20 | Rotate270FlipY = 5
|
---|
21 |
|
---|
22 | RotateNoneFlipXY = 2
|
---|
23 | Rotate90FlipXY = 3
|
---|
24 | Rotate180FlipXY = 0
|
---|
25 | Rotate270FlipXY = 1
|
---|
26 | End Enum
|
---|
27 |
|
---|
28 | Enum GraphicsUnit
|
---|
29 | World ' 0
|
---|
30 | Display ' 1
|
---|
31 | Pixel ' 2
|
---|
32 | Point ' 3
|
---|
33 | Inch ' 4
|
---|
34 | Document ' 5
|
---|
35 | Millimeter ' 6
|
---|
36 | End Enum
|
---|
37 |
|
---|
38 | Enum FontStyle
|
---|
39 | Regular = 0
|
---|
40 | Bold = 1
|
---|
41 | Italic = 2
|
---|
42 | Strikeout = 4
|
---|
43 | Underline = 8
|
---|
44 | End Enum
|
---|
45 |
|
---|
46 | Enum TextRenderingHint
|
---|
47 | TextRenderingHintSystemDefault = 0
|
---|
48 | TextRenderingHintSingleBitPerPixelGridFit
|
---|
49 | TextRenderingHintSingleBitPerPixel
|
---|
50 | TextRenderingHintAntiAliasGridFit
|
---|
51 | TextRenderingHintAntiAlias
|
---|
52 | TextRenderingHintClearTypeGridFit
|
---|
53 | End Enum
|
---|
54 |
|
---|
55 | Enum MetafileFrameUnit
|
---|
56 | Pixel = 2
|
---|
57 | Point = 3
|
---|
58 | Inch = 4
|
---|
59 | Document = 5
|
---|
60 | Millimeter = 6
|
---|
61 | Gdi
|
---|
62 | End Enum
|
---|
63 |
|
---|
64 | Namespace Detail
|
---|
65 | Sub ThrowGdiplusException(status As Status)
|
---|
66 | Select Case status
|
---|
67 | Case Ok
|
---|
68 | Exit Sub
|
---|
69 | ' Case OutOfMemory
|
---|
70 | ' Throw New System.OutOfMemroyException("GDI+")
|
---|
71 | Case NotImplemented
|
---|
72 | Throw New System.NotImplementedException("GDI+")
|
---|
73 | ' Case FileNotFoundException
|
---|
74 | ' Throw New System.IO.FileNotFoundException("GDI+")
|
---|
75 | Case Else
|
---|
76 | Throw New System.Exception("GDI+")
|
---|
77 | End Select
|
---|
78 | End Sub
|
---|
79 | End Namespace
|
---|
80 |
|
---|
81 | Sub SetStatus(status As Status)
|
---|
82 | Detail.ThrowGdiplusException(status)
|
---|
83 | End Sub
|
---|
84 |
|
---|
85 | End Namespace
|
---|
86 | End Namespace
|
---|
Note:
See
TracBrowser
for help on using the repository browser.