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

Last change on this file was 698, checked in by イグトランス (egtra), 15 years ago

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

File size: 1.3 KB
RevLine 
[13]1' GdiPlusInit.ab
2
[698]3Const Enum DebugEventLevel
[77]4 DebugEventLevelFatal
5 DebugEventLevelWarning
[13]6End Enum
7
[698]8TypeDef DebugEventProc = *Sub(level As DebugEventLevel, message As *CHAR)
[13]9
[698]10TypeDef NotificationHookProc = *Function(/*OUT*/ ByRef token As ULONG_PTR) As Status
[13]11TypeDef NotificationUnhookProc = *Sub(ByVal token As ULONG_PTR)
12
[473]13Type GdiplusStartupInput
14'Class GdiplusStartupInput
15'Public
[13]16 GdiplusVersion As DWord
[473]17 DebugEventCallback As DebugEventProc
[13]18 SuppressBackgroundThread As BOOL
19 SuppressExternalCodecs As BOOL
20
[473]21' Sub GdiplusStartupInput()(debugEventCallback As DebugEventProc, suppressBackgroundThread As BOOL, suppressExternalCodecs As BOOL)
22' GdiplusVersion = 1
23' DebugEventCallback = debugEventCallback
24' SuppressBackgroundThread = suppressBackgroundThread
25' SuppressExternalCodecs = suppressExternalCodecs
26' End Sub
27'End Class
28End Type
[13]29
30Type Align(8) GdiplusStartupOutput
31 NotificationHook As NotificationHookProc
32 NotificationUnhook As NotificationUnhookProc
33End Type
34
35Declare Function GdiplusStartup Lib "GdiPlus.dll" (
36 /*OUT*/ ByRef token As ULONG_PTR,
37 ByRef input As GdiplusStartupInput,
38 /*OUT*/ ByVal output As *GdiplusStartupOutput) As Status
39
40Declare Sub GdiplusShutdown Lib "GdiPlus.dll" (ByVal token As ULONG_PTR)
Note: See TracBrowser for help on using the repository browser.