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

test_BitBtn = VCL.BitBtn(wmain,
{Caption="Тест", Top=5, Left=5, Height=25, Width=70, Image="C:\\Images\\test.png"})

local VCL=require "qvcl"

--================================== Параметры =========================================

ACCOUNT                 = "";          -- Торговый счет
CLIENT_CODE             = "";          -- Код клиента
SEC_CODE                = "";          -- Код бумаги
CLASS_CODE              = "";          -- Код класса

--======================================================================================

OnFormClose=function() message("Робот отключен пользователем") VCL=nil end

function untab(fun,tab)
    if type(tab)=="table" then
        for _,i in ipairs(tab) do    fun.Items:Add(i)    end
    end
end

--================================== Интерфейс системы =================================

mainForm = VCL.Form({Name = "mainForm", Height = 464, Width = 1030, Caption = "Робот",
Position = "", OnClose = OnFormClose})

Panel = VCL.Panel(mainForm, {Left = 5,    AutoSize=false,    Height = 10,    Top = 0, Width = 1018, Align = "alLeft", BevelOuter = "bvNone", ClientHeight = 400, ClientWidth = 1018,    TabOrder = 1,})
PageControl = VCL.PageControl(Panel,{Top = 10, Left = 10,    Height = 400,    Width = 1010,})

Page1 =    VCL.TabSheet(PageControl,{Caption = "Страница 1", ClientHeight = 400, ClientWidth = 1018,})
Page1_1 = VCL.TabSheet(PageControl,{Caption = "Подстраница 1", ClientHeight = 350, ClientWidth = 980,}) Page1_1.TabVisible=false
Page1_2 = VCL.TabSheet(PageControl,{Caption = "Подстраница 2", ClientHeight = 350, ClientWidth = 980,}) Page1_2.TabVisible=false
Page1_3 = VCL.TabSheet(PageControl,{Caption = "Подстраница 3", ClientHeight = 350, ClientWidth = 980,}) Page1_3.TabVisible=false

-- Элементы на странице 1

Bevel = VCL.Bevel(Page1, {Name = "Bevel_options", top=20, left=20, Width=460,    Height = 105, Style="bsLowered", Shape="bsFrame", ShowHint=true, Hint="Элемент Bevel"})
Label = VCL.Label(Page1, {Name = "Label_account", top=30, left=30, Caption="Торговый счет", ShowHint=true, Hint=" Элемент Label"})
ComboBox = VCL.ComboBox(Page1, {Name = "ComboBox_account", top=30, left=150, Width=100, Text="Выбрать...", OnChange = Handler, ShowHint=true, Hint=" Элемент ComboBox "})
    Table={"SPBFUT0000H","L01-00000F00"}   -- Выбор счета
    untab(ComboBox,Table)
Label = VCL.Label(Page1, {Name = "Label_client_code", top=30, left=280, Caption="Код клиента", ShowHint=true, Hint=" Элемент Label"})
ComboBox = VCL.ComboBox(Page1, {Name = "ComboBox_client_code", top=30, left=360, Width=100, Text="Выбрать...", OnChange = Handler, ShowHint=true, Hint=" Элемент ComboBox "})
    Table={"000xxx","000xxx"}   -- Выбор кода клиента
    untab(ComboBox,Table)
Label = VCL.Label(Page1, {Name = "Label_sec_code", top=60, left=30, Caption="Код бумаги", ShowHint=true, Hint=" Элемент Label"})
EditButton = VCL.EditButton(Page1, {Name = "EditButton_sec_code", top=60, left=150, Width=80, ShowHint=true, OnButtonClick = Handler, Hint="Элемент EditButton"})   -- Выбор кода бумаги
Label = VCL.Label(Page1, {Name = "Label_class_code", top=60, left=280, Caption="Код класса", ShowHint=true, Hint=" Элемент Label"})
ComboBox = VCL.ComboBox(Page1, {Name = "ComboBox_class_code", top=60, left=360, Width=100, Text="Выбрать...", OnChange = Handler, ShowHint=true, Hint=" Элемент ComboBox "})
    Table={"SPBFUT","SPBOPT","TQBR"}   -- Выбор кода класса
    untab(ComboBox,Table)
Label = VCL.Label(Page1, {Name = "Label_guarantee", top=90, left=30, Caption="ГО покупателя", ShowHint=true, Hint=" Элемент Label"})
Edit = VCL.Edit(Page1, {Name = "", top=90, left=150, Width=100, AutoSelect=true, ShowHint=true, Hint=" Элемент Edit"})   -- ГО покупателя
Label = VCL.Label(Page1, {Name = "Label_tick", top=90, left=280, Caption="Шаг цены", ShowHint=true, Hint=" Элемент Label"})
Edit = VCL.Edit(Page1, {Name = "", top=90, left=360, Width=100, AutoSelect=true, ShowHint=true, Hint=" Элемент Edit"})   -- Шаг цены

CheckGroup = VCL.CheckGroup(Page1, {Name = "CheckGroup", top=150, left=20, Width=910, Height=100, Columns=3, Caption="Подстраница основная", OnClick=Handler, ShowHint=true, Hint="Элемент CheckGroup"})
    Table={"Подстраница 1","Подстраница 2","Подстраница 3"}
    untab(CheckGroup,Table)


mainForm:Show()   -- Конец скрипта интерфейса


--=================================== Основной блок скрипта =================================

-- Флаг поддержания работы системы
is_run = true;

-- Функция первичной инициализации системы (Вызывается терминалом QUIK в самом начале)
function OnInit()
  mainForm:Show()
  is_run = true
end

function main()
  while VCL do
    sleep (1)
  end
  sleep(100)
end

function OnStop()
    mainForm:Release() is_run = false
end

--============================================================================================

Edit_step = VCL.Edit(Page1, {Name = "", top=90, left=360, Width=100, AutoSelect=true, ShowHint=true, Hint=" Элемент Edit"})   -- Шаг цены инструмента

SEC_PRICE_STEP = getParamEx(CLASS_CODE, SEC_CODE, "SEC_PRICE_STEP").param_value;   -- Шаг цены инструмента

local VCL=require "qvcl"

--================================== Параметры =========================================

ACCOUNT                 = "";          -- Торговый счет
CLIENT_CODE             = "";          -- Код клиента
SEC_CODE                = "";          -- Код бумаги
CLASS_CODE              = "";          -- Код класса

--======================================================================================

local VCL=require "qvcl"

--================================== Параметры =========================================

ACCOUNT                 = "";          -- Торговый счет
CLIENT_CODE             = "";          -- Код клиента
SEC_CODE                = "SiZ5";          -- Код бумаги
CLASS_CODE              = "SPBFUT";          -- Код класса

--======================================================================================

OnFormClose=function() message("Робот отключен пользователем") VCL=nil end

--================================== Интерфейс системы =================================

mainForm = VCL.Form({Name = "mainForm", Height = 464, Width = 1030, Caption = "Робот",
Position = "", OnClose = OnFormClose})

Label_biddeptht = VCL.Label(mainForm, {Name = "Label_biddeptht", top=10, left=10, Caption="Общий спрос", ShowHint=true, Hint=" Элемент Label"})
Edit_biddeptht = VCL.Edit(mainForm, {Name = "Edit_biddeptht", top=10, left=130, Width=100, AutoSelect=true, ShowHint=true, Hint=" Элемент Edit", Text = getParamEx(CLASS_CODE, SEC_CODE, "BIDDEPTHT").param_value})   -- Общий спрос


mainForm:Show()   -- Конец скрипта интерфейса


--=================================== Основной блок скрипта =================================

-- Флаг поддержания работы системы
is_run = true;

-- Функция первичной инициализации системы (Вызывается терминалом QUIK в самом начале)
function OnInit()
  mainForm:Show()
  is_run = true
end

function OnParam( class_code, sec_code )
if class_code == CLASS_CODE and sec_code == SEC_CODE then
   biddeptht = getParamEx (CLASS_CODE, SEC_CODE, "BIDDEPTHT").param_value;                  -- Суммарный спрос
if Edit_biddeptht.caption == "" then
        Edit_biddeptht.caption = biddeptht
    end
  end
end

function main()
  while VCL do
    sleep (1)
  end
  sleep(100)
end

function OnStop()
    mainForm:Release() is_run = false
end

--============================================================================================