Так что думаю надо просто придумать другую идею вместо "затрахивания" вызовами TabCtrl_GetItemText.
Хотя я примерно могу предположить для какой задачи у вас сделана такая работа робота.
]]>Задача - сделать так, чтобы скрипт постоянно знал, какая вкладка активна в данный момент времени.
У вас "данный момент" наступает так часто, что критичны миллисекунды?
Вообще "под капотом" там простой вызов непосредственно WinAPI функции, так что если и тормозит - то сама Windows в этом месте, видимо нет надобности для пользовательского интерфейса делать это супер быстро и стабильно.
Кстати, а вы не из main() случайно вызываете w32.TabCtrl_GetItemText(hTabWnd)?
]]>Выделяешь все скрипты и запускаешь выделенные. В итоге часть окон не в тех вкладках.
Понятно почему и это не критично, можно запускать по одному.
Наверное если вдруг получится через меню "переместить во вкладку" то этого не будет. Если что я первый в очереди )
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!
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
Что я не понимаю ?
а если через пункт меню "переместить на вкладку"?
Да, вариант. Надо будет поискать подходы. Спасибо за идею!
]]>