Last change
on this file since 485 was 473, checked in by イグトランス (egtra), 16 years ago |
実験として書いていたControlクラスを追加(せめてコミット前に既存のContorolに混ぜようとしたがコンパイルできなかった)。
ほかForms, Drawing及びGDI+の修正。
|
File size:
1.4 KB
|
Rev | Line | |
---|
[13] | 1 | ' GdiPlusTypes.sbp
|
---|
| 2 |
|
---|
| 3 | #ifndef __GDIPLUSTYPES_AB__
|
---|
| 4 | #define __GDIPLUSTYPES_AB__
|
---|
| 5 |
|
---|
| 6 | TypeDef ImageAbort = *Function(p As VoidPtr) As BOOL
|
---|
| 7 | TypeDef DrawImageAbort = ImageAbort
|
---|
| 8 | TypeDef GetThumbnailImageAbort = ImageAbort
|
---|
| 9 |
|
---|
[473] | 10 | TypeDef EnumerateMetafileProc = *Function(recordType As EmfPlusRecordType, flags As DWord, dataSize As DWord, data As *Byte, callbackData As VoidPtr) As BOOL
|
---|
[13] | 11 |
|
---|
| 12 | 'Const REAL_MAX = FLT_MAX
|
---|
| 13 | 'Const REAL_MIN = FLT_MIN
|
---|
| 14 | 'Const REAL_TOLERANCE = (FLT_MIN * 100)
|
---|
| 15 | 'Const REAL_EPSILON = 1.192092896e-07 'FLT_EPSILON
|
---|
| 16 |
|
---|
| 17 | Const Enum Status
|
---|
| 18 | Ok = 0
|
---|
| 19 | GenericError = 1
|
---|
| 20 | InvalidParameter = 2
|
---|
| 21 | OutOfMemory = 3
|
---|
| 22 | ObjectBusy = 4
|
---|
| 23 | InsufficientBuffer = 5
|
---|
| 24 | NotImplemented = 6
|
---|
| 25 | Win32Error = 7
|
---|
| 26 | WrongState = 8
|
---|
| 27 | Aborted = 9
|
---|
| 28 | FileNotFound = 10
|
---|
| 29 | ValueOverflow = 11
|
---|
| 30 | AccessDenied = 12
|
---|
| 31 | UnknownImageFormat = 13
|
---|
| 32 | FontFamilyNotFound = 14
|
---|
| 33 | FontStyleNotFound = 15
|
---|
| 34 | NotTrueTypeFont = 16
|
---|
| 35 | UnsupportedGdiplusVersion = 17
|
---|
| 36 | GdiplusNotInitialized = 18
|
---|
| 37 | PropertyNotFound = 19
|
---|
| 38 | PropertyNotSupported = 20
|
---|
| 39 | End Enum
|
---|
| 40 |
|
---|
| 41 | Class PathData
|
---|
[473] | 42 | /*
|
---|
[13] | 43 | Public
|
---|
| 44 | Sub PathData()
|
---|
| 45 | Count = 0
|
---|
| 46 | Points = NULL
|
---|
| 47 | Types = NULL
|
---|
| 48 | End Sub
|
---|
| 49 |
|
---|
| 50 | Sub ~PathData()
|
---|
| 51 | If Points <> NULL Then
|
---|
| 52 | Delete Points
|
---|
| 53 | End If
|
---|
| 54 | If Types <> NULL Then
|
---|
| 55 | Delete Types
|
---|
| 56 | End Sub
|
---|
| 57 |
|
---|
| 58 | Public
|
---|
| 59 | Count As Long
|
---|
| 60 | Points As *PointF
|
---|
| 61 | Types As *BYTE
|
---|
[473] | 62 | */
|
---|
[13] | 63 | End Class
|
---|
| 64 |
|
---|
[473] | 65 |
|
---|
[13] | 66 | #endif '__GDIPLUSTYPES_AB__
|
---|
Note:
See
TracBrowser
for help on using the repository browser.