System Defaults on MaxGUI Gadgets

BlitzMax Forums/MaxGUI Module/System Defaults on MaxGUI Gadgets

Ked	(Posted 2009) [#1]

Hey! I've been working on some useful functions for MaxGUI (control size-wise) and all I've come up with so far is this (only win32 atm). Maybe others would like to contribute?

Current Features

[Win32]
Retrieve system defaults for scrollbar width and height
Retrieve taskbar height

[MacOS]
-

[Linux]
-

?win32
Extern
	Global _bbusew:Int
EndExtern

Extern "win32"
	Function FindWindowW:Int(lpclassname:Short Ptr,lpwindowname:Short Ptr)
	Function FindWindowA:Int(lpclassname:Byte Ptr,lpwindowname:Byte Ptr)
	Function GetSystemMetrics:Int(val:Int)
EndExtern

Const SM_CXVSCROLL:Int=2
Const SM_CXHSCROLL:Int=21
?

Function SystemScrollbarWidth:Int()
	?win32
		Return GetSystemMetrics(SM_CXVSCROLL)
	?
	Return -1
EndFunction

Function SystemScrollbarHeight:Int()
	?win32
		Return GetSystemMetrics(SM_CXHSCROLL)
	?
	Return -1
EndFunction

Function GetTaskBarHeight:Int()
	?win32
		Local hwnd:Int
		
		If _bbusew
			hwnd=FindWindowW("shell_traywnd".ToWString(),Null)
		Else
			hwnd=FindWindowA("shell_traywnd".ToCString(),Null)
		EndIf
		
		If Not hwnd Return -1
		
		Local rect:Int[4]
		
		GetClientRect(hwnd,rect)
		
		Return (rect[3])
	?
	Return -1
EndFunction

Print "Taskbar Height: "+GetTaskBarHeight()
Print "Scrollbar Width: "+SystemScrollbarWidth()
Print "Scrollbar Height: "+SystemScrollbarHeight()