ESOUI SVN ZAMUnitFramesReactionColors

[/] [trunk/] [ZAM_ReactionColors/] [libs/] [LibAddonMenu-2.0/] [controls/] [slider.lua] - Rev 16

Compare with Previous | Blame | View Log

--[[sliderData = {
        type = "slider",
        name = "My Slider",
        tooltip = "Slider's tooltip text.",
        min = 0,
        max = 20,
        step = 1,       --(optional)
        getFunc = function() return db.var end,
        setFunc = function(value) db.var = value doStuff() end,
        width = "full", --or "half" (optional)
        disabled = function() return db.someBooleanSetting end, --or boolean (optional)
        warning = "Will need to reload the UI.",        --(optional)
        default = defaults.var, --(optional)
        reference = "MyAddonSlider"     --(optional) unique global reference to control
}       ]]


local widgetVersion = 5
local LAM = LibStub("LibAddonMenu-2.0")
if not LAM:RegisterWidget("slider", widgetVersion) then return end

local wm = WINDOW_MANAGER
local cm = CALLBACK_MANAGER
local round = zo_round
local strformat = string.format
local tinsert = table.insert

local function UpdateDisabled(control)
        local disable
        if type(control.data.disabled) == "function" then
                disable = control.data.disabled()
        else
                disable = control.data.disabled
        end
        
        control.slider:SetEnabled(not disable)
        control.slidervalue:SetEditEnabled(not disable)
        if disable then
                control.label:SetColor(ZO_DEFAULT_DISABLED_COLOR:UnpackRGBA())
                control.minText:SetColor(ZO_DEFAULT_DISABLED_COLOR:UnpackRGBA())
                control.maxText:SetColor(ZO_DEFAULT_DISABLED_COLOR:UnpackRGBA())
                control.slidervalue:SetColor(ZO_DEFAULT_DISABLED_MOUSEOVER_COLOR:UnpackRGBA())
        else
                control.label:SetColor(ZO_DEFAULT_ENABLED_COLOR:UnpackRGBA())
                control.minText:SetColor(ZO_DEFAULT_ENABLED_COLOR:UnpackRGBA())
                control.maxText:SetColor(ZO_DEFAULT_ENABLED_COLOR:UnpackRGBA())
                control.slidervalue:SetColor(ZO_DEFAULT_ENABLED_COLOR:UnpackRGBA())
        end
end

local function UpdateValue(control, forceDefault, value)
        if forceDefault then    --if we are forcing defaults
                value = control.data.default
                control.data.setFunc(value)
        elseif value and value >= control.data.min and value <= control.data.max then
                control.data.setFunc(value)
                --after setting this value, let's refresh the others to see if any should be disabled or have their settings changed
                if control.panel.data.registerForRefresh then
                        cm:FireCallbacks("LAM-RefreshPanel", control)
                end
        else
                value = control.data.getFunc()
        end
        
        control.slider:SetValue(value)
        control.slidervalue:SetText(value)
end


function LAMCreateControl.slider(parent, sliderData, controlName)
        local control = wm:CreateTopLevelWindow(controlName or sliderData.reference)
        control:SetParent(parent.scroll or parent)
        local isHalfWidth = sliderData.width == "half"
        if isHalfWidth then
                control:SetDimensions(250, 55)
        else
                control:SetDimensions(510, 40)
        end
        control:SetMouseEnabled(true)
        --control.tooltipText = sliderData.tooltip
        control:SetHandler("OnMouseEnter", ZO_Options_OnMouseEnter)
        control:SetHandler("OnMouseExit", ZO_Options_OnMouseExit)
        
        control.label = wm:CreateControl(nil, control, CT_LABEL)
        local label = control.label
        label:SetFont("ZoFontWinH4")
        label:SetDimensions(isHalfWidth and 250 or 300, 26)
        label:SetWrapMode(TEXT_WRAP_MODE_ELLIPSIS)
        label:SetAnchor(isHalfWidth and TOPLEFT or LEFT)
        label:SetText(sliderData.name)
        
        --skipping creating the backdrop...  Is this the actual slider texture?
        control.slider = wm:CreateControl(nil, control, CT_SLIDER)
        local slider = control.slider
        slider:SetDimensions(190, 14)
        if isHalfWidth then
                slider:SetAnchor(TOPRIGHT, label, BOTTOMRIGHT, -5, 2)
        else
                slider:SetAnchor(RIGHT, control, RIGHT, -5, -5)
        end
        slider:SetMouseEnabled(true)
        slider:SetOrientation(ORIENTATION_HORIZONTAL)
        --put nil for highlighted texture file path, and what look to be texture coords
        slider:SetThumbTexture("EsoUI\\Art\\Miscellaneous\\scrollbox_elevator.dds", "EsoUI\\Art\\Miscellaneous\\scrollbox_elevator_disabled.dds", nil, 8, 16) 
        local minValue = sliderData.min
        local maxValue = sliderData.max
        slider:SetMinMax(minValue, maxValue)
        slider:SetHandler("OnMouseEnter", function() ZO_Options_OnMouseEnter(control) end)
        slider:SetHandler("OnMouseEnter", function() ZO_Options_OnMouseExit(control) end)
        
        slider.bg = wm:CreateControl(nil, slider, CT_BACKDROP)
        local bg = slider.bg
        bg:SetCenterColor(0, 0, 0)
        bg:SetAnchor(TOPLEFT, slider, TOPLEFT, 0, 4)
        bg:SetAnchor(BOTTOMRIGHT, slider, BOTTOMRIGHT, 0, -4)
        bg:SetEdgeTexture("EsoUI\\Art\\Tooltips\\UI-SliderBackdrop.dds", 32, 4)
        
        control.minText = wm:CreateControl(nil, slider, CT_LABEL)
        local minText = control.minText
        minText:SetFont("ZoFontGameSmall")
        minText:SetAnchor(TOPLEFT, slider, BOTTOMLEFT)
        minText:SetText(sliderData.min)

        control.maxText = wm:CreateControl(nil, slider, CT_LABEL)
        local maxText = control.maxText
        maxText:SetFont("ZoFontGameSmall")
        maxText:SetAnchor(TOPRIGHT, slider, BOTTOMRIGHT)
        maxText:SetText(sliderData.max)
        
        control.slidervalueBG = wm:CreateControlFromVirtual(nil, slider, "ZO_EditBackdrop")
        control.slidervalueBG:SetDimensions(50, 16)
        control.slidervalueBG:SetAnchor(TOP, slider, BOTTOM, 0, 0)
        control.slidervalue = wm:CreateControlFromVirtual(nil, control.slidervalueBG, "ZO_DefaultEditForBackdrop")
        local slidervalue = control.slidervalue
        slidervalue:ClearAnchors()
        slidervalue:SetAnchor(TOPLEFT, slidervaluebg, TOPLEFT, 3, 1)
        slidervalue:SetAnchor(BOTTOMRIGHT, slidervaluebg, BOTTOMRIGHT, -3, -1)
        slidervalue:SetTextType(TEXT_TYPE_NUMERIC)
        slidervalue:SetFont("ZoFontGameSmall")
        slidervalue:SetHandler("OnEscape", function(self)
                        self:LoseFocus()
                        control:UpdateValue()
                end)
        slidervalue:SetHandler("OnEnter", function(self)
                        self:LoseFocus()
                        control:UpdateValue(false, tonumber(self:GetText()))
                end)
        
        local range = maxValue - minValue
        slider:SetValueStep(sliderData.step or 1)
        slider:SetHandler("OnValueChanged", function(self, value, eventReason)
                        if eventReason == EVENT_REASON_SOFTWARE then return end
                        self:SetValue(value)    --do we actually need this line?
                        slidervalue:SetText(value)      
                end)
        slider:SetHandler("OnSliderReleased", function(self, value)
                        --sliderData.setFunc(value)
                        control:UpdateValue(false, value)       --does this work here instead?
                end)
                
        if sliderData.warning then
                control.warning = wm:CreateControlFromVirtual(nil, control, "ZO_Options_WarningIcon")
                control.warning:SetAnchor(RIGHT, slider, LEFT, -5, 0)
                --control.warning.tooltipText = sliderData.warning
                control.warning.data = {tooltipText = sliderData.warning}
        end
        
        control.panel = parent.panel or parent  --if this is in a submenu, panel is the submenu's parent
        control.data = sliderData
        control.data.tooltipText = sliderData.tooltip
        
        if sliderData.disabled then
                control.UpdateDisabled = UpdateDisabled
                control:UpdateDisabled()
        end
        control.UpdateValue = UpdateValue
        control:UpdateValue()

        if control.panel.data.registerForRefresh or control.panel.data.registerForDefaults then --if our parent window wants to refresh controls, then add this to the list
                tinsert(control.panel.controlsToRefresh, control)
        end

        return control
end

Compare with Previous | Blame