[13] | 1 | ' GdiPlusTypes.sbp
|
---|
| 2 |
|
---|
| 3 | #ifndef __GDIPLUSTYPES_AB__
|
---|
| 4 | #define __GDIPLUSTYPES_AB__
|
---|
| 5 |
|
---|
| 6 | #include <Classes/System/Math.ab>
|
---|
| 7 |
|
---|
| 8 | TypeDef ImageAbort = *Function(p As VoidPtr) As BOOL
|
---|
| 9 | TypeDef DrawImageAbort = ImageAbort
|
---|
| 10 | TypeDef GetThumbnailImageAbort = ImageAbort
|
---|
| 11 |
|
---|
| 12 | TypeDef EnumerateMetafileProc = *Function(recordType As EmfPlusRecordType, flags As DWord, dataSize As DWord, data As BytePtr, callbackData As VoidPtr) As BOOL
|
---|
| 13 |
|
---|
| 14 | 'Const REAL_MAX = FLT_MAX
|
---|
| 15 | 'Const REAL_MIN = FLT_MIN
|
---|
| 16 | 'Const REAL_TOLERANCE = (FLT_MIN * 100)
|
---|
| 17 | 'Const REAL_EPSILON = 1.192092896e-07 'FLT_EPSILON
|
---|
| 18 |
|
---|
| 19 | Const Enum Status
|
---|
| 20 | Ok = 0
|
---|
| 21 | GenericError = 1
|
---|
| 22 | InvalidParameter = 2
|
---|
| 23 | OutOfMemory = 3
|
---|
| 24 | ObjectBusy = 4
|
---|
| 25 | InsufficientBuffer = 5
|
---|
| 26 | NotImplemented = 6
|
---|
| 27 | Win32Error = 7
|
---|
| 28 | WrongState = 8
|
---|
| 29 | Aborted = 9
|
---|
| 30 | FileNotFound = 10
|
---|
| 31 | ValueOverflow = 11
|
---|
| 32 | AccessDenied = 12
|
---|
| 33 | UnknownImageFormat = 13
|
---|
| 34 | FontFamilyNotFound = 14
|
---|
| 35 | FontStyleNotFound = 15
|
---|
| 36 | NotTrueTypeFont = 16
|
---|
| 37 | UnsupportedGdiplusVersion = 17
|
---|
| 38 | GdiplusNotInitialized = 18
|
---|
| 39 | PropertyNotFound = 19
|
---|
| 40 | PropertyNotSupported = 20
|
---|
| 41 | End Enum
|
---|
| 42 |
|
---|
| 43 | #include <Classes/System/Drawing/SizeF.ab>
|
---|
| 44 | #include <Classes/System/Drawing/Size.ab>
|
---|
| 45 | #include <Classes/System/Drawing/PointF.ab>
|
---|
| 46 | #include <Classes/System/Drawing/Point.ab>
|
---|
| 47 | #include <Classes/System/Drawing/RectangleF.ab>
|
---|
| 48 | #include <Classes/System/Drawing/Rectangle.ab>
|
---|
| 49 | #include <Classes/System/Drawing/CharacterRange.ab>
|
---|
| 50 |
|
---|
| 51 | Class PathData
|
---|
| 52 | Public
|
---|
| 53 | Sub PathData()
|
---|
| 54 | Count = 0
|
---|
| 55 | Points = NULL
|
---|
| 56 | Types = NULL
|
---|
| 57 | End Sub
|
---|
| 58 |
|
---|
| 59 | Sub ~PathData()
|
---|
| 60 | If Points <> NULL Then
|
---|
| 61 | Delete Points
|
---|
| 62 | End If
|
---|
| 63 | If Types <> NULL Then
|
---|
| 64 | Delete Types
|
---|
| 65 | End Sub
|
---|
| 66 |
|
---|
| 67 | Private
|
---|
| 68 | /*
|
---|
| 69 | Sub PathData(ByRef pd As PathData)
|
---|
| 70 | Debug
|
---|
| 71 | End Sub
|
---|
| 72 | */
|
---|
| 73 | Sub Operator =(ByRef pd As PathData)
|
---|
| 74 | Debug
|
---|
| 75 | End Sub
|
---|
| 76 |
|
---|
| 77 | Public
|
---|
| 78 | Count As Long
|
---|
| 79 | Points As *PointF
|
---|
| 80 | Types As *BYTE
|
---|
| 81 | End Class
|
---|
| 82 |
|
---|
| 83 | #endif '__GDIPLUSTYPES_AB__
|
---|