ESOUI SVN LibAddonMenu

--[[colorpickerData = {

        type = "colorpicker",

        name = "My Color Picker",

        tooltip = "Color Picker's tooltip text.",

        getFunc = function() return db.r, db.g, db.b, db.a end, --(alpha is optional)

        setFunc = function(r,g,b,a) db.r=r, db.g=g, db.b=b, db.a=a end, --(alpha is optional)

        width = "full", --or "half" (optional)

        disabled = function() return db.someBooleanSetting end, --or boolean (optional)

        warning = "Will need to reload the UI.",        --(optional)

        default = {r = defaults.r, g = defaults.g, b = defaults.b, a = defaults.a},     --(optional) table of default color values (or default = defaultColor, where defaultColor is a table with keys of r, g, b[, a])

        reference = "MyAddonColorpicker"        --(optional) unique global reference to control

}       ]]

local widgetVersion = 5

local LAM = LibStub("LibAddonMenu-2.0")

if not LAM:RegisterWidget("colorpicker", widgetVersion) then return end

local wm = WINDOW_MANAGER

local cm = CALLBACK_MANAGER

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

        if disable then

                control.label:SetColor(ZO_DEFAULT_DISABLED_COLOR:UnpackRGBA())

        else

                control.label:SetColor(ZO_DEFAULT_ENABLED_COLOR:UnpackRGBA())

        end

        control.isDisabled = disable

end

local function UpdateValue(control, forceDefault, valueR, valueG, valueB, valueA)

        if forceDefault then    --if we are forcing defaults

                local color = control.data.default

                valueR, valueG, valueB, valueA = color.r, color.g, color.b, color.a

                control.data.setFunc(valueR, valueG, valueB, valueA)

        elseif valueR and valueG and valueB then

                control.data.setFunc(valueR, valueG, valueB, valueA or 1)

                --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

                valueR, valueG, valueB, valueA = control.data.getFunc()

        end

        control.thumb:SetColor(valueR, valueG, valueB, valueA or 1)

end

function LAMCreateControl.colorpicker(parent, colorpickerData, controlName)

        local control = wm:CreateTopLevelWindow(controlName or colorpickerData.reference)

        control:SetParent(parent.scroll or parent)

        control:SetMouseEnabled(true)

        --control.tooltipText = colorpickerData.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:SetDimensions(300, 26)

        label:SetAnchor(TOPLEFT)

        label:SetFont("ZoFontWinH4")

        label:SetWrapMode(TEXT_WRAP_MODE_ELLIPSIS)

        label:SetText(colorpickerData.name)

        control.color = wm:CreateControl(nil, control, CT_CONTROL)

        local color = control.color

        local isHalfWidth = colorpickerData.width == "half"

        if isHalfWidth then

                control:SetDimensions(250, 55)

                label:SetDimensions(250, 26)

                color:SetDimensions(100, 24)

                color:SetAnchor(TOPRIGHT, label, BOTTOMRIGHT)

        else

                control:SetDimensions(510, 30)

                label:SetDimensions(300, 26)

                color:SetDimensions(200, 24)

                color:SetAnchor(TOPRIGHT)

        end

        control.thumb = wm:CreateControl(nil, color, CT_TEXTURE)

        local thumb = control.thumb

        thumb:SetDimensions(36, 18)

        thumb:SetAnchor(LEFT, color, LEFT, 4, 0)

        color.border = wm:CreateControl(nil, color, CT_TEXTURE)

        local border = color.border

        border:SetTexture("EsoUI\\Art\\ChatWindow\\chatOptions_bgColSwatch_frame.dds")

        border:SetTextureCoords(0, .625, 0, .8125)

        border:SetDimensions(40, 22)

        border:SetAnchor(CENTER, thumb, CENTER, 0, 0)

        local function ColorPickerCallback(r, g, b, a)

                        control:UpdateValue(false, r, g, b, a)

                end

        control:SetHandler("OnMouseUp", function(self, btn, upInside)

                        if self.isDisabled then return end

                        if upInside then

                                local r, g, b, a = colorpickerData.getFunc()

                                COLOR_PICKER:Show(ColorPickerCallback, r, g, b, a, colorpickerData.name)

                        end

                end)

        if colorpickerData.warning then

                control.warning = wm:CreateControlFromVirtual(nil, control, "ZO_Options_WarningIcon")

                control.warning:SetAnchor(RIGHT, control.color, LEFT, -5, 0)

                --control.warning.tooltipText = colorpickerData.warning

                control.warning.data = {tooltipText = colorpickerData.warning}

        end

        control.panel = parent.panel or parent  --if this is in a submenu, panel is its parent

        control.data = colorpickerData

        control.data.tooltipText = colorpickerData.tooltip

        if colorpickerData.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