Ryan
84bba39187
This is for the love2d engine. Works with the latest version. Look at my intro to software project for some examples on how to use this
98 lines
2.8 KiB
Plaintext
98 lines
2.8 KiB
Plaintext
function gui:newScrollMenu(title,tabN,onloop,x, y, w, h, sx ,sy ,sw ,sh)
|
|
local Main = self:newFrame(x, y, w, h, sx ,sy ,sw ,sh)
|
|
local Title=Main:newTextButton(title,"Title",0,0,0,20,0,0,1)
|
|
Title.Tween=-4
|
|
Title.FontSize=12
|
|
Title:OnReleased(function(b,self)
|
|
self.Parent.Tick=not(self.Parent.Tick)
|
|
end)
|
|
local scroll=Main:newTextButton("","Scroll",-20,20,20,-20,1,0,0,1)
|
|
scroll:OnClicked(function(b,self,x,y)
|
|
self.Parent.Mover:SetDualDim(0,y-10,20,20)
|
|
if self.Parent.Mover.offset.pos.y<0 then
|
|
self.Parent.Mover:SetDualDim(0,0,20,20)
|
|
end
|
|
if self.Parent.Mover.offset.pos.y>self.Parent.height-40 then
|
|
self.Parent.Mover:SetDualDim(0,self.Parent.height-40,20,20)
|
|
end
|
|
local temp = #self.Parent.TList
|
|
self.Parent.pos=(math.floor((temp*self.Parent.Mover.offset.pos.y)/self.height))+1
|
|
end)
|
|
Main:OnUpdate(function(self)
|
|
if self.Tick==false then
|
|
self.Visibility=0
|
|
end
|
|
end)
|
|
scroll:OnUpdate(function(self)
|
|
self.Visible=self.Parent.Tick
|
|
end)
|
|
local Mover=scroll:newTextLabel("",0,0,20,20)
|
|
Main.Mover=Mover
|
|
Main.TList=tabN
|
|
Main.pos=1
|
|
Main.Tick=true
|
|
function Main:Update(title,tabN,onloop)
|
|
ch=self:getChildren()
|
|
for i=#ch,1,-1 do
|
|
ch[i]:Destroy()
|
|
end
|
|
Title=Main:newTextButton(title,"Title",0,0,0,20,0,0,1)
|
|
Title.Tween=-4
|
|
Title.FontSize=12
|
|
Title:OnReleased(function(b,self)
|
|
self.Parent.Tick=not(self.Parent.Tick)
|
|
end)
|
|
scroll=Main:newTextButton("","Scroll",-20,20,20,-20,1,0,0,1)
|
|
scroll:OnClicked(function(b,self,x,y)
|
|
self.Parent.Mover:SetDualDim(0,y-10,20,20)
|
|
if self.Parent.Mover.offset.pos.y<0 then
|
|
self.Parent.Mover:SetDualDim(0,0,20,20)
|
|
end
|
|
if self.Parent.Mover.offset.pos.y>self.Parent.height-40 then
|
|
self.Parent.Mover:SetDualDim(0,self.Parent.height-40,20,20)
|
|
end
|
|
local temp = #self.Parent.TList
|
|
self.Parent.pos=(math.floor((temp*self.Parent.Mover.offset.pos.y)/self.height))+1
|
|
end)
|
|
local Mover=scroll:newTextLabel("",0,0,20,20)
|
|
Main.Mover=Mover
|
|
Main.TList=tabN
|
|
Main.pos=1
|
|
Main.Tick=true
|
|
scroll:OnUpdate(function(self)
|
|
self.Visible=self.Parent.Tick
|
|
end)
|
|
for i=1,math.floor(Main.height/20)-1 do
|
|
local temp=Main:newTextButton("","Item"..i,0,i*20,-20,20,0,0,1)
|
|
temp.FontSize=10
|
|
temp.Tween=-4
|
|
temp.pos=i
|
|
temp:OnUpdate(function(self)
|
|
self.text=self.Parent.TList[(self.Parent.pos+self.pos)-1]
|
|
self.Visible=self.Parent.Tick
|
|
end)
|
|
if onloop then
|
|
onloop(temp,i)
|
|
end
|
|
end
|
|
end
|
|
io.write(tostring(Main.height).."\n")
|
|
for i=1,math.floor(Main.height/20)-1 do
|
|
local temp=Main:newTextButton("Item"..i,0,i*20,-20,20,0,0,1)
|
|
temp.FontSize=10
|
|
temp.Tween=-4
|
|
temp.pos=i
|
|
temp:OnUpdate(function(self)
|
|
if self.Parent.TList[(self.Parent.pos+self.pos)-1]~=nil then
|
|
self.text=self.Parent.TList[(self.Parent.pos+self.pos)-1]
|
|
else
|
|
self.text=""
|
|
end
|
|
self.Visible=self.Parent.Tick
|
|
end)
|
|
if onloop then
|
|
onloop(temp,i)
|
|
end
|
|
end
|
|
return Main
|
|
end |