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
|
local PANEL = {}
function PANEL:Init()
self.bgcol = MAIN_COLOR
self.fgcol = MAIN_COLOR2
self:SetTitle( "UserBrowser" )
self.HTML = vgui.Create( "HTML" , self )
self.HTML:OpenURL( "www.google.com" )
self.HTML.StatusChanged = function( s , str ) self.Status = str end
self.HTML.PageTitleChanged = function( s , title ) self:SetTitle(title) end
self.HTML.FinishedURL = function( s , url ) self.URLBar:SetText(url) end
self.Status = "Ready."
self.BackB = vgui.Create( "MBButton" , self )
self.BackB:SetText("<")
self.BackB:EnableHoverSound(false)
self.BackB.DoClick = function() self.HTML:HTMLBack() end
self.RefreshB = vgui.Create( "MBButton" , self )
self.RefreshB:SetText("Refresh")
self.RefreshB:EnableHoverSound(false)
self.RefreshB.DoClick = function() self.HTML:Refresh() end
self.ForwardB = vgui.Create( "MBButton" , self )
self.ForwardB:SetText(">")
self.ForwardB:EnableHoverSound(false)
self.ForwardB.DoClick = function() self.HTML:HTMLForward() end
self.URLBar = vgui.Create( "DTextEntry" , self )
self.URLBar:SetText("www.google.com")
self.URLBar.OnEnter = function(s) self.HTML:OpenURL(s:GetValue()) end
end
function PANEL:OpenURL(url)
self.HTML:OpenURL(url)
end
function PANEL:SetFGColor( col )
self.fgcol = col
end
function PANEL:SetBGColor( col )
self.bgcol = col
end
function PANEL:Paint(w,h)
DrawBoxy( 0 , 0 , w , h , self.bgcol )
DrawLine( 0 , 20 , w , 20 , self.fgcol )
DrawText( self.Status , "Trebuchet18" , 5 , h-20 , MAIN_WHITECOLOR )
return true
end
function PANEL:PerformLayout()
self.HTML:SetPos(1,42)
self.HTML:SetSize(self:GetWide()-2,self:GetTall()-64)
self.BackB:SetPos(10,22)
self.BackB:SetSize(20,20)
self.RefreshB:SetPos(60,22)
self.RefreshB:SetSize(80,20)
self.ForwardB:SetPos(35,22)
self.ForwardB:SetSize(20,20)
self.URLBar:SetPos(145,22)
self.URLBar:SetSize(self:GetWide()-150,20)
end
vgui.Register( "MBUserBrowser", PANEL , "MBFrame" )
|
