LoveFrames/loveframes/objects/internal/scrollable/scrollbar.lua

--[[------------------------------------------------
	-- Love Frames - A GUI library for LOVE --
	-- Copyright (c) 2012-2014 Kenny Shields --
--]]------------------------------------------------

return function(loveframes)
---------- module start ----------

-- scrollbar class
local newobject = loveframes.NewObject("scrollbar", "loveframes_object_scrollbar", true)

--[[---------------------------------------------------------
	- func: initialize()
	- desc: initializes the object
--]]---------------------------------------------------------
function newobject:initialize(parent, bartype)

	self.type = "scrollbar"
	self.bartype = bartype
	self.parent = parent
	self.x = 0
	self.y = 0
	self.staticx = 0
	self.staticy = 0
	self.maxx = 0
	self.maxy = 0
	self.clickx = 0
	self.clicky = 0
	self.starty = 0
	self.lastwidth = 0
	self.lastheight = 0
	self.lastx = 0
	self.lasty = 0
	self.internal = true
	self.hover = false
	self.dragging = false
	self.autoscroll = false
	self.internal = true
	
	if self.bartype == "vertical" then
		self.width = self.parent.width
		self.height = 5
	elseif self.bartype == "horizontal" then
		self.width = 5
		self.height = self.parent.height
	end
	
	-- apply template properties to the object
	loveframes.ApplyTemplatesToObject(self)
	self:SetDrawFunc()
end

--[[---------------------------------------------------------
	- func: update(deltatime)
	- desc: updates the object
--]]---------------------------------------------------------
function newobject:update(dt)
	
	local visible = self.visible
	local alwaysupdate = self.alwaysupdate
	
	if not visible then
		if not alwaysupdate then
			return
		end
	end
	
	self:CheckHover()
	
	local x, y     = love.mouse.getPosition()
	local bartype  = self.bartype
	local cols     = {}
	local basecols = {}
	local dragging = self.dragging
	
	if bartype == "vertical" then
		self.width 		= self.parent.width
	elseif bartype == "horizontal" then
		self.height 	= self.parent.height
	end
	
	if bartype == "vertical" then
		local parent = self.parent
		local listo = parent.parent.parent
		local height = parent.height * (listo.height/listo.itemheight)
		if height < 20 then
			self.height = 20
		else
			self.height = height
		end
		self.maxy = parent.y + (parent.height - self.height)
		self.x = parent.x + parent.width - self.width
		self.y = parent.y + self.staticy
		if dragging then
			if self.staticy ~= self.lasty then
				if listo.OnScroll then
					listo.OnScroll(listo)
				end
				self.lasty = self.staticy
			end
			self.staticy = self.starty + (y - self.clicky)
		end
		local space = (self.maxy - parent.y)
		local remaining = (0 + self.staticy)
		local percent = remaining/space
		local extra = listo.extraheight * percent
		local autoscroll = self.autoscroll
		local lastheight = self.lastheight
		listo.offsety = 0 + extra
		if self.staticy > space then
			self.staticy = space
			listo.offsety = listo.extraheight
		end
		if self.staticy < 0 then
			self.staticy = 0
			listo.offsety = 0
		end
		if autoscroll then
			if listo.itemheight > lastheight then
				local type = listo.type
				self.lastheight = listo.itemheight
				if type == "textinput" then
					local indicatory = listo.indicatory
					local font = listo.font
					local theight = font:getHeight("a")
					local y = listo.y
					local height = listo.height
					local linecount = #listo.lines
					local parentheight = self.parent.height
					if (indicatory + theight) > (y + height) then
						self:Scroll(parentheight/linecount)
					end
				else
					local maxy = self.maxy
					self:Scroll(maxy)
				end
			end
		end
	elseif bartype == "horizontal" then
		local parent = self.parent
		local listo = self.parent.parent.parent
		local width = self.parent.width * (listo.width/listo.itemwidth)
		if width < 20 then
			self.width = 20
		else
			self.width = width
		end
		self.maxx = parent.x + (parent.width) - self.width
		self.x = parent.x + self.staticx
		self.y = parent.y + self.staticy
		if dragging then
			if self.staticx ~= self.lastx then
				if listo.OnScroll then
					listo.OnScroll(listo)
				end
				self.lastx = self.staticx
			end
			self.staticx = self.startx + (x - self.clickx)
		end
		local space      = (self.maxx - parent.x)
		local remaining  = (0 + self.staticx)
		local percent    = remaining/space
		local extra      = listo.extrawidth * percent
		local autoscroll = self.autoscroll
		local lastwidth  = self.lastwidth
		listo.offsetx = 0 + extra
		if self.staticx > space then
			self.staticx = space
			listo.offsetx = listo.extrawidth
		end
					
		if self.staticx < 0 then
			self.staticx = 0
			listo.offsetx = 0
		end
		if autoscroll then
			if listo.itemwidth > lastwidth then
				self.lastwidth = listo.itemwidth
				self:Scroll(self.maxx)
			end
		end
	end
	
	local update = self.Update
	if update then update(self, dt) end
	
end

--[[---------------------------------------------------------
	- func: mousepressed(x, y, button)
	- desc: called when the player presses a mouse button
--]]---------------------------------------------------------
function newobject:mousepressed(x, y, button)

	local visible = self.visible
	local hover = self.hover
	
	if not visible then
		return
	end
	
	if not hover then
		return
	end
	
	local baseparent = self:GetBaseParent()
	
	if baseparent.type == "frame" then
		baseparent:MakeTop()
	end
	
	local dragging = self.dragging
	
	if not dragging then
		if button == 1 then
			self.starty = self.staticy
			self.startx = self.staticx
			self.clickx = x
			self.clicky = y
			self.dragging = true
			loveframes.downobject = self
		end
	end

end

--[[---------------------------------------------------------
	- func: mousereleased(x, y, button)
	- desc: called when the player releases a mouse button
--]]---------------------------------------------------------
function newobject:mousereleased(x, y, button)

	local visible = self.visible
	
	if not visible then
		return
	end
	
	if self.dragging then
		self.dragging = false
	end

end

--[[---------------------------------------------------------
	- func: SetMaxX(x)
	- desc: sets the object's max x position
--]]---------------------------------------------------------
function newobject:SetMaxX(x)

	self.maxx = x
	
end

--[[---------------------------------------------------------
	- func: SetMaxY(y)
	- desc: sets the object's max y position
--]]---------------------------------------------------------
function newobject:SetMaxY(y)

	self.maxy = y
	
end

--[[---------------------------------------------------------
	- func: Scroll(amount)
	- desc: scrolls the object
--]]---------------------------------------------------------
function newobject:Scroll(amount)

	local bartype = self.bartype
	local listo = self.parent.parent.parent
	local onscroll = listo.OnScroll
	
	if bartype == "vertical" then
		local newy = (self.y + amount)
		if newy > self.maxy then
			self.staticy = self.maxy - self.parent.y
		elseif newy < self.parent.y then
			self.staticy = 0
		else
			self.staticy = self.staticy + amount
		end
	elseif bartype == "horizontal" then
		local newx = (self.x + amount)
		if newx > self.maxx then
			self.staticx = self.maxx - self.parent.x
		elseif newx < self.parent.x then
			self.staticx = 0
		else
			self.staticx = self.staticx + amount
		end
	end
	
	if onscroll then
		onscroll(listo)
	end
	
end

--[[---------------------------------------------------------
	- func: ScrollTo(position)
	- desc: scrolls the object
--]]---------------------------------------------------------
function newobject:ScrollTo(position)

	local bartype = self.bartype
	local listo = self.parent.parent.parent
	local onscroll = listo.OnScroll

	if bartype == "vertical" then
		local maxRealPos = self.parent.height - self.height
		if position > 1 then
			self.staticy = maxRealPos
		elseif position < 0 then
			self.staticy = 0
		else
			self.staticy = position * maxRealPos
		end
	elseif bartype == "horizontal" then
		local maxRealPos = self.parent.width - self.width
		if position > 1 then
			self.staticx = maxRealPos
		elseif position < 0 then
			self.staticx = 0
		else
			self.staticx = position * maxRealPos
		end
	end
	
	if onscroll then
		onscroll(listo)
	end
	
end

--[[---------------------------------------------------------
	- func: IsDragging()
	- desc: gets whether the object is being dragged or not
--]]---------------------------------------------------------
function newobject:IsDragging()

	return self.dragging
	
end

--[[---------------------------------------------------------
	- func: GetBarType()
	- desc: gets the object's bartype
--]]---------------------------------------------------------
function newobject:GetBarType()

	return self.bartype
	
end

---------- module end ----------
end