local Decript = {}

local Frame = vgui.Create("DFrame")
Frame:SetTitle("")
Frame:SetPos(ScrW()/2-300, ScrH()/2-400)
Frame:SetSize(600, 800)
Frame:MakePopup(true)
Frame:SetDeleteOnClose(true)

Frame.Paint = function(self, w, h)
draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0, 255 ) )
draw.RoundedBox( 0, 3, 3, w-6, h-6, Color( 30, 30, 30, 255 ) )
draw.RoundedBox( 0, 3, 3, w-6, 40, Color(100,100,100,255))
draw.RoundedBox( 0, 3, 40, w-6, 3, Color(0,0,0,255))
	draw.SimpleText("Tasks:","CloseCaption_BoldItalic",10,20,Color(250,250,250,255),0,1)
	draw.SimpleText("Status","CloseCaption_Normal",300,20,Color(250,250,250,255),0,1)
	draw.SimpleText("Priority","CloseCaption_Normal",410,20,Color(250,250,250,255),0,1)


end

local List = vgui.Create( "DScrollPanel", Frame )
--DScrollPanel:Dock( FILL )
List:SetSize(560,600)
List:SetPos(20,50)
List.Paint = function(self, w, h)
//draw.RoundedBox( 0, 0, 0, w, h, Color( 255, 255, 255, 255 ) )

end

	local Polosa = List:GetVBar()
function Polosa:Paint( w, h )
	draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0, 255 ) )
	draw.RoundedBox( 0, 3, 3, w-6, h-6, Color( 20, 20, 20, 255 ) )
end
function Polosa.btnUp:Paint( w, h )
	draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0 ) )
	draw.RoundedBox( 0, 3, 3, w-6, h-6, Color( 100, 100, 100 ) )
end
function Polosa.btnDown:Paint( w, h )
	draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0 ) )
	draw.RoundedBox( 0, 3, 3, w-6, h-6, Color( 100, 100, 100 ) )
end
function Polosa.btnGrip:Paint( w, h )
	draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0 ) )
	draw.RoundedBox( 0, 3, 3, w-6, h-6, Color( 101, 100, 100 ) )
end






for i=0, 100 do

	Decript[i] = false

	local DLabel = List:Add( "DButton" )
	DLabel:SetText( "" )
	DLabel:Dock( TOP )
	DLabel:DockMargin( 0, 0, 10, 10 )

	DLabel:SetSize(50,50)

	Name = vgui.Create( "DLabel", DLabel )
		Name:SetPos( 20, 5 )
		Name:SetFont("Trebuchet24")
			Name:SetColor(Color(250,250,250,255))
			Name:SetSize(250,40)

		//////////////////////////////////////////	NAME////////////////////////////////////////////////

			Name:SetText( "Какая-то задача" )
		////////////////////////////////////////////////////////////////////////////////////////////////

		Status = vgui.Create( "DLabel", DLabel )
		Status:SetPos( 280, 5 )
		Status:SetFont("Trebuchet12")
			Status:SetColor(Color(250,250,0,255))
			Status:SetSize(100,40)
			//Name:SetContentAlignment(4)
		/////////////////////////////////////////Status//////////////////////////////////////////////////

				Status:SetText( "В РАЗРАБОТКЕ")

	    /////////////////////////////////////////////////////////////////////////////////////////////////

		Prior = vgui.Create( "DLabel", DLabel )
		Prior:SetPos( 400, 5 )
		Prior:SetFont("Trebuchet12")
			Prior:SetColor(Color(100,200,250,255))
			Prior:SetSize(100,40)
			//Name:SetContentAlignment(4)
		/////////////////////////////////////////Status//////////////////////////////////////////////////

				Prior:SetText( "Высокий")

	    /////////////////////////////////////////////////////////////////////////////////////////////////
	DLabel.DoClick = function()




		if Decript[i]==false then
			Desc = vgui.Create( "DScrollPanel", DLabel )

			DLabel:SetSize(100,200)
			Decript[i]=true

			Desc:SetSize(530,80)
			Desc:SetPos(0,60)
			//Desc.Paint = function(self, w, h)
			//	draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0, 255 ) )
			//	draw.RoundedBox( 0, 3, 0, w-6, h-3, Color( 250, 100, 100, 255 ) )
			//end


				local PolosaD = Desc:GetVBar()
					function PolosaD:Paint( w, h )
						draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0, 255 ) )
						draw.RoundedBox( 0, 3, 3, w-6, h-6, Color( 20, 20, 20, 255 ) )
					end
					function PolosaD.btnUp:Paint( w, h )
						draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0 ) )
						draw.RoundedBox( 0, 3, 3, w-6, h-6, Color( 100, 100, 100 ) )
					end
					function PolosaD.btnDown:Paint( w, h )
						draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0 ) )
						draw.RoundedBox( 0, 3, 3, w-6, h-6, Color( 100, 100, 100 ) )
					end
					function PolosaD.btnGrip:Paint( w, h )
						draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0 ) )
						draw.RoundedBox( 0, 3, 3, w-6, h-6, Color( 101, 100, 100 ) )
					end

			local Des = Desc:Add( "DLabel")
			Des:SetPos( 10, 10 )
			Des:SetColor(Color(200,200,200,255))
			Des:SetSize(500,1000)
			Des:SetContentAlignment(7)



			Des:SetText( "Я всего-лишь описание, так что ты это, давай, иди нахой атсюдава. LuaЯ  разработан подразделением Tecgraf (группа технологий компьютерной графики) Католического университета Рио-де-Жанейро в Бразилии, история языка ведёт отсчёт с 1993 года. Авторы языка — Роберту Иерузалимски, Луиш Энрике ди Фигейреду (Luiz Henrique de Figueiredo) и Валдемар Селиш (Waldemar Celes). Lua распространяется свободно, с открытыми исходными текстами на языке Си.")


			Des:SetWrap( true )
			Des:SetAutoStretchVertical( true )




		else
			Desc:Remove()
			Decript[i]=false

			DLabel:SetSize(100,50)

		end

	end
	DLabel.Paint = function(self,w,h)



		draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0, 255 ) )
		draw.RoundedBox( 0, 3, 3, w-6, h-6, Color( 100, 100, 100, 255 ) )

		draw.RoundedBox( 2, 50, 50, w-100, 2, Color( 0, 0, 0, 255 ) )


	end



end