[701] | 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
|
---|