-- если VCLua установлена локально для скрипта
package.cpath=getScriptPath()..'/'.._VERSION:sub(5)..'/?.dll;'..package.cpath
VCL = require "vcl.core"
local app = VCL.Application()
local ProcessMessages = app.ProcessMessages
-- необходимая магическая строка
app:Initialize()
-- если внутри VCLua или в ваших колбэках случится ошибка, вызовется эта функция
local function print_error(s)
  message(s,  3)
  PrintDbgStr(s..'\n'..debug.traceback(nil,2))
end
VCL.SetErrorReporter(print_error)

U = VCL.UTF8
W = VCL.WinCP -- в данном скрипте не используется

local tickers = {
  ['MXM5'] = {class='SPBFUT', sec='MXM5'},
  ['CRM5'] = {class='SPBFUT', sec='CRM5'},
  ['CNYRUB_TOM'] = {class='CETS', sec='CNYRUB_TOM'},
}
local ticker = tickers['MXM5']
local depths = {SPBFUT = 20, CETS = 20, TQBR = 10}

local fmt = string.format

local is_run = true

local function Unsub()
  local cnt = 0
  while not Unsubscribe_Level_II_Quotes(ticker.class,ticker.sec) and cnt<50 do sleep(1); cnt = cnt + 1 end
  message(ticker.sec..fmt(' статус подписки %s после %d попыток',IsSubscribed_Level_II_Quotes(ticker.class,ticker.sec),cnt), 1)
end

-- никакого обращения к VCLua не должно быть в колбэках QUIK, если сделали form:Show() в main
function OnStop()
  is_run = false
  Unsub()
end

local function CreateFormStaticPart(sec)
by_name = {}
quotes = VCL.Form(nil, "quotes")
by_name.quotes = quotes
grid = VCL.StringGrid(quotes, "grid")
by_name.grid = grid
stat = VCL.Label(quotes, "stat")
by_name.stat = stat
lPrice = VCL.Label(quotes, "lPrice")
by_name.lPrice = lPrice
ePrice = VCL.FloatSpinEdit(quotes, "ePrice")
by_name.ePrice = ePrice
eQuantity = VCL.SpinEdit(quotes, "eQuantity")
by_name.eQuantity = eQuantity
lQuantity = VCL.Label(quotes, "lQuantity")
by_name.lQuantity = lQuantity
quotes._ = {
    FormStyle = 'fsStayOnTop',
    Width = 319,
    Top = 577,
    Font = {
        Size = 9,
    },
    Left = 1563,
    Height = 400,
}
grid._ = {
    Columns = {
        {
            Color = 8446885,
            Title = {
                Caption = U('Своя'),
                Alignment = 'taCenter',
            },
            Font = {
                Color = 16711935,
            },
            Alignment = 'taRightJustify',
            Width = 34,
        },
        {
            Width = 45,
            Alignment = 'taRightJustify',
            Color = 8446885,
            Title = {
                Caption = U('Сумма'),
                Alignment = 'taLeftJustify',
            },
        },
        {
            Width = 45,
            Alignment = 'taRightJustify',
            Color = 8446885,
            Title = {
                Caption = U('Лоты'),
                Alignment = 'taCenter',
            },
        },
        {
            Width = 35,
            Alignment = 'taRightJustify',
            Color = 8446885,
            Title = {
                Caption = U('Цена'),
                Alignment = 'taCenter',
            },
        },
        {
            Width = 35,
            Alignment = 'taRightJustify',
            Color = 10791167,
            Title = {
                Caption = U('Цена'),
                Alignment = 'taCenter',
            },
        },
        {
            Width = 45,
            Alignment = 'taRightJustify',
            Color = 10791167,
            Title = {
                Caption = U('Лоты'),
                Alignment = 'taCenter',
            },
        },
        {
            Width = 45,
            Alignment = 'taRightJustify',
            Color = 10791167,
            Title = {
                Caption = U('Сумма'),
                Alignment = 'taLeftJustify',
            },
        },
        {
            Color = 10791167,
            Title = {
                Caption = U('Своя'),
                Alignment = 'taCenter',
            },
            Font = {
                Color = 16711935,
            },
            Alignment = 'taRightJustify',
            Width = 35,
        },
    },
    DefaultRowHeight = 17,
    Align = 'alNone',
    GridLineColor = 'clBtnFace',
    FixedColor = 'clWindow',
    AnchorSideBottom = {
        Control = stat,
    },
    BorderStyle = 'bsNone',
    AutoEdit = false,
    Width = 319,
    AnchorSideTop = {
        Control = quotes,
    },
    AnchorSideRight = {
        Control = quotes,
        Side = 'asrBottom',
    },
    AnchorSideLeft = {
        Control = quotes,
    },
    Options = '[goFixedVertLine,goVertLine,goColSizing,goDblClickAutoSize,goSmoothScroll,goRowHighlight]',
    Anchors = '[akTop,akLeft,akRight,akBottom]',
    Flat = true,
    FixedCols = 0,
    RowCount = 21,
}
stat._ = {
    AnchorSideBottom = {
        Control = eQuantity,
        Side = 'asrTop',
    },
    AnchorSideLeft = {
        Control = quotes,
    },
    AnchorSideRight = {
        Control = quotes,
        Side = 'asrBottom',
    },
    Alignment = 'taCenter',
    Anchors = '[akLeft,akRight,akBottom]',
}
lPrice._ = {
    Caption = U('Цена'),
    AnchorSideBottom = {
        Control = ePrice,
        Side = 'asrCenter',
    },
    AnchorSideLeft = {
        Control = quotes,
    },
    Anchors = '[akLeft,akBottom]',
}
ePrice._ = {
    AnchorSideBottom = {
        Control = eQuantity,
        Side = 'asrBottom',
    },
    Increment = 0.001,
    BorderSpacing = {
        Left = 5,
        Right = 5,
    },
    MaxValue = 2147483647.0,
    Anchors = '[akLeft,akRight,akBottom]',
    AnchorSideLeft = {
        Control = lPrice,
        Side = 'asrBottom',
    },
    AnchorSideRight = {
        Control = lQuantity,
    },
    Caption = '0,00',
    DecimalPlaces = 3,
    MinValue = 0.0,
}
eQuantity._ = {
    Width = 75,
    AnchorSideBottom = {
        Control = quotes,
        Side = 'asrBottom',
    },
    BorderSpacing = {
        Left = 5,
        Right = 5,
    },
    Caption = '1',
    AnchorSideRight = {
        Control = quotes,
        Side = 'asrBottom',
    },
    MaxValue = 2147483647.0,
    Anchors = '[akRight,akBottom]',
    MinValue = 1.0,
}
lQuantity._ = {
    AnchorSideRight = {
        Control = eQuantity,
    },
    AnchorSideBottom = {
        Control = eQuantity,
        Side = 'asrCenter',
    },
    Caption = U('Лот'),
    Anchors = '[akRight,akBottom]',
}
  form = quotes
end

-- переменные для связи между потоками скрипта
local cb_t, recv_t = {}, {}


local function CreateForm()
  local sec = ticker.sec
  CreateFormStaticPart(sec)
  -- U чтобы не было кракозябр
  form.Caption = ticker.class..'-'..sec..U(' стакан')
  form.OnCl ose = function()
    OnStop()  -- можно убрать и тогда стакан будет сворачиваться на закрытии
    return 'caMinimize'
  end
  local info = getSecurityInfo(ticker.class, ticker.sec)
  if info then
    -- настраиваем поле ввода цены согласно параметрам инструмента
    by_name.ePrice.DecimalPlaces = info.scale
    by_name.ePrice.Increment = info.min_price_step
  end

  local grid = by_name.grid
  -- по нажатию левой кнопки мыши на некоторых ячейках стакана поле цены будет меняться
  local function setp(c,r)
    local price = grid:Cells(c <= 1 and 3 or 4, r)
    if price ~= "" then by_name.ePrice.Value = price end
  end
  local col_funcs = {setp, setp, [7] = setp, [8] = setp}
  grid.OnMouseD own = function(_,Button,Shift,X,Y)
    local col, row = grid:MouseToCell2(X,Y)
    if row == 0 then return end
    if Button == "mbLeft" and (col < 2 or col > 5) then
      -- нумерация в Lua от 1, а в Free Pascal от 0, поэтому col+1
      col_funcs[col+1](col, row)
    end
  end
  -- глубина стакана зависит от инструмента и от сервера, + 1 для заголовка
  grid.RowCount = depths[ticker.class] + 1
  -- некоторые параметры удобнее менять при исполнении, чем искать способ в LCL сделать автоматически как хочется
  local function on_change_width()
    local mid = form.Width // 2
    by_name.eQuantity.Width = by_name.eQuantity.Left - mid + by_name.eQuantity.Width
  end
  -- вызывается при изменении ширины заголовков, делает ширины симметричными
  grid.OnHeaderSi zed = function(o,_,index)
    local c = o.Columns
    c:Items(c.Count-1-index).Width = c:Items(index).Width
    local rect = o:CellRect(o.ColCount-1, o.RowCount-1)
    form.Width = rect.right
    on_change_width()
  end
  -- высота стакана подстраивается по нажатию мыши на поле статистики
  by_name.stat.OnMouseD own = function(_,Button,Shift,X,Y)
    on_change_width()
    local rect = grid:CellRect(grid.ColCount-1, grid.RowCount-1)
    local h = form.Height + rect.bottom - grid.Height
    form.Constraints.MinHeight = h
    form.Height = h
  end
  -- НЕ модально показываем форму, поэтому потребуется регулярный вызов ProcessMessages
  form:Show()

  local was = IsSubscribed_Level_II_Quotes(ticker.class,sec)
  local subscribed = Subscribe_Level_II_Quotes(ticker.class,sec)
  local cnt = 0
  if subscribed then
    while not IsSubscribed_Level_II_Quotes(ticker.class,sec) and is_run do sleep(1); cnt = cnt + 1 end
  end
  message(sec..fmt(' подписка %s изначально %s после %d попыток',subscribed,was,cnt), cnt > 5 and 3 or 1)

  cb_t[ticker.sec] = {sent=0}
  recv_t[ticker.sec] = {updates=0,received=0,class=ticker.class,depth=depths[ticker.class],by_name=by_name}

  -- в поле цены ставим цену последней сделки, если есть
  local last = getParamEx(ticker.class, sec, "LAST")
  if last then by_name.ePrice.Value = tonumber(last.param_value) end
end

local function CloseForm(form, method)
  -- в середине работы можно вызывать Hide вместо Free; после Hide можно сделать form:Show(), чтобы форма снова стала видимой
  form[method](form)
end

local function CloseAllForms()
  CloseForm(form, 'Free')
end

-- никакого обращения к VCLua не должно быть в колбэках QUIK, если сделали form:Show() в main
function OnQuote(class_code, sec_code)
  local sent = cb_t[sec_code]
  -- сохраняем номер срабатывания колбэка для данного sec_code
  if sent then sent.sent = sent.sent + 1 end
end

-- чисто для скорости работы
local sc = VCL.GetCallable('TStringGrid','SetCells')
local BeginUpdate = VCL.GetCallable('TStringGrid','BeginUpdate')
local EndUpdate = VCL.GetCallable('TStringGrid','EndUpdate')
local tointeger = math.tointeger
local getQuoteLevel2 = getQuoteLevel2

-- реализация обновления стакана
local function updateGrid()
  local sec = ticker.sec
  local recv = recv_t[sec]
  local s = cb_t[sec].sent
  local p,pq,q,last,pqs,quantity
  -- если номер срабатывания колбэка вырос...
  if recv.received < s then
    -- ...сохраним новый и обновим стакан
    recv.received = s
    local depth = recv.depth
    local by_name = recv.by_name

    local updates = recv.updates + 1
    recv.updates = updates
    updates = s - updates
    -- выводим потери обновлений стакана
    by_name.stat.Caption = fmt('%d/%d=%.1f%%',updates,s,updates/s*100)

    local grid = by_name.grid
    local qt = getQuoteLevel2(recv.class, sec)
    pqs = qt.bid
    BeginUpdate(grid)
    if pqs then
      last = tointeger(qt.bid_count)
      q = 0
      local last1 = last + 1
      for i = 1,last do
        pq = pqs[last1 - i]
        p = pq.price
        sc(grid,3,i,p)
        quantity = pq.quantity
        sc(grid,2,i,quantity)
        q = q + tointeger(quantity)
        sc(grid,1,i,q)
      end
      if last < depth then
        for i = last1,depth do
          sc(grid,3,i,'')
          sc(grid,2,i,'')
          sc(grid,1,i,'')
        end
      end
    end
    pqs = qt.offer
    if pqs then
      last = tointeger(qt.offer_count)
      q = 0
      for i = 1,last do
        pq = pqs[i]
        p = pq.price
        sc(grid,4,i,p)
        quantity = pq.quantity
        sc(grid,5,i,quantity)
        q = q + tointeger(quantity)
        sc(grid,6,i,q)
      end
      if last < depth then
        for i = last+1,depth do
          sc(grid,4,i,'')
          sc(grid,5,i,'')
          sc(grid,6,i,'')
        end
      end
    end
    EndUpdate(grid)
  end
end

function main()
  -- создаём форму в потоке main, а не в основном потоке квика
  CreateForm()
  while is_run do
    -- обновляем стакан
    updateGrid()
    -- отрисовываем обновление стакана и обрабатываем события
    ProcessMessages(app)
    sleep(1)
  end

  CloseAllForms()
  -- обрабатываем события закрытия форм
  app:ProcessMessages()
end

{
  "class": "Form",
  "items": [
    {
      "class": "StringGrid",
      "items": {
      },
      "name": "grid",
      "props": {
        "Align": "alNone",
        "AnchorSideBottom": {
          "Control": "quotes.stat.vt-form",
        },
        "AnchorSideLeft": {
          "Control": "quotes.vt-form",
        },
        "AnchorSideRight": {
          "Control": "quotes.vt-form",
          "Side": "asrBottom",
        },
        "AnchorSideTop": {
          "Control": "quotes.vt-form",
        },
        "Anchors": "[akTop,akLeft,akRight,akBottom]",
        "AutoEdit": false,
        "BorderStyle": "bsNone",
        "Columns": [
          {
            "Alignment": "taRightJustify",
            "Color": 8446885,
            "Font": {
              "Color": 16711935,
            },
            "Title": {
              "Alignment": "taCenter",
              "Caption": "Своя",
            },
            "Width": 34,
          }, {
            "Alignment": "taRightJustify",
            "Color": 8446885,
            "Title": {
              "Alignment": "taLeftJustify",
              "Caption": "Сумма",
            },
            "Width": 45,
          }, {
            "Alignment": "taRightJustify",
            "Color": 8446885,
            "Title": {
              "Alignment": "taCenter",
              "Caption": "Лоты",
            },
            "Width": 45,
          }, {
            "Alignment": "taRightJustify",
            "Color": 8446885,
            "Title": {
              "Alignment": "taCenter",
              "Caption": "Цена",
            },
            "Width": 35,
          }, {
            "Alignment": "taRightJustify",
            "Color": 10791167,
            "Title": {
              "Alignment": "taCenter",
              "Caption": "Цена",
            },
            "Width": 35,
          }, {
            "Alignment": "taRightJustify",
            "Color": 10791167,
            "Title": {
              "Alignment": "taCenter",
              "Caption": "Лоты",
            },
            "Width": 45,
          }, {
            "Alignment": "taRightJustify",
            "Color": 10791167,
            "Title": {
              "Alignment": "taLeftJustify",
              "Caption": "Сумма",
            },
            "Width": 45,
          }, {
            "Alignment": "taRightJustify",
            "Color": 10791167,
            "Font": {
              "Color": 16711935,
            },
            "Title": {
              "Alignment": "taCenter",
              "Caption": "Своя",
            },
            "Width": 35,
          }, 
        ],
        "DefaultRowHeight": 17,
        "FixedColor": -2147483643,
        "FixedCols": 0,
        "Flat": true,
        "GridLineColor": -2147483633,
        "Options": "[goFixedVertLine,goVertLine,goColSizing,goDblClickAutoSize,goSmoothScroll,goRowHighlight]",
        "RowCount": 21,
        "Width": 319,
      },
    }, {
      "class": "Label",
      "items": {
      },
      "name": "stat",
      "props": {
        "Alignment": "taCenter",
        "AnchorSideBottom": {
          "Control": "quotes.eQuantity.vt-form",
          "Side": "asrTop",
        },
        "AnchorSideLeft": {
          "Control": "quotes.vt-form",
        },
        "AnchorSideRight": {
          "Control": "quotes.vt-form",
          "Side": "asrBottom",
        },
        "Anchors": "[akLeft,akRight,akBottom]",
      },
    }, {
      "class": "Label",
      "items": {
      },
      "name": "lPrice",
      "props": {
        "AnchorSideBottom": {
          "Control": "quotes.ePrice.vt-form",
          "Side": "asrCenter",
        },
        "AnchorSideLeft": {
          "Control": "quotes.vt-form",
        },
        "Anchors": "[akLeft,akBottom]",
        "Caption": "Цена",
      },
    }, {
      "class": "FloatSpinEdit",
      "items": {
      },
      "name": "ePrice",
      "props": {
        "AnchorSideBottom": {
          "Control": "quotes.eQuantity.vt-form",
          "Side": "asrBottom",
        },
        "AnchorSideLeft": {
          "Control": "quotes.lPrice.vt-form",
          "Side": "asrBottom",
        },
        "AnchorSideRight": {
          "Control": "quotes.lQuantity.vt-form",
        },
        "Anchors": "[akLeft,akRight,akBottom]",
        "BorderSpacing": {
          "Left": 5,
          "Right": 5,
        },
        "Caption": "0,00",
        "DecimalPlaces": 3,
        "Increment": 0.001,
        "MaxValue": 2147483647.0,
        "MinValue": 0.0,
      },
    }, {
      "class": "SpinEdit",
      "items": {
      },
      "name": "eQuantity",
      "props": {
        "AnchorSideBottom": {
          "Control": "quotes.vt-form",
          "Side": "asrBottom",
        },
        "AnchorSideRight": {
          "Control": "quotes.vt-form",
          "Side": "asrBottom",
        },
        "Anchors": "[akRight,akBottom]",
        "BorderSpacing": {
          "Left": 5,
          "Right": 5,
        },
        "Caption": "1",
        "MaxValue": 2147483647.0,
        "MinValue": 1.0,
        "Width": 75,
      },
    }, {
      "class": "Label",
      "items": {
      },
      "name": "lQuantity",
      "props": {
        "AnchorSideBottom": {
          "Control": "quotes.eQuantity.vt-form",
          "Side": "asrCenter",
        },
        "AnchorSideRight": {
          "Control": "quotes.eQuantity.vt-form",
        },
        "Anchors": "[akRight,akBottom]",
        "Caption": "Лот",
      },
    }, 
  ],
  "name": "quotes",
  "props": {
    "Font": {
      "Size": 9,
    },
    "FormStyle": "fsStayOnTop",
    "Height": 400,
    "Left": 1563,
    "Top": 577,
    "Width": 319,
  },
}

-- если VCLua установлена локально для скрипта
package.cpath=getScriptPath()..'/'.._VERSION:sub(5)..'/?.dll;'..package.cpath
VCL = require "vcl.core"
local app = VCL.Application()
local ProcessMessages = app.ProcessMessages
-- необходимая магическая строка
app:Initialize()
-- если внутри VCLua или в ваших колбэках случится ошибка, вызовется эта функция
local function print_error(s)
  message(s,  3)
  PrintDbgStr(s..'\n'..debug.traceback(nil,2))
end
VCL.SetErrorReporter(print_error)

U = VCL.UTF8
W = VCL.WinCP -- в данном скрипте не используется

local tickers = {
  ['MXM5'] = {class='SPBFUT', sec='MXM5'},
  ['CRM5'] = {class='SPBFUT', sec='CRM5'},
  ['CNYRUB_TOM'] = {class='CETS', sec='CNYRUB_TOM'},
}
local ticker = tickers['MXM5']
local depths = {SPBFUT = 20, CETS = 20, TQBR = 10}

local fmt = string.format

local is_run = true

local function Unsub()
  local cnt = 0
  while not Unsubscribe_Level_II_Quotes(ticker.class,ticker.sec) and cnt<50 do sleep(1); cnt = cnt + 1 end
  message(ticker.sec..fmt(' статус подписки %s после %d попыток',IsSubscribed_Level_II_Quotes(ticker.class,ticker.sec),cnt), 1)
end

-- никакого обращения к VCLua не должно быть в колбэках QUIK, если сделали form:Show() в main
function OnStop()
  is_run = false
  Unsub()
end

require "loader"

local path_prefix = getScriptPaths()

local function FormFilename(sec)
  return path_prefix..sec..'.json'
end

-- устанавливает глобальные переменные by_name, form
local function CreateFormStaticPart(sec)
  local fn, ok = FormFilename(sec)
  ok, form, _, by_name = pcall(jsonFormLoad,fn)
  if not ok then
    local e1 = form
    fn = path_prefix..'quote-example.json'
    ok, form, _, by_name = pcall(jsonFormLoad,fn)
    if not ok then error(e1..'\n'..form) end
  end
end

local function UpdateForm(sec, form)
  local fn = FormFilename(sec)
  local ok, js = pcall(fileToJson, fn)
  if not ok then
    local e1 = js
    ok, js = pcall(fileToJson, path_prefix..'quote-example.json')
    if not ok then error(e1..'\n'..js) end
  end
  jsonUpdateWithForm(js, form)
  jsonToFile(js, fn, table.tojson)
end

-- переменные для связи между потоками скрипта
local cb_t, recv_t = {}, {}


local function CreateForm()
  local sec = ticker.sec
  CreateFormStaticPart(sec)
  -- U чтобы не было кракозябр
  form.Caption = ticker.class..'-'..sec..U(' стакан')
  form.OnCl ose = function()
    OnStop()  -- можно убрать и тогда стакан будет сворачиваться на закрытии
    return 'caMinimize'
  end
  local info = getSecurityInfo(ticker.class, ticker.sec)
  if info then
    -- настраиваем поле ввода цены согласно параметрам инструмента
    by_name.ePrice.DecimalPlaces = info.scale
    by_name.ePrice.Increment = info.min_price_step
  end

  local grid = by_name.grid
  -- по нажатию левой кнопки мыши на некоторых ячейках стакана поле цены будет меняться
  local function setp(c,r)
    local price = grid:Cells(c <= 1 and 3 or 4, r)
    if price ~= "" then by_name.ePrice.Value = price end
  end
  local col_funcs = {setp, setp, [7] = setp, [8] = setp}
  grid.OnMouseD own = function(_,Button,Shift,X,Y)
    local col, row = grid:MouseToCell2(X,Y)
    if row == 0 then return end
    if Button == "mbLeft" and (col < 2 or col > 5) then
      -- нумерация в Lua от 1, а в Free Pascal от 0, поэтому col+1
      col_funcs[col+1](col, row)
    end
  end
  -- глубина стакана зависит от инструмента и от сервера, + 1 для заголовка
  grid.RowCount = depths[ticker.class] + 1
  -- некоторые параметры удобнее менять при исполнении, чем искать способ в LCL сделать автоматически как хочется
  local function on_change_width()
    local mid = form.Width // 2
    by_name.eQuantity.Width = by_name.eQuantity.Left - mid + by_name.eQuantity.Width
  end
  -- вызывается при изменении ширины заголовков, делает ширины симметричными
  grid.OnHeaderSi zed = function(o,_,index)
    local c = o.Columns
    c:Items(c.Count-1-index).Width = c:Items(index).Width
    local rect = o:CellRect(o.ColCount-1, o.RowCount-1)
    form.Width = rect.right
    on_change_width()
  end
  -- высота стакана подстраивается по нажатию мыши на поле статистики
  by_name.stat.OnMouseD own = function(_,Button,Shift,X,Y)
    on_change_width()
    local rect = grid:CellRect(grid.ColCount-1, grid.RowCount-1)
    local h = form.Height + rect.bottom - grid.Height
    form.Constraints.MinHeight = h
    form.Height = h
  end
  -- НЕ модально показываем форму, поэтому потребуется регулярный вызов ProcessMessages
  form:Show()

  local was = IsSubscribed_Level_II_Quotes(ticker.class,sec)
  local subscribed = Subscribe_Level_II_Quotes(ticker.class,sec)
  local cnt = 0
  if subscribed then
    while not IsSubscribed_Level_II_Quotes(ticker.class,sec) and is_run do sleep(1); cnt = cnt + 1 end
  end
  message(sec..fmt(' подписка %s изначально %s после %d попыток',subscribed,was,cnt), cnt > 5 and 3 or 1)

  cb_t[ticker.sec] = {sent=0}
  recv_t[ticker.sec] = {updates=0,received=0,class=ticker.class,depth=depths[ticker.class],by_name=by_name}

  -- в поле цены ставим цену последней сделки, если есть
  local last = getParamEx(ticker.class, sec, "LAST")
  if last then by_name.ePrice.Value = tonumber(last.param_value) end
end

local function CloseForm(form, method)
  -- при закрытии сохраняем json с обновлениями сохранённых в json свойств
  UpdateForm(ticker.sec, form)
  -- в середине работы можно вызывать Hide вместо Free; после Hide можно сделать form:Show(), чтобы форма снова стала видимой
  form[method](form)
end

local function CloseAllForms()
  CloseForm(form, 'Free')
end

-- никакого обращения к VCLua не должно быть в колбэках QUIK, если сделали form:Show() в main
function OnQuote(class_code, sec_code)
  local sent = cb_t[sec_code]
  -- сохраняем номер срабатывания колбэка для данного sec_code
  if sent then sent.sent = sent.sent + 1 end
end

-- чисто для скорости работы
local sc = VCL.GetCallable('TStringGrid','SetCells')
local BeginUpdate = VCL.GetCallable('TStringGrid','BeginUpdate')
local EndUpdate = VCL.GetCallable('TStringGrid','EndUpdate')
local tointeger = math.tointeger
local getQuoteLevel2 = getQuoteLevel2

-- реализация обновления стакана
local function updateGrid()
  local sec = ticker.sec
  local recv = recv_t[sec]
  local s = cb_t[sec].sent
  local p,pq,q,last,pqs,quantity
  -- если номер срабатывания колбэка вырос...
  if recv.received < s then
    -- ...сохраним новый и обновим стакан
    recv.received = s
    local depth = recv.depth
    local by_name = recv.by_name

    local updates = recv.updates + 1
    recv.updates = updates
    updates = s - updates
    -- выводим потери обновлений стакана
    by_name.stat.Caption = fmt('%d/%d=%.1f%%',updates,s,updates/s*100)

    local grid = by_name.grid
    local qt = getQuoteLevel2(recv.class, sec)
    pqs = qt.bid
    BeginUpdate(grid)
    if pqs then
      last = tointeger(qt.bid_count)
      q = 0
      local last1 = last + 1
      for i = 1,last do
        pq = pqs[last1 - i]
        p = pq.price
        sc(grid,3,i,p)
        quantity = pq.quantity
        sc(grid,2,i,quantity)
        q = q + tointeger(quantity)
        sc(grid,1,i,q)
      end
      if last < depth then
        for i = last1,depth do
          sc(grid,3,i,'')
          sc(grid,2,i,'')
          sc(grid,1,i,'')
        end
      end
    end
    pqs = qt.offer
    if pqs then
      last = tointeger(qt.offer_count)
      q = 0
      for i = 1,last do
        pq = pqs[i]
        p = pq.price
        sc(grid,4,i,p)
        quantity = pq.quantity
        sc(grid,5,i,quantity)
        q = q + tointeger(quantity)
        sc(grid,6,i,q)
      end
      if last < depth then
        for i = last+1,depth do
          sc(grid,4,i,'')
          sc(grid,5,i,'')
          sc(grid,6,i,'')
        end
      end
    end
    EndUpdate(grid)
  end
end

function main()
  -- создаём форму в потоке main, а не в основном потоке квика
  CreateForm()
  while is_run do
    -- обновляем стакан
    updateGrid()
    -- отрисовываем обновление стакана и обрабатываем события
    ProcessMessages(app)
    sleep(1)
  end

  CloseAllForms()
  -- обрабатываем события закрытия форм
  app:ProcessMessages()
end