Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local function CreateTitle(PANEL,Text)
- local TITLE = vgui.Create("DPanel") PANEL:AddItem(TITLE)
- TITLE:SetTall(40)
- TITLE.Paint = function(slf)
- draw.SimpleText(Text, "RXF4_30", 11,6, Color(0,0,0,200))
- draw.SimpleText(Text, "RXF4_30", 10,5, Color(255,255,255,255))
- end
- end
- local function CreateButton(PANEL,Text,ClickFunc)
- local BTN = vgui.Create("F4_CommandButton") PANEL:AddItem(BTN)
- BTN:SetTall(40)
- BTN:SetTexts(Text)
- BTN.DoClick = ClickFunc
- end
- local function CreateSpace(PANEL,tall)
- local Spacing = vgui.Create("DPanel") PANEL:AddItem(Spacing)
- Spacing:SetTall(tall or 20)
- Spacing.Paint = function(slf) end
- end
- local function MakeDefaultOptions(Lister)
- CreateTitle(Lister,"Currency")
- CreateButton(Lister,DarkRP.getPhrase("give_money"),function()
- RXF4_Request_String("Amount of money", "How much money do you want to give?", "", function(a) LocalPlayer():ConCommand("darkrp give " .. tostring(a)) end)
- end)
- end
- local ELEMENT = F4Element_CreateStruct("Shit")
- ELEMENT:SetPrintName("Shit")
- function ELEMENT:OnCanvasCreated(Panel,SX,SY)
- local ListBG = vgui.Create("DPanel",Panel)
- ListBG:SetPos(50,50)
- ListBG:SetSize(350,SY-100)
- ListBG.Paint = function(slf)
- local Lister = vgui.Create("DPanelList",ListBG) Panel.Lister = Lister
- Lister:SetPos(1,1)
- Lister:SetSize(ListBG:GetWide()-2,ListBG:GetTall()-2)
- Lister:EnableHorizontal( false )
- Lister:EnableVerticalScrollbar( true )
- Lister:SetSpacing(5)
- Lister:RXF4_PaintListBarC()
- MakeDefaultOptions(Lister)
- local ListBG = vgui.Create("DPanel",Panel)
- ListBG:SetPos(450,50)
- ListBG:SetSize(SX-500,SY-100)
- ListBG.Paint = function(slf)
- end
- local Lister = vgui.Create("DPanelList",ListBG) Panel.Lister = Lister
- Lister:SetPos(1,1)
- Lister:SetSize(ListBG:GetWide()-2,ListBG:GetTall()-2)
- Lister:EnableHorizontal( false )
- Lister:EnableVerticalScrollbar( true )
- Lister:SetSpacing(5)
- Lister:RXF4_PaintListBarC()
- F4Element_Register(ELEMENT)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement