D3D7Max2DDriver()

Why this code does not work?

Local driver:TD3D7Max2DDriver=D3D7Max2DDriver()
SetGraphicsDriver driver
Graphics 800, 600

Because you haven't updated to the latest version. Works fine here (1.14).

hm... version 1.14. Sync mod has did today. Recompil all modules.
Code not work...

Function D3D7GraphicsDriver:TD3D7GraphicsDriver()

	Global _done
	Global _driver:TD3D7GraphicsDriver
	
	If _done Return _driver
	If DirectDrawCreateEx
		DirectDrawEnumerate enum_devices_callback,Null
'		Print "DirectDraw found "+DDDevices.Count()+" devices."
		If PrimaryDevice
			PrimaryDevice.Init
'			Print "PrimaryDevice reslist.count()="+PrimaryDevice.reslist.Count()
			If PrimaryDevice.reslist.Count()	
				 _driver=New TD3D7GraphicsDriver
			EndIf
		EndIf
	EndIf
	_done=True
	Return _driver
End Function

I think error here:

DirectDrawEnumerate enum_devices_callback,Null

Works OK for me as well.
What error do you get?

Unhandled Exception: Attempt to acess field or method of Null object
...
Driver = null

Function enum_devices_callback(guid Ptr,desc:Byte Ptr,name:Byte Ptr,context Ptr) "win32"
	Local		device:TD3D7Device
	Local		devicedesc:Int Ptr,caps	
	
	devicedesc=Int Ptr(desc)
	caps=devicedesc[0]	
	If (caps&D3DDEVCAPS_HWRASTERIZATION)=0 Return
	device=New TD3D7Device
	device.guid=guid
	device.name=String.FromCString(name)	
	device.description=String.FromCString(desc)
	If Not primarydevice primarydevice=device
	DDDevices.AddLast device
	Return True
End Function

After this line:

If (caps&D3DDEVCAPS_HWRASTERIZATION)=0 Return

i get null in Driver...

Didn't you used to be Arkon, the BasicGL guy?

2Gabriel
No - he disappeared - account remained beside me. BasicGL I did not do.

After me comment line
'If (caps&D3DDEVCAPS_HWRASTERIZATION)=0 Return
Code became to work.

It's normal?? :)