TasButtonList

Kain88 · May 31, 2020

Come on GUI or Jass version=)

imek · May 31, 2020

Brilliant! Super helpful. I got it to work too! Thank you Tasyen! Now I just need to study it and learn how you made it.

imek · May 31, 2020

Question: how to i get the Button List to close out and then Open a different Button List depending on which button I click on?

Example:

TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\PASHolyNovaHD.dds", Text = "Wizard"})
TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNSlow", Text = "Custom B"})
TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNInvisibility", Text = "Custom C"})
TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNBanish", Text = "Custom D"})
TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNCrystalBall", Text = "Custom E"})
TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNBoots", Text = "Custom F"})
TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNTalisman", Text = "Custom G"})

If I click on the Wizard button I want to go to the Units under that category.

Tasyen · May 31, 2020

To show hide a TasButtonList one uses BlzFrameSetVisible onto the ButtonLists Parent, at least it is meant to be handled that way. The buttonslist knows their parent: can be done like that BlzFrameSetVisible(buttonListObject.Parent, false)

Now you have to set the buttonAction as wanted when creating the ButtonList:
inside the buttonAction somehow know that the wanted Button showing that data is clicked, here I check for data.Text == "Wizard" then show/hide the parents of the buttonsLists for the triggering player only.

Lua:

local object = CreateTasButtonList(4, frame, function(data, buttonListObject, dataIndex)
        if data.Text == "Wizard" and GetTriggerPlayer() == GetLocalPlayer() then
            BlzFrameSetVisible(buttonListObject.Parent, false)
            BlzFrameSetVisible(otherButtonList.Parent, true)
        end
    end)

This example will shows only the concept of showing hiding, might be easier to understand than the now longer example below:

Lua:

do
    local real = MarkGameStarted
    function MarkGameStarted()
        real()
    xpcall(function()
    -- create an empty Frame that will be the ButtonLists parent. if you want to hide/move the ButtonList hide/move the parent.
    local frame = BlzCreateFrameByType("FRAME", "", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), 0,0)
    BlzFrameSetSize(frame, 0.23, 0.001)
    BlzFrameSetAbsPoint(frame, FRAMEPOINT_TOP, 0.6, 0.5)
    -- create a new ButtonList with 4 Rows, frame is the parent and define the action when clicking the Button
    local object = CreateTasButtonList(3, frame, function(data, buttonListObject, dataIndex)
        if data.Text == "Wizard" and GetTriggerPlayer() == GetLocalPlayer() then
            BlzFrameSetVisible(buttonListObject.Parent, false)
            BlzFrameSetVisible(WizardButtonList.Parent, true)
        end
    end,
    function(frameObject, data)
        BlzFrameSetTexture(frameObject.Icon, data.Icon, 0, false)
        BlzFrameSetText(frameObject.Text, data.Text)

        BlzFrameSetTexture(frameObject.ToolTipFrameIcon, data.Icon, 0, false)
        BlzFrameSetText(frameObject.ToolTipFrameName, data.Text)
    end)
    -- add various data
    TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNPriest", Text = "Wizard"})
    TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNSlow", Text = "Custom B"})
    TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNInvisibility", Text = "Custom C"})

    MainList = object
    UpdateTasButtonList(object)
 
    local frame = BlzCreateFrameByType("FRAME", "", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), 0,0)
    BlzFrameSetSize(frame, 0.23, 0.001)
    BlzFrameSetAbsPoint(frame, FRAMEPOINT_TOP, 0.6, 0.5)
    BlzFrameSetVisible(frame, false)
    -- create a new ButtonList with 4 Rows, frame is the parent and define the action when clicking the Button
    local object = CreateTasButtonList(2, frame, function(data, buttonListObject, dataIndex)
        if data.Text == "Back" and GetTriggerPlayer() == GetLocalPlayer() then
            BlzFrameSetVisible(buttonListObject.Parent, false)
            BlzFrameSetVisible(MainList.Parent, true)
        elseif  data.Text == "Close" and GetTriggerPlayer() == GetLocalPlayer() then
            BlzFrameSetVisible(buttonListObject.Parent, false)
        end
    end,
    function(frameObject, data)
        BlzFrameSetTexture(frameObject.Icon, data.Icon, 0, false)
        BlzFrameSetText(frameObject.Text, data.Text)

        BlzFrameSetTexture(frameObject.ToolTipFrameIcon, data.Icon, 0, false)
        BlzFrameSetText(frameObject.ToolTipFrameName, data.Text)
    end)
    WizardButtonList = object
    TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNTalisman", Text = "Back"})
    TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNTalisman", Text = "Close"})

    -- force an update
    UpdateTasButtonList(object)

    print("done")
end, print)
end
end

Good that this system is useful to you.

Edited: Replaced selfexecution with a less problematic approach

imek · May 31, 2020

Tasyen said:

To show hide a TasButtonList one uses BlzFrameSetVisible onto the ButtonLists Parent, at least it is meant to be handled that way. The buttonslist knows their parent: can be done like that BlzFrameSetVisible(buttonListObject.Parent, false)

Now you have to set the buttonAction as wanted when creating the ButtonList:
inside the buttonAction somehow know that the wanted Button showing that data is clicked, here I check for data.Text == "Wizard" then show/hide the parents of the buttonsLists for the triggering player only.

Lua:

local object = CreateTasButtonList(4, frame, function(data, buttonListObject, dataIndex)
        if data.Text == "Wizard" and GetTriggerPlayer() == GetLocalPlayer() then
            BlzFrameSetVisible(buttonListObject.Parent, false)
            BlzFrameSetVisible(otherButtonList.Parent, true)
        end
    end)

This example will shows only the concept of showing hiding, might be easier to understand than the now longer example below:

Lua:

TimerStart(CreateTimer(), 0.0, false, function()
    xpcall(function()
    -- create an empty Frame that will be the ButtonLists parent. if you want to hide/move the ButtonList hide/move the parent.
    local frame = BlzCreateFrameByType("FRAME", "", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), 0,0)
    BlzFrameSetSize(frame, 0.23, 0.001)
    BlzFrameSetAbsPoint(frame, FRAMEPOINT_TOP, 0.6, 0.5)
    -- create a new ButtonList with 4 Rows, frame is the parent and define the action when clicking the Button
    local object = CreateTasButtonList(3, frame, function(data, buttonListObject, dataIndex)
        if data.Text == "Wizard" and GetTriggerPlayer() == GetLocalPlayer() then
            BlzFrameSetVisible(buttonListObject.Parent, false)
            BlzFrameSetVisible(WizardButtonList.Parent, true)
        end
    end,
    function(frameObject, data)
        BlzFrameSetTexture(frameObject.Icon, data.Icon, 0, false)
        BlzFrameSetText(frameObject.Text, data.Text)

        BlzFrameSetTexture(frameObject.ToolTipFrameIcon, data.Icon, 0, false)
        BlzFrameSetText(frameObject.ToolTipFrameName, data.Text)
    end)
    -- add various data
    TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNPriest", Text = "Wizard"})
    TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNSlow", Text = "Custom B"})
    TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNInvisibility", Text = "Custom C"})

    MainList = object
    UpdateTasButtonList(object)
 
    local frame = BlzCreateFrameByType("FRAME", "", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), 0,0)
    BlzFrameSetSize(frame, 0.23, 0.001)
    BlzFrameSetAbsPoint(frame, FRAMEPOINT_TOP, 0.6, 0.5)
    BlzFrameSetVisible(frame, false)
    -- create a new ButtonList with 4 Rows, frame is the parent and define the action when clicking the Button
    local object = CreateTasButtonList(2, frame, function(data, buttonListObject, dataIndex)
        if data.Text == "Back" and GetTriggerPlayer() == GetLocalPlayer() then
            BlzFrameSetVisible(buttonListObject.Parent, false)
            BlzFrameSetVisible(MainList.Parent, true)
        elseif  data.Text == "Close" and GetTriggerPlayer() == GetLocalPlayer() then
            BlzFrameSetVisible(buttonListObject.Parent, false)
        end
    end,
    function(frameObject, data)
        BlzFrameSetTexture(frameObject.Icon, data.Icon, 0, false)
        BlzFrameSetText(frameObject.Text, data.Text)

        BlzFrameSetTexture(frameObject.ToolTipFrameIcon, data.Icon, 0, false)
        BlzFrameSetText(frameObject.ToolTipFrameName, data.Text)
    end)
    WizardButtonList = object
    TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNTalisman", Text = "Back"})
    TasButtonListAddData(object, {Icon = "ReplaceableTextures\\CommandButtons\\BTNTalisman", Text = "Close"})

    -- force an update
    UpdateTasButtonList(object)

    print("done")
    DestroyTimer(GetExpiredTimer())
end, print)
end)

Good that this system is useful to you.

Thank you again.

imek · May 31, 2020

I am still having trouble creating categories. I think I almost have all the code I need, but there is still stuff I don't understand. I am attaching my map file to this post. Maybe if you look at what I'm trying to do you will be able to give me instructions. I was able to make the 1st category but not all the others. Imek Amtgard map 05-31-2020 | HIVE

Question: Can you please tell me how to finish adding the categories to my map? I need 13 different categories for different units. The 1st category has Goose and Fox in it.

SpasMaster · May 31, 2020

I am curious if a Jass version is something you plan on doing?

Regardless, this seems neat as usual. +rep

imek · May 31, 2020

Never mind I figured out how to it works. I added all the categories. Thank you again Tasyen!

imek · Jun 1, 2020

So I have this code below and I need to UpdateTasButtonList(object) for the --add various data section of the code. But I can't get the icon with the value H001 to update and show up in the menu. Can some one please help me do this?

--******SUMMON UNITS For WIZARD CLASS****************************************************************
local frame = BlzCreateFrameByType("FRAME", "", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), 0,0)
BlzFrameSetSize(frame, 0.23, 0.001)
BlzFrameSetAbsPoint(frame, FRAMEPOINT_TOP, 0.4, 0.5)
BlzFrameSetVisible(frame, false)

-- create a new ButtonList with 10 Rows, frame is the parent and define the action when clicking the Button
local object = CreateTasButtonList(10, frame, function(data, buttonListObject, dataIndex)
if data.Text == "Back" and GetTriggerPlayer() == GetLocalPlayer() then
BlzFrameSetVisible(buttonListObject.Parent, false)
BlzFrameSetVisible(MainList.Parent, true)
elseif data.Text == "Close" and GetTriggerPlayer() == GetLocalPlayer() then
BlzFrameSetVisible(buttonListObject.Parent, false)
end

if data.Text == "Atta" and GetTriggerPlayer() == GetLocalPlayer() then
BlzFrameSetVisible(buttonListObject.Parent, false)
local frame = BlzCreateFrameByType("FRAME", "", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), 0,0)
BlzFrameSetSize(frame, 0.23, 0.001)
BlzFrameSetAbsPoint(frame, FRAMEPOINT_TOP, 0.4, 0.5)
-- create a new ButtonList with 1 Rows, frame is the parent and define the action when clicking the Button
local object = CreateTasButtonList(1, frame, function(data, buttonListObject, dataIndex)
-- create an unit for the clicking player at 0/0 with facing 0
CreateUnit(GetTriggerPlayer(), data, 0, 0, 0)
BlzFrameSetVisible(buttonListObject.Parent, false)
end)

-- add various data
TasButtonListAddData(object, FourCC("H001"))

end

Tasyen · Jun 1, 2020

SpasMaster said:
I am curious if a Jass version is something you plan on doing?

Regardless, this seems neat as usual. +rep

I was expecting this, hence I already have thinkered about a way to create this in (v)jass. I am not against it. Probably do it in some time, but don't expect great (v)jass.

Tasyen · Jun 3, 2020

Updated to Version6 which includes some small changes/fixes aswell as a (v)jass version.

The (v)jass versions was built out of the Lua version hence it is also quite similar.
There are still some differences between the (v)jass & Lua version.

in the jass version the mapper's actions are run over triggers, hence there are globals instead of args.
"" """""" The Button is the frameObject instead of being a member of it.
""""" every TasButtonList is one Index in an array.
""""" data used in TasButtonList is only integer.
"""" accessing the Frames is ugly.

JASS:

    //args for custom user actions
    integer TasButtonListData = 0
    string TasButtonListText = ""
    boolean TasButtonListIsSearching = false
    integer TasButtonListIndex = 0
    framehandle TasButtonListFrame = null

The (v)jass versions did desync at first when i was using TriggerAction + TriggerExecute for the updateAction. In the released version this was replaced with TriggerCondition + TriggerEvaluate. With this change there were no desyncs during testing in Warcraft 3 1.31.1.

Tasyen · Jun 16, 2020

Updated to V7 a small update.
the searchTriggerAction code was pushed into a call able function, making it more easy/faster to reapply filter/search.
The scrollFrame is now only shown when there is more filtered Data then buttons (it was also shown with an equal amount).

KitsuneTailsPrower · Jul 4, 2020

A very useful and flexible system

MyPad · Aug 9, 2020

Splendid work with creating UI systems. There is a minor kink, though.
Apparently, the button elements (when the slider is at the top) are supposed to be at the bottom.
The video below should better explain the issue:

Tasyen · Aug 10, 2020

Well, I don't get the problem.

MyPad · Aug 10, 2020

Visually speaking, the list of items displayed when the slider is at the top should be A-B-C-D. Instead, the slider is at the bottom. Likewise, when displaying D-E-F-G, the slider should be at the bottom, but is situated at the top.

This was tested on the lua version of the map, with a slight positional modification to accommodate for the pictures.

Tasyen · Aug 10, 2020

Okay, got it. That is indeed confusing and should be changed.

Tasyen · Aug 12, 2020

Updated to 7a:
The value of the slider is now subtracted from the max. Therefore the slider top position is now the top data position.

But now one has to set the slider position to the maxium after having filled it with data to prevent a glitch. This replaces the update Line which one had to do.

Tasyen · Sep 2, 2020

Updated to 7B:
The built in Tooltip-Box will now resize itself, based on the amount of text inside the Extended Tooltip (the bottom part).
7B uses a different fdf then previous versions, if you update you have to import the new one. From this version the fdf has in the first line a comment for which version it was created.
Made some parts of the Lua version faster.
Uploaded new Images to show that.

SinisterLuffy · Sep 2, 2020

Even though I saw the recommended version tag for this system, I just wanted to make sure that the current version works for the latest legacy patch.

Lt_Hawkeye · Sep 10, 2020

Can this be used as an ability list?

Tasyen · Sep 11, 2020

It can use abilitycodes (object Editor raw codes) as data.
One of the demos is an ability List.

MyPad · Sep 20, 2020

This can be very useful for mappers.

Approved

Pwnica · Sep 21, 2020

Hey Tasyen you are amazing..
Can you use this system as shop? To buy Items?

Tasyen · Sep 22, 2020

Pwnica said:
Hey Tasyen you are amazing..

I trained for a long time.

Pwnica said:
Can you use this system as shop? To buy Items?

This System can help in creating a item shop.
TasButtonList is generic, it can use much but one has to tell it what to do with the given data when creating the list.
Items are cumbersome because one can not just get the gold costs with a getter (at least I don't know of such). Making the cost display difficult or custom written cost lists in trigger editor.

The Lua version has an example of buying items, but it is not a shop on the map. It also uses another piece of code to calc the costs buy buying the items with an passive player. Such a shop I did not show.

Edit: Uploaded a Fix for the demo code of the Lua version it. The way i made the code selfexecuting by creating&starting Timers in the Lua root code made a map desync as soon the garbage collector run in reforged (my guess at least).

chopinski · Sep 22, 2020

Hey @Tasyen could you create a simple Health and Mana frame that display the health/mana of the current selected unit? I t would be extremely useful to maps like castle defenses and Hero Sieges.

Example:

Googolplex · Sep 24, 2020

Can't figure out for the life of me why this is desyncing....

Using a modified version of this system, but at first garbage collection (About 1.5 minutes into my game) all players desync at the same time.

Disabling these two triggers fixes the issue.

EDIT: Changed MarkGameStarted to DetectGameStarted and desyncs less frequently but still does

Code:

do

    local realFunc = DetectGameStarted
    function DetectGameStarted()
    realFunc()
    xpcall(function()

    ItemData = {}

    local box = BlzCreateFrame("EscMenuBackdrop", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), 0, 0)
    BlzFrameSetSize(box, 0.255, 0.29)
    BlzFrameSetAbsPoint(box, FRAMEPOINT_TOPRIGHT, .245, 0.53)

    local button = BlzCreateFrame("ScriptDialogButton", BlzGetOriginFrame(ORIGIN_FRAME_GAME_UI, 0), 0, 0)
    local buttonText = BlzGetFrameByName("ScriptDialogButtonText",0)
    BlzFrameSetSize(button, 0.1, 0.03)
    BlzFrameSetAbsPoint(button, FRAMEPOINT_TOP, .12, 0.55)
    BlzFrameSetText(buttonText, "Hide Shop")


    local objectListA = object
    local frameB = BlzCreateFrameByType("FRAME", "", box, "",0)
    BlzFrameSetSize(frameB, 0.23, 0.001)
    --BlzFrameSetAbsPoint(frameB, FRAMEPOINT_TOPRIGHT, 0.78, 0.54)
    BlzFrameSetPoint(frameB, FRAMEPOINT_TOPLEFT, box, FRAMEPOINT_TOPLEFT, 0, -0.02)
    BlzFrameSetVisible(frameB, true)
    local object = CreateTasButtonList(9, frameB, function(data, buttonListObject, dataIndex)
        local player = GetTriggerPlayer()
        local lumber = ItemData[data].Lumber
        local gold = ItemData[data].Gold
        if GetPlayerState(player, PLAYER_STATE_RESOURCE_GOLD) >= gold then
            if GetPlayerState(player, PLAYER_STATE_RESOURCE_LUMBER) >= lumber then
                AdjustPlayerStateSimpleBJ(player, PLAYER_STATE_RESOURCE_GOLD, -gold)
                AdjustPlayerStateSimpleBJ(player, PLAYER_STATE_RESOURCE_LUMBER, -lumber)
        CreateItem(data, GetPlayerStartLocationX(player), GetPlayerStartLocationY(player))
            end
        end
    
    end,
    --runs once for each button shown
    function (frameObject, data)
        --print("Custom Update Item")
        BlzFrameSetTexture(frameObject.Icon, BlzGetAbilityIcon(data), 0, false)
        BlzFrameSetText(frameObject.Text, GetObjectName(data, 0))
 
        BlzFrameSetTexture(frameObject.ToolTipFrameIcon, BlzGetAbilityIcon(data), 0, false)
        BlzFrameSetText(frameObject.ToolTipFrameName, GetObjectName(data, 0))  
    --        frameObject.ToolTipFrameSeperator
        BlzFrameSetText(frameObject.ToolTipFrameText, BlzGetAbilityExtendedTooltip(data, 0))
        if ItemData[data] then
            local lumber = ItemData[data].Lumber
            local gold = ItemData[data].Gold
            if GetPlayerState(GetLocalPlayer(), PLAYER_STATE_RESOURCE_GOLD) >= gold then
                BlzFrameSetText(frameObject.TextGold, gold)
            else
                BlzFrameSetText(frameObject.TextGold, "|cffff2010"..gold)
            end
        
            if GetPlayerState(GetLocalPlayer(), PLAYER_STATE_RESOURCE_LUMBER) >= lumber then
                BlzFrameSetText(frameObject.TextLumber, lumber)
            else
                BlzFrameSetText(frameObject.TextLumber, "|cffff2010"..lumber)
            end
        else
            BlzFrameSetText(frameObject.TextLumber, "xxx")
            BlzFrameSetText(frameObject.TextGold, "xxx")
        end
    end)
    function AddItemAndGetCost(buttonListObject, itemCode)
        if GetObjectName(itemCode) ~= "" then
            TasButtonListAddData(object, itemCode)
            local tempLum = 0
            local tempGold = 0
        if itemCode == FourCC("I034") then
            tempGold = 10
        elseif itemCode == FourCC("I02U") then
            tempGold = 15
        elseif itemCode == FourCC("I02W") then
            tempGold = 15
        elseif itemCode == FourCC("I02V") then
            tempGold = 15
        elseif itemCode == FourCC("I018") then
            tempGold = 15
        elseif itemCode == FourCC("I01C") then
            tempGold = 35
        elseif itemCode == FourCC("I01D") then
            tempGold = 10
        elseif itemCode == FourCC("I00S") then
            tempGold = 25
        elseif itemCode == FourCC("I00R") then
            tempGold = 10
        elseif itemCode == FourCC("I01O") then
            tempGold = 25
        elseif itemCode == FourCC("I01S") then
            tempGold = 15
        elseif itemCode == FourCC("I02N") then
            tempGold = 15
        elseif itemCode == FourCC("I02O") then
            tempGold = 25
        elseif itemCode == FourCC("I036") then
            tempGold = 15
        elseif itemCode == FourCC("I035") then
            tempGold = 30
        elseif itemCode == FourCC("I02J") then
            tempGold = 30
        elseif itemCode == FourCC("I021") then
            tempGold = 60
        elseif itemCode == FourCC("I03O") then
            tempGold = 30
        elseif itemCode == FourCC("I03S") then
            tempGold = 25
        elseif itemCode == FourCC("I03N") then
            tempGold = 50
        elseif itemCode == FourCC("I03H") then
            tempGold = 35
        elseif itemCode == FourCC("I041") then
            tempLum = 2
        elseif itemCode == FourCC("I03Z") then
            tempLum = 2
        elseif itemCode == FourCC("I02Q") then
            tempLum = 2
        elseif itemCode == FourCC("I01M") then
            tempLum = 2
        elseif itemCode == FourCC("I02E") then
            tempLum = 2
        elseif itemCode == FourCC("I00Y") then
            tempLum = 2
        elseif itemCode == FourCC("I046") then
            tempLum = 2
        elseif itemCode == FourCC("I01U") then
            tempLum = 2
        elseif itemCode == FourCC("I01B") then
            tempLum = 1
        elseif itemCode == FourCC("I042") then
            tempGold = 5
        elseif itemCode == FourCC("I043") then
            tempGold = 5
        elseif itemCode == FourCC("I044") then
            tempGold = 5
        elseif itemCode == FourCC("I045") then
            tempGold = 5
        end
 
    if not ItemData[itemCode] then
            ItemData[itemCode] = {
                    Gold = tempGold,
                    Lumber = tempLum
                }
    end
        end
    end

    AddItemAndGetCost(object, FourCC("I034"))
    AddItemAndGetCost(object, FourCC("I02U"))
    AddItemAndGetCost(object, FourCC("I02W"))
    AddItemAndGetCost(object, FourCC("I02V"))
    AddItemAndGetCost(object, FourCC("I018"))
    AddItemAndGetCost(object, FourCC("I01C"))
    AddItemAndGetCost(object, FourCC("I01D"))
    AddItemAndGetCost(object, FourCC("I00S"))
    AddItemAndGetCost(object, FourCC("I00R"))
    AddItemAndGetCost(object, FourCC("I01O"))
    AddItemAndGetCost(object, FourCC("I01S"))
    AddItemAndGetCost(object, FourCC("I02N"))
    AddItemAndGetCost(object, FourCC("I02O"))
    AddItemAndGetCost(object, FourCC("I036"))
    AddItemAndGetCost(object, FourCC("I035"))
    AddItemAndGetCost(object, FourCC("I02J"))
    AddItemAndGetCost(object, FourCC("I021"))
    AddItemAndGetCost(object, FourCC("I03O"))
    AddItemAndGetCost(object, FourCC("I03S"))
    AddItemAndGetCost(object, FourCC("I03N"))
    AddItemAndGetCost(object, FourCC("I03H"))
    AddItemAndGetCost(object, FourCC("I041"))
    AddItemAndGetCost(object, FourCC("I03Z"))
    AddItemAndGetCost(object, FourCC("I02Q"))
    AddItemAndGetCost(object, FourCC("I01M"))    
    AddItemAndGetCost(object, FourCC("I02E"))
    AddItemAndGetCost(object, FourCC("I00Y"))
    AddItemAndGetCost(object, FourCC("I046"))
    AddItemAndGetCost(object, FourCC("I01U"))
    AddItemAndGetCost(object, FourCC("I01B"))
    AddItemAndGetCost(object, FourCC("I042"))
    AddItemAndGetCost(object, FourCC("I043"))
    AddItemAndGetCost(object, FourCC("I044"))
    AddItemAndGetCost(object, FourCC("I045"))

 
--    UpdateTasButtonList(object)
    BlzFrameSetValue(object.Slider, 9999)


    local trigger = CreateTrigger()
    TriggerAddAction(trigger, function()
        if GetLocalPlayer() == GetTriggerPlayer() then
            if BlzFrameIsVisible(frameB) then
                BlzFrameSetVisible(box, false)
                BlzFrameSetText(button, "Show Shop")
            else
                BlzFrameSetVisible(box, true)
                BlzFrameSetText(button, "Hide Shop")
            end
        end
    end)
    BlzTriggerRegisterFrameEvent(trigger, button, FRAMEEVENT_CONTROL_CLICK)
end, print)
end
end

Code:

--[[
TasButtonList7b by Tasyen

function CreateTasButtonList(buttonCount, parent, buttonAction[, updateAction, searchAction, filterAction])
create a new List
parent is the container of this Frame it will attach itself to its TOP.
buttonAction is the function that executes when an option is clicked. args: (clickedData, buttonListObject, dataIndex)
when your data are object Editor object-RawCodes (but not buffs) then updateAction & searchAction use a default one handling them.
updateAction runs for each Button and is used to set the diplayed content. args:(frameObject, data)
    frameObject.Button
    frameObject.ToolTipFrame
    frameObject.ToolTipFrameIcon
    frameObject.ToolTipFrameName
    frameObject.ToolTipFrameSeperator
    frameObject.ToolTipFrameText

    frameObject.Icon
    frameObject.Text
    frameObject.IconGold
    frameObject.TextGold
    frameObject.IconLumber
    frameObject.TextLumber
    TasButtonList[frameObject] => buttonListObject

    data is one entry of the TasButtonLists Data-Array.

searchAction is a function that returns true if the current data matches the searchText. Args: (data, searchedText, buttonListObject)
filterAction is meant to be used when one wants an addtional non text based filtering, with returning true allowing data or false rejecting it. Args: (data, buttonListObject, isTextSearching)
searchAction , udateAction & filterAction are async this functions should not do anything that alters the game state/flow.

function CreateTasButtonListV2(rowCount, parent, buttonAction[, updateAction, searchAction, filterAction])
    2 Buttons each Row, takes more Height then the other Versions
function CreateTasButtonListV3(rowCount, parent, buttonAction[, updateAction, searchAction, filterAction])
    3 Buttons each Row, only Icon, and Costs

function TasButtonListClearData(buttonListObject)
    remove all data
function TasButtonListRemoveData(buttonListObject, data)
    search for data and remove it
function TasButtonListAddData(buttonListObject, data)
    add data for one Button
function TasButtonListCopyData(writeObject, readObject)
    writeObject uses the same data as readObject and calls UpdateButtonList.
    The copier writeObject still has an own filtering and searching.
function UpdateTasButtonList(buttonListObject)
    update the displayed Content should be done after Data was added or removed was used.
TasButtonListSearch(buttonListObject[, text])
    The buttonList will search it's data for the given text, if nil is given as text it will search for what the user currently has in its box.
    This will also update the buttonList
--]]

BlzLoadTOCFile("war3mapimported\\TasButtonList.toc")
TasButtonList = {}

TasButtonList.SyncTrigger = CreateTrigger()
TasButtonList.SyncTriggerAction = TriggerAddAction(TasButtonList.SyncTrigger, function()
    xpcall(function()
    local buttonListObject = TasButtonList[BlzGetTriggerFrame()]
    local dataIndex = math.tointeger(BlzGetTriggerFrameValue())

    if buttonListObject.ButtonAction then
        -- call the wanted action, 1 the current Data
        buttonListObject.ButtonAction(buttonListObject.Data[dataIndex], buttonListObject, dataIndex)
    end
    UpdateTasButtonList(buttonListObject)
    end,print)
end)

-- handles the clicking
TasButtonList.ButtonTrigger = CreateTrigger()
TasButtonList.ButtonTriggerAction = TriggerAddAction(TasButtonList.ButtonTrigger, function()
    local buttonIndex = TasButtonList[BlzGetTriggerFrame()].Index
    local buttonListObject = TasButtonList[TasButtonList[BlzGetTriggerFrame()]]
    local dataIndex = buttonListObject.DataFiltered[buttonListObject.ViewPoint + buttonIndex]
    BlzFrameSetEnable(BlzGetTriggerFrame(), false)
    BlzFrameSetEnable(BlzGetTriggerFrame(), true)
    if GetLocalPlayer() == GetTriggerPlayer() then
        BlzFrameSetValue(buttonListObject.SyncFrame, dataIndex)
    end
end)

-- scrolling while pointing on Buttons
TasButtonList.ButtonScrollTrigger = CreateTrigger()
TasButtonList.ButtonScrollTriggerAction = TriggerAddAction(TasButtonList.ButtonScrollTrigger, function()
    local buttonListObject = TasButtonList[TasButtonList[BlzGetTriggerFrame()]]
    local frame = buttonListObject.Slider
    if GetLocalPlayer() == GetTriggerPlayer() then
        if BlzGetTriggerFrameValue() > 0 then
            BlzFrameSetValue(frame, BlzFrameGetValue(frame) + buttonListObject.SliderStep)
        else
            BlzFrameSetValue(frame, BlzFrameGetValue(frame) - buttonListObject.SliderStep)
        end
    end
end)

-- scrolling while pointing on slider aswell as calling
TasButtonList.SliderTrigger = CreateTrigger()
TasButtonList.SliderTriggerAction = TriggerAddAction(TasButtonList.SliderTrigger, function()
    local buttonListObject = TasButtonList[BlzGetTriggerFrame()]
    local frame = BlzGetTriggerFrame()
    if GetLocalPlayer() == GetTriggerPlayer() then
        if BlzGetTriggerFrameEvent() == FRAMEEVENT_MOUSE_WHEEL then
            if BlzGetTriggerFrameValue() > 0 then
                BlzFrameSetValue(frame, BlzFrameGetValue(frame) + buttonListObject.SliderStep)
            else
                BlzFrameSetValue(frame, BlzFrameGetValue(frame) - buttonListObject.SliderStep)
            end
        else
            -- when there is enough data use viewPoint. the Viewpoint is reduced from the data to make top being top.
            if buttonListObject.DataFiltered.Count > buttonListObject.Frames.Count then
                buttonListObject.ViewPoint = buttonListObject.DataFiltered.Count - math.tointeger(BlzGetTriggerFrameValue())
            else
                buttonListObject.ViewPoint = 0
            end
            UpdateTasButtonList(buttonListObject)
        end
    end
end)

--runs once for each button shown
function UpdateTasButtonListDefaultObject(frameObject, data)
    BlzFrameSetTexture(frameObject.Icon, BlzGetAbilityIcon(data), 0, false)
    BlzFrameSetText(frameObject.Text, GetObjectName(data))

    BlzFrameSetTexture(frameObject.ToolTipFrameIcon, BlzGetAbilityIcon(data), 0, false)
    BlzFrameSetText(frameObject.ToolTipFrameName, GetObjectName(data))  
--        frameObject.ToolTipFrameSeperator
    BlzFrameSetText(frameObject.ToolTipFrameText, BlzGetAbilityExtendedTooltip(data, 0))

    if not IsUnitIdType(data, UNIT_TYPE_HERO) then
        local lumber = GetUnitWoodCost(data)
        local gold = GetUnitGoldCost(data)
        if GetPlayerState(GetLocalPlayer(), PLAYER_STATE_RESOURCE_GOLD) >= gold then
            BlzFrameSetText(frameObject.TextGold, GetUnitGoldCost(data))
        else
            BlzFrameSetText(frameObject.TextGold, "|cffff2010"..GetUnitGoldCost(data))
        end
    
        if GetPlayerState(GetLocalPlayer(), PLAYER_STATE_RESOURCE_LUMBER) >= lumber then
            BlzFrameSetText(frameObject.TextLumber, GetUnitWoodCost(data))
        else
            BlzFrameSetText(frameObject.TextLumber, "|cffff2010"..GetUnitWoodCost(data))
        end
    else
        BlzFrameSetText(frameObject.TextLumber, 0)
        BlzFrameSetText(frameObject.TextGold, 0)
    end
end

-- update the shown content
function UpdateTasButtonList(buttonListObject)
    xpcall(function()
    local data = buttonListObject.Data
    BlzFrameSetVisible(buttonListObject.Slider, buttonListObject.DataFiltered.Count > buttonListObject.Frames.Count)
    for int = 1, buttonListObject.Frames.Count do
        local frameObject = buttonListObject.Frames[int]
        if buttonListObject.DataFiltered.Count >= int  then
            buttonListObject.UpdateAction(frameObject, data[buttonListObject.DataFiltered[int + buttonListObject.ViewPoint]])
            BlzFrameSetVisible(frameObject.Button, true)
        else
            BlzFrameSetVisible(frameObject.Button, false)
        end
    end
end, print)
end

function InitTasButtonListObject(parent, buttonAction, updateAction)
    local object = {
        Data = {Count = 0}, --an array each slot is the user data
        DataFiltered = {Count = 0}, -- indexes of Data fitting the current search
        ViewPoint = 0,
        Frames = {},
        Parent = parent
    }
    object.ButtonAction = buttonAction --call this inside the SyncAction after a button is clicked
    object.UpdateAction = updateAction --function defining how to display stuff (async)
    if not updateAction then object.UpdateAction = UpdateTasButtonListDefaultObject end
    if not searchAction then object.SearchAction = SearchTasButtonListDefaultObject end
    table.insert(TasButtonList, object) --index to TasButtonList
    TasButtonList[object] = #TasButtonList -- TasButtonList to Index

    object.SyncFrame = BlzCreateFrameByType("SLIDER", "", parent, "", 0)
    BlzFrameSetMinMaxValue(object.SyncFrame, 0, 9999999)
    BlzFrameSetStepSize(object.SyncFrame, 1.0)
    BlzTriggerRegisterFrameEvent(TasButtonList.SyncTrigger, object.SyncFrame, FRAMEEVENT_SLIDER_VALUE_CHANGED)
    BlzFrameSetVisible(object.SyncFrame, false)
    TasButtonList[object.SyncFrame] = object

    object.InputFrame = BlzCreateFrame("TeamLabelTextTemplate", parent, 0, 0)

    BlzFrameSetPoint(object.InputFrame, FRAMEPOINT_TOPRIGHT, parent, FRAMEPOINT_TOPRIGHT, 0, 0)
    TasButtonList[object.InputFrame] = object

    return object
end

function InitTasButtonListSlider(object, stepSize, rowCount)
    object.Slider = BlzCreateFrameByType("SLIDER", "FrameListSlider", object.Parent, "QuestMainListScrollBar", 0)
    TasButtonList[object.Slider] = object -- the slider nows the TasButtonListobject
    object.SliderStep = stepSize
    BlzFrameSetStepSize(object.Slider, stepSize)
    BlzFrameClearAllPoints(object.Slider)
    BlzFrameSetVisible(object.Slider, true)
    BlzFrameSetMinMaxValue(object.Slider, 0, 0)
    BlzFrameSetPoint(object.Slider, FRAMEPOINT_TOPLEFT, object.Frames[1].Button, FRAMEPOINT_TOPRIGHT, 0, 0)
    BlzFrameSetSize(object.Slider, 0.012, BlzFrameGetHeight(object.Frames[1].Button) * rowCount)
    BlzTriggerRegisterFrameEvent(TasButtonList.SliderTrigger, object.Slider , FRAMEEVENT_SLIDER_VALUE_CHANGED)
    BlzTriggerRegisterFrameEvent(TasButtonList.SliderTrigger, object.Slider , FRAMEEVENT_MOUSE_WHEEL)
end


function TasButtonListAddData(buttonListObject, data)
    local oData = buttonListObject.Data
    local oDataFil = buttonListObject.DataFiltered
    oData.Count = oData.Count + 1
    oDataFil.Count = oDataFil.Count + 1
    oData[oData.Count] = data
    oDataFil[oDataFil.Count] = oData.Count
    BlzFrameSetMinMaxValue(buttonListObject.Slider, buttonListObject.Frames.Count, oData.Count)
end

function TasButtonListRemoveData(buttonListObject, data)
    for index, value in ipairs(buttonListObject.Data)
    do
        if value == data then
            table.remove(buttonListObject.Data, index)
            buttonListObject.Data.Count = buttonListObject.Data.Count - 1
            break
        end
    end
    BlzFrameSetMinMaxValue(buttonListObject.Slider, buttonListObject.Frames.Count, buttonListObject.Data.Count)
end

function TasButtonListClearData(buttonListObject)
    repeat until not table.remove(buttonListObject.Data)
    repeat until not table.remove(buttonListObject.DataFiltered)
    BlzFrameSetMinMaxValue(buttonListObject.Slider, 0, 0)
end

function TasButtonListCopyData(writeObject, readObject)
    writeObject.Data = readObject.Data
    for index = 1, readObject.DataFiltered.Count do writeObject.DataFiltered[index] = readObject.DataFiltered[index] end
    writeObject.DataFiltered.Count = readObject.DataFiltered.Count

    BlzFrameSetMinMaxValue(writeObject.Slider, writeObject.Frames.Count, writeObject.Data.Count)
    BlzFrameSetValue(writeObject.Slider,999999)
end

-- demo Creators
function CreateTasButtonTooltip(frameObject, parent)
    frameObject.ToolTipFrame = BlzCreateFrame("TasButtonListTooltipBox", frameObject.Button, 0, 0)
    frameObject.ToolTipFrameIcon = BlzGetFrameByName("TasButtonListTooltipIcon", 0)
    frameObject.ToolTipFrameName = BlzGetFrameByName("TasButtonListTooltipName", 0)
    frameObject.ToolTipFrameSeperator = BlzGetFrameByName("TasButtonListTooltipSeperator", 0)
    frameObject.ToolTipFrameText = BlzGetFrameByName("TasButtonListTooltipText", 0)    
    BlzFrameSetPoint(frameObject.ToolTipFrameText, FRAMEPOINT_TOPLEFT, parent, FRAMEPOINT_TOPRIGHT, 0.025, -0.052)
    BlzFrameSetPoint(frameObject.ToolTipFrame, FRAMEPOINT_TOPLEFT, frameObject.ToolTipFrameIcon, FRAMEPOINT_TOPLEFT, -0.005, 0.005)
    BlzFrameSetPoint(frameObject.ToolTipFrame, FRAMEPOINT_BOTTOMRIGHT, frameObject.ToolTipFrameText, FRAMEPOINT_BOTTOMRIGHT, 0.005, -0.005)
    BlzFrameSetTooltip(frameObject.Button, frameObject.ToolTipFrame)
end

function CreateTasButtonList(buttonCount, parent, buttonAction, updateAction)
    local object = InitTasButtonListObject(parent, buttonAction, updateAction)
    object.Frames.Count = buttonCount
    for int = 1, buttonCount do
        local frameObject = {}
        frameObject.Index = int
        frameObject.Button = BlzCreateFrame("TasButton", parent, 0, 0)
        CreateTasButtonTooltip(frameObject, parent)

        frameObject.Icon = BlzGetFrameByName("TasButtonIcon", 0)
        frameObject.Text = BlzGetFrameByName("TasButtonText", 0)
        frameObject.IconGold = BlzGetFrameByName("TasButtonIconGold", 0)
        frameObject.TextGold = BlzGetFrameByName("TasButtonTextGold", 0)
        frameObject.IconLumber = BlzGetFrameByName("TasButtonIconLumber", 0)
        frameObject.TextLumber = BlzGetFrameByName("TasButtonTextLumber", 0)
        TasButtonList[frameObject.Button] = frameObject
        TasButtonList[frameObject] = object
        object.Frames[int] = frameObject
        BlzTriggerRegisterFrameEvent(TasButtonList.ButtonTrigger, frameObject.Button, FRAMEEVENT_CONTROL_CLICK)
        BlzTriggerRegisterFrameEvent(TasButtonList.ButtonScrollTrigger, frameObject.Button, FRAMEEVENT_MOUSE_WHEEL)
        if int > 1 then
           BlzFrameSetPoint(frameObject.Button, FRAMEPOINT_TOP, object.Frames[int - 1].Button, FRAMEPOINT_BOTTOM, 0, -0)
        else
            BlzFrameSetPoint(frameObject.Button, FRAMEPOINT_TOPRIGHT, object.InputFrame, FRAMEPOINT_BOTTOMRIGHT, 0, 0)
        end
    end
    InitTasButtonListSlider(object, 1, buttonCount)

    return object
end

Tasyen · Oct 12, 2020

Updated to V8.
Now supports performing an action when a Button in the List is Rightclicked. Button in the List also play a different Sound when they are rightclicked.
Made the included system demo Creators into wrappers for a more complex but more powerful creator.
Seperated the TocLoading into an own function. The Lua version will, if one has my FrameLoader, reload the TOC when the game is loaded. When you use vjass remember that you have to reload the TOC before you try to recreate Frames after Save&Load.
Added a error message in the Lua version which will tell you when no Button could be created.

TADMINSTER · Oct 13, 2020

This system is really amazing.
Tasyen, can you make this system combination-only?

Like the picture..

Tasyen · Oct 14, 2020

This system itself is no fusion/Item Shop. it is a generic Buttonlist system. Which can be the base for a item fusion UI.

One can. But first you have to choose you want to have a system that does the fusion for you or you do it more simpler without a system doing the fusions.

You have to create a fusion system knowing all the possible fusions. Then on button click, you put all the items the player can use in an array. Now you check if the array contains the materials needed for the fusion, if provided remove the Fusion-material and create the Fusion Item. Otherwise print(missing items).

Or If you want it simpler you could create a powerup fake version of your fusions which you add as options to the buttonList. They don't costing anything. You add some simple create item onClick action. Then you have triggers with pickup events and the conditions equal to one of the the fusion powerup options. Now follows a fusion trigger like one knows from simple GUI fusions. If your hero has item of type x and item of type y remove x and y get fusion.

One could allow to replace material with Gold, this is more complex because then you also need to consider that a material also can be a fusion which is not provided but a material of it could be provided.

I am creating an item shop, it isn't done yet it does this replaces not provided mats with gold. A preview image

TADMINSTER · Oct 15, 2020

Thank you so much for your kind and detailed answer. Your work is always amazing. So I like the passing of time these days. Every time I connect to Hive, I get excited.
You are probably an important person among Warcraft mapmakers.

Tasyen · Oct 27, 2020

Updated to V9)
New fdf.
^^ Buttons inside the list change color while they are Pushed. (hard to see for undead players)
Seperated & Changed the rightclick detection from the system.
Added optional AsyncButtonAction and AsyncRightClickAction. They are called directly inside the Click-Events for the clicking Player only.
Each TasButtonList can now have different Data for each Player. Added Ex versions of TasButtonListClearData, TasButtonListRemoveData, TasButtonListAddData, TasButtonListCopyData which only affect the mentioned player. Using the old functions affects all players.
^^ (Lua) you can use the old functions and just add a player arg.
^^ Added a new Demo to demonstrate the new Feature. Based on the player Race one gets different units in the List.

Tasyen · Nov 8, 2020

Updated to V10)
Added Col and Row gaps in the Creator function. in jass the old creator function was transformed into a wrapper for the new, using 2 globals for the gap settings.
Replaced the contained fdf. Because the used Border Textures (by the buttons) were broken in Reforged maybe also in 1.31.

Tasyen · Dec 1, 2021

Lua version was Updated to V11)
Made the Rightclick Lib optional.
Added simpler button List versions which only display a Text or Text in a box,

Lua:

Wrapper Creator for Lists having only Text in a Box
Default update & search: exepect data to be either a number (object Editor rawCode), a string or a table(title, text, icon)
function CreateTasButtonBoxedTextList(rowCount, colCount, parent, buttonAction[, updateAction, searchAction, filterAction])
function CreateTasButtonBoxedTextListBig(rowCount, colCount, parent, buttonAction[, updateAction, searchAction, filterAction])

Wrapper Creator for Lists having only Text 
Default update & search: exepect data to be either a number (object Editor rawCode), a string or a table(title, text, icon)
function CreateTasButtonTextList(rowCount, colCount, parent, buttonAction[, updateAction, searchAction, filterAction])
function CreateTasButtonTextListBig(rowCount, colCount, parent, buttonAction[, updateAction, searchAction, filterAction])

Added an description & features of the System at the top of the code comment
Added TasButtonListAddDataBatch & TasButtonListAddDataBatchEx to add a moderate amount of data to a List. This has limits my all units demo had to much entries for it. But it works for 100.

Deleted member 247165 · Dec 4, 2021

Nice work

KitsuneTailsPrower · Dec 22, 2021

Very nice system ( : I found a bug though. If you add data to a tasbuttonlist while a user has a value in the search box it shows glitchy buttons even with a call to UpdateTasButtonList()

Tasyen · Dec 24, 2021

KitsuneTailsPrower said:
Very nice system ( : I found a bug though. If you add data to a tasbuttonlist while a user has a value in the search box it shows glitchy buttons even with a call to UpdateTasButtonList()

Thanks for your report, I was able to reproduce the bug I'll look further into it and fix it, but not right now, probably after Christmas.
(this bug does not happen in the Lua version)

Edit: You could cover the bug from your side by using call TasButtonListSearch(udg_tasindex, null) instead of TasButtonListUpdate. Search takes more performance then update and update is contained in search.

Tasyen · Dec 26, 2021

Updated vjass version to 1.10c: fixed the reported bug about the wrong displayed data when new data was added while the user searched.
the searched found count was wrongly set to the total data count.

HandsOfficial · Dec 29, 2021

This is literally built for a runescape map...T_T
someone...please...</3

KitsuneTailsPrower · Sep 24, 2022

Are right clicks broken in 1.33 or is it just me?

Tasyen · Sep 24, 2022

I have read in the hive discord that some frameevents stopped working in V1.33 (FRAMEEVENT_MOUSE_UP). The right click feature require it.

TasButtonList

Introduction

Features

How to Install

Lua

Jass

Examples

Changelog

TasButtonListV10c jass (Map)

TasButtonListV11 (Map)

Attachments

Deleted member 247165

Deleted member 247165

Attachments

Similar threads