GLUA/OperaAtHome.lua at main · Zylenxx/GLUA · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
function Opera(StartURL)
   local OPERA=vgui.Create("DFrame")
    OPERA.Tabs=1
    OPERA.TabTable={}
    OPERA:SetSize(1280,720)
    OPERA:SetSizable(true)
    OPERA:SetTitle("")
    OPERA:SetSkin("dark_meta")
    OPERA:MakePopup()
       local ICO    =vgui.Create("RichText",OPERA)
       ICO:SetPos(2,2)
       ICO:SetSize(24,24)
       ICO:SetVerticalScrollbarEnabled(false)
       ICO:AppendText("O")
       function ICO:PerformLayout()
       	   if (self:GetFont() != "Trebuchet24") then self:SetFontInternal("Trebuchet24") end
       	   self:SetFGColor(Color(196,32,32))
       end

	   local MAIN_OP=vgui.Create("DPropertySheet",OPERA)
	   MAIN_OP:Dock(FILL)
	   MAIN_OP:DockMargin(0,0,0,0)
	   local ClTabBut = vgui.Create("DButton",MAIN_OP)
		       ClTabBut:SetPos(0,0)
		       ClTabBut:SetSize(15,15)
		       ClTabBut:SetText("x")
		       ClTabBut:SetZPos(290)
		       ClTabBut:SetDrawBackground(false)

	  local ADTabBut = vgui.Create("DButton",OPERA)
		       ADTabBut:SetPos(OPERA:GetWide()-20,35)
		       ADTabBut:SetSize(15,15)
		       ADTabBut:SetText("+")
		       ADTabBut:SetZPos(291)
	   local function MakeTab(URL,Name)
		   local HTMLP    =vgui.Create("DPanel",MAIN_OP)
		   HTMLP:Dock(FILL)
		   HTMLP:SetDrawBackground(false)
			   local ReloadT=vgui.Create("DButton",HTMLP)
					ReloadT:SetContentAlignment(7)
				    ReloadT:SetIcon("icon16/arrow_rotate_anticlockwise.png")
				    ReloadT:SetText("")
				    ReloadT:SetSize(25,25)
			   local AdressB=vgui.Create("DTextEntry",HTMLP)
					AdressB:Dock(TOP)
					AdressB:DockMargin(25,0,0,0)
			   local StartPage=vgui.Create("DHTML",HTMLP)
			   StartPage:Dock(FILL)
			   StartPage:OpenURL(URL)
			   StartPage:SetScrollbars(false)
			   function StartPage:OnChildViewCreated(sourceURL,targetURL,isPopup )
			   	   local ParsedTabName = targetURL:gsub("^https?://", ""):match("^[^/:]+")
			   	   MakeTab(targetURL,ParsedTabName)
			   end
			   function StartPage:OnDocumentReady(DOC)
				StartPage.URL = DOC
			   end
			   function AdressB:OnEnter(Astr)
			   	   StartPage:OpenURL(Astr)
			   end
			   function ReloadT:DoClick()
			   	   StartPage:OpenURL(StartPage.URL)
			   end

		   local TB = MAIN_OP:AddSheet(Name,HTMLP,"icon16/bullet_blue.png")
		   function TB.Tab:Paint(w,h)
		   	local RND = 4
			   	if MAIN_OP:GetActiveTab()==TB.Tab then
			   	   draw.RoundedBox(RND,0,0,w,h*0.75,Color(96,96,96))
			   	else
			   	   draw.RoundedBox(RND,0,0,w,h*0.75,Color(32,32,32))
			   	end
			end
			function TB.Tab:PaintOver(w,h)
			local MAT = Material("vgui/gradient-r","noclamp smooth")
		   	local RND = 4
			   	if MAIN_OP:GetActiveTab()==TB.Tab then
			   	   surface.SetMaterial(MAT)
			   	   surface.SetDrawColor(Color(96,96,96))
			   	   surface.DrawTexturedRect(w-45,0,40,h*0.75)
				   surface.DrawTexturedRect(w-45,0,40,h*0.75)
		   		else
		   		   surface.SetMaterial(MAT)
			   	   surface.SetDrawColor(Color(32,32,32))
			   	   surface.DrawTexturedRect(w-45,0,40,h*0.75)
				   surface.DrawTexturedRect(w-45,0,40,h*0.75)
			   	end
			end
			function TB.Tab:Think()
				local Px,Py = TB.Tab:GetPos()
				local Pxs,Pys = TB.Tab:GetSize()
				if (TB.Tab:IsHovered() or ClTabBut:IsHovered()) then
				   ClTabBut:SetPos(Px+Pxs-10,Py+2)
				   function ClTabBut:DoClick()
		         	MAIN_OP:CloseTab(TB.Tab,true)
		    	    end
				else
				   function ClTabBut:DoClick()
	    	       end
			       ClTabBut:SetPos(-9999,9999) -- easy offscreen hack
				end
			end
		   	   function StartPage:OnChangeTitle(SPT)
					TB.Tab:SetText(SPT)
					TB.Tab:InvalidateLayout( false )
		   end
	  end
	  if not StartURL then
	     MakeTab("https://start.pprmint.de/","start")
      else
  	     MakeTab(StartURL,"-------------------------")
  	  end

  	function ADTabBut:DoClick()
		MakeTab("https://start.pprmint.de/","start")
	end

 return OPERA
end

 -- CONTEXT MENU STUFF
 if OperaCTX then OperaCTX:Remove() end
 OperaCTX = g_ContextMenu:GetChildren()[3]:Add("DButton")
 OperaCTX:SetSize(80,80)
 OperaCTX:SetDrawBackground(false)
 OperaCTX:SetText("")
 function OperaCTX:Paint(w,h)
 	local M = Material("icon16/world.png", "noclamp")
    surface.SetMaterial(M)
    surface.DrawTexturedRect(5,5,w-10,h-10)
    surface.SetFont("CloseCaption_Bold")
    local TSX,TSY = surface.GetTextSize("Opera")
    surface.SetTextPos(5,TSY)
    surface.SetTextColor(194,42,42)
    surface.DrawText("Opera")
 end
 function OperaCTX:DoClick()
 Opera()
 end