HTMLScript = [[
<html>
<body bgcolor=#FFFFFF>
<div style="text-align: center;">
<div style="font-size: 30px; font-family: impact; width: 100%; margin-bottom: 5px;">hahahah LOL</div><br>
<h2>News:</h2>
HTML VGUI YAY!<br>
:D test etstetsetstes.<br>
<br>
<h2>:D:</h2>
1. suckszucsucksu.<br>
<br>
<div style="width: 100%; text-align: center; margin: 10px; font-weight: bold;">by me LOL</div>
</div>
</div>
</body>
</html>
]]
if not file.Exists( "lol.txt" ) then
file.Write( "lol.txt", HTMLScript )
end
function TESTVGUI()
local PropertySheet = vgui.Create( "DPropertySheet" )
PropertySheet:SetParent( DermaPanel )
PropertySheet:SetPos( 5, 30 )
PropertySheet:SetSize( 340, 315 )
local SheetItemOne = vgui.Create ("SheetItemOne");
SheetItemOne:SetSize( 1000, 900 );
SheetItemOne:SetPos( 100, 100 );
SheetItemOne:SetVisible( true );
SheetItemOne:MakePopup( );
SheetItemOne:PostMessage( "SetTitle", "text", "test vgui lol" );
local Button = vgui.Create ("Button", SheetItemOne );
Button:SetText( "rofl :D" );
Button:SetPos( 30, 5 );
Button:SetWide( 100 );
function Button:DoClick( )
DermaImage = vgui.Create( "DImageButton", DermaPanel )
DermaImage:SetPos( 25, 50 )
DermaImage:SetImage( "console/background01" ) -- Set your .vtf image
DermaImage:SizeToContents()
end
end
local SheetItemTwo = vgui.Create ("SheetItemTwo");
SheetItemTwo:SetSize( 1000, 900 );
SheetItemTwo:SetPos( 100, 100 );
SheetItemTwo:SetVisible( true );
SheetItemTwo:MakePopup( );
SheetItemTwo:PostMessage( "SetTitle", "text", "test vgui2 lol" );
local Button = vgui.Create ("Button", SheetItemTwo );
Button:SetText( "kill :D" );
Button:SetPos( 30, 5 );
Button:SetWide( 100 );
function Button:DoClick( )
RunConsoleCommand( "kill" );
end
local Button2 = vgui.Create ("Button2", SheetItemTwo );
Button2:SetText( "g00gle.de" );
Button2:SetPos( 130, 5 );
Button2:SetWide( 100 );
function Button2:DoClick( )
local HTMLFrame = vgui.Create( "HTML", SheetItemTwo )
HTMLFrame:SetPos( 25, 50 )
HTMLFrame:SetSize( SheetItemTwo:GetWide() - 50, SheetItemTwo:GetTall() - 150 )
HTMLFrame:SetHTML( file.Read( "lol.txt" ) )
end
end
PropertySheet:AddSheet( "fail menu", SheetItemOne, "gui/silkicons/user", false, false, "lololololol" )
PropertySheet:AddSheet( "KILL MENU", SheetItemTwo, "gui/silkicons/group", false, false, "Hazcheez ;D" )
concommand.Add( "vguilol", TESTVGUI );