VCLua версия 1.0 для графического интерфейса (GUI) в QUIK
Пользователь
Сообщений: Регистрация: 20.03.2023
18.04.2025 15:42:53
Сразу предупрежу, использовать GUI в QUIK через сторонние библиотеки -- это не для нубов Откуда качать, как устанавливать и примеры кода -- в следующих двух сообщениях.
VCLua - это название графической библиотеки для Lua.
У неё есть несколько версий и они все между собой не совместимы (то есть код на Lua, годящийся для создания GUI с использованием одной из версий VCLua типа 0.5, 0.6.2, 0.9.2 и 1.0, не будет работать с другой версией VCLua). Причины этого среди прочего в том, что разные версии VCLua используют внутри разные версии LCL - графической библиотеки для Free Pascal.
Я значительно расширил VCLua 0.9.2, почти полностью переписав, и зарелизил , использующую LCL 3.2. Общие принципы программирования остались те же.
Последние полгода она стабильно работает на QUIK 11 и 12 под Lua 5.4.
Я использую для рисования стаканов
и управления скриптом
Доступна очень подробная , но она на английском и про добавление GUI в отдельностоящий скрипт на Lua, про QUIK там ни слова.
Есть графическая утилита для рисования формы , которую потом можно сохранить в json и использовать (в т.ч. менять) в своих скриптах.
Здесь я попытаюсь дополнительно задокументировать на русском то, что важно для программирования GUI через VCLua 1.0 для QUIK.
Библиотека основана на визуальных контролах LCL 3.2, поэтому всю документацию этих контролов следует искать в (для более новой версии, чем 3.2), а не в документации к VCLua. Однако то, какие из этих контролов доступны, и какие их поля и методы доступны, как их вызывать из Lua, следует искать в (нажмите Download raw file) к VCLua. Как контролы выглядят и что делают их поля, можно вживую увидеть или в , или установив , или почитав
LCL уже давно использует кодировку символов UTF8, в отличие от ранних версий VCLua и в отличие от QUIK, который до сих пор на 1251. Поэтому, чтобы видеть русские символы в VCLua, нужно конвертировать из квиковской 1251 в UTF8 с помощью функции VCL.UTF8. Обратно через VCL.WinCP, что нужно, например, для сохранения файлов, путь к которым получен из диалога VCLua.
Если у вас несколько скриптов будут использовать VCLua, то лучше использовать разные файлы core.dll. В противном случае после закрытия одного из скриптов вы не сможете его запустить второй раз, пока не закроете все остальные скрипты (и тем самым не выгрузите библиотеку core.dll из памяти). Также при использовании одного файла core.dll есть ограничение на то, что главные формы разных скриптов должны иметь разные названия (у всех компонентов LCL есть внутренние названия).
LCL является однопоточной библиотекой, а скрипты в квике как минимум двухпоточные. Поэтому, чтобы избежать падений VCLua, а вместе с ней и квика, следует обновлять GUI только из того же потока, где была запущена основная форма. Начиная с версии VCLua 1.0 стало возможным запускать GUI из потока квика main вместо главного потока. Я делаю только так, вариант со стартом в главном потоке квика не тестирую. В частности, я не пытался стартовать GUI из кода индикатора, но это возможно.
Необдуманная установка обработчиков событий может привести к , особенно если устанавливать их из разных потоков.
В документации большой посвящён тому, как обрабатывать ошибки при использовании библиотеки и почему для этого нельзя использовать GUI самой библиотеки. Для квика я во всех скриптах использую один и тот же код как в примере стакана ниже.
Размер dll 6.7 мегабайт, все LCL dll большие. Даже если вы выкинете из библиотеки те контролы, которые вы не используете, и перекомпилируете, сильно меньше она не станет.
Пользователь
Сообщений: Регистрация: 20.03.2023
18.04.2025 15:51:17
Скачивание
Я настоятельно не рекомендую пользоваться Lua 5.3 в квике для скриптов, которые используют много объектов, созданных в DLL, поэтому публично выкладываю пока что только версию для 5.4. Качать её на данный момент можно (Download raw file) . На пока что немного более старая версия, хоть и тоже 1.0. Документация к библиотеке см. выше. Можно скачать class reference. Скачать vt-form можно (Download raw file)
Установка VCLua 1.0
Рекомендуемый вариант -- установка для каждого скрипта отдельно.
В папке со скриптом, откуда будет запускаться единственный использующий VCLua 1.0 скрипт, создайте иерархию папок 5.4/vcl и положите внутрь неё файл core.dll.
Альтернативный вариант, годится, если у вас только один скрипт будет использовать VCLua 1.0, или все ваши гуи скрипты уже отлажены и не ломаются.
Создайте скрипт со строкой "message(package.cpath, 1)" и запустите его в квике.
В окне сообщений появится строка, по которой можно понять, куда можно положить vcl\core.dll: в любую папку, предшествующую знаку вопроса.
Например, при строке "C:\BCS_Work\QUIK_BCS\?.dll;C:\BCS_Work\QUIK_BCS\. .\lib\lua\5.4\?.dll;C:\BCS_Work\QUIK_BCS\loadall.dll;.\?.dll" можно использовать папки C:\BCS_Work\QUIK_BCS, C:\BCS_Work\QUIK_BCS\. .\lib\lua\5.4 (я использую эту) и текущую папку скрипта (.).
В выбранной папке создаёте папку vcl и кладёте туда core.dll.
Пример использования в следующем сообщении.
Установка vt-form (0.9.2).
Распакуйте архив vt-form.zip в отдельную папку
Сделайте доступным для этой папки core.dll одним из двух вариантов выше.
Добавьте main.lua из той папки в квик и запустите в Lua 5.4.
Вообще говоря, это обычный Lua скрипт, не имеющий связи с квиком, поэтому запускать его можно отдельно, если стоит интерпретатор Lua, главное установить core.dll так, чтобы скрипт её видел. После этого можно в командной строке сделать так (если архив распакован в f:\Work\Dev\vt-form\vt-form\src):
Если нужно использовать в своих скриптах json, полученный из vt-form, нужно глобально установить в квик Файлы copy.lua, json.lua, и loader.lua:
Создайте скрипт со строкой "message(package.path, 1)" и запустите его в квике.
В окне сообщений появится строка, по которой можно понять, куда можно положить эти три файла: в любую папку, предшествующую знаку вопроса.
Например, при строке "C:\BCS_Work\QUIK_BCS\lua\?.lua;C:\BCS_Work\QUIK_BCS\lua\?\init.lua;C:\BCS_Work\QUIK_BCS\?.lua;C:\BCS_Work\QUIK_BCS\?\init.lua;C:\BCS_Work\QUIK_BCS\. .\share\lua\5.4\?.lua;C:\BCS_Work\QUIK_BCS\. .\share\lua\5.4\?\init.lua;.\?.lua;.\?\init.lua" их можно положить в папки C:\BCS_Work\QUIK_BCS\lua, C:\BCS_Work\QUIK_BCS, C:\BCS_Work\QUIK_BCS\. .\share\lua\5.4 (у меня они тут) или в текущю папку скрипта (.).
Пример использования в следующем сообщении.
Пользователь
Сообщений: Регистрация: 20.03.2023
18.04.2025 16:03:28
Мои скрипты имеют общую структуру:
Код
-- если 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
-- никакого обращения к VCLua не должно быть в колбэках QUIK, если сделали form:Show() в main
function OnStop()
is_run = false
end
local function CreateFormStaticPart()
-- статическая часть формы, вручную или через json
end
local function CreateForm()
CreateFormStaticPart()
form.OnCl ose = function()
OnStop() -- можно убрать и тогда форма будет сворачиваться на закрытии
return 'caMinimize'
end
-- динамическая часть формы, обработчики сообщений
...
--
form:Show()
end
local function CloseForm(form, method)
-- в середине работы можно вызывать Hide вместо Free; после Hide можно сделать form:Show(), чтобы форма снова стала видимой
form[method](form)
end
local function CloseAllForms()
CloseForm(form_1, 'Free')
...
CloseForm(form_n, 'Free')
end
function main()
-- создаём форму в потоке main, а не в основном потоке квика
CreateForm()
while is_run do
-- обновляем GUI, делаем свои дела
...
-- отрисовываем обновление стакана и обрабатываем события
ProcessMessages(app)
-- для простоты спим, в реальном скрипте используются сообщения и MsgWaitForMultipleObjectsEx
sleep(1)
end
CloseAllForms()
-- обрабатываем события закрытия форм
app:ProcessMessages()
end
Пример стакана с программированием формы вручную, без json
Скрытый текст
Код
-- если 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
Пример стакана с загружаемой и обновляемой через json формой json:
-- если 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
Файлы на диске расположены так:
Код
vcl-quotes\5.3\vcl\core.dll -- это мне для тестов, у вас нету
vcl-quotes\5.4\vcl\core.dll
vcl-quotes\CRM5.json -- эти два файла создаются при исполнении quote-example-json.lua, в зависимости от настроек внутри
vcl-quotes\MXM5.json
vcl-quotes\quote-example.json
vcl-quotes\quote-example.lua
vcl-quotes\quote-example-json.lua
Все эти json можно загрузить в vt-form и поковыряться.
