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

listbox["secs"]:GetText()[listbox["secs"]:Index()+1]

-- vcl-test-04.lua
-- List-box sample --

require "vcl"

mainForm = VCL.Form("mainForm")

mainForm.Caption = "ListBox in VCLua"
mainForm._= { position="podesktopcenter", height=190, width=300}

mainMenu = VCL.MainMenu(mainForm,"mainMenu")
mainMenu:LoadFromTable({
    {name="mmfile", caption="&File", 
        submenu={
            {caption="Exit", onclick="onMenuExitClick", shortcut="Ctrl+F4"}, 
        }
    }
})

listbox = VCL.ListBox(mainForm,"List1")
listbox._ = { Top=5, Left=5, Width=120, Height=125 }
listbox:Add("Text 1")
listbox:Add("Text 2")
listbox:Add("Text 3")

button = VCL.Button(mainForm,"Button1")
button._ = { Top=10, Left=140, width=145, Caption="Show Selected Text", onclick = "onButton1Click" }

label =  VCL.Label(mainForm,"Label1")
label._ = { Top=135, Left=10 }

function onButton1Click(sender)
  label.Caption = listbox:GetText()[listbox:Index() + 1]
end

function onMenuExitClick()
    OnStop()
end

mainForm:Show()

is_run = true    

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

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

require "vcl"

mainForm = VCL.Form("mainForm")
mainForm._= { position="podesktopcenter", height=300, width=400, Color="clRed" }

grid = VCL.StringGrid(mainForm,"grid")
grid._ = { align = "alClient", RowCount = 3, AutoEdit = False, FixedCols = 1, FixedRows = 1, Flat = True }

grid:SetColParams({
  {Width=100, Alignment="taRightJustify", Color=16711680, Title={Caption="Col1", Alignment="taCenter"}},
  {Width=100, Alignment="taRightJustify", Color=65280,    Title={Caption="Col2", Alignment="taCenter"}},
  {Width=100, Alignment="taRightJustify", Color=255,      Title={Caption="Col3", Alignment="taCenter"}},
})

is_run = true

mainForm:Show()

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

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

require "vcl"

mainForm = VCL.Form("mainForm")
mainForm._= { position="podesktopcenter", height=300, width=400, Color="clRed" }

grid = VCL.StringGrid(mainForm,"grid")
grid._ = { align = "alClient", RowCount = 5, AutoEdit = False, FixedCols = 0, FixedRows = 2, Flat = True }

grid:SetColParams({
  {Width=100, Alignment="taRightJustify", Color=0xFF0000, Title={Color=0x998800, Caption="Col1", Alignment="taCenter"}},
  {Width=100, Alignment="taRightJustify", Color=0x00FF00, Title={Color=0x009988, Caption="Col2", Alignment="taCenter"}},
  {Width=100, Alignment="taRightJustify", Color=0x0000FF, Title={Color=0x990088, Caption="Col3", Alignment="taCenter"}},
})

is_run = true

mainForm:Show()

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

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

require "vcl"

CLASS = "QJSIM"
SEC   = "SBER"

mainForm = VCL.Form("mainForm")
mainForm._= { position="podesktopcenter", height=240, width=320,
              OnClose = "OnFormClose" }

grid = VCL.StringGrid(mainForm,"grid")
grid._ = { align = "alClient", RowCount = 11, AutoEdit = False, FixedCols = 0, FixedRows = 1, Flat = True }

grid:SetColParams({
  {Width=100, Alignment="taRightJustify", Title={Caption="Продажа", Alignment="taCenter"}},
  {Width=100, Alignment="taRightJustify", Title={Caption="Цена", Alignment="taCenter"}},
  {Width=100, Alignment="taRightJustify", Title={Caption="Покупка", Alignment="taCenter"}},
})

is_run = true

mainForm:Show()

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

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

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


function RGB2Color(r, g, b)
  return ((r*256)+g)*256+b
end

function OnQuote(class_code, sec_code)

  -- отслеживаем котировки только по указанному инструменту
  if (class_code ~= CLASS) or (sec_code ~= SEC) then
    return
  end

  local qt = getQuoteLevel2(class_code, sec_code)
  local i
  local max_q = 0

  -- перенесем и покрасим bid

  for i = 0, qt.bid_count+0 do
    grid:SetCell(1, 5-i, qt.bid[qt.bid_count-i].price)
    grid:SetCell(2, 5-i, qt.bid[qt.bid_count-i].quantity)
    local qty = qt.bid[qt.bid_count-i].quantity+0
    if qty > max_q then
      max_q = qty
    end
    if i >= 4 then  -- переносим не более 5 котировок
      break
    end
  end

  for i = 0, qt.bid_count+0 do
    local c = 220 - math.ceil((220-30) / max_q * qt.bid[qt.bid_count-i].quantity)
    grid:SetCellColor(1, 5-i, RGB2Color(c, 255, c))
    grid:SetCellColor(2, 5-i, RGB2Color(c, 255, c))
    if i >= 4 then  -- переносим не более 5 котировок
      break
    end
  end

  -- перенесем и покрасим offer

  max_q = 0

  for i = 0, qt.offer_count+0 do
    grid:SetCell(1, 6+i, qt.offer[i+1].price)
    grid:SetCell(0, 6+i, qt.offer[i+1].quantity)
    local qty = qt.offer[i+1].quantity+0
    if qty > max_q then
      max_q = qty
    end
    if i >= 4 then  -- переносим не более 5 котировок
      break
    end
  end


  for i = 0, qt.bid_count+0 do
    local c = 220 - math.ceil((220-30) / max_q * qt.offer[i+1].quantity)
    grid:SetCellColor(1, 6+i, RGB2Color(c, c, 255))
    grid:SetCellColor(0, 6+i, RGB2Color(c, c, 255))
    if i >= 4 then  -- переносим не более 5 котировок
      break
    end
  end

end

require "vcl"

CLASS = "SPBFUT"
SEC   = "SiH3"

mainForm = VCL.Form("mainForm")
mainForm._= { height=620, width=190,
              OnClose = "OnFormClose" }

grid = VCL.StringGrid(mainForm,"grid")
--grid.DefaultRowHeight=15
grid._ = { align = "alClient", RowCount = 41, AutoEdit = False, FixedCols = 0, FixedRows = 1, Flat = True, DefaultRowHeight=15 }

grid:SetColParams({
  {Width=60, Alignment="taRightJustify", Title={Caption="Продажа", Alignment="taCenter"}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Цена", Alignment="taCenter"}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Покупка", Alignment="taCenter"}},
})

is_run = true

mainForm:Show()

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

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

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

function RGB2Color(r, g, b)
  return ((r*256)+g)*256+b
end

function OnQuote(class_code, sec_code)

  -- отслеживаем котировки только по указанному инструменту
  if (class_code ~= CLASS) or (sec_code ~= SEC) then
    return
  end

  local qt = getQuoteLevel2(class_code, sec_code)
  local i
  local max_q = 0

  -- перенесем и покрасим bid

  for i = 1, qt.bid_count+0 do
    grid:SetCell(1, 20+i, math.ceil(qt.bid[qt.bid_count-i+1].price))
    grid:SetCell(2, 20+i, math.ceil(qt.bid[qt.bid_count-i+1].quantity))
    local qty = qt.bid[qt.bid_count-i+1].quantity+0
    if qty > max_q then
      max_q = qty
    end
  end

  
  -- перенесем и покрасим offer

  --max_q = 0

  for i = 1, qt.offer_count+0 do
    grid:SetCell(1, 21-i, math.ceil(qt.offer[i].price))
    grid:SetCell(0, 21-i, math.ceil(qt.offer[i].quantity))
    local qty = qt.offer[i].quantity+0
    if qty > max_q then
      max_q = qty
    end
  end


  for i = 1, qt.offer_count+0 do
    local c = 220 - math.ceil((220-30) / max_q * qt.offer[i].quantity)
    grid:SetCellColor(1, 21-i, RGB2Color(c, c, 255))
    grid:SetCellColor(0, 21-i, RGB2Color(c, c, 255))
  end

  for i = 1, qt.bid_count+0 do
    local c = 220 - math.ceil((220-30) / max_q * qt.bid[qt.bid_count-i+1].quantity)
    grid:SetCellColor(1, 20+i, RGB2Color(c, 255, c))
    grid:SetCellColor(2, 20+i, RGB2Color(c, 255, c))
  end

  
end