LoTROInterface SVN SortPack

--Option Panel

--[[This works from the "options" section and just works as the slash commands would. I am going to use this for *all* of my plugins eventually, as the Turbine option page doesn't really fit what I want.]]

if plugin==nil then plugin=Plugins["SortPackLoad"] end --This line can probably disappear on monday!

        plugin.GetOptionsPanel = function( self )

                optionsPanel = Turbine.UI.Control()

                optionsPanel:SetSize( 200, 600 )

                optionsPanel.ListBox=Turbine.UI.ListBox()

                optionsPanel.ListBox:SetParent(optionsPanel)

                local options={

                                [1] =

                                {

                                        ["Text"] = "Sort the pack",

                                        ["Command"] = "sort"

                                },

                                [2] =

                                {

                                        ["Text"] = "Open the SortBag",

                                        ["Command"] = "openbag"

                                },

                                [3] =

                                {

                                        ["Text"] = "Open the Sort Options",

                                        ["Command"] = "sortoption"

                                },

                                [4] =

                                {

                                        ["Text"] = "Create/Edit custom Categories",

                                        ["Command"] = "SortCat"

                                },

                                [5] =

                                {

                                        ["Text"] = "Open the Sort Debug window",

                                        ["Command"] = "SortDebug"

                                },

                                [6] =

                                {

                                        ["Text"] = "Show/Hide Counter",

                                        ["Command"] = "SortCounter"

                                }

                                }

                        local optionsPanelButton={}

                        local height=0

                        for i=1,#options do

                        optionsPanelButton[i] = Turbine.UI.Control()

                                optionsPanelButton[i].shortcut = Turbine.UI.Lotro.Shortcut()

                                        optionsPanelButton[i].shortcut:SetType(Turbine.UI.Lotro.ShortcutType.Alias)

                                        optionsPanelButton[i].shortcut:SetData("/"..options[i].Command)

                                optionsPanelButton[i].quickslot=Turbine.UI.Lotro.Quickslot()

                                        optionsPanelButton[i].quickslot:SetParent(optionsPanelButton[i])

                                        optionsPanelButton[i].quickslot:SetShortcut(optionsPanelButton[i].shortcut)

                                        optionsPanelButton[i].quickslot:SetVisible(true)

                                        optionsPanelButton[i].quickslot:SetOpacity(0)

                                        optionsPanelButton[i].quickslot:SetUseOnRightClick(false)

                                optionsPanelButton[i].Button=Turbine.UI.Lotro.Button()

                                        optionsPanelButton[i].Button:SetParent(optionsPanelButton[i])

                                        optionsPanelButton[i].Button:SetBackColor(Turbine.UI.Color(1,0,0,0))

                                        optionsPanelButton[i].Button:SetText(options[i].Text)

                                        optionsPanelButton[i].Button:SetEnabled(false)          --If I don't do this then the next line still doesn't work! Therefore - will look odd, but I can live with that.

                                        optionsPanelButton[i].Button:SetMouseVisible(false)

                                optionsPanelButton[i].SizeChanged=function()

                                        optionsPanelButton[i].Button:SetSize(optionsPanelButton[i]:GetWidth(),22)

                                        optionsPanelButton[i].quickslot:SetSize(optionsPanelButton[i].Button:GetWidth(),20)

                                end

                                optionsPanelButton[i]:SetSize(optionsPanelButton[i]:GetWidth(),22)

                                optionsPanel.ListBox:AddItem(optionsPanelButton[i])

                                height=height+optionsPanelButton[i]:GetHeight()

                        end

                optionsPanel.ListBox:SetSize(optionsPanel:GetWidth(),height)

                optionsPanel.SizeChanged = function( sender, args )

                        optionsPanel.ListBox:SetWidth(optionsPanel:GetWidth())

                        for i=1,optionsPanel.ListBox:GetItemCount() do

                                optionsPanel.ListBox:GetItem(i):SetWidth(optionsPanel:GetWidth())

                        end

                end

                return optionsPanel

        end