Changeset 698 for trunk/ab5.0/ablib/src/Classes/System/Drawing/misc.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/Classes/System/Drawing/misc.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/Drawing/misc.ab

@@ -37 +37 @@
 
 Enum FontStyle
-/*
     Regular = 0
     Bold = 1
     Italic = 2
     Strikeout = 4
-    Underline  = 8
-*/
+    Underline = 8
 End Enum
 
+Enum TextRenderingHint
+    TextRenderingHintSystemDefault = 0
+    TextRenderingHintSingleBitPerPixelGridFit
+    TextRenderingHintSingleBitPerPixel
+    TextRenderingHintAntiAliasGridFit
+    TextRenderingHintAntiAlias
+    TextRenderingHintClearTypeGridFit
+End Enum
+
+Enum MetafileFrameUnit
+    Pixel      = 2
+    Point      = 3
+    Inch       = 4
+    Document   = 5
+    Millimeter = 6
+    Gdi
+End Enum
+
+Namespace Detail
+    Sub ThrowGdiplusException(status As Status)
+        Select Case status
+            Case Ok
+                Exit Sub
+'           Case OutOfMemory
+'               Throw New System.OutOfMemroyException("GDI+")
+            Case NotImplemented
+                Throw New System.NotImplementedException("GDI+")
+'           Case FileNotFoundException
+'               Throw New System.IO.FileNotFoundException("GDI+")
+            Case Else
+                Throw New System.Exception("GDI+")
+        End Select
+    End Sub
+End Namespace
+
+Sub SetStatus(status As Status)
+    Detail.ThrowGdiplusException(status)
+End Sub
 
 End Namespace