Визуальный интерфейс QVCLua: обсуждения, замечания, предложения (Страница 13 из 14)

#xzxz.lua
local vcl = require "qvcl"
local myForm
local is_run = true
function OnStop (  )
    if myForm then myForm:Release(); myForm = nil; vcl = nil end
    is_run = false
end
classcodef = 'SPBFUT'
local table_sort, string_gmatch = table.sort, string.gmatch
local string_split = function  ( list, sep )
    local res = {}
    for sec in string_gmatch (list, "(%w+)" ) do
        res[#res+1] = sec
    end
    return res
end
function untab(fun,tab)
    if type(tab)=="table" then
        fun.Items = {}
        for _,i in ipairs(tab) do    fun.Items:Add(tostring(i))    end
    end
end

local function getSecurityFutsBI(sender)
    local SecListTable = string_split(getClassSecurities(classcodef),",")
   -- table_sort(SecListTable)
    untab(sender,SecListTable)
    SecListTable = nil
end

function Handler(Sender,...)
    local SN=Sender.Name
    if SN == "Exit" or SN == "myForm" then OnStop() end
    if SN == "ButtonFullWindow" or SN ==    "Full"     then myForm.windowstate = "wsMaximized" end
    if SN == "ButtonNormWindow" or SN ==    "Norm"    then myForm.windowstate = "wsNormal" end
    if SN == "SCodeBI"            then 
              message (SecurityCodeBI.Text)
    end
end

myForm        =  vcl.Form({Name = "myForm", Height = 280, Width = 260, Caption = "Стоп-заявка. ФОРТС рынок.", 
    Position = "poScreenCenter", OnClose = Handler})
    
mainMenu = vcl.MainMenu(myForm, "Menu")
mainMenu.showhint=true
mainMenu:LoadFromTable({
    {name="Menu", caption="&Меню",   
        submenu={
            {name="Full", caption="&Развернуть", onclick=Handler},
            {name="Norm", caption="&Нормально", onclick=Handler},
            {caption="-",},                    
            {name="Exit", caption="&Выход", onclick=Handler},  
        }
    }
})    

SecurityCodeBI = vcl.ComboBox(myForm, {Name = "SCodeBI", top=40, left=130, Width=120, Text="Выбрать...", OnChange=Handler, ShowHint=true, Hint="Инструмент, по которому выставится условие"})
getSecurityFutsBI(SecurityCodeBI)

myForm:Show()
function main()
    while is_run do
        sleep(20)
    end
    sleep(300)
end

function Fn_DAYS_TO_MAT_DATE ( base, d )
    local v, s, dtmd = 10000
    for sec in string_gmatch ( getClassSecurities( "SPBFUT" ), "(%w+)" ) do
        if base == getParamEx ( "SPBFUT", sec, "optionbase" ).param_image then
            dtmd = 0 + getParamEx ( "SPBFUT", sec, "DAYS_TO_MAT_DATE" ).param_value
            if dtmd > d and dtmd < v then
                v = dtmd; s = sec
            end
        end
    end
    return s, v
end
--вызов--
local optionbase = "RTS"--RI, SBRF, BR
message (Fn_DAYS_TO_MAT_DATE ( optionbase , 1 )

function main()
  while is_run do
    if isConnected() == 1 then
      --делаем расчеты
    end
    sleep(1)
  end
end

function number_contracts(ch)
   if mainForm then
     Label.Caption = "Max: "..ch
   end
end
Label = VCL.Label(mainForm, {Name = "Label4", top=93, left=160, Caption= number_contracts(1)})
function main()
    local ch = 1
    while is_run do
        if isConnected() == 1 then
           number_contracts(ch)
           ch = ch + 1
        end
        sleep(1000)
    end
end

--test1.lua
local VCL, myForm = require "qvcl"
local is_run = true
--
function OnStop()
    if myForm then myForm:Release() end
    is_run = false
end

function number_contracts(ch)
   if myForm then
     Label.Caption = "Max: "..ch
   end
end
myForm =  VCL.Form( {
    caption = "Test",
    Color = RGB(220,220,220),
    Constraints = {    MaxHeight = 180, MinHeight = 180,--ограничения по высоте
                    MaxWidth = 510, MinWidth = 510 },--ограничения по ширине
    Position = "podesktopcenter",
    FormStyle = "fsStayOnTop",--вот это свойство влияет на отображение поверх всех окон
    height = 180, width = 510,
    OnClose = OnStop} )
Label = VCL.Label(myForm, {Name = "Label4", top=93, left=160, Caption= ""})
myForm:Show()

function main()
    local ch = 1
    while is_run do
        if isConnected() == 1 then
           number_contracts(ch)
           ch = ch + 1
        end
        sleep(1)
    end
end

local mainForm mainForm = vcl.Form(nil,{Name = 'mainForm', position='poscreencenter', Height=670, BorderStyle='bsSingle', FormStyle='fsStayOnTop', Width=1250, Caption=Name..' v.'..VERSION, BorderIcons='biSystemMenu,biMinimize', Color='clSkyBlue', OnClose = function() wlog(0,'Закрыто окно робота! Останавливаем скрипт...') StopTrade() sleep(1000) LogForm:Release() mainForm:Release() vcl = nil end})

local mainPage1 mainPage1 = vcl.PageControl(mainForm, {Name = 'mainPage1', Left = 10, Top = 10, Height = 650, Width = 990})
local mainPage2 mainPage2 = vcl.PageControl(mainForm, {Name = 'mainPage2', Left = 1010, Top = 10, Height = 650, Width = 230, ActivePage = infoSheet})

local mainSheet mainSheet = vcl.TabSheet(mainPage1,{Name = 'mainSheet', Caption = 'Information'})
local Str1Sheet Str1Sheet = vcl.TabSheet(mainPage1,{Name = 'Str1Sheet', Caption = '#1 TrendLevel'})
local Str2Sheet Str2Sheet = vcl.TabSheet(mainPage1,{Name = 'Str2Sheet', Caption = '#2 ParabolicSi'})
local Str3Sheet Str3Sheet = vcl.TabSheet(mainPage1,{Name = 'Str3Sheet', Caption = '#3 ParnTrade'})
local Str4Sheet Str4Sheet = vcl.TabSheet(mainPage1,{Name = 'Str4Sheet', Caption = '#4 TrendScalpRTS'})
local Str5Sheet Str5Sheet = vcl.TabSheet(mainPage1,{Name = 'Str5Sheet', Caption = '#5 ---'})

local infoSheet infoSheet = vcl.TabSheet(mainPage2,{Name = 'infoSheet', Caption = 'Information', Font={Size=8}})
local SetSheet SetSheet = vcl.TabSheet(mainPage2,{Name = 'SetSheet', Caption = 'Settings', Font={Size=8}})
local Str1Page = vcl.PageControl(Str1Sheet,{Left=2, Top=5, Height=535, Width=980, ActivePage=infoStr1Sheet, ParentFont=true, Font={Size=8}})
local infoStr1Sheet = vcl.TabSheet(Str1Page,{Caption = 'Information', Font={Size=8}})
local SetStr1Sheet = vcl.TabSheet(Str1Page,{Caption = 'Settings', Font={Size=8}})
...
...
...
mainForm:Show()