quantum/gamemode/engine/derma/lib/cl_menu_theme.lua

--    __           _        _______        _      __   
--   / /     /\   | |      |__   __|      | |     \ \  
--  / /     /  \  | |_ __ ___ | | ___  ___| |__    \ \ 
-- < <     / /\ \ | | '_ ` _ \| |/ _ \/ __| '_ \    > >
--  \ \   / ____ \| | | | | | | |  __/ (__| | | |  / / 
--   \_\ /_/    \_\_|_| |_| |_|_|\___|\___|_| |_| /_/  

local theme ={}
local scale = Quantum.Client.ResolutionScale
local padding = math.Round( 10 * scale )
local padding_s = math.Round( 4 * scale )


local blur = Material("pp/blurscreen")

function theme.renderblur( p, a, d )
	local x, y = p:LocalToScreen( 0, 0 )
	surface.SetDrawColor( 255, 255, 255 )
	surface.SetMaterial( blur )
	
	for i = 1, d do
		blur:SetFloat( "$blur", (i / d) * a )
		blur:Recompute()
		render.UpdateScreenEffectTexture()
		surface.DrawTexturedRect( x * -1, y * -1, ScrW(), ScrH() )
	end
end

function theme.borderpanel( p, color )
	local w, h = p:GetSize()
	local clr = color || Color( 20, 20, 20, 100 )

	surface.SetDrawColor( clr )
	surface.DrawOutlinedRect( 0, 0, w, h )
end

function theme.panel( p, color )
	local w, h = p:GetSize()
	local clr = color || Color( 0, 0, 0, 200 )
	local bclr = Color( 50, 50, 50, 105 ) 

	draw.RoundedBox( 6, 0, 0, w, h, bclr ) -- border
	draw.RoundedBox( 4, padding_s/2, padding_s/2, w - padding_s, h - padding_s, clr ) -- inner
end

function theme.blurpanel( p, color )
	local w, h = p:GetSize()
	local clr = color || Color( 0, 0, 0, 200 )
	theme.renderblur( p, 2, 7 )

	surface.SetDrawColor( clr )
	surface.DrawRect( 0, 0, w, h )
end

function theme.sharpblurpanel( p, color )
	local w, h = p:GetSize()
	local clr = color || Color( 0, 0, 0, 200 )
	surface.SetDrawColor( clr )
	surface.DrawRect( 0, 0, w, h )
	theme.renderblur( p, 2, 7 )
	theme.borderpanel( p, Color( 255, 255, 255, 255 ) )
end

function theme.button( b, color )
	local w, h = b:GetSize()
	local clr = color || Color( 235, 64, 52, 255 )
	local bclr = Color( 50, 50, 50, 255 ) 

	if( b:IsHovered() ) then
		bclr = Color( 205, 205, 205, 255 )
	else
		bclr = Color( 50, 50, 50, 255 ) 
	end
	draw.RoundedBox( 6, 0, 0, w, h, bclr ) -- border
	draw.RoundedBox( 4, padding_s/2, padding_s/2, w - padding_s, h - padding_s, clr ) -- inner
end

function theme.sharpbutton( b, inClr )
	local w, h = b:GetSize()
	inClr = inClr || Color( 235, 64, 52, 255 )

	if( !b:IsHovered() ) then
		surface.SetDrawColor( 205, 205, 205, 255 )
	else
		surface.SetDrawColor( 116, 185, 255, 255 )
	end

	surface.DrawOutlinedRect( 0, 0, w, h )

	surface.SetDrawColor( inClr )
	surface.DrawRect( padding_s/2, padding_s/2, w - padding_s, h - padding_s )
end

function theme.sharpblurrbutton( b, inClr )
	local w, h = b:GetSize()
	inClr = inClr || Color( 80, 80, 80, 100 )
	
	surface.SetDrawColor( inClr )
	surface.DrawRect( 0, 0, w, h )

	theme.renderblur( b, 4, 8 )

	if( !b:IsHovered() ) then
		surface.SetDrawColor( 205, 205, 205, 255 )
	else
		surface.SetDrawColor( 116, 185, 255, 255 )
	end
	surface.DrawOutlinedRect( 0, 0, w, h )
end

function theme.skipbutton( b, inClr )
	local w, h = b:GetSize()
	inClr = inClr || Color( 0, 0, 0, 0 )

	if( !b:IsHovered() ) then
		surface.SetDrawColor( 205, 205, 205, 2 )
		b:SetTextColor( Color( 255, 255, 255, 2 ) )
	else
		surface.SetDrawColor( 120, 120, 120, 255 )
		b:SetTextColor( Color( 255, 255, 255, 255 ) )
	end

	surface.DrawOutlinedRect( 0, 0, w, h )

	surface.SetDrawColor( inClr )
	surface.DrawRect( padding_s/2, padding_s/2, w - padding_s, h - padding_s )
end

function theme.pagetext( p, clr )
	local w, h = p:GetSize()
	clr = clr || Color( 205, 205, 205, 255 )

	p:SetTextColor( clr )

	surface.SetDrawColor( Color( 0, 0, 0, 0 ) )
	surface.DrawRect( 0, 0, w, h )
end

function theme.itempanel( p, rarecolor, disableHover )
	local w, h = p:GetSize()
	local icon
	if( p.icon == nil || !p.icon:IsValid() || !p.icon:IsVisible() ) then 
		icon = p 
	else
		icon = p.icon
	end

	surface.SetDrawColor( theme.color.setalpha( rarecolor || Color( 0, 0, 0, 120 ), 150 ) )
	surface.DrawRect( 0, 0, w, h )

	if( icon:IsHovered() && !disableHover ) then
		theme.borderpanel( p, Color( 116, 185, 255, 90 ) )
	else
		theme.borderpanel( p, Color( 255, 255, 255, 200 ) )
	end
end

function theme.iteminfopanel( p )
	local w, h = p:GetSize()

	theme.renderblur( p, 4, 5 )

	surface.SetDrawColor( Color( 20, 20, 20, 220 ) )
	surface.DrawRect( 0, 0, w, h )

	theme.borderpanel( p, Color( 205, 205, 205, 200 ) )
end

function theme.iteminfobutton( b, txtClr )
	local w, h = b:GetSize()
	txtClr = txtClr || Color( 255, 255, 255, 255 )

	if( !b:IsHovered() ) then
		b:SetTextColor( txtClr )
	else
		b:SetTextColor( Color( 116, 185, 255, 255 ) )
	end
end

---- Color Manipulation ----
theme.color = {}

function theme.color.setalpha( color, alpha )
	return Color( color.r, color.g, color.b, alpha )
end


return theme