Changeset 473 for trunk/Include/GdiPlusInit.ab

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

• trunk/Include/GdiPlusInit.ab (modified) (1 diff)

trunk/Include/GdiPlusInit.ab

@@ -9 +9 @@
 End Enum
 
-Typedef DebugEventProc = *Sub(level As DebugEventLevel, message As *Char)
+Typedef DebugEventProc = *Sub(level As DebugEventLevel, message As *CHAR)
 
 Typedef NotificationHookProc = *Function(/*OUT*/ ByRef token As ULONG_PTR) As Status
 TypeDef NotificationUnhookProc = *Sub(ByVal token As ULONG_PTR)
 
-Class GdiplusStartupInput
-Public
+Type GdiplusStartupInput
+'Class GdiplusStartupInput
+'Public
     GdiplusVersion As DWord
-    DebugEventCallback As VoidPtr
+    DebugEventCallback As DebugEventProc
     SuppressBackgroundThread As BOOL
     SuppressExternalCodecs As BOOL
 
-    Sub GdiplusStartupInput()(debugEventCallback As DebugEventProc, suppressBackgroundThread As BOOL, suppressExternalCodecs As BOOL)
-        GdiplusVersion = 1
-        DebugEventCallback = debugEventCallback
-        SuppressBackgroundThread = suppressBackgroundThread
-        SuppressExternalCodecs = suppressExternalCodecs
-    End Sub
-End Class
+'   Sub GdiplusStartupInput()(debugEventCallback As DebugEventProc, suppressBackgroundThread As BOOL, suppressExternalCodecs As BOOL)
+'       GdiplusVersion = 1
+'       DebugEventCallback = debugEventCallback
+'       SuppressBackgroundThread = suppressBackgroundThread
+'       SuppressExternalCodecs = suppressExternalCodecs
+'   End Sub
+'End Class
+End Type
 
 Type Align(8) GdiplusStartupOutput