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

local function MainWindow()
  limValue = "Market"
  red = RGB(255,180,180)
  local green = RGB(180,255,180)
  yellow = RGB(230,230,0)

  local function event_callback(mw_id, msg, row, col)
  
    local function SetLimit()
      limValue = string.format("%d  ps", indLmPs)
      SetColor(mw_id, 3, 4, -1, -1, -1, -1)
      SetColor(mw_id, 2, 3, -1, -1, -1, -1)
    end
    
    if msg == QTABLE_CLOSE then
      w_top, w_left, w_bottom, w_right = GetWindowRect(mw_id)
      DestroyTable(x2_id)
      DestroyTable(mw_id)
      sleep(300)
      OnStop()
    end
    if msg == QTABLE_LBUTTONDBLCLK then
      if row == 1 and col == 1 then -- Стоп меньше на 10.
        indStPrc =  indStPrc - 0.8
      elseif row == 1 and col == 4 then -- Стоп больше на 10.
        indStPrc =  indStPrc + 0.8
      elseif row == 2 and col == 1 then -- Лимит меньше на 10.
        indLmPs =  indLmPs - 8
      elseif row == 2 and col == 3 then -- Лимит ноль.
        indLmPs =  0
        SetLimit()
      elseif row == 2 and col == 4 then -- Лимит больше на 10.
        indLmPs =  indLmPs + 8
      end
    end
    if msg == QTABLE_LBUTTONUP then
      if row == 1 and col == 1 then -- Стоп меньше.
        indStPrc =  indStPrc - 0.1
      elseif row == 1 and col == 4 then -- Стоп больше.
        indStPrc =  indStPrc + 0.1
      elseif row == 2 and col == 1 then -- Лимит. меньше.
        indLmPs =  indLmPs - 1
        SetLimit()
      elseif row == 2 and col == 4 then -- Лимит больше.
        indLmPs =  indLmPs + 1
        SetLimit()
      elseif row == 3 and col == 2 then -- Пауза
        sPause = true
        SetColor(mw_id, 3, 2, red,  -1, red,  -1)
        SetColor(mw_id, 3, 3, -1, -1, -1, -1)
      elseif row == 3 and col == 3 then -- Плей.
        sPause =  false
        SetColor(mw_id, 3, 3, green,  -1, green,  -1)
        SetColor(mw_id, 3, 2, -1, -1, -1, -1)
      elseif row == 3 and col == 1 then -- х2
        x2key = true
      elseif row == 3 and col == 4 then -- Маркет/лимит.
        if limValue == "Market" then
          SetLimit()
        else
          limValue = "Market"
          SetColor(mw_id, 3, 4, yellow,  -1, yellow,  -1)
          SetColor(mw_id, 2, 3, -1, RGB(0,0,255), -1, RGB(0,0,255))
        end
      end
      
        SetCell(mw_id, 1, 3, string.format("%.1f %%", indStPrc))
        SetCell(mw_id, 2, 3, tostring(limValue))
    end
  end
  mw_id = AllocTable()
-- Создание колонок.
  local n = 1 
  local function NewColumn(hd,wt)
    AddColumn(mw_id, n, hd, true, QTABLE_STRING_TYPE, wt)
    n = n + 1
  end
  NewColumn("-",4)
  NewColumn("Цена",9)
  NewColumn("Отступ",9)
  NewColumn("+",4)

  CreateWindow(mw_id)
  SetWindowPos(mw_id, w_left, w_top, (w_right - w_left), (w_bottom - w_top))
  SetWindowCaption(mw_id, "Лонжа")
-- Заполнение строк таблицы.
  local function FillRow(...)
    local row = InsertRow(mw_id, -1)
    for n,v in ipairs{...} do
      SetCell(mw_id, row, n, tostring(v))
    end 
  end
  FillRow("<","Стоп:",string.format("%.1f %%",indStPrc)," >")
  FillRow("<","Лимит:",limValue," >")
  FillRow("x2","    I I","    >>","M")
  
  SetColor(mw_id, 3, 3, green,  -1, green,  -1)
  SetColor(mw_id, 2, 3, -1, RGB(0,0,255), -1, RGB(0,0,255))
  SetColor(mw_id, 3, 4, yellow,  -1, yellow,  -1)
  SetColor(mw_id, 3, 1, -1, -1, -1, -1)

  SetTableNotificationCallback(mw_id, event_callback)
end