React to mousewheel while key is pressed

[sirinsidiator]

I am looking for a way to cycle through a list with the mouse wheel while holding a key.
All I managed to do right now is zoom the camera...
I wonder if this is even possible without using some hack like placing a Textfield over the whole screen?

local function StartAction()
  SetGameCameraUIMode(true)
  GuiRoot:SetHandler("OnMouseWheel", function(control, delta, ctrl, alt, shift, command)
    d("wheel")
  end)
end
local function EndAction()
  SetGameCameraUIMode(false)
  GuiRoot:SetHandler("OnMouseWheel", nil)
end

[circonian]

-- Strike that, see the next post that method is better.

[circonian]

This works:

bindings.xml

Warning: Spoiler

<Bindings>
    <Layer name="SI_KEYBINDINGS_CATEGORY_GENERAL">
        <Category name="|cFFFF00Test Addon|r">
            <Action name="TESTADDON_SCROLL_MOUSE">
                <Up>
                    TestAddon.popLayer()
                </Up>
                <Down>
                    TestAddon.pushLayer()
                </Down>
            </Action>
        </Category>
    </Layer>
    <Layer name="SCROLL_LAYER">
        <Category name="|cFFFF00Test Addon|r">
            <Action name="TESTADDON_WHEEL_UP">
                <Down>
                    TestAddon.wheelUp()
                </Down>
            </Action>
            <Action name="TESTADDON_WHEEL_DOWN">
                <Down>
                    TestAddon.wheelDown()
                </Down>
            </Action>
        </Category>
    </Layer>
</Bindings>

code.lua

Warning: Spoiler

local ADDON_NAME    = "TestAddon"
TestAddon = ZO_Object:New()
 
function TestAddon.pushLayer()
    PushActionLayerByName("SCROLL_LAYER") 
end
 
function TestAddon.popLayer()
    RemoveActionLayerByName("SCROLL_LAYER") 
end
 
function TestAddon.wheelUp()
    -- Whatever code to select the
    -- Previous item in your list
    d("Select Prev")
end
 
function TestAddon.wheelDown()
    -- Whatever code to select the
    -- next item in your list
    d("Select Next")
end
 
local function SetupLayerBinds()
    local layerIndex_UP, categoryIndex_UP, actionIndex_UP = GetActionIndicesFromName("TESTADDON_WHEEL_UP") 
    local layerIndex_DOWN, categoryIndex_DOWN, actionIndex_DOWN = GetActionIndicesFromName("TESTADDON_WHEEL_DOWN") 
    
    CallSecureProtected("BindKeyToAction", layerIndex_UP, categoryIndex_UP, actionIndex_UP, 1, KEY_MOUSEWHEEL_UP) 
    CallSecureProtected("BindKeyToAction", layerIndex_DOWN, categoryIndex_DOWN, actionIndex_DOWN, 1, KEY_MOUSEWHEEL_DOWN)
end
 
local function OnAddOnLoaded(event, addonName)
    if addonName ~= ADDON_NAME then return end
    
    SetupLayerBinds()
    ZO_CreateStringId("SI_BINDING_NAME_TESTADDON_SCROLL_MOUSE", "Key Down/Up.")
    
    EVENT_MANAGER:UnregisterForEvent(ADDON_NAME, EVENT_ADD_ON_LOADED)
end
EVENT_MANAGER:RegisterForEvent(ADDON_NAME, EVENT_ADD_ON_LOADED, OnAddOnLoaded)

[sirinsidiator]

Thank you very much!
I remembered that Chip mentioned action layers in a different thread a few days ago and started investigating them.
I pretty much arrived at the same solution.
Yours looks a bit simpler though

[circonian]

no problem, glad I could help.