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

local run = true
local id
function OnStop()
  run = nil
  local t = id
  id = nil
  if t then DestroyTable(t) end
end

function main()
  id = AllocTable()
  AddColumn(id, 1, "Row", true, QTABLE_INT_TYPE, 10)
  AddColumn(id, 2, "Selected", true, QTABLE_INT_TYPE, 15)
  CreateWindow(id)
  for i = 1, 4 do
    SetCell(id, InsertRow(id, i), 1, tostring(i), i)
  end
  SetTableNotificationCallback(id, function(t, event, row)
    if event == QTABLE_VKEY then
      message("SetSelectedRow: " .. tostring(SetSelectedRow(id, 2)))
    elseif event == QTABLE_SELCHANGED then
      SetCell(id, row, 2, tostring(row))
    end
  end)
  while run do sleep(1000) end
end

local run = true
local tid
function OnStop()
  run = nil
  local t = tid
  tid = nil
  if t then DestroyTable(t) end
end

local result
local function RunAsCallback()
  SetSelectedRow(tid, 2)
  local r = result
  result = nil
  return r
end

function main()
  tid = AllocTable()
  AddColumn(tid, 1, '1', true, QTABLE_INT_TYPE, 1)
  CreateWindow(tid)
  InsertRow(tid, -1)
  InsertRow(tid, -1)
  SetWindowPos(tid, 0, 0, -1000, -1000)
  SetSelectedRow(tid, 1)
  SetTableNotificationCallback(tid, function(t, m, w)
    if QTABLE_SELCHANGED == m then
      if w == 2 then
        SetSelectedRow(tid, 1)
        result = os.date()
      end
    end
  end)
  while run do
    local date = RunAsCallback()
    message(date)
    sleep(1000)
  end
  OnStop()
end