Upload

2025-12-17 21:53:46 +03:00 · 2024-08-04 23:12:27 +03:00
parent 0e770b2b49
commit ba1fc01b16
7084 changed files with 2173495 additions and 14 deletions
--- a/gamemodes/ixhl2rp/schema/derma/cl_derma_select.lua
+++ b/gamemodes/ixhl2rp/schema/derma/cl_derma_select.lua
@@ -0,0 +1,113 @@
+--[[
+| 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/
+--]]
+
+
+--luacheck: ignore global Derma_Select
+function Derma_Select(text, title, list, defaultText, confirmText, confirmCallback, cancelText, cancelCallback)
+	local panel = vgui.Create("DFrame")
+	panel:SetTitle(title or "Selection Title")
+	panel:SetDraggable(false)
+	panel:ShowCloseButton(false)
+	panel:SetDrawOnTop(true)
+	DFrameFixer(panel)
+
+	local innerPanel = vgui.Create("DPanel", panel)
+	innerPanel:SetPaintBackground(false)
+
+	local textPanel = vgui.Create("DLabel", innerPanel)
+	textPanel:SetText(text or "Selection Text")
+	textPanel:SetFont("MenuFontNoClamp")
+	textPanel:SizeToContents()
+	textPanel:SetContentAlignment(5)
+	textPanel:SetTextColor(color_white)
+
+	local buttonPanel = vgui.Create("DPanel", panel)
+	buttonPanel:SetTall(SScaleMin(30 / 3))
+	buttonPanel:SetPaintBackground(false)
+
+	local button = vgui.Create("DButton", buttonPanel)
+	button:SetText(confirmText or "OK")
+	button:SetFont("MenuFontNoClamp")
+	button:SizeToContents()
+	button:SetTall(SScaleMin(25 / 3))
+	button:SetWide(button:GetWide() + SScaleMin(20 / 3))
+	button:SetPos(SScaleMin(5 / 3), SScaleMin(5 / 3))
+	button:SetDisabled(true)
+	button:SetTextColor(Color(255, 255, 255, 30))
+	button.DoClick = function()
+		local text1, value = panel.comboBox:GetSelected()
+		if (confirmCallback) then
+			confirmCallback(value, text1)
+		end
+		panel:Close()
+	end
+
+	local comboBox = vgui.Create("DComboBox", innerPanel)
+	comboBox:SetValue(defaultText)
+	comboBox:SetTall(SScaleMin(25 / 3))
+	comboBox:SetTextInset( SScaleMin(8 / 3), 0 )
+	comboBox:SetFont("MenuFontNoClamp")
+	comboBox.OnSelect = function()
+		panel.button:SetDisabled(false)
+		panel.button:SetTextColor(Color(255, 255, 255, 255))
+	end
+
+	comboBox.PerformLayout = function(self)
+		self.DropButton:SetSize( SScaleMin(15 / 3), SScaleMin(15 / 3))
+		self.DropButton:AlignRight( 4 )
+		self.DropButton:CenterVertical()
+
+		-- Make sure the text color is updated
+		DButton.PerformLayout( self, self:GetWide(), self:GetTall() )
+	end
+
+	for _, v in pairs(list) do
+		comboBox:AddChoice(v.text, v.value)
+	end
+
+	local buttonCancel = vgui.Create("DButton", buttonPanel)
+	buttonCancel:SetText(cancelText or "Cancel")
+	buttonCancel:SizeToContents()
+	buttonCancel:SetTall(SScaleMin(25 / 3))
+	buttonCancel:SetFont("MenuFontNoClamp")
+	buttonCancel:SetWide(button:GetWide() + SScaleMin(20 / 3))
+	buttonCancel:SetPos(SScaleMin(5 / 3), SScaleMin(5 / 3))
+	buttonCancel.DoClick = function()
+		local text1, value = panel.comboBox:GetSelected()
+		if (cancelCallback) then
+			cancelCallback(text1, value)
+		end
+		panel:Close()
+	end
+	buttonCancel:MoveRightOf(button, SScaleMin(5 / 3))
+
+	buttonPanel:SetWide(button:GetWide() + SScaleMin(5 / 3) + buttonCancel:GetWide() + SScaleMin(10 / 3))
+
+	local w, h = textPanel:GetSize()
+	w = math.max(w, SScaleMin(400 / 3))
+
+	panel:SetSize(w + SScaleMin(50 / 3), h + SScaleMin(25 / 3) + SScaleMin(75 / 3) + SScaleMin(10 / 3))
+	panel:Center()
+
+	innerPanel:StretchToParent(SScaleMin(5 / 3), SScaleMin(25 / 3), SScaleMin(5 / 3), SScaleMin(45 / 3))
+
+	textPanel:StretchToParent(SScaleMin(5 / 3), SScaleMin(5 / 3), SScaleMin(5 / 3), SScaleMin(35 / 3))
+
+	comboBox:StretchToParent(SScaleMin(5 / 3), nil, SScaleMin(5 / 3), nil)
+	comboBox:AlignBottom(5)
+	comboBox:RequestFocus()
+	comboBox:MoveToFront()
+
+	buttonPanel:CenterHorizontal()
+	buttonPanel:AlignBottom(8)
+
+	panel.button = button
+	panel.comboBox = comboBox
+end