mirror of
https://github.com/lifestorm/wnsrc.git
synced 2025-12-16 13:23:46 +03:00
233 lines
6.3 KiB
Lua
233 lines
6.3 KiB
Lua
--[[
|
|
| This file was obtained through the combined efforts
|
|
| of Madbluntz & Plymouth Antiquarian Society.
|
|
|
|
|
| Credits: lifestorm, Gregory Wayne Rossel JR.,
|
|
| Maloy, DrPepper10 @ RIP, Atle!
|
|
|
|
|
| Visit for more: https://plymouth.thetwilightzone.ru/
|
|
--]]
|
|
|
|
|
|
local meta = FindMetaTable( "Panel" )
|
|
|
|
GWEN = {}
|
|
|
|
function GWEN.CreateTextureBorder( _xo, _yo, _wo, _ho, l, t, r, b, material_override )
|
|
|
|
local mat = SKIN && SKIN.GwenTexture || material_override
|
|
if ( material_override && !material_override:IsError() ) then mat = material_override end
|
|
|
|
return function( x, y, w, h, col )
|
|
|
|
local tex = mat:GetTexture( "$basetexture" )
|
|
local _x = _xo / tex:Width()
|
|
local _y = _yo / tex:Height()
|
|
local _w = _wo / tex:Width()
|
|
local _h = _ho / tex:Height()
|
|
|
|
surface.SetMaterial( mat )
|
|
if ( col ) then
|
|
surface.SetDrawColor( col )
|
|
else
|
|
surface.SetDrawColor( 255, 255, 255, 255 )
|
|
end
|
|
|
|
local left = math.min( l, math.ceil( w / 2 ) )
|
|
local right = math.min( r, math.floor( w / 2 ) )
|
|
local top = math.min( t, math.ceil( h / 2 ) )
|
|
local bottom = math.min( b, math.floor( h / 2 ) )
|
|
|
|
local _l = left / tex:Width()
|
|
local _t = top / tex:Height()
|
|
local _r = right / tex:Width()
|
|
local _b = bottom / tex:Height()
|
|
|
|
-- top
|
|
surface.DrawTexturedRectUV( x, y, left, top, _x, _y, _x + _l, _y + _t )
|
|
surface.DrawTexturedRectUV( x + left, y, w - left - right, top, _x + _l, _y, _x + _w - _r, _y + _t )
|
|
surface.DrawTexturedRectUV( x + w - right, y, right, top, _x + _w - _r, _y, _x + _w, _y + _t )
|
|
|
|
-- middle
|
|
surface.DrawTexturedRectUV( x, y + top, left, h - top - bottom, _x, _y + _t, _x + _l, _y + _h - _b )
|
|
surface.DrawTexturedRectUV( x + left, y + top, w - left - right, h - top - bottom, _x + _l, _y + _t, _x + _w - _r, _y + _h - _b )
|
|
surface.DrawTexturedRectUV( x + w - right, y + top, right, h - top - bottom, _x + _w - _r, _y + _t, _x + _w, _y + _h - _b )
|
|
|
|
-- bottom
|
|
surface.DrawTexturedRectUV( x, y + h - bottom, left, bottom, _x, _y + _h - _b, _x + _l, _y + _h )
|
|
surface.DrawTexturedRectUV( x + left, y + h - bottom, w - left - right, bottom, _x + _l, _y + _h - _b, _x + _w - _r, _y + _h )
|
|
surface.DrawTexturedRectUV( x + w - right, y + h - bottom, right, bottom, _x + _w - _r, _y + _h - _b, _x + _w, _y + _h )
|
|
|
|
end
|
|
|
|
end
|
|
|
|
function GWEN.CreateTextureNormal( _xo, _yo, _wo, _ho, material_override )
|
|
|
|
local mat = SKIN && SKIN.GwenTexture || material_override
|
|
if ( material_override && !material_override:IsError() ) then mat = material_override end
|
|
|
|
return function( x, y, w, h, col )
|
|
|
|
local tex = mat:GetTexture( "$basetexture" )
|
|
local _x = _xo / tex:Width()
|
|
local _y = _yo / tex:Height()
|
|
local _w = _wo / tex:Width()
|
|
local _h = _ho / tex:Height()
|
|
|
|
surface.SetMaterial( mat )
|
|
|
|
if ( col ) then
|
|
surface.SetDrawColor( col )
|
|
else
|
|
surface.SetDrawColor( 255, 255, 255, 255 )
|
|
end
|
|
|
|
surface.DrawTexturedRectUV( x, y, w, h, _x, _y, _x + _w, _y + _h )
|
|
|
|
end
|
|
|
|
end
|
|
|
|
function GWEN.CreateTextureCentered( _xo, _yo, _wo, _ho, material_override )
|
|
|
|
local mat = SKIN && SKIN.GwenTexture || material_override
|
|
if ( material_override && !material_override:IsError() ) then mat = material_override end
|
|
|
|
return function( x, y, w, h, col )
|
|
|
|
local tex = mat:GetTexture( "$basetexture" )
|
|
local _x = _xo / tex:Width()
|
|
local _y = _yo / tex:Height()
|
|
local _w = _wo / tex:Width()
|
|
local _h = _ho / tex:Height()
|
|
|
|
x = x + ( w - _wo ) * 0.5
|
|
y = y + ( h - _ho ) * 0.5
|
|
w = _wo
|
|
h = _ho
|
|
|
|
surface.SetMaterial( mat )
|
|
|
|
if ( col ) then
|
|
surface.SetDrawColor( col )
|
|
else
|
|
surface.SetDrawColor( 255, 255, 255, 255 )
|
|
end
|
|
|
|
surface.DrawTexturedRectUV( x, y, w, h, _x, _y, _x + _w, _y + _h )
|
|
|
|
end
|
|
|
|
end
|
|
|
|
function GWEN.TextureColor( x, y, material_override )
|
|
|
|
local mat = SKIN && SKIN.GwenTexture || material_override
|
|
if ( material_override && !material_override:IsError() ) then mat = material_override end
|
|
return mat:GetColor( x, y )
|
|
|
|
end
|
|
|
|
--
|
|
-- Loads a .gwen file (created by GWEN Designer)
|
|
-- TODO: Cache - but check for file changes?
|
|
--
|
|
function meta:LoadGWENFile( filename, path )
|
|
|
|
local contents = file.Read( filename, path || "GAME" )
|
|
if ( !contents ) then return end
|
|
|
|
self:LoadGWENString( contents )
|
|
|
|
end
|
|
|
|
--
|
|
-- Load from String
|
|
--
|
|
function meta:LoadGWENString( str )
|
|
|
|
local tbl = util.JSONToTable( str )
|
|
if ( !tbl ) then return end
|
|
if ( !tbl.Controls ) then return end
|
|
|
|
self:ApplyGWEN( tbl.Controls )
|
|
|
|
end
|
|
|
|
--
|
|
-- Convert GWEN types into Derma Types
|
|
--
|
|
local GwenTypes = {
|
|
Base = "Panel",
|
|
Button = "DButton",
|
|
Label = "DLabel",
|
|
TextBox = "DTextEntry",
|
|
TextBoxMultiline = "DTextEntry",
|
|
ComboBox = "DComboBox",
|
|
HorizontalSlider = "Slider",
|
|
ImagePanel = "DImage",
|
|
CheckBoxWithLabel = "DCheckBoxLabel"
|
|
}
|
|
|
|
--
|
|
-- Apply a GWEN table to the control (should contain Properties and (optionally) Children subtables)
|
|
--
|
|
function meta:ApplyGWEN( tbl )
|
|
|
|
if ( tbl.Type == "TextBoxMultiline" ) then self:SetMultiline( true ) end
|
|
|
|
for k, v in pairs( tbl.Properties ) do
|
|
|
|
if ( self[ "GWEN_Set" .. k ] ) then
|
|
self[ "GWEN_Set" .. k ]( self, v )
|
|
end
|
|
|
|
end
|
|
|
|
if ( !tbl.Children ) then return end
|
|
|
|
for k, v in pairs( tbl.Children ) do
|
|
|
|
local type = GwenTypes[ v.Type ]
|
|
if ( type ) then
|
|
|
|
local pnl = self:Add( type )
|
|
pnl:ApplyGWEN( v )
|
|
else
|
|
|
|
MsgN( "Warning: No GWEN Panel Type ", v.Type )
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
end
|
|
|
|
--
|
|
-- SET properties
|
|
--
|
|
function meta:GWEN_SetPosition( tbl ) self:SetPos( tbl.x, tbl.y ) end
|
|
function meta:GWEN_SetSize( tbl ) self:SetSize( tbl.w, tbl.h ) end
|
|
function meta:GWEN_SetText( tbl ) self:SetText( tbl ) end
|
|
function meta:GWEN_SetControlName( tbl ) self:SetName( tbl ) end
|
|
function meta:GWEN_SetMargin( tbl ) self:DockMargin( tbl.left, tbl.top, tbl.right, tbl.bottom ) end
|
|
function meta:GWEN_SetMin( min ) self:SetMin( tonumber( min ) ) end
|
|
function meta:GWEN_SetMax( max ) self:SetMax( tonumber( max ) ) end
|
|
function meta:GWEN_SetHorizontalAlign( txt )
|
|
if ( txt == "Right" ) then self:SetContentAlignment( 6 ) end
|
|
if ( txt == "Center" ) then self:SetContentAlignment( 5 ) end
|
|
if ( txt == "Left" ) then self:SetContentAlignment( 4 ) end
|
|
end
|
|
|
|
function meta:GWEN_SetDock( tbl )
|
|
if ( tbl == "Right" ) then self:Dock( RIGHT ) end
|
|
if ( tbl == "Left" ) then self:Dock( LEFT ) end
|
|
if ( tbl == "Bottom" ) then self:Dock( BOTTOM ) end
|
|
if ( tbl == "Top" ) then self:Dock( TOP ) end
|
|
if ( tbl == "Fill" ) then self:Dock( FILL ) end
|
|
end
|
|
|
|
function meta:GWEN_SetCheckboxText( tbl ) self:SetText( tbl ) end
|