Files
PathOfBuilding/Classes/DropDownControl.lua
Openarl 8d59fe4258 Release 1.2.32
- Add support for ignite stacking with Emberwake
- Added Savage Hit conditional
- Total DPS inc Poison now factors in hit chance
- Fixed Ice Spear second form crit chance
- Fixed vaal keyword flag being absent on vaal skills
2017-01-15 03:46:10 +10:00

263 lines
7.4 KiB
Lua

-- Path of Building
--
-- Class: DropDown Control
-- Basic drop down control.
--
local launch, main = ...
local ipairs = ipairs
local m_min = math.min
local m_max = math.max
local DropDownClass = common.NewClass("DropDownControl", "Control", "ControlHost", function(self, anchor, x, y, width, height, list, selFunc, tooltip)
self.Control(anchor, x, y, width, height)
self.ControlHost()
self.controls.scrollBar = common.New("ScrollBarControl", {"TOPRIGHT",self,"TOPRIGHT"}, -1, 0, 18, 0, (height - 4) * 4)
self.controls.scrollBar.y = function()
local width, height = self:GetSize()
return height + 1
end
self.controls.scrollBar.height = function()
return (height - 4) * m_min(#self.list, 30) + 2
end
self.controls.scrollBar.shown = function()
return self.dropped and self.controls.scrollBar.enabled
end
self.list = list or { }
self.sel = 1
self.selFunc = selFunc
self.tooltip = tooltip
end)
function DropDownClass:SelByValue(val)
for index, listVal in ipairs(self.list) do
if type(listVal) == "table" then
if listVal.val == val then
self.sel = index
return
end
else
if listVal == val then
self.sel = index
return
end
end
end
end
function DropDownClass:SetSel(newSel)
newSel = m_max(1, m_min(#self.list, newSel))
if newSel ~= self.sel then
self.sel = newSel
if self.selFunc then
self.selFunc(newSel, self.list[newSel])
end
end
end
function DropDownClass:ScrollSelIntoView()
local width, height = self:GetSize()
local scrollBar = self.controls.scrollBar
local dropHeight = (height - 4) * m_min(#self.list, 30)
scrollBar:SetContentDimension((height - 4) * #self.list, dropHeight)
scrollBar:ScrollIntoView((self.sel - 2) * (height - 4), 3 * (height - 4))
end
function DropDownClass:IsMouseOver()
if not self:IsShown() then
return false
end
local x, y = self:GetPos()
local width, height = self:GetSize()
local cursorX, cursorY = GetCursorPos()
local dropExtra = self.dropped and (height - 4) * m_min(#self.list, 30) + 2 or 0
local mOver
if self.dropUp then
mOver = cursorX >= x and cursorY >= y - dropExtra and cursorX < x + width and cursorY < y + height
else
mOver = cursorX >= x and cursorY >= y and cursorX < x + width and cursorY < y + height + dropExtra
end
local mOverComp
if mOver then
if cursorY >= y and cursorY < y + height then
mOverComp = "BODY"
else
mOverComp = "DROP"
end
end
return mOver, mOverComp
end
function DropDownClass:Draw(viewPort)
local x, y = self:GetPos()
local width, height = self:GetSize()
local enabled = self:IsEnabled()
local mOver, mOverComp = self:IsMouseOver()
local dropHeight = (height - 4) * m_min(#self.list, 30)
local dropExtra = dropHeight + 4
local scrollBar = self.controls.scrollBar
scrollBar:SetContentDimension((height - 4) * #self.list, dropHeight)
self.dropUp = y + height + dropExtra > viewPort.height
local dropY = self.dropUp and y - dropExtra or y + height
if not enabled then
SetDrawColor(0.33, 0.33, 0.33)
elseif mOver or self.dropped then
SetDrawColor(1, 1, 1)
else
SetDrawColor(0.5, 0.5, 0.5)
end
DrawImage(nil, x, y, width, height)
if self.dropped then
SetDrawLayer(nil, 5)
DrawImage(nil, x, dropY, width, dropExtra)
SetDrawLayer(nil, 0)
end
if not enabled then
SetDrawColor(0, 0, 0)
elseif self.dropped then
SetDrawColor(0.5, 0.5, 0.5)
elseif mOver then
SetDrawColor(0.33, 0.33, 0.33)
else
SetDrawColor(0, 0, 0)
end
DrawImage(nil, x + 1, y + 1, width - 2, height - 2)
if not enabled then
SetDrawColor(0.33, 0.33, 0.33)
elseif mOver or self.dropped then
SetDrawColor(1, 1, 1)
else
SetDrawColor(0.5, 0.5, 0.5)
end
main:DrawArrow(x + width - height/2, y + height/2, height/2, "DOWN")
if self.dropped then
SetDrawLayer(nil, 5)
SetDrawColor(0, 0, 0)
DrawImage(nil, x + 1, dropY + 1, width - 2, dropExtra - 2)
SetDrawLayer(nil, 0)
end
if enabled then
SetDrawColor(1, 1, 1)
if (mOver or self.dropped) and self.tooltip then
SetDrawLayer(nil, 10)
main:AddTooltipLine(14, self.tooltip)
main:DrawTooltip(x, y - (self.dropped and self.dropUp and dropExtra or 0), width, height + (self.dropped and dropExtra or 0), viewPort)
SetDrawLayer(nil, 0)
end
else
SetDrawColor(0.66, 0.66, 0.66)
end
local selLabel = self.list[self.sel]
if type(selLabel) == "table" then
selLabel = selLabel.label
end
SetViewport(x + 2, y + 2, width - height, height - 4)
DrawString(0, 0, "LEFT", height - 4, "VAR", selLabel or "")
SetViewport()
if self.dropped then
SetDrawLayer(nil, 5)
self:DrawControls(viewPort)
local cursorX, cursorY = GetCursorPos()
self.hoverSel = mOver and not scrollBar:IsMouseOver() and math.floor((cursorY - dropY + scrollBar.offset) / (height - 4)) + 1
if self.hoverSel and self.hoverSel < 1 then
self.hoverSel = nil
end
SetViewport(x + 2, dropY + 2, scrollBar.enabled and width - 22 or width - 4, dropHeight)
for index, listVal in ipairs(self.list) do
local y = (index - 1) * (height - 4) - scrollBar.offset
if index == self.hoverSel then
SetDrawColor(0.5, 0.4, 0.3)
DrawImage(nil, 0, y, width - 4, height - 4)
end
if index == self.hoverSel or index == self.sel then
SetDrawColor(1, 1, 1)
else
SetDrawColor(0.66, 0.66, 0.66)
end
local label = type(listVal) == "table" and listVal.label or listVal
DrawString(0, y, "LEFT", height - 4, "VAR", StripEscapes(label))
end
SetViewport()
SetDrawLayer(nil, 0)
end
end
function DropDownClass:OnKeyDown(key)
if not self:IsShown() or not self:IsEnabled() then
return
end
local mOverControl = self:GetMouseOverControl()
if mOverControl and mOverControl.OnKeyDown then
self.selControl = mOverControl
return mOverControl:OnKeyDown(key) and self
else
self.selControl = nil
end
if key == "LEFTBUTTON" or key == "RIGHTBUTTON" then
local mOver, mOverComp = self:IsMouseOver()
if not mOver or (self.dropped and mOverComp == "BODY") then
self.dropped = false
return self
end
if not self.dropped then
self.dropped = true
self:ScrollSelIntoView()
end
elseif key == "ESCAPE" then
self.dropped = false
end
return self.dropped and self
end
function DropDownClass:OnKeyUp(key)
if not self:IsShown() or not self:IsEnabled() then
return
end
if self.selControl then
local newSel = self.selControl:OnKeyUp(key)
if newSel then
return self
else
self.selControl = nil
end
return self
end
if key == "LEFTBUTTON" or key == "RIGHTBUTTON" then
local mOver, mOverComp = self:IsMouseOver()
if not mOver then
self.dropped = false
elseif mOverComp == "DROP" then
local x, y = self:GetPos()
local width, height = self:GetSize()
local cursorX, cursorY = GetCursorPos()
local dropExtra = (height - 4) * m_min(#self.list, 30) + 4
local dropY = self.dropUp and y - dropExtra or y + height
self:SetSel(math.floor((cursorY - dropY + self.controls.scrollBar.offset) / (height - 4)) + 1)
self.dropped = false
end
elseif key == "WHEELDOWN" then
if self.dropped and self.controls.scrollBar.enabled then
self.controls.scrollBar:Scroll(1)
else
self:SetSel(self.sel + 1)
end
return self
elseif key == "DOWN" then
self:SetSel(self.sel + 1)
self:ScrollSelIntoView()
return self
elseif key == "WHEELUP" then
if self.dropped and self.controls.scrollBar.enabled then
self.controls.scrollBar:Scroll(-1)
else
self:SetSel(self.sel - 1)
end
return self
elseif key == "UP" then
self:SetSel(self.sel - 1)
self:ScrollSelIntoView()
return self
end
return self.dropped and self
end