mirror of
https://github.com/lifestorm/wnsrc.git
synced 2025-12-17 05:43:46 +03:00
Upload
This commit is contained in:
lifestorm
321
lua/vgui/dmenu.lua
Normal file
321
lua/vgui/dmenu.lua
Normal file
@@ -0,0 +1,321 @@
|
||||
--[[
|
||||
| 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_bBorder", "DrawBorder" )
|
||||
AccessorFunc( PANEL, "m_bDeleteSelf", "DeleteSelf" )
|
||||
AccessorFunc( PANEL, "m_iMinimumWidth", "MinimumWidth" )
|
||||
AccessorFunc( PANEL, "m_bDrawColumn", "DrawColumn" )
|
||||
AccessorFunc( PANEL, "m_iMaxHeight", "MaxHeight" )
|
||||
|
||||
AccessorFunc( PANEL, "m_pOpenSubMenu", "OpenSubMenu" )
|
||||
|
||||
function PANEL:Init()
|
||||
|
||||
self:SetIsMenu( true )
|
||||
self:SetDrawBorder( true )
|
||||
self:SetPaintBackground( true )
|
||||
self:SetMinimumWidth( 100 )
|
||||
self:SetDrawOnTop( true )
|
||||
self:SetMaxHeight( ScrH() * 0.9 )
|
||||
self:SetDeleteSelf( true )
|
||||
|
||||
self:SetPadding( 0 )
|
||||
|
||||
-- Automatically remove this panel when menus are to be closed
|
||||
RegisterDermaMenuForClose( self )
|
||||
|
||||
end
|
||||
|
||||
function PANEL:AddPanel( pnl )
|
||||
|
||||
self:AddItem( pnl )
|
||||
pnl.ParentMenu = self
|
||||
|
||||
end
|
||||
|
||||
function PANEL:AddOption( strText, funcFunction )
|
||||
|
||||
local pnl = vgui.Create( "DMenuOption", self )
|
||||
pnl:SetMenu( self )
|
||||
pnl:SetText( strText )
|
||||
if ( funcFunction ) then pnl.DoClick = funcFunction end
|
||||
|
||||
self:AddPanel( pnl )
|
||||
|
||||
return pnl
|
||||
|
||||
end
|
||||
|
||||
function PANEL:AddCVar( strText, convar, on, off, funcFunction )
|
||||
|
||||
local pnl = vgui.Create( "DMenuOptionCVar", self )
|
||||
pnl:SetMenu( self )
|
||||
pnl:SetText( strText )
|
||||
if ( funcFunction ) then pnl.DoClick = funcFunction end
|
||||
|
||||
pnl:SetConVar( convar )
|
||||
pnl:SetValueOn( on )
|
||||
pnl:SetValueOff( off )
|
||||
|
||||
self:AddPanel( pnl )
|
||||
|
||||
return pnl
|
||||
|
||||
end
|
||||
|
||||
function PANEL:AddSpacer()
|
||||
|
||||
local pnl = vgui.Create( "DPanel", self )
|
||||
pnl.Paint = function( p, w, h )
|
||||
derma.SkinHook( "Paint", "MenuSpacer", p, w, h )
|
||||
end
|
||||
|
||||
pnl:SetTall( 1 )
|
||||
self:AddPanel( pnl )
|
||||
|
||||
return pnl
|
||||
|
||||
end
|
||||
|
||||
function PANEL:AddSubMenu( strText, funcFunction )
|
||||
|
||||
local pnl = vgui.Create( "DMenuOption", self )
|
||||
local SubMenu = pnl:AddSubMenu()
|
||||
|
||||
pnl:SetText( strText )
|
||||
if ( funcFunction ) then pnl.DoClick = funcFunction end
|
||||
|
||||
self:AddPanel( pnl )
|
||||
|
||||
return SubMenu, pnl
|
||||
|
||||
end
|
||||
|
||||
function PANEL:Hide()
|
||||
|
||||
local openmenu = self:GetOpenSubMenu()
|
||||
if ( openmenu ) then
|
||||
openmenu:Hide()
|
||||
end
|
||||
|
||||
self:SetVisible( false )
|
||||
self:SetOpenSubMenu( nil )
|
||||
|
||||
end
|
||||
|
||||
function PANEL:OpenSubMenu( item, menu )
|
||||
|
||||
-- Do we already have a menu open?
|
||||
local openmenu = self:GetOpenSubMenu()
|
||||
if ( IsValid( openmenu ) && openmenu:IsVisible() ) then
|
||||
|
||||
-- Don't open it again!
|
||||
if ( menu && openmenu == menu ) then return end
|
||||
|
||||
-- Close it!
|
||||
self:CloseSubMenu( openmenu )
|
||||
|
||||
end
|
||||
|
||||
if ( !IsValid( menu ) ) then return end
|
||||
|
||||
local x, y = item:LocalToScreen( self:GetWide(), 0 )
|
||||
menu:Open( x - 3, y, false, item )
|
||||
|
||||
self:SetOpenSubMenu( menu )
|
||||
|
||||
end
|
||||
|
||||
function PANEL:CloseSubMenu( menu )
|
||||
|
||||
menu:Hide()
|
||||
self:SetOpenSubMenu( nil )
|
||||
|
||||
end
|
||||
|
||||
function PANEL:Paint( w, h )
|
||||
|
||||
if ( !self:GetPaintBackground() ) then return end
|
||||
|
||||
derma.SkinHook( "Paint", "Menu", self, w, h )
|
||||
return true
|
||||
|
||||
end
|
||||
|
||||
function PANEL:ChildCount()
|
||||
return #self:GetCanvas():GetChildren()
|
||||
end
|
||||
|
||||
function PANEL:GetChild( num )
|
||||
return self:GetCanvas():GetChildren()[ num ]
|
||||
end
|
||||
|
||||
function PANEL:PerformLayout( w, h )
|
||||
|
||||
local minW = self:GetMinimumWidth()
|
||||
|
||||
-- Find the widest one
|
||||
for k, pnl in ipairs( self:GetCanvas():GetChildren() ) do
|
||||
|
||||
pnl:InvalidateLayout( true )
|
||||
minW = math.max( minW, pnl:GetWide() )
|
||||
|
||||
end
|
||||
|
||||
self:SetWide( minW )
|
||||
|
||||
local y = 0 -- for padding
|
||||
|
||||
for k, pnl in ipairs( self:GetCanvas():GetChildren() ) do
|
||||
|
||||
pnl:SetWide( minW )
|
||||
pnl:SetPos( 0, y )
|
||||
pnl:InvalidateLayout( true )
|
||||
|
||||
y = y + pnl:GetTall()
|
||||
|
||||
end
|
||||
|
||||
y = math.min( y, self:GetMaxHeight() )
|
||||
|
||||
self:SetTall( y )
|
||||
|
||||
derma.SkinHook( "Layout", "Menu", self )
|
||||
|
||||
DScrollPanel.PerformLayout( self, minW, h )
|
||||
|
||||
end
|
||||
|
||||
--[[---------------------------------------------------------
|
||||
Open - Opens the menu.
|
||||
x and y are optional, if they're not provided the menu
|
||||
will appear at the cursor.
|
||||
-----------------------------------------------------------]]
|
||||
function PANEL:Open( x, y, skipanimation, ownerpanel )
|
||||
|
||||
RegisterDermaMenuForClose( self )
|
||||
|
||||
local maunal = x && y
|
||||
|
||||
x = x or gui.MouseX()
|
||||
y = y or gui.MouseY()
|
||||
|
||||
local OwnerHeight = 0
|
||||
local OwnerWidth = 0
|
||||
|
||||
if ( ownerpanel ) then
|
||||
OwnerWidth, OwnerHeight = ownerpanel:GetSize()
|
||||
end
|
||||
|
||||
self:InvalidateLayout( true )
|
||||
|
||||
local w = self:GetWide()
|
||||
local h = self:GetTall()
|
||||
|
||||
self:SetSize( w, h )
|
||||
|
||||
if ( y + h > ScrH() ) then y = ( ( maunal && ScrH() ) or ( y + OwnerHeight ) ) - h end
|
||||
if ( x + w > ScrW() ) then x = ( ( maunal && ScrW() ) or x ) - w end
|
||||
if ( y < 1 ) then y = 1 end
|
||||
if ( x < 1 ) then x = 1 end
|
||||
|
||||
local p = self:GetParent()
|
||||
if ( IsValid( p ) && p:IsModal() ) then
|
||||
-- Can't popup while we are parented to a modal panel
|
||||
-- We will end up behind the modal panel in that case
|
||||
|
||||
x, y = p:ScreenToLocal( x, y )
|
||||
|
||||
-- We have to reclamp the values
|
||||
if ( y + h > p:GetTall() ) then y = p:GetTall() - h end
|
||||
if ( x + w > p:GetWide() ) then x = p:GetWide() - w end
|
||||
if ( y < 1 ) then y = 1 end
|
||||
if ( x < 1 ) then x = 1 end
|
||||
|
||||
self:SetPos( x, y )
|
||||
else
|
||||
self:SetPos( x, y )
|
||||
|
||||
-- Popup!
|
||||
self:MakePopup()
|
||||
end
|
||||
|
||||
-- Make sure it's visible!
|
||||
self:SetVisible( true )
|
||||
|
||||
-- Keep the mouse active while the menu is visible.
|
||||
self:SetKeyboardInputEnabled( false )
|
||||
|
||||
end
|
||||
|
||||
--
|
||||
-- Called by DMenuOption
|
||||
--
|
||||
function PANEL:OptionSelectedInternal( option )
|
||||
|
||||
self:OptionSelected( option, option:GetText() )
|
||||
|
||||
end
|
||||
|
||||
function PANEL:OptionSelected( option, text )
|
||||
|
||||
-- For override
|
||||
|
||||
end
|
||||
|
||||
function PANEL:ClearHighlights()
|
||||
|
||||
for k, pnl in ipairs( self:GetCanvas():GetChildren() ) do
|
||||
pnl.Highlight = nil
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
function PANEL:HighlightItem( item )
|
||||
|
||||
for k, pnl in ipairs( self:GetCanvas():GetChildren() ) do
|
||||
if ( pnl == item ) then
|
||||
pnl.Highlight = true
|
||||
end
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
function PANEL:GenerateExample( ClassName, PropertySheet, Width, Height )
|
||||
|
||||
local MenuItemSelected = function()
|
||||
Derma_Message( "Choosing a menu item worked!" )
|
||||
end
|
||||
|
||||
local ctrl = vgui.Create( "Button" )
|
||||
ctrl:SetText( "Test Me!" )
|
||||
ctrl.DoClick = function()
|
||||
local menu = DermaMenu()
|
||||
|
||||
menu:AddOption( "Option One", MenuItemSelected )
|
||||
menu:AddOption( "Option 2", MenuItemSelected )
|
||||
|
||||
local submenu = menu:AddSubMenu( "Option Free" )
|
||||
submenu:AddOption( "Submenu 1", MenuItemSelected )
|
||||
submenu:AddOption( "Submenu 2", MenuItemSelected )
|
||||
|
||||
menu:AddOption( "Option For", MenuItemSelected )
|
||||
|
||||
menu:Open()
|
||||
end
|
||||
|
||||
PropertySheet:AddSheet( ClassName, ctrl, nil, true, true )
|
||||
|
||||
end
|
||||
|
||||
derma.DefineControl( "DMenu", "A Menu", PANEL, "DScrollPanel" )
|
||||
Reference in New Issue
Block a user