Визуальный интерфейс VCLua в QUIK (Страница 2 из 11)

-- Загружаем модули VCL
require "vcl"

-- Определяем глобальные переменные
IS_RUN         = true      -- статус скрипта enabled/disabled
SCRIPT_NAME    = "TESTING" -- название скрипта
SCRIPT_VERSION = "0.0.0.1" -- версия скрипта

-- Инициализация
function OnInit()
    message("Инициализация OnInit()", 1)
end

-- ОКНО СКРИПТА
MAIN_WINDOW = VCL.Form("mainForm")

-- Параметры окна скрипта
MAIN_WINDOW.Caption      = SCRIPT_NAME .. " " .. SCRIPT_VERSION -- заголовок основного окна
MAIN_WINDOW._            = {
                            Position = "poDesktopCenter",
                            Height = 200,
                            Width = 300,
                            OnClose = "OnFormClose"
                            }
MAIN_WINDOW.onCloseQuery = "onCloseQueryEventHandler" -- закрытие окна

-- Определяем операции после нажатия кнопок
MAIN_ACTIONS = VCL.ActionList(MainForm,"mainActions")
MAIN_ACTIONS: LoadFromTable({
                                {Name = "action_Open", Caption = "&Открыть...", Shortcut = "Ctrl+O", onExecute = "onMenuOpenClick"},
                                {Name = "action_Exit", Caption = "&Выход", Shortcut = "Alt+F4", onExecute = "onMenuExitClick"},
                            })

-- Параметры главного меню скрипта
MAIN_MENU = VCL.MainMenu(MAIN_WINDOW,"mainMenu")
MAIN_MENU: LoadFromTable({
                            {Name = "mm_file", Caption = "&Файл",
                                Submenu = {
                                            {Action = MAIN_ACTIONS:Get("action_Open")},
                                            {caption = "-",},
                                            {Action = MAIN_ACTIONS:Get("action_Exit")},
                                          }
                            }
                        })

-- Запускаем окно скрипта
MAIN_WINDOW:ShowModal()

-- Основная функция
function main()
    while IS_RUN do
        sleep(1000)
    end
end

-- Завершение работы
function OnStop()
    IS_RUN = false
end

-- Закрытие окна скрипта
function onCloseQueryEventHandler(Sender)
    --message("onCloseQueryEventHandler()", 1)
    return true -- да, закрываем
end

-- "Открыть..." в меню окна
function onMenuOpenClick(Sender)
    --message("onMenuOpenClick()", 1)
end

-- "Выход" в меню окна
function onMenuExitClick(Sender)
    --message("onMenuExitClick()", 1)
    MAIN_WINDOW:Close()
end

require "vcl"

mainForm = VCL.Form("mainForm")
mainForm._= { position="podesktopcenter", height=200, width=300, Caption="Edit test", OnClose = "OnFormClose" }

editLabel = VCL.Label(mainForm,"editLabel")
editLabel._ = { Top=30, Left=20, Caption="Edit box:" }

editBox = VCL.Edit(mainForm,"editBox")
editBox._ = { Top=26, Left=70, width=120, height=10, onchange="onEditBoxChange" }

outLabel = VCL.Label(mainForm,"outLabel")
outLabel._ = { Top=50, Left=20, Caption="" }

button = VCL.Button(mainForm,"button")
button._ = { Top=70, Left=20, width=80, height=25, caption="x 2", onclick = "onButtonClick" }

mainForm:Show()

is_run = true    
function main()
  while is_run do
    sleep(50)
  end
end

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


function OnFormClose(Sender, CloseAction)
  is_run = false
  mainForm:Release()
end

function onEditBoxChange(sender)
  outLabel.Caption = editBox.Text .. "-" .. editBox.Text;
end

function onButtonClick(sender)
  local k = tonumber(editBox.Text);
  if k == nil then
    message("'" .. editBox.Text .. "' is not a number", 2);
  else
    message(tostring(k) .. " x 2 = " .. tostring(k*2), 1)
  end
end