1 | ' Classes/System/Drawing/StringFormat.ab
|
---|
2 |
|
---|
3 | Namespace System
|
---|
4 | Namespace Drawing
|
---|
5 |
|
---|
6 | Function GetNativeStringFormat(sf As StringFormat) As *GpStringFormat
|
---|
7 | If ActiveBasic.IsNothing(sf) Then
|
---|
8 | GetNativeStringFormat = 0
|
---|
9 | Else
|
---|
10 | GetNativeStringFormat = sf.NativeFormat
|
---|
11 | End If
|
---|
12 | End Function
|
---|
13 |
|
---|
14 | Class StringFormat
|
---|
15 | Implements IDisposable, ICloneable
|
---|
16 | Public
|
---|
17 | Sub StringFormat(native As *GpStringFormat)
|
---|
18 | nativeFormat = native
|
---|
19 | End Sub
|
---|
20 |
|
---|
21 | Sub StringFormat() '暫定
|
---|
22 | SetStatus(GdipCreateStringFormat(0, LANG_NEUTRAL, nativeFormat))
|
---|
23 | End Sub
|
---|
24 |
|
---|
25 | Sub StringFormat(formatFlags /*= 0*/ As StringFormatFlags, language = LANG_NEUTRAL As LANGID)
|
---|
26 | SetStatus(GdipCreateStringFormat(formatFlags, language, nativeFormat))
|
---|
27 | End Sub
|
---|
28 |
|
---|
29 | Sub StringFormat(format As StringFormat)
|
---|
30 | SetStatus(GdipCloneStringFormat(GetNativeStringFormat(format), nativeFormat))
|
---|
31 | End Sub
|
---|
32 |
|
---|
33 | Static Function GenericDefault() As StringFormat
|
---|
34 | Dim native As *GpStringFormat
|
---|
35 | SetStatus(GdipStringFormatGetGenericTypographic(native))
|
---|
36 | GenericDefault = New StringFormat(native)
|
---|
37 | End Function
|
---|
38 |
|
---|
39 | Static Function GenericTypographic() As StringFormat
|
---|
40 | Dim native As *GpStringFormat
|
---|
41 | SetStatus(GdipStringFormatGetGenericTypographic(native))
|
---|
42 | GenericTypographic = New StringFormat(native)
|
---|
43 | End Function
|
---|
44 |
|
---|
45 | Function Clone() As StringFormat
|
---|
46 | Dim clonedStringFormat As *GpStringFormat
|
---|
47 | SetStatus(GdipCloneStringFormat(nativeFormat, clonedStringFormat))
|
---|
48 | Clone = New StringFormat(clonedStringFormat)
|
---|
49 | End Function
|
---|
50 |
|
---|
51 | Sub Dispose()
|
---|
52 | GdipDeleteStringFormat(nativeFormat)
|
---|
53 | nativeFormat = 0
|
---|
54 | End Sub
|
---|
55 |
|
---|
56 | Sub ~StringFormat()
|
---|
57 | Dispose()
|
---|
58 | End Sub
|
---|
59 |
|
---|
60 | Sub FormatFlags(align As StringFormatFlags)
|
---|
61 | SetStatus(GdipSetStringFormatFlags(nativeFormat, align))
|
---|
62 | End Sub
|
---|
63 | /*
|
---|
64 | Function FormatFlags() As StringFormatFlags
|
---|
65 | Dim flags As Long
|
---|
66 | SetStatus(GdipGetStringFormatFlags(nativeFormat, flags))
|
---|
67 | FormatFlags = flags As StringFormatFlags
|
---|
68 | End Function
|
---|
69 | */
|
---|
70 | Sub Alignment(align As StringAlignment)
|
---|
71 | SetStatus(GdipSetStringFormatAlign(nativeFormat, align))
|
---|
72 | End Sub
|
---|
73 | /*
|
---|
74 | Function Alignment() As StringAlignment
|
---|
75 | SetStatus(GdipGetStringFormatAlign(nativeFormat, Alignment))
|
---|
76 | End Function
|
---|
77 | */
|
---|
78 | Sub LineAlignment(align As StringAlignment)
|
---|
79 | SetStatus(GdipSetStringFormatLineAlign(nativeFormat, align))
|
---|
80 | End Sub
|
---|
81 | /*
|
---|
82 | Function LineAlignment() As StringAlignment
|
---|
83 | SetStatus(GdipGetStringFormatLineAlign(nativeFormat, LineAlignment))
|
---|
84 | End Function
|
---|
85 | */
|
---|
86 | Sub SetHotkeyPrefix(hotkeyPrefix As Text.HotkeyPrefix)
|
---|
87 | SetStatus(GdipSetStringFormatHotkeyPrefix(nativeFormat, hotkeyPrefix As Long))
|
---|
88 | End Sub
|
---|
89 | /*
|
---|
90 | Function HotkeyPrefix() As Text.HotkeyPrefix
|
---|
91 | SetStatus(GdipGetStringFormatHotkeyPrefix(nativeFormat, ByVal hotkeyPrefix As *Long))
|
---|
92 | End Function
|
---|
93 | */
|
---|
94 | 'SetTabStops - GdipSetStringFormatTabStops
|
---|
95 | 'GetTabStops - GdipGetStringFormatTabStops/GetTabStopCount
|
---|
96 |
|
---|
97 | Sub SetDigitSubstitution(language As LANGID, substitute As StringDigitSubstitute)
|
---|
98 | SetStatus(GdipSetStringFormatDigitSubstitution(nativeFormat, language, substitute))
|
---|
99 | End Sub
|
---|
100 |
|
---|
101 | Function DigitSubstitutionLanguage() As LANGID
|
---|
102 | SetStatus(GdipGetStringFormatDigitSubstitution(nativeFormat, DigitSubstitutionLanguage, ByVal NULL))
|
---|
103 | End Function
|
---|
104 | /*
|
---|
105 | Function DigitSubstitutionMethod() As StringDigitSubstitute
|
---|
106 | SetStatus(GdipGetStringFormatDigitSubstitution(nativeFormat, NULL, DigitSubstitutionMethod))
|
---|
107 | End Function
|
---|
108 | */
|
---|
109 | Sub Trimming(trimming As StringTrimming)
|
---|
110 | SetStatus(GdipSetStringFormatTrimming(nativeFormat, trimming))
|
---|
111 | End Sub
|
---|
112 | /*
|
---|
113 | Function Trimming() As StringTrimming
|
---|
114 | SetStatus(GdipGetStringFormatTrimming(nativeFormat, StringTrimming))
|
---|
115 | End Function
|
---|
116 | */
|
---|
117 | ' SetMeasurableCharacterRanges - GdipSetStringFormatMeasurableCharacterRanges
|
---|
118 |
|
---|
119 | Function NativeFormat() As *GpStringFormat
|
---|
120 | NativeFormat = nativeFormat
|
---|
121 | End Function
|
---|
122 |
|
---|
123 | Private
|
---|
124 | nativeFormat As *GpStringFormat
|
---|
125 | End Class
|
---|
126 |
|
---|
127 | End Namespace
|
---|
128 | End Namespace
|
---|