&Roids

Blitz3D Forums/Blitz3D Beginners Area/&Roids

dw817

(Posted May) [#1]

Can someone please explain how it is possible to run a BlitzMAX program on an Android cellphone or iPad ?

Matty

(Posted May) [#2]

I believe you need to use bruceys blitzmax ng. Someone with more knowledge can help better than me but thats a start.

dw817

(Posted May) [#3]

Thanks, Matty. But is NG an IDE or a library ?

Dan	(Posted May) [#4]

http://www.bmx-ng.com/main/

dw817

(Posted May) [#5]

Hi Dan. Thanks.

Problem though. This runs just fine in BlitzMAX but not so in BMX-NG.

Strict

SetGraphicsDriver GLMax2DDriver(),0 ' zero forces front buffer
Global deskrect[4]
WindowGraphics()

DrawOval 0,0,deskrect[2],deskrect[3]
SetColor 0,0,0
DrawOval 10,10,deskrect[2]-20,deskrect[3]-20
Flip
WaitChar


' >> MAKE MAXIMUM AND FRAMELESS WINDOW
Function GetBlitzmaxWindow:Int()
?Win32
	Extern "Win32"
		Function FindWindowA:Int( classname$z, windowtitle$z)	
	EndExtern
	Local handle:Int
	handle = FindWindowA( "BBDX9Device Window Class", AppTitle)								' D3D9Max2D
	If Not handle Then handle = FindWindowA( "BlitzMax GLGraphics", AppTitle)			' GLMax2D
	If Not handle Then handle = FindWindowA( "BBDX7Device Window Class", AppTitle)	' D3D7Max2D
	If Not handle Then handle = FindWindowA( "BLITZMAX_WINDOW_CLASS", AppTitle)		' MaxGUI
	Return handle
?
EndFunction
Function WindowGraphics:TGraphics( depth:Int = 0, hz:Int = 60, flags:Int = 0)
	Extern "Win32"
		Const SPI_GETWORKAREA:Int = $30
		Function SystemParametersInfoW:Int( action:Int, param1:Int, param2:Byte Ptr, winini:Int)
	EndExtern
	SystemParametersInfoW( SPI_GETWORKAREA, 0, deskrect, 0)
	Local g:TGraphics = Graphics( deskrect[2], deskrect[3], depth, hz, flags)
	Local hwnd:Int = GetBlitzmaxWindow()
	Assert hwnd Else "unable to find BlitzMax window"
	Local wflags:Int = GetWindowLongW( hwnd, GWL_STYLE)	
	SetWindowLongW( hwnd, GWL_STYLE, wflags & ~WS_CAPTION)
	SetWindowPos( hwnd, HWND_TOP, 0,0,0,0, SWP_FRAMECHANGED | SWP_NOMOVE | SWP_NOSIZE |  SWP_NOZORDER | SWP_HIDEWINDOW)
	Cls
	SetWindowPos( hwnd, HWND_TOP, deskrect[0],deskrect[1],deskrect[2],deskrect[3], SWP_NOZORDER | SWP_SHOWWINDOW)
	deskrect[3]:-1
	Return g
EndFunction

xlsior

(Posted May) [#6]

There seems to be a mixup somewhere in the type definitions -- NG is a bit less forgiving to errors in that area since it supports additional features like overloading.

Keep in mind that you'll NEVER get those Extern "win32" portions to compile for anything other than Windows, you'll have to rewrite an alternative for android/iOS/Linux/Mac/Whatever

dw817

(Posted May) [#7]

Hi Xlsior. Thanks. Okay, what would be the best way to write a frameless window that goes the entire size of the screen yet allows for space at the icons at the bottom for Windows and still runs in BMX-NG ?

dw817

(Posted May) [#8]

Errm ... I think I'm in the wrong area. This is for Blitz3D Beginners. Moving topic.