source: trunk/ab5.0/ablib/src/GdiPlusInit.ab

' GdiPlusInit.ab

Const Enum DebugEventLevel
    DebugEventLevelFatal
    DebugEventLevelWarning
End Enum

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)

Type GdiplusStartupInput
'Class GdiplusStartupInput
'Public
    GdiplusVersion As DWord
    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
End Type

Type Align(8) GdiplusStartupOutput
    NotificationHook As NotificationHookProc
    NotificationUnhook As NotificationUnhookProc
End Type

Declare Function GdiplusStartup Lib "GdiPlus.dll" (
    /*OUT*/ ByRef token As ULONG_PTR,
            ByRef input As GdiplusStartupInput,
    /*OUT*/ ByVal output As *GdiplusStartupOutput) As Status

Declare Sub GdiplusShutdown Lib "GdiPlus.dll" (ByVal token As ULONG_PTR)