Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 5th, 2012  |  syntax: None  |  size: 1.10 KB  |  hits: 22  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1.                 InventList = vgui.Create("DPanelList", InventFrame)
  2.                 InventList:SetPos(10, 25)
  3.                 InventList:SetSize(280, 197)
  4.                 InventList:EnableVerticalScrollbar(true)
  5.                 InventList:EnableHorizontal(true)
  6.                 InventList:SetPadding(4)
  7.                 InventList:NoClipping(true)
  8.  
  9.                 icon:SetParent(InventListInventList)
  10.                 icon.EntClassName = v[1]
  11.                 icon.UniqueEntID = v[2]
  12.                 icon:SetModel((ItemsListBackPack[tostring(v[1])])[3])
  13.                 icon:SetToolTip(false)
  14.  
  15.                 icon.OnCursorEntered = function()
  16.                        
  17.                                                
  18.                         if DetailPanel then DetailPanel:Remove() end
  19.                         DetailPanel = vgui.Create("DPanel",icon)
  20.                         DetailPanel:MouseCapture()
  21.                         DetailPanel:SetPos(50,0)
  22.                         DetailPanel:SetSize(200,120)
  23.                         function DetailPanel:Think()
  24.                                 DetailPanel:MoveToFront()
  25.                         end
  26.                         DetailPanel:MakePopup()
  27.                                                
  28.                         local decorativeicon = vgui.Create("SpawnIcon",DetailPanel)
  29.                         decorativeicon:SetPos(20,30)
  30.                         decorativeicon:SetModel(ItemsListBackPack[tostring(v[1])][3])
  31.                                                
  32.                         local Header = vgui.Create("DLabel", DetailPanel)
  33.                         Header:SetColor(Color(255,255,255,255))
  34.                         Header:SetPos(30,30)
  35.                                                
  36.                         DetailPanel:MoveToFront()
  37.                                                
  38.                 end
create a new version of this paste RAW Paste Data