CRToolsNewUI_Common.ms

fn AddModeButtons layoutHelper selectedMode = (

	local currentScriptFileName = getThisScriptFilename()
	local currentScriptFolder = getFilenamePath currentScriptFileName
	layoutHelper.BeginHorizontalGroup margintop:0 marginbottom:0 marginright:10 marginLeft:10
	(
		local carModeButton = layoutHelper.AddControl "System.Windows.Forms.Button" size:[50,50]
		carModeButton.text = ""
		carModeButton.backgroundimagelayout = (dotnetclass "ImageLayout").Stretch
		if selectedMode == "Car" then (
			carModeButton.backgroundImage = (dotnetclass "System.Drawing.Image").FromFile (currentScriptFolder+"\\UI\\CarIcon-selected.png")
		)
		else (
			carModeButton.backgroundImage = (dotnetclass "System.Drawing.Image").FromFile (currentScriptFolder+"\\UI\\CarIcon.png")
		)
		carModeButton.name = "carModeButton"

		SetClickHandler carModeButton SetToolMode_Car

		local WheelModeButton = layoutHelper.AddControl "System.Windows.Forms.Button" size:[50,50]
		WheelModeButton.text = ""
		WheelModeButton.backgroundimagelayout = (dotnetclass "ImageLayout").Stretch
		if selectedMode == "Wheel" then (
		WheelModeButton.backgroundImage = (dotnetclass "System.Drawing.Image").FromFile (currentScriptFolder+"\\UI\\WheelIcon-selected.png")
		)
		else (
		WheelModeButton.backgroundImage = (dotnetclass "System.Drawing.Image").FromFile (currentScriptFolder+"\\UI\\WheelIcon.png")
		)
		WheelModeButton.name = "WheelModeButton"

		SetClickHandler WheelModeButton SetToolMode_Wheel

		local LevelModeButton = layoutHelper.AddControl "System.Windows.Forms.Button" size:[50,50]
		LevelModeButton.text = ""
		LevelModeButton.backgroundimagelayout = (dotnetclass "ImageLayout").Stretch
		if selectedMode == "Level" then (
		LevelModeButton.backgroundImage = (dotnetclass "System.Drawing.Image").FromFile (currentScriptFolder+"\\UI\\LevelIcon-selected.png")
		)
		else (
		LevelModeButton.backgroundImage = (dotnetclass "System.Drawing.Image").FromFile (currentScriptFolder+"\\UI\\LevelIcon.png")
		)
		LevelModeButton.name = "LevelModeButton"

		SetClickHandler LevelModeButton SetToolMode_Level

		local AccessoryModeButton = layoutHelper.AddControl "System.Windows.Forms.Button" size:[50,50]
		AccessoryModeButton.text = ""
		AccessoryModeButton.backgroundimagelayout = (dotnetclass "ImageLayout").Stretch
		if selectedMode == "Accessory" then (
		AccessoryModeButton.backgroundImage = (dotnetclass "System.Drawing.Image").FromFile (currentScriptFolder+"\\UI\\AccessoryIcon-selected.png")
		)
		else (
		AccessoryModeButton.backgroundImage = (dotnetclass "System.Drawing.Image").FromFile (currentScriptFolder+"\\UI\\AccessoryIcon.png")
		)
		AccessoryModeButton.name = "AccessoryModeButton"

		SetClickHandler AccessoryModeButton SetToolMode_Accessory

		local PedModeButton = layoutHelper.AddControl "System.Windows.Forms.Button" size:[50,50]
		PedModeButton.text = ""
		PedModeButton.backgroundimagelayout = (dotnetclass "ImageLayout").Stretch
		if selectedMode == "Ped" then (
		PedModeButton.backgroundImage = (dotnetclass "System.Drawing.Image").FromFile (currentScriptFolder+"\\UI\\PedIcon-selected.png")
		)
		else (
		PedModeButton.backgroundImage = (dotnetclass "System.Drawing.Image").FromFile (currentScriptFolder+"\\UI\\PedIcon.png")
		)
		PedModeButton.name = "PedModeButton"

		SetClickHandler PedModeButton SetToolMode_Ped
	)
	layoutHelper.EndHorizontalGroup()
)
fn AddHierarchyToolsUI parentLayoutHelper = (

	local panel = parentLayoutHelper.AddControl "System.Windows.Forms.Panel" size:[380, 220] margin:[100,0]
	panel.name = "HierarchyToolsPanel"

	parentLayoutHelper.SetBorderStyle panel "FixedSingle"
	local layoutHelper = DotNetFormHelper ParentControl:panel OutterMarginTop:5 OutterMarginBottom:5 OutterMarginLeft:0 OutterMarginRight:0
	layoutHelper.BeginVerticalGroup align:"center"  marginTop:3 marginRight:3 marginBottom:3 marginLeft:3
	(

		local cntNodesLabel = layoutHelper.AddControl "System.Windows.Forms.Label" size:[150,20] margin:[0,0]
		cntNodesLabel.text = "NULL Nodes:"
		layoutHelper.BeginHorizontalGroup align:"center" marginTop:3 marginRight:0 marginBottom:3 marginLeft:0
		(
			local createNullButton = layoutHelper.AddControl "System.Windows.Forms.Button" size:[100,20] margin:[0,0]
			createNullButton.text = "Create NULL"
			createNullButton.name = "createNullButton"
			fn OnCreateNullClicked btn ev = (
				undo "Create NULL Node" on
				(
					local selectedObj = selection[1]
					trans = matrix3 1
					if selectedObj != undefined do trans = selectedObj.transform
					local newNull = CreateNewNULLNode trans "NewNullNode" selectAndFocus:true
					if selectedObj != undefined do newNull.parent = selectedObj
				)
			)
			SetClickHandler createNullButton OnCreateNullClicked


			local insertNullAsParent = layoutHelper.AddControl "System.Windows.Forms.Button" size:[130,20] margin:[0,0]
			insertNullAsParent.text = "Insert As Parent"
			insertNullAsParent.name = "insertNullAsParent"
			fn OnInsertNullAsParentCLicked btn ev = (
				undo "Insert NULL as Parent" on
				(
					
					trans = matrix3 1
					local selectedObj = selection[1]
					if sselectedObj != undefined do trans = sselectedObj.transform
					local newNull = CreateNewNULLNode trans "NewNullNode" selectAndFocus:true
					if sselectedObj != undefined do (
						newNull.parent = sselectedObj.parent
						sselectedObj.parent = newNull
					)
				)
			)
			SetClickHandler insertNullAsParent OnInsertNullAsParentCLicked


			local convertToNullButton = layoutHelper.AddControl "System.Windows.Forms.Button" size:[130,20] margin:[0,0]
			convertToNullButton.text = "Convert To NULL"
			convertToNullButton.name = "convertToNullButton"
			fn OnConvertToNullClicked btn ev = (
				undo "Convert To NULL Node" on
				(
					for obj in (selection as array) do
					(
						trans = obj.transform
						newNullNode = CreateNewNULLNode trans "NewNullNode" selectAndFocus:false
						append obj.parent.children newNullNode
						for i=obj.children.count to 1 by -1 do
						(
							child = obj.children[i]
							
							append newNullNode.children child
						)
						delete obj
					)
				)
			)
			SetClickHandler convertToNullButton OnConvertToNullClicked
		)
		layoutHelper.EndHorizontalGroup()

		local SetupHierarchyLabel = layoutHelper.AddControl "System.Windows.Forms.Label" size:[200,20] margin:[0,0]
		SetupHierarchyLabel.text = "CNT & Ignore Contain Nodes:"
		layoutHelper.BeginHorizontalGroup align:"center" marginTop:3 marginRight:15 marginBottom:3 marginLeft:15
		(
			local createCntNode = layoutHelper.AddControl "System.Windows.Forms.Button" size:[150,20]
			createCntNode.text = "Create CNT"
			createCntNode.name = "createCntNode"
			fn OnCreateCntContainerClicked btn ev = (
				undo "Create CNT Container Node" on
				(
					trans = matrix3 1
					local selectedObj = selection[1]
					if selectedObj != undefined do trans = selectedObj.transform
					cnt = CreateNewNULLNode trans "NewNullNode" selectAndFocus:true NodeType:"CNT"

					if selectedObj != undefined do cnt.parent = selection[1] 
				)
			)
			SetClickHandler createCntNode OnCreateCntContainerClicked


			local insertCntAboveButton = layoutHelper.AddControl "System.Windows.Forms.Button" size:[150,20]
			insertCntAboveButton.text = "Insert CNT as Parent"
			insertCntAboveButton.name = "insertCntAboveButton"
			fn OnInsertCntAboveClicked btn ev = (
				undo "Convert To Wheel Node" on
				(
					local selectedObj = selection[1]
					trans = matrix3 1
					if selectedObj != undefined do trans = selectedObj.transform
					cnt = CreateNewNULLNode trans "NewNullNode" selectAndFocus:true NodeType:"CNT"

					if selectedObj != undefined do (
						cnt.parent = selection[1].parent
						selection
					)
				)
			)
			SetClickHandler insertCntAboveButton OnInsertCntAboveClicked
		)
		layoutHelper.EndHorizontalGroup()
		layoutHelper.BeginHorizontalGroup align:"center" marginTop:3 marginRight:15 marginBottom:3 marginLeft:15
		(
			local createIgnoreNode = layoutHelper.AddControl "System.Windows.Forms.Button" size:[150,20]
			createIgnoreNode.text = "Create CNT"
			createIgnoreNode.name = "createIgnoreNode"
			fn OnCreateIgnoreContainerClicked btn ev = (
				undo "Create CNT Container Node" on
				(
					trans = matrix3 1
					local selectedObj = selection[1]
					if selectedObj != undefined do trans = selectedObj.transform
					cnt = CreateNewNULLNode trans "NewNullNode" selectAndFocus:true NodeType:"IGNORE"

					if selectedObj != undefined do cnt.parent = selection[1] 
				)
			)
			SetClickHandler createIgnoreNode OnCreateIgnoreContainerClicked


			local insertIgnoreAboveButton = layoutHelper.AddControl "System.Windows.Forms.Button" size:[150,20]
			insertIgnoreAboveButton.text = "Insert CNT as Parent"
			insertIgnoreAboveButton.name = "insertIgnoreAboveButton"
			fn OnInsertIgnoreAboveClicked btn ev = (
				undo "Convert To Wheel Node" on
				(
					local selectedObj = selection[1]
					trans = matrix3 1
					if selectedObj != undefined do trans = selectedObj.transform
					cnt = CreateNewNULLNode trans "NewNullNode" selectAndFocus:true NodeType:"IGNORE"

					if selectedObj != undefined do (
						cnt.parent = selection[1].parent
						selection
					)
				)
			)
			SetClickHandler insertIgnoreAboveButton OnInsertIgnoreAboveClicked
		)
		layoutHelper.EndHorizontalGroup()

		local SetupHierarchyLabel = layoutHelper.AddControl "System.Windows.Forms.Label" size:[150,20] margin:[0,0]
		SetupHierarchyLabel.text = "Setup Hierarchy on:"
		layoutHelper.BeginHorizontalGroup align:"center" margintop:0 marginbottom:0 marginright:10 marginLeft:10
		(
			local setupHierarchySelectionButton = layoutHelper.AddControl "System.Windows.Forms.Button" size:[110,40] margin:[0,0]
			setupHierarchySelectionButton.text = "Selection"
			setupHierarchySelectionButton.name = "setupHierarchySelectionButton"
			fn OnSetupHierarchySelectionClicked btn ev = (
				undo "Setup Hierarchy" on
				(
					SetSelectionToCNTNodes doChildren:false
				)
			)
			SetClickHandler setupHierarchySelectionButton OnSetupHierarchySelectionClicked

			local setupHierarchySelectionWithChildrenButton = layoutHelper.AddControl "System.Windows.Forms.Button" size:[110,40] margin:[0,0]
			setupHierarchySelectionWithChildrenButton.text = "Selection\n + Children"
			setupHierarchySelectionWithChildrenButton.name = "setupHierarchySelectionWithChildrenButton"
			fn OnSetupHierarchySelectionWithChildrenClicked btn ev = (
				undo "Setup Hierarchy" on
				(
					SetSelectionToCNTNodes doChildren:true
				)
			)
			SetClickHandler setupHierarchySelectionWithChildrenButton OnSetupHierarchySelectionWithChildrenClicked

			local setupHierarchyEntireSceneButton = layoutHelper.AddControl "System.Windows.Forms.Button" size:[110,40] margin:[0,0]
			setupHierarchyEntireSceneButton.text = "Entire Scene"
			setupHierarchyEntireSceneButton.name = "setupHierarchyEntireSceneButton"
			fn OnSetupHierarchyEntireSceneClicked btn ev = (
				undo "Setup Hierarchy" on
				(
					SetAllToCNTNodes()
				)
			)
			SetClickHandler setupHierarchyEntireSceneButton OnSetupHierarchyEntireSceneClicked
		)
		layoutHelper.EndHorizontalGroup()
		
	)

	layoutHelper.EndVerticalGroup()

)