BlitzG15-Wrapper

Übersicht BlitzMax, BlitzMax NG Codearchiv & Module

Neue Antwort erstellen

 

timmeTheOnly

Betreff: BlitzG15-Wrapper

BeitragSo, Jan 18, 2009 23:40
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi,

Ich habe eine Wrapper für ChristianK's BlitzG15.dll geschrieben. Wenn du es nicht willst schreib mir bitte eine PM und ich werde den Code hier herausnehmen.

Code: [AUSKLAPPEN]

' MaxG15.bmx
'
' Wrapper for ChristianK's BlitzG15.dll
' 2009 by  timmeTheOnly

Global lib:Int = loadlibrarya("blitzg15.dll")

Global G15_Begin(title$z) "Win32" = GetProcAddress(lib,"G15_Begin")
Global G15_End() "Win32" = GetProcAddress(lib,"G15_End")
Global G15_Activate() "Win32" = GetProcAddress(lib,"G15_Activate")
Global G15_Clear() "Win32" = GetProcAddress(lib,"G15_Clear")
Global G15_SetPixel(x:Int,y:Int,value:Int) "Win32" = GetProcAddress(lib,"G15_SetPixel")
Global G15_SetPixelBank(bank:TBank) "Win32" = GetProcAddress(lib,"G15_SetPixelBank")
Global G15_Update() "Win32" = GetProcAddress(lib,"G15_Update")
Global G15_KeyDown(Key:Int) "Win32" = GetProcAddress(lib,"G15_KeyDown")
Global G15_GetWidth() "Win32" = GetProcAddress(lib,"G15_GetWidth")
Global G15_GetHeight() "Win32" = GetProcAddress(lib,"G15_GetHeight")

Global G15_DrawText(text$z,x:Int,y:Int) "Win32" = GetProcAddress(lib,"G15_DrawText")
Global G15_DrawRext(x:Int,y:Int,width:Int,height:Int) "Win32" = GetProcAddress(lib,"G15_DrawRect")
Global G15_DrawOval(x:Int,y:Int,width:Int,height:Int) "Win32" = GetProcAddress(lib,"G15_DrawOval")
Global G15_LoadBitmap(filename$z) "Win32" = GetProcAddress(lib,"G15_LoadBitmap")
Global G15_FreeBitmap(G15_Bitmap:Int) "Win32" = GetProcAddress(lib,"G15_FreeBitmap")
Global G15_DrawBitmap(G15_Bitmap:Int) "Win32" = GetProcAddress(lib,"G15_DrawBitmap")
Global G15_LoadFont(name$z,size:Int,bold:Int,italic:Int,underline:Int) "Win32" = GetProcAddress(lib,"G15_LoadFont")
Global G15_FreeFont(font:Int) "Win32" = GetProcAddress(lib,"G15_FreeFont")
Global G15_SetFont(font:Int) "Win32" = GetProcAddress(lib,"G15_SetFont")
Global G15_SetColor(color:Int) "Win32" = GetProcAddress(lib,"G15_SetColor")

Global G15_BeginMedia() "Win32" = GetProcAddress(lib,"G15_BeginMedia")
Global G15_EndMedia() "Win32" = GetProcAddress(lib,"G15_EndMedia")
Global G15_MediaKey() "Win32" = GetProcAddress(lib,"G15_MediaKey")

Global G15_Configure() "Win32" = GetProcAddress(lib,"G15_Configure")

Neue Antwort erstellen


Übersicht BlitzMax, BlitzMax NG Codearchiv & Module

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group