如何检测DCollapsibleCategory的右键单击？ [GLua]

Question

[我相信Garry的Mod的DCollapsibleCategory源自Panel，所以我尝试创建一个自定义vgui元素，以便可以添加function PANEL:OnMousePressed(keyCode)，但这完全改变了它在记分板上的绘制方式。

这是自定义vgui元素的代码，也许我错过了一些东西：

local PANEL = {}

AccessorFunc(PANEL, "hiddenPanel", "HiddenPanel")

function PANEL:Init()
    self.dataPanel = vgui.Create("DCollapsibleCategory", self)
    self.dataPanel:SetExpanded(0)
    self.dataPanel:SetLabel('')
    self.dataPanel:GetChildren()[1]:SetTall(45)
    self.dataPanel.Paint = function(pnl, w, h)
        draw.RoundedBox(0, 0, 0, w, h, Advocate_Scoreboard.Colors.BASE_HEADER)
    end

    self.hiddenList = vgui.Create("DPanelList", self.dataPanel)
    self.hiddenList:SetSpacing(1)
    self.dataPanel:SetContents(self.hiddenList)

    self.hiddenPanel = vgui.Create("DPanel", self.hiddenList)
    self.hiddenList:AddItem(self.hiddenPanel)
    self.hiddenPanel.Paint = function(pnl, w, h)
        draw.RoundedBox(0, 0, 0, w, h, Color(50, 50, 50))
    end
end

function PANEL:PerformLayout()
    self.dataPanel:SetSize(self:GetWide(), self:GetTall())
    self.dataPanel:GetChildren()[1]:SetTall(45)

    self.hiddenList:SetSize(self.dataPanel:GetWide(), self.dataPanel:GetTall())
    self.hiddenPanel:SetSize(self.hiddenList:GetWide(), 39)
end

function PANEL:OnMousePressed(keyCode)
    print(keyCode)
end

vgui.Register("Advocate_Scoreboard.Row", PANEL)

[DCollapsibleCategory不响应任何.DoClick函数-我不认为有任何方法是从Panel派生的。

Answer 1

[DCollapsibleCategory由标题行和内容组成。

标题does not implement OnMousePressed。

内容由您添加到其中的任何UI元素组成。如果您希望内容响应鼠标事件，则应覆盖这些单独元素的OnMousePressed。

如果您确实需要标题行中的这种功能，则可以将拉取请求提交到Garry的Mod存储库。

或替代：

1. 复制the code for the DCollapsibleCategory
2. 将DCategoryHeader重命名为DCategoryHeader2
3. 将DCollapsibleCategory重命名为DCollapsibleCategory2
4. 向标题PANEL表添加以下功能

local PANEL = {
    ...

    OnMousePressed = function(self, mcode)
        self.DoClick(self)
        self:GetParent():OnMousePressed(mcode)
    end,

    ...
}

derma.DefineControl( "DCategoryHeader2", "Category Header", PANEL, "DButton" )

现在您可以检测到标题上的鼠标单击

local DCollapsible = vgui.Create( "DCollapsibleCategory2", frame )
DCollapsible:SetLabel( "Collapsible Category" )
DCollapsible:SetPos( 25, 50 )
DCollapsible:SetSize( 250, 100 )
DCollapsible:SetExpanded( false )
function DCollapsible:OnMousePressed(keyCode)
    chat.AddText("DCollapsible Key pressed- " .. tostring(keyCode))
end

Full code snippet