Centered Graphics Window (Win32)

BlitzMax Forums/BlitzMax Module Tweaks/Centered Graphics Window (Win32)

kfprimm

(Posted 2006) [#1]

Alright, this tweak allows you to center a window using by adding a flag to the SetGraphicsDriver command.

in graphics.bmx of BRL.Graphics add this to bottom of the the graphics types.

Const GRAPHICS_CENTERED=        $40

in glgraphics.win32.bmx of BRL.DXGraphics replace bbGLGraphicsCreateGraphics with this,

BBGLContext *bbGLGraphicsCreateGraphics( int width,int height,int depth,int hertz,int flags ){
	BBGLContext *context;
	
	int mode;
	HDC hdc;
	HWND hwnd;
	HGLRC hglrc;
	
	long pf;
	PIXELFORMATDESCRIPTOR pfd;
	int hwnd_style;
	RECT rect={0,0,width,height};
	
	_initSharedContext();
	
	if( depth ){
		mode=MODE_DISPLAY;
		hwnd_style=WS_POPUP;
	}else{
		mode=MODE_WINDOW;
		hwnd_style=WS_CAPTION|WS_SYSMENU;
		rect.left+=32;
		rect.top+=32;
		rect.right+=32;
		rect.bottom+=32;
	}
		
	AdjustWindowRectEx( &rect,hwnd_style,0,0 );
	
	int x,y,width2,height2;
	width2=rect.right-rect.left;
	height2=rect.bottom-rect.top;
	
	if (flags&_CENTERED)
	{
		RECT rect2;
		GetClientRect(GetDesktopWindow(),&rect2);		
		x=(rect2.right/2)-(width2/2);
		y=(rect2.bottom/2)-(height2/2);
	}else{
		x=rect.left;
		y=rect.top;
	}
	
	hwnd=CreateWindowEx( 
		0,CLASS_NAME,_appTitle(),
		hwnd_style,x,y,width2,height2,0,0,GetModuleHandle(0),0 );
		
	if( !hwnd ) return 0;
	
	_initPfd( &pfd,flags );

	hdc=GetDC( hwnd );
	pf=ChoosePixelFormat( hdc,&pfd );
	if( !pf ){
		DestroyWindow( hwnd );
		return 0;
	}
	SetPixelFormat( hdc,pf,&pfd );
	hglrc=wglCreateContext( hdc );
	wglShareLists( _sharedContext->hglrc,hglrc );
	
	context=(BBGLContext*)malloc( sizeof(BBGLContext) );
	memset( context,0,sizeof(context) );
	
	context->mode=mode;
	context->width=width;
	context->height=height;
	context->depth=depth;
	context->hertz=hertz;
	context->flags=flags;
	
	context->hdc=hdc;
	context->hwnd=hwnd;
	context->hglrc=hglrc;
	
	context->succ=_contexts;
	_contexts=context;
	
	ShowWindow( hwnd,SW_SHOW );
	
	return context;
}

Now, the DX part gets a little tricky. In d3d7graphics.bmx of BRL.DXGraphics, replace CreateHWND with this,

Function CreateHWND(width,height,fullscreen,center=False)

	Local style,ex_style,hwnd
	Local hinst=GetModuleHandleA(0)
	
	Global wndClas
	
	If Not wndClas
		Local wc:WNDCLASS=New WNDCLASS
		wc.hInstance=hinst
		wc.lpfnWndProc=WndProc
		wc.hCursor=LoadCursorA( Null,Byte Ptr IDC_ARROW )
		wc.lpszClassName=DX_CLASS_NAME
		wndClas=RegisterClassA( wc )
		If Not wndClas
			Throw "Failed to register window class"
		EndIf
	EndIf

	Local wndTitle:Byte Ptr=AppTitle.ToCString()

	If fullscreen
		style=WS_VISIBLE|WS_POPUP
		hwnd=CreateWindowExA( 0,DX_CLASS_NAME,wndTitle,style,0,0,width,height,0,0,hinst,Null )
	Else
		style=WS_VISIBLE|WS_CAPTION|WS_SYSMENU
		Local Rect[]=[32,32,width+32,height+32]
		AdjustWindowRect Rect,style|WS_VISIBLE,0
		width=Rect[2]-Rect[0]
		height=Rect[3]-Rect[1]	
		Local x,y	
		If center
			Local Rect2[4]
			GetClientRect GetDesktopWindow(),Rect2
			x=(Rect2[2]/2)-(width/2)
			y=(Rect2[3]/2)-(height/2)
		Else
			x=Rect[0]
			y=Rect[1]
		EndIf
	'	hwnd=CreateWindowExA( 0,DX_CLASS_NAME,wndTitle,style,CW_USEDEFAULT,CW_USEDEFAULT,width,height,0,0,hinst,Null )
		hwnd=CreateWindowExA( 0,DX_CLASS_NAME,wndTitle,style,x,y,width,height,0,0,hinst,Null )
	EndIf
	MemFree wndTitle
	If Not hwnd Throw "Failed to create window"
	Return hwnd
End Function

now, replace TD3D7Device.OpenWindowed() (yes, the method), with this,

Method OpenWindowed(w,h,center)
		Local 	res
		width=w
		height=h
		depth=0
		freq=0
		hwnd=CreateHWND(width,height,False,center)
		res=ddraw.SetCooperativeLevel(hwnd,DDSCL_NORMAL|DDSCL_FPUPRESERVE)	
		If res Throw "SetCooperativeLevel Failed result="+res
		state=DX7WINDOWED
		Reset()
		device.BeginScene()
	End Method

and finally, replace TD3D7GraphicsDriver.CreateGraphics with this,

Method CreateGraphics:TD3D7Graphics( width,height,depth,hertz,flags )
		Local	g:TD3D7Graphics				
		Try
			If isgui PrimaryDevice._Release
			If depth
				PrimaryDevice.OpenFullScreen width,height,depth,hertz
			Else
				Local center
				If flags&GRAPHICS_CENTERED center=True
				PrimaryDevice.OpenWindowed width,height,center
			EndIf		
			isgui=False
		Catch err$
			Return 
		End Try

		g=New TD3D7Graphics
		g.depth=depth
		g.hertz=hertz
		g.flags=flags
		Return g		
	End Method

rebuild,
BRL.Graphics
BRL.DXGraphics
BRL.GLGraphics

to use,

SetGraphicsDriver D3D7GraphicsDriver(),GRAPHICS_BACKBUFFER|GRAPHICS_CENTERED
Graphics 800,600,0

SetGraphicsDriver GLGraphicsDriver(),GRAPHICS_BACKBUFFER|GRAPHICS_CENTERED
Graphics 800,600,0

Grisu

(Posted 2006) [#2]

Ahm, could you apply the changes to the newest 1.24 version and host the complete file somewhere?

That would be nice...

kfprimm

(Posted 2007) [#3]

Give me a minute and I will post them on this thread. I don't think I can legally upload the source/compiled files. If BRL says its alright I will.

GfK	(Posted 2007) [#4]

Send the modified files to BRL and get them to put it on the mod server.

Nobody in their right mind is NOT going to want this option.

I need to have my game window centered but I despise having to change BRL mods myself when changes you rely on can be so easily lost.

H&K	(Posted 2007) [#5]

I despise having to change BRL mods myself when changes you rely on can be so easily lost

Agreed

Grisu

(Posted 2007) [#6]

Got the issue solved already, see other topic.
http://www.blitzbasic.com/Community/posts.php?topic=66129

I'd really love having an option flag in the gfx command to center the window by default or not.

I simply hate editing the files by hand over and over.

Thanks anyway.

degac

(Posted 2007) [#7]

Ok - I will assume all the possible consequencies of my comment...

but

there is just ONE reason that explains why this simple modification is not added in the last update?

JoshK

(Posted 2007) [#8]

Nice. One comaplaint I got when I centered the graphics window was from people with multiple monitors. I had no idea there were so many of them.

I suggest using $800 for your constant, since I already used these others in my antialias modification:

	GRAPHICS_MULTISAMPLE2X=	$40
	GRAPHICS_MULTISAMPLE4X=	$80
	GRAPHICS_MULTISAMPLE8X=	$100
	GRAPHICS_MULTISAMPLE16X=$200
	GRAPHICS_HIDDEN=	$400