mirror of
https://github.com/lifestorm/wnsrc.git
synced 2025-12-16 13:23:46 +03:00
120 lines
2.5 KiB
Lua
120 lines
2.5 KiB
Lua
--[[
|
|
| This file was obtained through the combined efforts
|
|
| of Madbluntz & Plymouth Antiquarian Society.
|
|
|
|
|
| Credits: lifestorm, Gregory Wayne Rossel JR.,
|
|
| Maloy, DrPepper10 @ RIP, Atle!
|
|
|
|
|
| Visit for more: https://plymouth.thetwilightzone.ru/
|
|
--]]
|
|
|
|
|
|
local PANEL = {}
|
|
|
|
AccessorFunc( PANEL, "m_bBackground", "PaintBackground", FORCE_BOOL )
|
|
AccessorFunc( PANEL, "m_bBackground", "DrawBackground", FORCE_BOOL ) -- deprecated
|
|
AccessorFunc( PANEL, "m_bIsMenuComponent", "IsMenu", FORCE_BOOL )
|
|
|
|
Derma_Hook( PANEL, "Paint", "Paint", "MenuBar" )
|
|
|
|
function PANEL:Init()
|
|
|
|
self:Dock( TOP )
|
|
self:SetTall( 24 )
|
|
|
|
self.Menus = {}
|
|
|
|
end
|
|
|
|
function PANEL:GetOpenMenu()
|
|
|
|
for k, v in pairs( self.Menus ) do
|
|
if ( v:IsVisible() ) then return v end
|
|
end
|
|
|
|
return nil
|
|
|
|
end
|
|
|
|
function PANEL:AddOrGetMenu( label )
|
|
|
|
if ( self.Menus[ label ] ) then return self.Menus[ label ] end
|
|
return self:AddMenu( label )
|
|
|
|
end
|
|
|
|
function PANEL:AddMenu( label )
|
|
|
|
local m = DermaMenu()
|
|
m:SetDeleteSelf( false )
|
|
m:SetDrawColumn( true )
|
|
m:Hide()
|
|
self.Menus[ label ] = m
|
|
|
|
local b = self:Add( "DButton" )
|
|
b:SetText( label )
|
|
b:Dock( LEFT )
|
|
b:DockMargin( 5, 0, 0, 0 )
|
|
b:SetIsMenu( true )
|
|
b:SetPaintBackground( false )
|
|
b:SizeToContentsX( 16 )
|
|
b.DoClick = function()
|
|
|
|
if ( m:IsVisible() ) then
|
|
m:Hide()
|
|
return
|
|
end
|
|
|
|
local x, y = b:LocalToScreen( 0, 0 )
|
|
m:Open( x, y + b:GetTall(), false, b )
|
|
|
|
end
|
|
|
|
b.OnCursorEntered = function()
|
|
local opened = self:GetOpenMenu()
|
|
if ( !IsValid( opened ) || opened == m ) then return end
|
|
opened:Hide()
|
|
b:DoClick()
|
|
end
|
|
|
|
return m
|
|
|
|
end
|
|
|
|
function PANEL:OnRemove()
|
|
|
|
for id, pnl in pairs( self.Menus ) do
|
|
pnl:Remove()
|
|
end
|
|
|
|
end
|
|
|
|
function PANEL:GenerateExample( ClassName, PropertySheet, Width, Height )
|
|
|
|
local pnl = vgui.Create( "Panel" )
|
|
pnl:Dock( FILL )
|
|
pnl:DockMargin( 2, 22, 2, 2 )
|
|
|
|
local ctrl = pnl:Add( ClassName )
|
|
local m = ctrl:AddMenu( "File" )
|
|
m:AddOption( "New", function() MsgN( "Chose New" ) end )
|
|
m:AddOption( "File", function() MsgN( "Chose File" ) end )
|
|
m:AddOption( "Exit", function() MsgN( "Chose Exit" ) end )
|
|
|
|
local m2 = ctrl:AddMenu( "Edit" )
|
|
m2:AddOption( "Copy", function() MsgN( "Chose Copy" ) end )
|
|
m2:AddOption( "Paste", function() MsgN( "Chose Paste" ) end )
|
|
m2:AddOption( "Blah", function() MsgN( "Chose Blah" ) end )
|
|
|
|
local sub = m:AddSubMenu( "Sub Menu" )
|
|
sub:SetDeleteSelf( false )
|
|
for i = 0, 5 do
|
|
sub:AddOption( "Option " .. i, function() MsgN( "Chose sub menu option " .. i ) end )
|
|
end
|
|
|
|
PropertySheet:AddSheet( ClassName, pnl, nil, true, true )
|
|
|
|
end
|
|
|
|
derma.DefineControl( "DMenuBar", "", PANEL, "DPanel" )
|