QUIK -> DDE — Создание таблиц из скриптов на нужной вкладке

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (swerg) — Thu, 13 Jun 2024 06:34:34 +0000

Задача ваша понятна, но вот идей как это сделать лучше у меня так и не придумалось...

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (igor) — Wed, 12 Jun 2024 16:43:41 +0000

Здесь идея проста. Если каждую вкладку привязать к определённому инструменту, то чтобы скрипт знал, с каким инструментом ему работать, он должен знать, какая вкладка активна в данный момент.
Я не знаю, какая тут может быть идея, кроме периодического вызова TabCtrl_GetItemText. Можно было бы не циклически вызывать эту функцию, а например по клику левой кнопки мыши. Но тогда надо каким-то образом перехватить нажатие левой кнопки мыши...
Но пока у меня такая идея - создать вспомогательный скрипт, который и будет периодически вызывать TabCtrl_GetItemText и передавать имя активной вкладки в основной скрипт с помощью StaticVar. Я думаю, что в этом случае эта функция не будет подвешивать основной скрипт.
Время обновления названия активной вкладки, равное 100мс (и даже 200мс) вполне бы устроило. Главное чтобы это не подвешивало основной скрипт (там итак есть много чего, что могло бы его подвесить)).

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (swerg) — Mon, 10 Jun 2024 11:18:32 +0000

Я думаю, что не смотря на выполнение TabCtrl_GetItemText в другом потоке, она, однако, синхронизируется с основным потоком терминала в том смысле, что Windows синхронизирует обращения к оконной функции (а для получения результата Windows вызывает оконную функцию). Соответственно если основной поток занят (например, перерисовывает графики, обновляет таблицы в терминале при получении торговых данных), то и TabCtrl_GetItemText останавливается до замершения других обработчиков (не Lua, обработчиков терминала и Windows). Могу предположить, что в эти моменты и происходят "провалы" по скорости её ответа.

Так что думаю надо просто придумать другую идею вместо "затрахивания" вызовами TabCtrl_GetItemText.

Хотя я примерно могу предположить для какой задачи у вас сделана такая работа робота.

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (igor) — Sun, 09 Jun 2024 06:35:52 +0000

Да, я из main() вызываю w32.TabCtrl_GetItemText(hTabWnd).
Миллисекунды действительно не критичны. Но здесь речь идёт о величине > 100мс (если не больше). А это уже может быть заметно. Ведь это подвешивает и весь остальной скрипт.
Мне это чем-то напоминает ситуацию с функцией Sleep(1), задержка от которой тоже колеблется от 1мс до ~16мс, а иногда и ещё больше (решается с помощью NtSetTimerResolution).
Вот я и подумал, что может быть аналогичная ситуация и с функцией w32.TabCtrl_GetItemText(hTabWnd). Т.е. возможно она, чтобы отработать, ожидает какого-то сигнала от Windows. И может быть здесь тоже есть какое-нибудь решение, аналогичное решению с функцией Sleep(1).

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (swerg) — Fri, 07 Jun 2024 04:31:48 +0000

igor пишет:

Задача - сделать так, чтобы скрипт постоянно знал, какая вкладка активна в данный момент времени.

У вас "данный момент" наступает так часто, что критичны миллисекунды?

Вообще "под капотом" там простой вызов непосредственно WinAPI функции, так что если и тормозит - то сама Windows в этом месте, видимо нет надобности для пользовательского интерфейса делать это супер быстро и стабильно.

Кстати, а вы не из main() случайно вызываете w32.TabCtrl_GetItemText(hTabWnd)?

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (igor) — Wed, 05 Jun 2024 10:48:07 +0000

Обнаружил, что время выполнения оператора w32.TabCtrl_GetItemText(hTabWnd) очень большое. Точнее оно колеблется от 1мс до ~130мс (непонятно, от чего это зависит).
Никто не знает, чем это вызвано, и можно ли как-нибудь с этим бороться?
Задача - сделать так, чтобы скрипт постоянно знал, какая вкладка активна в данный момент времени.

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (Kolossi) — Sun, 14 Feb 2021 17:46:15 +0000

Это я про запуск после загрузки квика.

Выделяешь все скрипты и запускаешь выделенные. В итоге часть окон не в тех вкладках.
Понятно почему и это не критично, можно запускать по одному.
Наверное если вдруг получится через меню "переместить во вкладку" то этого не будет. Если что я первый в очереди )

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (swerg) — Sun, 14 Feb 2021 16:33:25 +0000

У вас несколько скриптов одновременно создают окна? Именно одновременно?

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (Kolossi) — Sun, 14 Feb 2021 10:32:43 +0000

Однако если запущены одновременно несколько скриптов, то окно таблицы запросто может влететь в чужую вкладку. Текущую для другого вызова функции.

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (Kolossi) — Sun, 14 Feb 2021 08:32:07 +0000

А, понял!
Координаты таблицы надо передавать в текущее окно.
Получилось так:

function OpenTable(Name,kid,pos) -- функция открытия таблицы (kid) с координатами (pos) в нужной вкладке (Name)
    local mmes=""
    local hQuikWnd = GetQuikMainWindowHandle() -- handle главного окна QUIK
    local hTabWnd = 0 --  handle окна вкладок
        if hQuikWnd > 0 then
            hTabWnd = w32.FindWindowEx(hQuikWnd, 0, "SysTabControl32", "")
            if hTabWnd ~= 0 and not w32.IsWindowVisible(hTabWnd) then -- отображение вкладок отключено
                hTabWnd = 0
            end
        end
    if hTabWnd > 0 then --  вкладки в терминале отображаются
        local prevIdx = w32.TabCtrl_GetCurFocus(hTabWnd)  --  индекс текущей активной вкладки
        local idxGr = w32.TabCtrl_GetItemIndexByText(hTabWnd, Name) -- индекс заданной вкладки
        if idxGr >= 0 then -- вкладка найдена
            w32.TabCtrl_SetCurFocus(hTabWnd, idxGr) -- переключение на найденную вкладку
            local txt = w32.TabCtrl_GetItemText(hTabWnd) --  название текущей активной вкладки
            mmes="   Вкладка " .. tostring(txt)
            CreateWindow(kid)
            SetWindowPos(kid, pos.a, pos.b, pos.c, pos.d)
            w32.TabCtrl_SetCurFocus(hTabWnd, prevIdx) -- назад на исходную вкладку
        else
            CreateWindow(kid)
            SetWindowPos(kid, pos.a, pos.b, pos.c, pos.d)
            local txt = w32.TabCtrl_GetItemText(hTabWnd)
            mmes="   Вкладка не найдена. Текущая " .. tostring(txt)
        end
    else -- вкладки не отображены, открываем в текущей
        CreateWindow(kid)
        SetWindowPos(kid, pos.a, pos.b, pos.c, pos.d)
        mmes="   Вкладка текущая"
    end
    return mmes
end

...
local pos={a=0,b=0,c=600,d=990}
local addtxt=OpenTable("Дивиденды",table_id,pos)
SetWindowCaption(table_id," Закрытие дивидендных реестров. "..addtxt)
...
Все супер, спасибо swerg!

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (Kolossi) — Sun, 14 Feb 2021 08:17:33 +0000

Добрый день.
Все вроде отлично, но что-то не так в датском королевстве c позиционированием окна.
Сделал из вашего кода функцию в свою библиотечку:
--

function OpenTable(Name,kid) -- функция открытия таблицы (kid) в нужной вкладке (Name)
    local mmes=""
    local hQuikWnd = GetQuikMainWindowHandle() -- handle главного окна QUIK
    local hTabWnd = 0 --  handle окна вкладок
        if hQuikWnd > 0 then
            hTabWnd = w32.FindWindowEx(hQuikWnd, 0, "SysTabControl32", "")
            if hTabWnd ~= 0 and not w32.IsWindowVisible(hTabWnd) then -- отображение вкладок отключено
                hTabWnd = 0
            end
        end
    if hTabWnd > 0 then --  вкладки в терминале отображаются
        local prevIdx = w32.TabCtrl_GetCurFocus(hTabWnd)  --  индекс текущей активной вкладки
        local idxGr = w32.TabCtrl_GetItemIndexByText(hTabWnd, Name) -- индекс заданной вкладки
        if idxGr >= 0 then -- вкладка найдена
            w32.TabCtrl_SetCurFocus(hTabWnd, idxGr) -- переключение на найденную вкладку
            local txt = w32.TabCtrl_GetItemText(hTabWnd) --  название текущей активной вкладки
            mmes="   Вкладка " .. tostring(txt)
            CreateWindow(kid)
            w32.TabCtrl_SetCurFocus(hTabWnd, prevIdx) -- назад на исходную вкладку
        else
            CreateWindow(kid)
            local txt = w32.TabCtrl_GetItemText(hTabWnd)
            mmes="   Вкладка не найдена. Текущая" .. tostring(txt)
        end
    else -- вкладки не отображены, открываем в текущей
        CreateWindow(kid)
        mmes="   Вкладка текущая"
    end
    return mmes
end

Главный код:
...
local addtxt=OpenTable("Дивиденды",table_id)
SetWindowCaption(table_id," Закрытие дивидендных реестров. "..addtxt)
SetWindowPos(table_id, 0,0, 600, 990)
local a,b,c,d=GetWindowRect(table_id)
message(tostring(a).."-"..tostring(b).."-"..tostring(c).."-"..tostring(d))

Вроде все отлично, таблица попадает прямиком во вкладку "Дивиденды" и message() возвращает 0-0-600-990

Однако левый верхний угол таблицы в окне "Дивиденды" где угодно, только не в 0,0
Что я не понимаю ?

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (swerg) — Sat, 21 Nov 2020 04:03:38 +0000

toxa пишет:

а если через пункт меню "переместить на вкладку"?

Да, вариант. Надо будет поискать подходы. Спасибо за идею!

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (toxa) — Fri, 20 Nov 2020 14:58:30 +0000

а если через пункт меню "переместить на вкладку"?

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (swerg) — Tue, 17 Nov 2020 20:47:09 +0000

< reserved >

Re: Создание таблиц из скриптов на нужной вкладке

null@example.com (swerg) — Tue, 17 Nov 2020 20:42:45 +0000

При переключении вкладок из скрипта всё моргает, конечно, но куда деваться...