/*   _                                
    ( )                               
   _| |   __   _ __   ___ ___     _ _ 
 /'_` | /'__`\( '__)/' _ ` _ `\ /'_` )
( (_| |(  ___/| |   | ( ) ( ) |( (_| |
`\__,_)`\____)(_)   (_) (_) (_)`\__,_) 

	DVScrollBar

	
	Usage:
	
	Place this control in your panel. You will ideally have another panel or 
		control which is bigger than the original panel. This is the Canvas.
	
	scrollbar:SetUp( _barsize_, _canvassize_ ) should be called whenever
		the size of your 'canvas' changes.
		
	scrollbar:GetOffset() can be called to get the offset of the canvas.
		You should call this in your PerformLayout function and set the Y 
		pos of your canvas to this value.
		
	Example:
	

	function PANEL:PerformLayout()
	
		local Wide = self:GetWide()
		local YPos = 0
		
		// Place the scrollbar
		self.VBar:SetPos( self:GetWide() - 16, 0 )
		self.VBar:SetSize( 16, self:GetTall() )
		
		// Make sure the scrollbar knows how big our canvas is
		self.VBar:SetUp( self:GetTall(), self.pnlCanvas:GetTall() )
		
		// Get data from the scrollbar
		YPos = self.VBar:GetOffset()
		
		// If the scrollbar is enabled make the canvas thinner so it will fit in.
		if ( self.VBar.Enabled ) then Wide = Wide - 16 end
			
		// Position the canvas according to the scrollbar's data
		self.pnlCanvas:SetPos( self.Padding, YPos + self.Padding )
		self.pnlCanvas:SetSize( Wide - self.Padding * 2, self.pnlCanvas:GetTall() )
	
	end

	
*/

local PANEL = {}

/*---------------------------------------------------------
   Name: Init
---------------------------------------------------------*/
function PANEL:Init()

	self.Offset = 0
	self.Scroll = 0
	self.CanvasSize = 1
	self.BarSize = 1	
	
	self.btnUp = vgui.Create( "DSysButton", self )
	self.btnUp:SetType( "up" )
	self.btnUp.DoClick = function ( self ) self:GetParent():AddScroll( -1 ) end
	
	self.btnDown = vgui.Create( "DSysButton", self )
	self.btnDown:SetType( "down" )
	self.btnDown.DoClick = function ( self ) self:GetParent():AddScroll( 1 ) end
	
	self.btnGrip = vgui.Create( "DScrollBarGrip", self )

end

/*---------------------------------------------------------
   Name: SetEnabled
---------------------------------------------------------*/
function PANEL:SetEnabled( b )
	
	if ( !b ) then
	
		self.Offset = 0
		self:SetScroll( 0 )
		self.HasChanged = true
		
	end
	
	self:SetMouseInputEnabled( b )
	self:SetVisible( b )
	
	// We're probably changing the width of something in our parent
	// by appearing or hiding, so tell them to re-do their layout.
	if ( self.Enabled != b ) then
		self:GetParent():InvalidateLayout()
		if ( self:GetParent().OnScrollbarAppear ) then
			self:GetParent():OnScrollbarAppear()
		end
	end
	
	self.Enabled = b	
	
end


/*---------------------------------------------------------
   Name: Value
---------------------------------------------------------*/
function PANEL:Value()

	return self.Pos
	
end

/*---------------------------------------------------------
   Name: Value
---------------------------------------------------------*/
function PANEL:BarScale()

	if ( self.BarSize == 0 ) then return 1 end
	
	return self.BarSize / (self.CanvasSize+self.BarSize)
	
end

/*---------------------------------------------------------
   Name: SetPos
---------------------------------------------------------*/
function PANEL:SetUp( _barsize_, _canvassize_ )

	self.BarSize 	= _barsize_
	self.CanvasSize = _canvassize_ - _barsize_

	self:SetEnabled( self.CanvasSize > 0 )
	
	self:InvalidateLayout()
		
end

/*---------------------------------------------------------
   Name: OnMouseWheeled
---------------------------------------------------------*/
function PANEL:OnMouseWheeled( dlta )

	if ( !self:IsVisible() ) then return false end

	// We return true if the scrollbar changed.
	// If it didn't, we feed the mousehweeling to the parent panel
	
	return self:AddScroll( dlta * -2 )
	
end

/*---------------------------------------------------------
   Name: AddScroll (Returns true if changed)
---------------------------------------------------------*/
function PANEL:AddScroll( dlta )

	local OldScroll = self:GetScroll()

	dlta = dlta * 25
	self:SetScroll( self:GetScroll() + dlta )
	
	return OldScroll == self:GetScroll()
	
end

/*---------------------------------------------------------
   Name: SetScroll
---------------------------------------------------------*/
function PANEL:SetScroll( scrll )

	if ( !self.Enabled ) then self.Scroll = 0 return end

	self.Scroll = math.Clamp( scrll, 0, self.CanvasSize )
	
	self:InvalidateLayout()
	
	// If our parent has a OnVScroll function use that, if
	// not then invalidate layout (which can be pretty slow)
	
	local func = self:GetParent().OnVScroll
	if ( func ) then
	
		func( self:GetParent(), self:GetOffset() )
	
	else
	
		self:GetParent():InvalidateLayout()
	
	end
	
end

/*---------------------------------------------------------
   Name: SetScroll
---------------------------------------------------------*/
function PANEL:GetScroll()

	if ( !self.Enabled ) then self.Scroll = 0 end
	return self.Scroll
	
end

/*---------------------------------------------------------
   Name: GetOffset
---------------------------------------------------------*/
function PANEL:GetOffset()

	if ( !self.Enabled ) then return 0 end
	return self.Scroll * -1
	
end

/*---------------------------------------------------------
   Name: Think
---------------------------------------------------------*/
function PANEL:Think()

end


/*---------------------------------------------------------
   Name: Paint
---------------------------------------------------------*/
function PANEL:Paint()
	
	derma.SkinHook( "Paint", "VScrollBar", self )
	return true
	
end

/*---------------------------------------------------------
   Name: OnMouseReleased
---------------------------------------------------------*/
function PANEL:OnMousePressed()

	local x, y = self:CursorPos()

	local PageSize = self.BarSize
	
	if ( y > self.btnGrip.y ) then
		self:SetScroll( self:GetScroll() + PageSize )
	else
		self:SetScroll( self:GetScroll() - PageSize )
	end	
	
end

/*---------------------------------------------------------
   Name: OnMouseReleased
---------------------------------------------------------*/
function PANEL:OnMouseReleased()

	self.Dragging = false
	self.DraggingCanvas = nil
	self:MouseCapture( false )
	
end

/*---------------------------------------------------------
   Name: OnCursorMoved
---------------------------------------------------------*/
function PANEL:OnCursorMoved( x, y )

	if ( !self.Enabled ) then return end
	if ( !self.Dragging ) then return end

	local x = 0
	local y = gui.MouseY()
	local x, y = self:ScreenToLocal( x, y )
	
	// Uck. 
	y = y - self.btnUp:GetTall()
	y = y - self.HoldPos
	
	local TrackSize = self:GetTall() - self:GetWide() * 2 - self.btnGrip:GetTall()
	
	y = y / TrackSize
	
	self:SetScroll( y * self.CanvasSize )	
	
end

/*---------------------------------------------------------
   Name: Grip
---------------------------------------------------------*/
function PANEL:Grip()

	if ( !self.Enabled ) then return end
	if ( self.BarSize == 0 ) then return end

	self:MouseCapture( true )
	self.Dragging = true
	
	local x, y = 0, gui.MouseY()
	local x, y = self.btnGrip:ScreenToLocal( x, y )
	self.HoldPos = y 
	
end

/*---------------------------------------------------------
	PerformLayout
---------------------------------------------------------*/
function PANEL:PerformLayout()

	derma.SkinHook( "Layout", "VScrollBar", self )

end


derma.DefineControl( "DVScrollBar", "A Scrollbar", PANEL, "Panel" )