TasButtonList

[Kain88]

Come on GUI or Jass version=)

 

[imek]

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]

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]

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.

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:

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]

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.

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:

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]

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]

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

Regardless, this seems neat as usual. +rep

 

[imek]

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

 

[imek]

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]

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]

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

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

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]

A very useful and flexible system

 

[MyPad]

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]

Well, I don't get the problem.

 

[MyPad]

Spoiler: thumbnails

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]

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

 

[Tasyen]

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]

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]

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]

Can this be used as an ability list?

 

[Tasyen]

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

 

[MyPad]

This can be very useful for mappers.

Approved

 

[Pwnica]

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

 

[Tasyen]

Hey Tasyen you are amazing..

I trained for a long time.

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]

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]

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

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

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

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]

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

Like the picture..

 

[Tasyen]

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]

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]

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]

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]

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,

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]

Nice work

 

[KitsuneTailsPrower]

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]

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]

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]

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

 

[KitsuneTailsPrower]

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

 

[Tasyen]

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

 

[Tasyen]

Updated Lua version to V12)
uses TasFrameAction
can now use code generated buttons inside tasbuttonlist with the new creator function

function CreateTasButtonListEx2(buttonName, cols, rows[, colGap, rowGap, parent, createAction])
    buttonName can be a string or a function, called for every button you wana create should return the interactive button
      string -> fdf frameplueprint
      function(buttonFrameObject, parent, index)) 
    createAction function(frameObject, int, buttonCreated) use this to fill frameObject with the subFrames mostly for fdf also runs after the tooltips were created
    returns the TasButtonList

TasButtonList actions
    object.ButtonAction = function(data, buttonListObject, dataIndex, player) end
    object.RightClickAction = function(data, buttonListObject, dataIndex, player) end
    object.UpdateAction = function(frameObject, data) end
    object.SearchAction = function(data, searchedText, buttonListObject) return true end
    object.FilterAction = function(data, buttonListObject, isTextSearching) return true end
    object.AsyncButtonAction = function(buttonListObject, data, frame) end
    object.AsyncRightClickAction = function(buttonListObject, data, frame) end

The new example that creates the button inside code. This demo places the Icon at the expected key of the default update function so no custom update function is needed.

do
    local realFunc = MarkGameStarted
    local function CreateButton(frameObject, parent, index)
        local buttonFrame = BlzCreateFrameByType("GLUEBUTTON", "FaceButton", parent, "", 0)
        local buttonIconFrame = BlzCreateFrameByType("BACKDROP", "FaceButtonIcon", buttonFrame, "", 0)
        BlzFrameSetAllPoints(buttonIconFrame, buttonFrame)
        BlzFrameSetSize(buttonFrame, 0.05, 0.05)
        frameObject.Icon = buttonIconFrame
        return buttonFrame
    end
    local realFunc = MarkGameStarted
    function MarkGameStarted()
    realFunc()
    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)
    BlzFrameSetSize(frame, 0.23, 0.001)
    BlzFrameSetAbsPoint(frame, FRAMEPOINT_TOP, 0.6, 0.5)
    -- create a new ButtonList with 8 Rows, frame is the parent and define the action when clicking the Button
    local object = CreateTasButtonListEx2(CreateButton, 3, 2, 0.003, 0.003, frame)
    object.ButtonAction = function(data, buttonListObject, dataIndex, player)
        CreateUnit(player, data, GetPlayerStartLocationX(player), GetPlayerStartLocationY(player), 0)
    end


    --[[ possible actions
    object.ButtonAction = function(data, buttonListObject, dataIndex, player) end
    object.RightClickAction = function(data, buttonListObject, dataIndex, player) end
    object.UpdateAction = function(frameObject, data) end
    object.SearchAction = function(data, searchedText, buttonListObject) return true end
    object.FilterAction = function(data, buttonListObject, isTextSearching) return true end
    object.AsyncButtonAction = function(buttonListObject, data, frame) end
    object.AsyncRightClickAction = function(buttonListObject, data, frame) end
    --]]
   --[[ object.UpdateAction = function(frameObject, data)
        print("my update",data, frameObject.Index)
        print(GetHandleId(frameObject.Icon))
        BlzFrameSetTexture(frameObject.Icon, BlzGetAbilityIcon(data), 0, false)
        BlzFrameSetTexture(frameObject.ToolTipFrameIcon, BlzGetAbilityIcon(data), 0, false)
        BlzFrameSetText(frameObject.ToolTipFrameName, GetObjectName(data))      
    --        frameObject.ToolTipFrameSeperator
        BlzFrameSetText(frameObject.ToolTipFrameText, BlzGetAbilityExtendedTooltip(data, 0))
    end
    ]]

    -- add various data
    TasButtonListAddData(object, "Hpal")
    TasButtonListAddData(object, "Hblm")
    TasButtonListAddData(object, "hfoo")
    TasButtonListAddData(object, "hkni")
    TasButtonListAddData(object, "hdhw")
    TasButtonListAddData(object, "hmpr")
    TasButtonListAddData(object, "hsor")
    TasButtonListAddData(object, "hrif")
    TasButtonListAddData(object, "Ofar")
    TasButtonListAddData(object, "ogru")
    TasButtonListAddData(object, "orai")
    -- force an update
--    UpdateTasButtonList(object)
    BlzFrameSetValue(object.Slider, 999999)

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

 

[Tasyen]

Updated Lua version to V13)
Added a suggested feature: one can now add a row to a TasButonList with one function call. when one calls it multiple times one get more rows.

function TasButtonListAddRow(buttonListObject[, buttonName, createAction])
--    add one more row to buttonListObject, reuses name & createAction used in CreateTasButtonList when not provided.    
--    you should use TasButtonListSearch(buttonListObject) afterwards.

 

[Tasyen]

Updated Lua version to V14)
added 2 hidden Frames to manage positions better. TasButtonListObject.Head & TasButtonListObject.TotalFrame
The buttons are now relative to the Head's bottom.
TotalFrame coverts the whole space the buttonList Takes.
added more api docs

 

[Tasyen]

Updated Lua version to V15)
It is now possible to change the Tooltip creator function without changing tasbuttonlist code.

added TasButtonList.TooltipCreator, only one for the System.
Change the function when you want custom Tooltips/Rules. Before creating the tasbuttonList change the function pointed at, afterwards you can restore it.

Your Custom function should fit the used updateAction. Maybe make a copy of the included demo Tooltip create function CreateTasButtonTooltip

TasButtonList.TooltipCreator = function CreateTasButtonTooltip(frameObject, parent[, button]) -- is used to create the tooltip

TasButtonList.TooltipCreator = YourTooltipCreatorFunction
Reset
TasButtonList.TooltipCreator = CreateTasButtonTooltip

function CreateTasButtonTooltip(frameObject, parent, button)
    if not button then button = frameObject.Button end
    -- create an empty FRAME parent for the box BACKDROP, otherwise it can happen that it gets limited to the 4:3 Screen.
    frameObject.ToolTipFrameFrame = BlzCreateFrame("TasButtonListTooltipBoxFrame", button, 0, 0)
    if GetHandleId(frameObject.ToolTipFrameFrame) == 0 then print("Error function CreateTasButtonTooltip Creating TasButtonListTooltipBoxFrame") end
    frameObject.ToolTipFrame = BlzGetFrameByName("TasButtonListTooltipBox", 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_TOPRIGHT, parent, FRAMEPOINT_TOPLEFT, -0.001, -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(button, frameObject.ToolTipFrameFrame)
end