-- Core logic obtained from Hens Zimmerman from a posting to
-- the ToolBook ListServ
--
-- Wrapped into this function call by Denny Dedmore 8/2003
-- and added to ToolBookHelp.com
--
-- Calling this function will enable or disable font smoothing
-- within Windows
--
-- Note that this is a system wide toggle, so turning off
-- font smoothing will turn it off for all applications and
-- not just ToolBook
--
-- To use, call the function in the following manner
--
-- To enable or turn "on" font smoothing:
--   get setFontSmoothing(true) 
--     or
--   get setFontSmoothing("on")
--
-- To disable or turn "off" font smoothing:
--   get setFontSmoothing(false) 
--     or
--   get setFontSmoothing("off")
--
to get setFontSmoothing mode
	conditions
		when mode = true or mode = "on"
			linkDLL32 "user32.dll"
				DWORD SystemParametersInfoA(DWORD, DWORD, pointer32, DWORD)
			end
			get SystemParametersInfoA(0x4b, 1, "0,0", 1)
			
		when mode = false or mode = "off"
			linkDLL32 "user32.dll"
				DWORD SystemParametersInfoA(DWORD, DWORD, pointer32, DWORD)
			end
			get SystemParametersInfoA(0x4b, 0, "0,0", 1)
	end
	
	pattern of this background = pattern of this background
	return null
end