Changeset 473 for trunk/Include/GdiPlusTypes.ab

Timestamp:

Mar 12, 2008, 9:54:46 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

実験として書いていたControlクラスを追加（せめてコミット前に既存のContorolに混ぜようとしたがコンパイルできなかった）。
ほかForms, Drawing及びGDI+の修正。

File:

• trunk/Include/GdiPlusTypes.ab (modified) (3 diffs)

trunk/Include/GdiPlusTypes.ab

@@ -4 +4 @@
 #define __GDIPLUSTYPES_AB__
 
-#include <Classes/System/Math.ab>
-
 TypeDef ImageAbort = *Function(p As VoidPtr) As BOOL
 TypeDef DrawImageAbort = ImageAbort
 TypeDef GetThumbnailImageAbort = ImageAbort
 
-TypeDef EnumerateMetafileProc = *Function(recordType As EmfPlusRecordType, flags As DWord, dataSize As DWord, data As BytePtr, callbackData As VoidPtr) As BOOL
+TypeDef EnumerateMetafileProc = *Function(recordType As EmfPlusRecordType, flags As DWord, dataSize As DWord, data As *Byte, callbackData As VoidPtr) As BOOL
 
 'Const REAL_MAX           = FLT_MAX
@@ -41 +39 @@
 End Enum
 
-#include <Classes/System/Drawing/SizeF.ab>
-#include <Classes/System/Drawing/Size.ab>
-#include <Classes/System/Drawing/PointF.ab>
-#include <Classes/System/Drawing/Point.ab>
-#include <Classes/System/Drawing/RectangleF.ab>
-#include <Classes/System/Drawing/Rectangle.ab>
-#include <Classes/System/Drawing/CharacterRange.ab>
-
 Class PathData
+/*
 Public
     Sub PathData()
@@ -65 +56 @@
     End Sub
 
-Private
-/*
-    Sub PathData(ByRef pd As PathData)
-        Debug
-    End Sub
-*/
-    Sub Operator =(ByRef pd As PathData)
-        Debug
-    End Sub
-
 Public
     Count As Long
     Points As *PointF
     Types As *BYTE
+*/
 End Class
 
+
 #endif '__GDIPLUSTYPES_AB__