BlitzMax / C programmers?

The Forum Archive is locked. These are the original blitzbasic.com forums, kept so their posts can still be read and searched. No new topics, replies or edits can be made here. To join the conversation, head over to the Blitz3D+ forums.

Leadwerks

Here's that file I tried to send:

Function SetUpPixelFormat:Int(hDC,multisample=0,colordepth=32)
	lpPixelFormat:PIXELFORMATDESCRIPTOR=New PIXELFORMATDESCRIPTOR
	lpPixelFormat.nSize=40
	lpPixelFormat.nVersion=1
	lpPixelFormat.dwFlags=PFD_SUPPORT_OPENGL|PFD_DOUBLEBUFFER|PFD_DRAW_TO_WINDOW
	lpPixelFormat.iPixelType=PFD_TYPE_RGBA
	lpPixelFormat.cColorBits=colordepth
	lpPixelFormat.cRedBits=8
	lpPixelFormat.cGreenBits=8
	lpPixelFormat.cBlueBits=8
	lpPixelFormat.cAccumBits=16
	lpPixelFormat.cDepthBits=16
	lpPixelFormat.cStencilBits=8
	lpPixelFormat.dwLayerMask=PFD_MAIN_PLANE
	If multisample
		If SUPPORT_WGLCHOOSEPIXELFORMATARB
			wglChoosePixelFormatARB(hDC,[WGL_DRAW_TO_WINDOW_ARB,GL_TRUE,WGL_SUPPORT_OPENGL_ARB,GL_TRUE,WGL_ACCELERATION_ARB,WGL_FULL_ACCELERATION_ARB,WGL_COLOR_BITS_ARB,24,WGL_ALPHA_BITS_ARB,8,WGL_DEPTH_BITS_ARB,16,WGL_DOUBLE_BUFFER_ARB,GL_TRUE,WGL_SAMPLE_BUFFERS_ARB,GL_TRUE,WGL_SAMPLES_ARB,multisample,0,0],[0.0,0.0],1,Varptr lPixelFormat,Varptr numFormats)
		EndIf
		Else
		lPixelFormat=ChoosePixelFormat(hDC,lpPixelFormat)
		If Not lPixelFormat Return
	EndIf
	result=SetPixelFormat(hDC,lPixelFormat,lpPixelFormat)
	lpPixelFormat=Null
	'Notify result+" = Pixel setup result"
	Return result
EndFunction