Старатель (Все сообщения пользователя)

local stopped, id

function OnStop(flag)
  stopped = true
  DestroyTable(id)
end

function main()
  id = AllocTable()
  CreateWindow(id)
  SetTableNotificationCallback(id, function(t_id, msg, par1, par2)
    if msg == QTABLE_CLOSE then
      OnStop()
    end
  end)
  repeat
    sleep(16)
  until stopped
end

function main()
  local id = AllocTable()
  AddColumn(id, 1, 'QTABLE_STRING_TYPE', true, QTABLE_STRING_TYPE, 30)
  AddColumn(id, 2, 'QTABLE_INT_TYPE', true, QTABLE_INT_TYPE, 25)
  CreateWindow(id)

  local row = InsertRow(id, -1)
  SetCell(id, row, 1, 'задано')
  SetCell(id, row, 2, '0', 0)

  row = InsertRow(id, -1)
  SetCell(id, row, 1, '')

  row = InsertRow(id, -1)
  SetCell(id, row, 2, '')
end

local AllTrades = {}
function main()
  ID = AllocTable()
  AddColumn(ID, 1, '1', true, QTABLE_INT_TYPE, 20)
  CreateWindow(ID)
  row = InsertRow(ID, -1)

  while not stoped do
    if #AllTrades ~= 0 then
      local trade_num = table.sremove(AllTrades, 1).trade_num
      table.ssort({0, 0}, function()
        SetCell(ID, row, 1, ''..trade_num)
        return true
      end)
   else sleep(1) end
  end  
end

function OnAllTrade(alltrade)
  table.sinsert(AllTrades, alltrade)
end

getParamEx(class, sec, "optiontype")

if IsWindowClosed(id) == true then CreateWindow(id) end

local run = true

local function f()
  for i = 1, 2000000 do
    local a = 1 + 2 * 3 / 4
  end
  return run
end

function main()
  local t_id = AllocTable()
  AddColumn(t_id, 1, "", true, QTABLE_DOUBLE_TYPE, 20)
  CreateWindow(t_id)
  InsertRow(t_id, -1)
  while run do
    local r = f()
    SetCell(t_id, 1, 1, tostring(r))
    sleep(1)
  end
  message('Exit')
end

function OnStop()
  run = nil
  message('OnStop')
  return 5000
end

InsertRow(1, 1)