khanat-opennel-code/code/ryzom/common/data_common/r2/r2_logic_ui.lua
2013-07-28 17:49:28 +02:00

388 lines
9.6 KiB
Lua

r2.logicUI =
{
MenuName = "ui:interface:r2ed_triggers_menu",
Menu = nil,
}
function r2.logicUI:openLogicMenu(caller)
launchContextMenuInGame(self.MenuName)
if self.Menu == nil or self.Menu.isNil then
self.Menu = getUI(self.MenuName)
end
local menu = self.Menu
menu:setParentPos(caller)
menu:setPosRef("BL TL")
local root = menu:getRootMenu()
if (caller.y_real - root.h_real < 0) then
menu.y = root.h_real + caller.h_real
else
menu.y = 0
end
menu:setMinW(85)
menu:updateCoords()
end
function r2.logicUI:getEltUIInstId(eltUI)
return eltUI.Env.InstanceId
end
function r2.logicUI:setEltUIInstId(eltUI, id)
eltUI.Env.InstanceId = id
end
function r2.logicUI:setSequUIInstId(sequUI, id)
sequUI.Env.InstanceId = id
end
function r2.logicUI:getSequUIInstId(sequUI)
return sequUI.Env.InstanceId
end
------- NEW ELEMENT UI ---------------------------------------------
function r2.logicUI:newElementUI(classUI, newInst, withOrder)
local templateParams = classUI.eltTemplateParams
--not necessary current sequenceUI
local sequenceUI = classUI:updatedSequUI()
assert(sequenceUI)
local listElements = sequenceUI:find("elements_list")
assert(listElements)
for i=0, listElements.childrenNb-1 do
local elt = listElements:getChild(i)
local instId = self:getEltUIInstId(elt)
if instId==newInst.InstanceId then return end
end
classUI.elementsIdCounter = classUI.elementsIdCounter+1
local elementId = "elt"..classUI.elementsIdCounter
-- create new element
local newElement = createGroupInstance("element_template", listElements.id,
{id=elementId, posref="TL TL", x="0", y="0", sizeref="w", hardtext="",
select_elt=templateParams.selectElt, open_elt_editor=templateParams.openEltEditor,
max_min_elt=templateParams.maxMinElt, remove_elt=templateParams.removeElt, open_chat=templateParams.openChat,
col_over=templateParams.colOver, col_pushed=templateParams.colPushed, multi_max_line=templateParams.multiMaxLine})
assert(newElement)
-- add element to list
local eltIndex = -1
if withOrder then
local comps = newInst.Parent
for i=0, comps.Size-1 do
local comp = comps[i]
if comp.InstanceId == newInst.InstanceId then
eltIndex = i
break
end
end
local eltEditor = listElements:find("edit_element")
assert(eltEditor)
local indexEltEditor = listElements:getElementIndex(eltEditor)
if indexEltEditor<= eltIndex then eltIndex=eltIndex+1 end
else
eltIndex = listElements.childrenNb
end
listElements:addChildAtIndex(newElement, eltIndex)
listElements.parent:updateCoords()
-- active global minimize / maximize button
if classUI.maxAndMin then
classUI:maximizeMinimizeElement(newElement)
if listElements.childrenNb == 2 then
local maxElts = sequenceUI:find("maximize_elements")
assert(maxElts)
maxElts.active = true
end
end
-- scroll goes down to new element
local scrollBar = sequenceUI:find("scroll_objects")
assert(scrollBar)
scrollBar.trackPos = 0
-- target sroll text
local scroll = newElement:find("scroll_bar_text")
assert(scroll)
local scrollText = newElement:find("scroll_text_gr")
assert(scrollText)
scroll:setTarget(scrollText.id)
self:setEltUIInstId(newElement, newInst.InstanceId)
-- update next elements title
if eltIndex<listElements.childrenNb-1 then
for i=eltIndex+1, listElements.childrenNb-1 do
local elt = listElements:getChild(i)
if r2.logicUI:getEltUIInstId(elt) then
classUI:updateElementTitle(elt)
end
end
end
if classUI.ownCreatedInstances[newInst.InstanceId] == true
or r2.logicComponents.undoRedoInstances[newInst.InstanceId]==true then
local select = newElement:find("select")
assert(select)
select.pushed = true
classUI:selectElement(select, self:getSequUIInstId(sequenceUI))
classUI.ownCreatedInstances[newInst.InstanceId] = nil
r2.logicComponents.undoRedoInstances[newInst.InstanceId] = nil
end
classUI:updateElementUI(newElement)
end
------ REMOVE ELEMENT UI -------------------------------------------
function r2.logicUI:removeElementUI(classUI, removedEltUI)
local sequenceUI = classUI:currentSequUI()
assert(sequenceUI)
local listElements = sequenceUI:find("elements_list")
assert(listElements)
-- update follow elements number
local removedIndex = listElements:getElementIndex(removedEltUI)
for i = removedIndex+1, (listElements.childrenNb-1) do
local element = listElements:getChild(i)
assert(element)
-- if this element is not the element editor, update its title
if self:getEltUIInstId(element) then
classUI:updateElementTitle(element)
end
end
-- delete element and update coordinates of elements list
if removedEltUI == classUI:currentEltUI() then
classUI:setCurrentEltUIId(nil)
-- inactive element editor
local eltEditor = listElements:find("edit_element")
assert(eltEditor)
eltEditor.active = false
-- disactive up and down element buttons
local orderGr = sequenceUI:find("order_group")
assert(orderGr)
orderGr.active = false
end
listElements:delChild(removedEltUI)
listElements.parent:invalidateCoords()
-- if any elements in list, disactive global minimize / maximize button
if listElements.childrenNb == 1 then
local minElts = sequenceUI:find("minimize_elements")
assert(minElts)
local maxElts = sequenceUI:find("maximize_elements")
assert(maxElts)
minElts.active = false
maxElts.active = false
end
end
------ UPDATE ELEMENT UI -------------------------------------------
function r2.logicUI:updateElementUI(classUI, elementUI)
local instance = r2:getInstanceFromId(self:getEltUIInstId(elementUI))
assert(instance)
classUI:updateElementTitle(elementUI)
if instance.InstanceId == classUI:currentEltInstId() then
classUI:updateElementEditor()
end
end
------ DOWN/UP ELEMENT UI -------------------------------------------
function r2.logicUI:downUpElementUI(classUI, elementUI, instance)
local listElements = elementUI.parent
assert(listElements)
local eltEditor = listElements:find("edit_element")
assert(eltEditor)
local index = listElements:getElementIndex(elementUI)
local indexEditor = listElements:getElementIndex(eltEditor)
local indexInstance = -1
for i=0, instance.Parent.Size-1 do
if instance.Parent[i]==instance then
indexInstance = i
break
end
end
if index>=0 and indexEditor>=0 and indexInstance>=0 then
local finalIndex = indexInstance
if indexEditor-1 <= indexInstance then finalIndex=finalIndex+1 end
local selectedEltUI = classUI:currentEltUI()
local isSelected = (selectedEltUI==elementUI)
local loop = math.abs(finalIndex-index)
if loop>0 then
-- replace element UI
for i=1, loop do
if finalIndex < index then
listElements:upChild(elementUI)
else
listElements:downChild(elementUI)
end
end
-- replace element editor
if isSelected then
for i=1, loop do
if finalIndex < index then
listElements:upChild(eltEditor)
else
listElements:downChild(eltEditor)
end
end
end
local firstIndex = math.min(index, finalIndex)
local lastIndex = math.min(listElements.childrenNb-1, math.max(index, finalIndex)+1)
for i=firstIndex, lastIndex do
local eltUI = listElements:getChild(i)
if eltUI~=eltEditor then
classUI:updateElementTitle(eltUI)
end
end
if selectedEltUI~=nil then
selectedEltUI.active=false
classUI:updateElementEditor()
end
end
end
end
------ MAX/MIN ELEMENT UI -------------------------------------------
function r2.logicUI:maximizeMinimizeElement(element, allMinimize)
if element == nil then
element = getUICaller().parent.parent.parent.parent.parent.parent
end
assert(element)
local eltText = element:find("element_text")
assert(eltText)
local allMin, allMax = true, true
if allMinimize ~= nil then
allMin = allMinimize
allMax = not allMin
end
local maxButton = element:find("maximize_element")
assert(maxButton)
local minButton = element:find("minimize_element")
assert(minButton)
-- maximize
if allMax and eltText.active==false then
eltText.active = true
maxButton.active = false
minButton.active = true
-- minimize
elseif allMin and eltText.active==true then
eltText.active = false
maxButton.active = true
minButton.active = false
end
end
------ MAX/MIN ELEMENTS UI -------------------------------------------
function r2.logicUI:maximizeMinimizeElements(classUI)
local sequenceUI = classUI:currentSequUI()
assert(sequenceUI)
local elements = sequenceUI:find("elements_list")
assert(elements)
elements.Env.Minimize = not elements.Env.Minimize
for i = 0, elements.childrenNb-1 do
local element = elements:getChild(i)
assert(element)
-- if element is not the element editor
if self:getEltUIInstId(element) and element~=classUI:currentEltUI() then
classUI:maximizeMinimizeElement(element, elements.Env.Minimize)
end
end
local minElts = sequenceUI:find("minimize_elements")
assert(minElts)
local maxElts = sequenceUI:find("maximize_elements")
assert(maxElts)
if elements.Env.Minimize == true then
minElts.active = false
maxElts.active = true
else
minElts.active = true
maxElts.active = false
end
end
------ CLOSE EDITOR ------------------------------------------
function r2.logicUI:closeEditor(classUI)
-- reset current dialog and current chat
classUI:setCurrentEltUIId(nil)
end
------- UTILS ------------------------------------------------
function r2.logicUI:findElementUIFromInstance(classUI, instance)
local sequenceUI = classUI:currentSequUI()
assert(sequenceUI)
local eltsList = sequenceUI:find("elements_list")
assert(eltsList)
for i=0,eltsList.childrenNb-1 do
local element = eltsList:getChild(i)
if r2.logicUI:getEltUIInstId(element) == instance.InstanceId then
return element
end
end
return nil
end