Upload

lua/vgui/dlistview_column.lua

@@ -0,0 +1,170 @@
+--[[
+| 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 = {}
+
+Derma_Hook( PANEL, "Paint", "Paint", "ListViewHeaderLabel" )
+Derma_Hook( PANEL, "ApplySchemeSettings", "Scheme", "ListViewHeaderLabel" )
+Derma_Hook( PANEL, "PerformLayout", "Layout", "ListViewHeaderLabel" )
+
+function PANEL:Init()
+end
+
+-- No example for this control. Why do we have this control?
+function PANEL:GenerateExample( class, tabs, w, h )
+end
+
+derma.DefineControl( "DListViewHeaderLabel", "", PANEL, "DLabel" )
+
+--[[---------------------------------------------------------
+	DListView_DraggerBar
+-----------------------------------------------------------]]
+
+local PANEL = {}
+
+function PANEL:Init()
+
+	self:SetCursor( "sizewe" )
+
+end
+
+function PANEL:Paint()
+
+	return true
+
+end
+
+function PANEL:OnCursorMoved()
+
+	if ( self.Depressed ) then
+
+		local x, y = self:GetParent():CursorPos()
+
+		self:GetParent():ResizeColumn( x )
+	end
+
+end
+
+-- No example for this control
+function PANEL:GenerateExample( class, tabs, w, h )
+end
+
+derma.DefineControl( "DListView_DraggerBar", "", PANEL, "DButton" )
+
+--[[---------------------------------------------------------
+	DListView_Column
+-----------------------------------------------------------]]
+
+local PANEL = {}
+
+AccessorFunc( PANEL, "m_iMinWidth", "MinWidth" )
+AccessorFunc( PANEL, "m_iMaxWidth", "MaxWidth" )
+
+AccessorFunc( PANEL, "m_iTextAlign", "TextAlign" )
+
+AccessorFunc( PANEL, "m_bFixedWidth", "FixedWidth" )
+AccessorFunc( PANEL, "m_bDesc", "Descending" )
+AccessorFunc( PANEL, "m_iColumnID", "ColumnID" )
+
+Derma_Hook( PANEL, "Paint", "Paint", "ListViewColumn" )
+Derma_Hook( PANEL, "ApplySchemeSettings", "Scheme", "ListViewColumn" )
+Derma_Hook( PANEL, "PerformLayout", "Layout", "ListViewColumn" )
+
+function PANEL:Init()
+
+	self.Header = vgui.Create( "DButton", self )
+	self.Header.DoClick = function() self:DoClick() end
+	self.Header.DoRightClick = function() self:DoRightClick() end
+
+	self.DraggerBar = vgui.Create( "DListView_DraggerBar", self )
+
+	self:SetMinWidth( 10 )
+	self:SetMaxWidth( 19200 )
+
+end
+
+function PANEL:SetFixedWidth( iSize )
+
+	self:SetMinWidth( iSize )
+	self:SetMaxWidth( iSize )
+	self:SetWide( iSize )
+
+end
+
+function PANEL:DoClick()
+
+	self:GetParent():SortByColumn( self:GetColumnID(), self:GetDescending() )
+	self:SetDescending( !self:GetDescending() )
+
+end
+
+function PANEL:DoRightClick()
+
+end
+
+function PANEL:SetName( strName )
+
+	self.Header:SetText( strName )
+
+end
+
+function PANEL:Paint()
+	return true
+end
+
+function PANEL:PerformLayout()
+
+	if ( self:GetTextAlign() ) then
+		self.Header:SetContentAlignment( self:GetTextAlign() )
+	end
+
+	self.Header:SetPos( 0, 0 )
+	self.Header:SetSize( self:GetWide(), self:GetParent():GetHeaderHeight() )
+
+	self.DraggerBar:SetWide( 4 )
+	self.DraggerBar:StretchToParent( nil, 0, nil, 0 )
+	self.DraggerBar:AlignRight()
+
+end
+
+function PANEL:ResizeColumn( iSize )
+
+	self:GetParent():OnRequestResize( self, iSize )
+
+end
+
+function PANEL:SetWidth( iSize )
+
+	iSize = math.Clamp( iSize, self:GetMinWidth(), math.max( self:GetMaxWidth(), 0 ) )
+	iSize = math.ceil( iSize )
+
+	-- If the column changes size we need to lay the data out too
+	if ( iSize != math.ceil( self:GetWide() ) ) then
+		self:GetParent():SetDirty( true )
+	end
+
+	self:SetWide( iSize )
+	return iSize
+
+end
+
+derma.DefineControl( "DListView_Column", "Sortable DListView Column", PANEL, "Panel" )
+
+--[[---------------------------------------------------------
+	DListView_ColumnPlain
+-----------------------------------------------------------]]
+
+local PANEL = {}
+
+function PANEL:DoClick()
+end
+
+derma.DefineControl( "DListView_ColumnPlain", "Non sortable DListView Column", PANEL, "DListView_Column" )