reilua-enhanced/examples/raygui_lib/main.lua

package.path = package.path..";"..RL.GetBasePath().."../resources/lib/?.lua"

Util = require( "utillib" )
Rect = require( "rectangle" )
Vec2 = require( "vector2" )
Color = require( "color" )
Raygui = require( "raygui" )

local grid = {}
local windowbox = {}
local winOpen = true

function RL.init()
	local monitor = 0
	local mPos = RL.GetMonitorPosition( monitor )
	local mSize = RL.GetMonitorSize( monitor )
	local winSize = { 1920, 1080 }

	RL.SetWindowState( RL.FLAG_WINDOW_RESIZABLE )
	RL.SetWindowState( RL.FLAG_VSYNC_HINT )
	RL.SetWindowSize( winSize )
	RL.SetWindowPosition( { mPos[1] + mSize[1] / 2 - winSize[1] / 2, mPos[2] + mSize[2] / 2 - winSize[2] / 2 } )

	RL.GuiSetStyle( RL.DEFAULT, RL.TEXT_SIZE, 20 )
	RL.GuiSetStyle( RL.DEFAULT, RL.TEXT_SPACING, 4 )
	RL.GuiSetStyle( RL.SPINNER, RL.TEXT_ALIGNMENT, RL.TEXT_ALIGN_RIGHT )

	local label = Raygui.Label:new(
		Rect:new( 16, 16, 64, 32 ),
		"Cat"
	)
	local toggleGroup = Raygui.ToggleGroup:new(
		Rect:new( 68, 16, 64, 32 ),
		"Cat\nDog",
		0,
		function( self ) print( self:getItem( self.active ) ) end
	)
	local button = Raygui.Button:new(
		Rect:new( 245, 188, 64, 32 ),
		"Dog",
		function() toggleGroup:setText( "Dog;Cat\nEagle" ) end
	)
	local checkbox = Raygui.CheckBox:new(
		Rect:new( 64, 128, 20, 20 ),
		"Dog",
		false
	)
	local combobox = Raygui.ComboBox:new(
		Rect:new( 64, 256, 128, 32 ),
		"Dog\nCow\nDonkey",
		0
	)
	local dropdownbox = Raygui.DropdownBox:new(
		Rect:new( 256, 128, 128, 32 ),
		"Dog\nGiraffe\nLion\nHorse",
		0,
		false,
		function( self ) print( self:getItem( self.active ) ) end
	)
	local spinner = Raygui.Spinner:new(
		Rect:new( 464, 256, 128, 32 ),
		"Health",
		0,
		0,
		10,
		false,
		function( self ) print( "Spinner value changed to "..self.value ) end
	)
	local valuebox = Raygui.ValueBox:new(
		Rect:new( 464, 316, 128, 32 ),
		"Health",
		0,
		0,
		100,
		false,
		function( self ) print( "ValueBox value changed to "..self.value ) end
	)
	local textbox = Raygui.TextBox:new(
		Rect:new( 32, 316, 256, 32 ),
		"Name",
		32,
		false,
		function( self ) print( "Set text "..self.text ) end
	)
	local textboxmulti = Raygui.TextBoxMulti:new(
		Rect:new( 32, 400, 256, 64 ),
		"Buggy?",
		32,
		false,
		function( self ) print( "Set text "..self.text ) end
	)
	local slider = Raygui.Slider:new(
		Rect:new( 50, 500, 256, 32 ),
		"min",
		"max",
		0,
		0,
		100,
		function( self ) print( "Changed value "..self.value ) end
	)
	local sliderbar = Raygui.SliderBar:new(
		Rect:new( 50, 550, 256, 32 ),
		"min",
		"max",
		0,
		0,
		100,
		function( self ) print( "Changed value "..self.value ) end
	)
	local progressbar = Raygui.ProgressBar:new(
		Rect:new( 50, 600, 256, 32 ),
		"min",
		"max",
		20,
		0,
		100,
		function( self ) print( "Changed value "..self.value ) end
	)
	local statusbar = Raygui.StatusBar:new(
		Rect:new( 50, 650, 256, 32 ),
		"StatusBar"
	)
	local dummyrec = Raygui.DummyRec:new(
		Rect:new( 50, 700, 256, 32 ),
		"DummyRec"
	)
	grid = Raygui.Grid:new(
		Rect:new( 400, 400, 256, 256 ),
		"Grid",
		32,
		2
	)
	windowbox = Raygui.WindowBox:new(
		Rect:new( 720, 250, 256, 256 ),
		"WindowBox",
		-- Close callback.
		function( self ) self.visible = false end,
		-- Grab callback.
		function( self ) Raygui.set2Top( self ) end
	)
	local groupbox = Raygui.GroupBox:new(
		Rect:new( 400, 700, 256, 256 ),
		"GroupBox"
	)
	local line = Raygui.Line:new(
		Rect:new( 400, 32, 256, 16 ),
		"Line"
	)
	local panel = Raygui.Panel:new(
		Rect:new( 400, 64, 256, 128 ),
		"Panel",
		-- Grab callback.
		function( self ) Raygui.set2Top( self ) end
	)
	local scrollpanel = Raygui.ScrollPanel:new(
		Rect:new( 800, 64, 256, 256 ),
		"ScrollPanel",
		Rect:new( 0, 0, 256, 600 ),
		Vec2:new( 0, 0 ),
		-- Callback.
		nil,
		-- Grab callback.
		function( self ) Raygui.set2Top( self ) end
	)
	local listview = Raygui.ListView:new(
		Rect:new( 1100, 64, 128, 80 ),
		"Cat\nDog\nHorse\nCow\nPig\nEagle\nLion",
		0,
		0,
		function( self ) print( self:getItem( self.active ) ) end
	)
	local listviewex = Raygui.ListViewEx:new(
		Rect:new( 1300, 64, 128, 80 ),
		"Cat\nDog\nHorse\nCow\nPig\nEagle\nLion",
		0,
		0,
		0,
		function( self ) print( self:getItem( self.active ) ) end
	)
	local messagebox = Raygui.MessageBox:new(
		Rect:new( 1100, 150, 300, 128 ),
		"Title",
		"Message",
		"Cancel\nOk",
		function( self )
			if 0 < self.buttonIndex then
				print( "You pressed "..self:getItem( self.buttonIndex ) )

				if self.buttonIndex == 1 then
					Raygui.set2Back( windowbox )
				elseif self.buttonIndex == 2 then
					Raygui.set2Top( windowbox )
				end
			end
		end,
		-- Grab callback.
		function( self ) Raygui.set2Top( self ) end
	)
	local textinputbox = Raygui.TextInputBox:new(
		Rect:new( 1100, 300, 300, 128 ),
		"Title",
		"Message",
		"Cancel\nOk",
		"Text",
		8,
		0,
		function( self )
			if 0 < self.buttonIndex then
				print( "You pressed "..self:getItem( self.buttonIndex ) )
			end
		end,
		-- Grab callback.
		function( self ) Raygui.set2Top( self ) end
	)
	local colorpicker = Raygui.ColorPicker:new(
		Rect:new( 1500, 32, 128, 128 ),
		"Color Picker",
		Color:new()
	)
	local colorpanel = Raygui.ColorPanel:new(
		Rect:new( 1700, 32, 128, 128 ),
		"Color Panel",
		Color:new()
	)
	local colorbaralpha = Raygui.ColorBarAlpha:new(
		Rect:new( 1700, 180, 128, 20 ),
		"Color Panel",
		1.0
	)
	local colorbarhue = Raygui.ColorBarHue:new(
		Rect:new( 1840, 32, 20, 128 ),
		"Color Panel",
		1.0
	)
end

function RL.process( delta )
	if RL.IsKeyPressed( RL.KEY_R ) then
		Raygui.set2Top( windowbox )
	end

	if RL.IsKeyPressed( RL.KEY_F ) then
		Raygui.set2Back( windowbox )
	end

	Raygui.process()
end

function RL.draw()
	RL.ClearBackground( { 50, 20, 75 } )

	if 0 <= grid.cell.x then
		RL.DrawRectangleLines(
			{
				grid.bounds.x + grid.cell.x * 32,
				grid.bounds.y + grid.cell.y * 32,
				32,
				32
			},
			RL.GREEN
		)
	end

    Raygui.draw()
end