Changeset 698 for trunk/ab5.0/ablib/src/GdiPlusGpStubs.ab

Timestamp:

Mar 31, 2009, 2:09:07 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

GDI+をコンパイルできるように修正。FontFamily, Penの追加。サンプルとして、Step 32のGDI+版を制作。
(#56)

File:

• trunk/ab5.0/ablib/src/GdiPlusGpStubs.ab (modified) (2 diffs)

trunk/ab5.0/ablib/src/GdiPlusGpStubs.ab

@@ -4 +4 @@
 #require <Classes/System/Drawing/Drawing2D/Matrix.ab>
 
-Class GpGraphics
-End Class
+Type GpGraphics
+End Type
 
-Class GpBrush
-End Class
-Class GpTexture
-    Inherits GpBrush
-End Class
-Class GpSolidFill
-    Inherits GpBrush
-End Class
-Class GpLineGradient
-    Inherits GpBrush
-End Class
-Class GpPathGradient
-    Inherits GpBrush
-End Class
-Class GpHatch
-    Inherits GpBrush
-End Class
+Type GpBrush
+End Type
+Type GpTexture
+'   Inherits GpBrush
+End Type
+Type GpSolidFill
+'   Inherits GpBrush
+End Type
+Type GpLineGradient
+'   Inherits GpBrush
+End Type
+Type GpPathGradient
+'   Inherits GpBrush
+End Type
+Type GpHatch
+'   Inherits GpBrush
+End Type
 
-Class GpPen
-End Class
-Class GpCustomLineCap
-End Class
-Class GpAdjustableArrowCap
-    Inherits GpCustomLineCap
-End Class
+Type GpPen
+End Type
+Type GpCustomLineCap
+End Type
+Type GpAdjustableArrowCap
+'   Inherits GpCustomLineCap
+End Type
 
-Class GpImage
-End Class
-Class GpBitmap
-    Inherits GpImage
-End Class
-Class GpMetafile
-    Inherits GpImage
-End Class
-Class GpImageAttributes
-End Class
+Type GpImage
+End Type
+Type GpBitmap
+'   Inherits GpImage
+End Type
+Type GpMetafile
+'   Inherits GpImage
+End Type
+Type GpImageAttributes
+End Type
 
-Class GpPath
-End Class
-Class GpRegion
-End Class
-Class GpPathIterator
-End Class
+Type GpPath
+End Type
+Type GpRegion
+End Type
+Type GpPathIterator
+End Type
 
-Class GpFontFamily
-End Class
-Class GpFont
-End Class
-Class GpStringFormat
-End Class
-Class GpFontCollection
-End Class
-Class GpInstalledFontCollection
-    Inherits GpFontCollection
-End Class
-Class GpPrivateFontCollection
-    Inherits GpFontCollection
-End Class
+Type GpFontFamily
+End Type
+Type GpFont
+End Type
+Type GpStringFormat
+End Type
+Type GpFontCollection
+End Type
+Type GpInstalledFontCollection
+'   Inherits GpFontCollection
+End Type
+Type GpPrivateFontCollection
+'   Inherits GpFontCollection
+End Type
 
-'Class GpCachedBitmap;
-Class GpCachedBitmap
-End Class
+'Type GpCachedBitmap;
+Type GpCachedBitmap
+End Type
 
 TypeDef GpStatus = Status
-TypeDef GpFillMode = FillMode
+TypeDef GpFillMode = Long 'System.Drawing.Drawing2D.FillMode
 TypeDef GpWrapMode = WrapMode
-TypeDef GpUnit = GraphicsUnit
-TypeDef GpCoordinateSpace = CoordinateSpace
+TypeDef GpUnit = Long 'System.Drawing.GraphicsUnit
+TypeDef GpCoordinateSpace = Long 'System.Drawing.Drawing2D.CoordinateSpace
 TypeDef GpPointF = System.Drawing.PointF
 TypeDef GpPoint = System.Drawing.Point
@@ -80 +80 @@
 TypeDef GpRect = System.Drawing.Rectangle
 TypeDef GpSizeF = System.Drawing.SizeF
-TypeDef GpHatchStyle = HatchStyle
-TypeDef GpDashStyle = DashStyle
-TypeDef GpLineCap = LineCap
-TypeDef GpDashCap = DashCap
+TypeDef GpHatchStyle = Long 'HatchStyle
+TypeDef GpDashStyle = Long 'DashStyle
+TypeDef GpLineCap = Long 'LineCap
+TypeDef GpDashCap = Long 'DashCap
 
 
-TypeDef GpPenAlignment = PenAlignment
+TypeDef GpPenAlignment = Long 'PenAlignment
 
-TypeDef GpLineJoin = LineJoin
-TypeDef GpPenType = PenType
+TypeDef GpLineJoin = Long 'LineJoin
+TypeDef GpPenType = Long 'PenType
 
-TypeDef GpMatrix = Matrix
-TypeDef GpBrushType = BrushType
-TypeDef GpMatrixOrder = MatrixOrder
-TypeDef GpFlushIntention = FlushIntention
+Type GpMatrix : End Type
+'TypeDef GpMatrix = Matrix
+TypeDef GpBrushType = Long 'BrushType
+TypeDef GpMatrixOrder = Long 'System.Drawing.Drawing2D.MatrixOrder
+TypeDef GpFlushIntention = Long 'System.Drawing.Drawing2D.FlushIntention
 TypeDef GpPathData = PathData