keyfinity/parameters.lua at master · mentalblood0/keyfinity · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
local parameters = {}

parameters.groups = {}

function parameters:newGroup(groupName)
    parameters.groups[groupName] = {raw = {}, converted = {}}
end

function parameters:getValue(groupName, key)
    return parameters.groups[groupName][key]
end

function parameters:addText(parentElement, text, elementTextReferTo)
    local textElement = gui.Create("text")
    if elementTextReferTo then
        elementTextReferTo.nameText = textElement
    end
    textElement:SetText(text)
    parentElement:AddItem(textElement)

    table.insert(currentElements, textElement)
end

function parameters:registerModeParameter(groupName, internalName, element, valueType, fileExtension)
    parameters.groups[groupName].raw[internalName] = {}
    parameters.groups[groupName].raw[internalName].element = element
    parameters.groups[groupName].raw[internalName].valueType = valueType
    parameters.groups[groupName].raw[internalName].fileExtension = fileExtension
end

function parameters:loadDefaultValueFromTable(internalName, table)
    return table[internalName]
end

function parameters:addIntegerNumberbox(groupName, parentElement, name, internalName, minValue, maxValue, step, defaultValue, tableToLoadDefaultValueFrom)
    if tableToLoadDefaultValueFrom then
        defaultValue = parameters:loadDefaultValueFromTable(internalName, tableToLoadDefaultValueFrom)
    end

    local numberbox = gui.Create("numberbox")
    parameters:addText(parentElement, name, numberbox)
    parentElement:AddItem(numberbox)
    numberbox:SetIncreaseAmount(step)
    numberbox:SetDecreaseAmount(step)
    numberbox:SetValue(defaultValue)
    numberbox:SetMinMax(minValue, maxValue)
    numberbox:setProperFontSize(currentState.defaultFontFileName)

    parameters:registerModeParameter(groupName, internalName, numberbox, "integer")

    currentElements[internalName .. "Numberbox"] = numberbox
end

function parameters:addColorChanger(groupName, parentElement, name, internalName, defaultColor, tableToLoadDefaultValueFrom)
    if tableToLoadDefaultValueFrom then
        defaultColor = parameters:loadDefaultValueFromTable(internalName, tableToLoadDefaultValueFrom)
    end

    local colorChanger = complexGui:Create("colorChanger")
    parameters:addText(parentElement, name, colorChanger)
    colorChanger:setColor(defaultColor)
    parentElement:AddItem(colorChanger)

    parameters:registerModeParameter(groupName, internalName, colorChanger, "color")

    currentElements[internalName .. "ColorChanger"] = colorChanger
end

function parameters:addTextInput(groupName, parentElement, name, internalName, defaultValue, fileExtension, tableToLoadDefaultValueFrom)
    if tableToLoadDefaultValueFrom then
        defaultValue = parameters:loadDefaultValueFromTable(internalName, tableToLoadDefaultValueFrom)
    end

    local textInput = gui.Create("textinput")
    parameters:addText(parentElement, name, textInput)
    parentElement:AddItem(textInput)
    textInput:setProperFontSize(currentState.defaultFontFileName)
    textInput:SetText(defaultValue)

    parameters:registerModeParameter(groupName, internalName, textInput, "string", fileExtension)

    currentElements[internalName .. "TextInput"] = textInput
end

function parameters:addMultichoice(groupName, parentElement, name, internalName, defaultValue, choices, tableToLoadDefaultValueFrom)
    if tableToLoadDefaultValueFrom then
        defaultValue = parameters:loadDefaultValueFromTable(internalName, tableToLoadDefaultValueFrom)
    end

    local multichoice = gui.Create("multichoice")
    parameters:addText(parentElement, name, multichoice)
    for key, choice in pairs(choices) do
        multichoice:AddChoice(choice)
    end
    multichoice:SetChoice(defaultValue)
    parentElement:AddItem(multichoice)

    parameters:registerModeParameter(groupName, internalName, multichoice, "choice")

    currentElements[internalName .. "Multichoice"] = multichoice
end

function parameters:addScreenElementsEditor(parentElement, name, internalName)
    local screenElementsEditor = complexGui:Create("screenElementsEditor")
    parameters:addText(parentElement, name, screenElementsEditor)
    screenElementsEditor:addElement()
    screenElementsEditor:addElement()
    screenElementsEditor:addElement()

    parentElement:AddItem(screenElementsEditor)

    currentElements[internalName .. "ScreenElementsEditor"] = screenElementsEditor
end

function parameters:convert(groupName)
    parameters.groups[groupName].converted = {}
    for parameterInternalName, parameter in pairs(parameters.groups[groupName].raw) do
        if parameter.valueType == "integer" then
            parameters.groups[groupName].converted[parameterInternalName] = tonumber(parameter.element:GetValue())
            if parameters.groups[groupName].converted[parameterInternalName] == nil then
                return false
            end
        elseif parameter.valueType == "string" then
            parameters.groups[groupName].converted[parameterInternalName] = parameter.element:GetText()
        elseif parameter.valueType == "color" then
            parameters.groups[groupName].converted[parameterInternalName] = parameter.element:getColor()
        elseif parameter.valueType == "choice" then
            parameters.groups[groupName].converted[parameterInternalName] = parameter.element:GetChoice()
        end

    end
    return true
end

function parameters:writeToTable(groupName, table)
    for parameterName, parameterValue in pairs(parameters.groups[groupName].converted) do
        table[parameterName] = parameterValue
    end
end

function parameters:convertAndWriteToTable(groupName, table)
    parameters:convert(groupName)
    parameters:writeToTable(groupName, table)
end

return parameters