Adding a ScrollFrame to a CharacterFrame tab

[AeroMaxxD]

On another note I also asked about how to add a tab to the character frame on the official Blizzard forums, someone there responded with the code below.

This is what gave me the idea of a scroll frame, initially, I dismissed it however, and was still going to go with the next and previous buttons, I've since changed my mind.

local TabName = "MyNewTab";
 
local TabID = CharacterFrame.numTabs + 1;
local Tab = CreateFrame("Button", "$parentTab"..TabID, CharacterFrame, "CharacterFrameTabTemplate", TabID);
PanelTemplates_SetNumTabs(CharacterFrame, TabID);
Tab:SetPoint("LEFT", "$parentTab" .. (TabID-1), "RIGHT", -16, 0);
Tab:SetText(TabName);
 
local Panel = CreateFrame("Frame", nil, CharacterFrame);
Panel:SetAllPoints(CharacterFrame);
 
Panel.ScrollBox = CreateFrame("ScrollFrame", nil, Panel, "UIPanelScrollFrameTemplate")
Panel.ScrollBox:SetPoint("TOPLEFT", Panel, "TOPLEFT", 10, -64) --Left / Up
Panel.ScrollBox:SetPoint("BOTTOMRIGHT", Panel, "BOTTOMRIGHT", -30, 10) --Right / Down
 
Panel.Content = CreateFrame("Frame", nil, Panel)
Panel.Content:SetPoint("CENTER", 0, -25)
Panel.Content:SetSize(305, 351) -- Width / Height 
Panel.Content.Background = Panel.Content:CreateTexture(nil, "OVERLAY")
Panel.Content.Background:SetColorTexture(math.random(), math.random(), math.random(), 0.2)
Panel.Content.Background:SetAllPoints()
 
Tab:SetScript("OnClick", function(self, arg1)
    PanelTemplates_SetTab(CharacterFrame, TabID)
    if _G["HonorFrame"] ~= nil then
        _G["HonorFrame"]:Hide()
    end
    if _G["PaperDollFrame"] ~= nil then
        _G["PaperDollFrame"]:Hide()
    end
    if _G["PetPaperDollFrame"] ~= nil then
        _G["PetPaperDollFrame"]:Hide()
    end
    if _G["HonorFrame"] ~= nil then
        _G["HonorFrame"]:Hide()
    end
    if _G["SkillFrame"] ~= nil then
        _G["SkillFrame"]:Hide()
    end
    if _G["ReputationFrame"] ~= nil then
        _G["ReputationFrame"]:Hide()
    end
    if _G["TokenFrame"] ~= nil then
        _G["TokenFrame"]:Hide()
    end
    Panel:Show()
    Panel.ScrollBox:SetScrollChild(Panel.Content)
end)
 
hooksecurefunc("ToggleCharacter", function(tab, onlyShow)
    if Panel:IsShown() then
        Panel:Hide()
    end
end)
 
local Header = Panel.Content:CreateFontString()
Header:SetFont("Fonts\\FRIZQT__.TTF", 35, "GameFontHighlightSmall")
Header:SetPoint("TOP", 0, -10)
Header:SetTextColor(0, 1, 0, 1)
Header:SetText(TabName)
 
-- This is what extends the ScrollBox, it will auto extend as you position thing further down
local EndOfScrollFrame = Panel.Content:CreateFontString()
EndOfScrollFrame:SetFont("Fonts\\FRIZQT__.TTF", 20, "GameFontHighlightSmall")
EndOfScrollFrame:SetPoint("TOP", 0, -1000)
EndOfScrollFrame:SetTextColor(1, 0, 0, 1)
EndOfScrollFrame:SetText("End of ScrollFrame")