require("iuplua")
require("iupluacontrols")
local iup = iup


local function initializeDialog()
    local btn_addSec = iup.button { title = "Add security" }
    function btn_addSec:action()
        iup.Message(config.name, self.title..":action()")
    end

    local vbox = iup.vbox{
        iup.button{ rastersize = "700x100", title = "1", },
        iup.button{ rastersize = "700x100", title = "1", },
        iup.button{ rastersize = "700x100", title = "1", },
        iup.button{ rastersize = "700x100", title = "1", },
        iup.button{ rastersize = "700x100", title = "1", },
        btn_addSec
        ;margin="5x5", gap="2", scrollbar = "VERTICAL",
    }
    local dlg = iup.dialog{ vbox; title = config.name,
        --size =  "HALFxQUARTER",
        rastersize = "800x300",
    }
    function dlg:close_cb()
        local a = iup.Alarm( dlg.title, "Завершить работу?", "Да", "Нет" )
        if a == 1 then
            interrupted = true
            return iup.CLOSE
        else
            return iup.IGNORE
        end
    end

    return dlg
end

function main()
    local dlg = initializeDialog()
    dlg:show()
    while not interrupted do
        iup.LoopStep()
        sleep(50)
    end
    dlg:hide()
    dlg:destroy()
end

--
-- Таблица для управления долей капитала, которую разрешается использовать торговой системе.
--

local AmountPercentTable = {}

--- Конструктор.
-- @param self объект
-- @param accountSecurityPositions объект, хранящий данные о позициях
-- @param step шаг изменения величины, задающей процент использования капитала
local function new(self, accountSecurityPositions, step)
    local tableId = AllocTable()
    local table = {
        tableId = tableId,
        accountSecurityPositions = accountSecurityPositions,
        step = step,
    }
    setmetatable(table, self)
    self.__index = self

    AddColumn(tableId, 1, "Счёт", true, QTABLE_CACHED_STRING_TYPE, 15)
    AddColumn(tableId, 2, "Объём", true, QTABLE_DOUBLE_TYPE, 15)
    AddColumn(tableId, 3, "Процент", true, QTABLE_DOUBLE_TYPE, 10)

    SetTableNotificationCallback(tableId, function(tId, msg, rowId, colId)
        if tableId ~= tId then
            return
        end
        if msg == QTABLE_LBUTTONDBLCLK and colId == 3 then
            local account = GetCell(tableId, rowId, 1).image
            local percent = table.accountSecurityPositions[account].percent
            percent = percent - step
            if percent < 0 then
                percent = 0
            end
            table.accountSecurityPositions[account].percent = percent
            SetCell(tableId, rowId, colId, tostring(percent), percent)
        end
        if msg == QTABLE_RBUTTONDBLCLK and colId == 3 then
            local account = GetCell(tableId, rowId, 1).image
            local percent = table.accountSecurityPositions[account].percent
            percent = percent + step
            if percent > 100 then
                percent = 100
            end
            table.accountSecurityPositions[account].percent = percent
            SetCell(tableId, rowId, colId, tostring(percent), percent)
        end
    end)

    return table
end

AmountPercentTable.new = new

--- Закрыть окно монитора позиций и удалить все его данные.
-- @param self объект
local function delete(self)
    DestroyTable(self.tableId)
    self.tableId = nil
    self.accountSecurityPositions = nil
    self.step = nil
end

AmountPercentTable.delete = delete

local function show(self, caption, windowPosition)
    local tId = self.tableId
    if IsWindowClosed(tId) then
        CreateWindow(tId)
        if type(windowPosition) == "table" then
            local x, y, dx, dy = windowPosition.x, windowPosition.y, windowPosition.dx, windowPosition.dy
            if x and y and dx and dy then
                SetWindowPos(tId, x, y, dx, dy)
            end
        end
    end
    SetWindowCaption(tId, caption)
    local rows = {}
    local rowCount = 0
    for account, securityPositions in pairs(self.accountSecurityPositions) do
        rowCount = rowCount + 1
        rows[rowCount] = {
            account = account,
            amount = securityPositions.amount,
            percent = securityPositions.percent,
        }
    end
    table.sort(rows, function(row1, row2) return row1.account < row2.account end)
    local tableRows = GetTableSize(tId) or 0
    local shouldAddRows = false
    if tableRows ~= rowCount then
        for i = tableRows, 1, -1 do
            DeleteRow(tId, i)
        end
        shouldAddRows = true
    end
    for i = 1, rowCount do
        if shouldAddRows then
            InsertRow(tId, -1)
        end
        local row = rows[i]
        SetCell(tId, i, 1, row.account)
        SetCell(tId, i, 2, tostring(row.amount), row.amount)
        SetCell(tId, i, 3, tostring(row.percent), row.percent)
    end
end

AmountPercentTable.show = show

return AmountPercentTable