Upload

lua/vgui/prop_rgbcolor.lua

@@ -0,0 +1,103 @@
+--[[
+| 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/
+--]]
+
+
+DEFINE_BASECLASS( "DProperty_Generic" )
+
+local PANEL = {}
+
+function PANEL:Init()
+end
+
+function PANEL:ValueChanged( newval, bForce )
+
+	BaseClass.ValueChanged( self, newval, bForce )
+
+	self.VectorValue = Vector( newval )
+
+end
+
+function PANEL:Setup( vars )
+
+	vars = vars or {}
+
+	self:Clear()
+
+	local text = self:Add( "DTextEntry" )
+	if ( not vars.waitforenter ) then text:SetUpdateOnType( true ) end
+	text:SetDrawBackground( false )
+	text:Dock( FILL )
+
+	self.IsEditing = function( self )
+
+		return text:IsEditing()
+
+	end
+
+	text.OnValueChange = function( text, newval )
+
+		self:ValueChanged( newval )
+
+	end
+
+	local btn = self:Add( "DButton" )
+	btn:Dock( LEFT )
+	btn:DockMargin( 0, 2, 4, 2 )
+	btn:SetWide( 20 - 4 )
+	btn:SetText( "" )
+
+	btn.Paint = function( btn, w, h )
+
+		local veccol = self.VectorValue
+
+		if ( veccol ) then
+
+			surface.SetDrawColor( veccol.r, veccol.g, veccol.b, 255 )
+			surface.DrawRect( 2, 2, w - 4, h - 4 )
+
+		end
+
+		surface.SetDrawColor( 0, 0, 0, 150 )
+		surface.DrawOutlinedRect( 0, 0, w, h )
+
+	end
+
+	btn.DoClick = function()
+
+		local color = vgui.Create( "DColorCombo", self )
+		color:SetupCloseButton( function() CloseDermaMenus() end )
+
+		color.OnValueChanged = function( color, newcol )
+
+			self:ValueChanged( tostring( newcol.r ).." "..tostring( newcol.g ).." "..tostring( newcol.b ), true )
+
+		end
+
+		local veccol = self.VectorValue
+
+		color:SetColor( Color( veccol.r, veccol.g, veccol.b, 255 ) )
+
+		local menu = DermaMenu()
+			menu:AddPanel( color )
+			menu:SetDrawBackground( false )
+		menu:Open( gui.MouseX() + 8, gui.MouseY() + 10 )
+
+	end
+
+	self.SetValue = function( self, val )
+
+		text:SetText( tostring( math.Round( val.r ) ).." "..tostring( math.Round( val.g ) ).." "..tostring( math.Round( val.b ) ) )
+		self.VectorValue = val
+
+	end
+
+end
+
+derma.DefineControl( "DProperty_RGBColor", "", PANEL, "DProperty_Generic" )