inforstocklistview.luac.lua

来自「htc manila 2 sourcecode」· LUA 代码 · 共 457 行 · 第 1/2 页

-- Decompiled using luadec 0.6 by sztupy (http://winmo.sztupy.hu)
-- Command line was: -l ;0,0,0,0,0,0,0,7;;;;;0,0,0,14,34;0,0,16,36;;;;;;;;;0,0,9,15;0,0,11,43,72;;;;;0,0,0,10,21;;0,0,31;0,64,68,72,76,115;0,2; 2f0ce993_manila.luac 

trace("-- InforStockListView.lua --\n")
require("scrollphysics")
require("theme")
require("themecommon")
require("common")
require("stock_svc")
StockListViewClass = class()
g_itemsize = 80
g_OriginalItemIndex = 0
StockListViewClass.__init = function(l_1_0, l_1_1, l_1_2, l_1_3, l_1_4, l_1_5, l_1_6)
   if l_1_5 ~= nil then
      l_1_0.movingobj = l_1_5
   end
   l_1_0._LandscapeObj = l_1_6
   l_1_0.ListView = l_1_1
   local l_1_7 = TileLayout()
   l_1_7:SetItemSize(l_1_0.ListView.Viewport.x, g_itemsize, 0)
   l_1_7.SelectionNode = l_1_2
   l_1_0.ListView:SetLayout(l_1_7)
   l_1_0.selector = l_1_2
   l_1_0.stockmanager = l_1_4
   l_1_0.stockmanager.OnQuoteComplete:connect(StockListViewClass.OnQuoteComplete, l_1_0)
   gStyle = l_1_3
   if gStyle == "summary" then
   elseif gStyle == "detail" then
   elseif gStyle == "delete" then
   elseif gStyle == "rearrange" then
      l_1_0.ListView.onMouseUp:connect(StockListViewClass.HandleMouseUp, l_1_0)
      l_1_0.ListView.onMouseDown:connect(StockListViewClass.HandleMouseDown, l_1_0)
      l_1_0.movingobj.onMouseMove:connect(StockListViewClass.onMouseMove, l_1_0)
   end
   l_1_0.CurrentOffset = 0
   l_1_0.Scrollable_UP = true
   l_1_0.Scrollable_DOWN = true
end

StockListViewClass.DisconnectFunction = function(l_2_0)
   l_2_0.stockmanager.OnQuoteComplete:disconnect(StockListViewClass.OnQuoteComplete, l_2_0)
end

StockListViewClass.onMouseMove = function(l_3_0, l_3_1)
   l_3_0.movingobj.Position.y = -l_3_1._ymouse + 30
   FakeMovingObj.Opacity.value = 100
end

StockListViewClass.Update = function(l_4_0, l_4_1, l_4_2)
   trace(" StockListViewClass:Update \n")
   if ListPhysics ~= nil then
      ListPhysics:DisconnectMouseEvents()
   end
   l_4_0.stockmanager:Update(l_4_1, l_4_2)
end

StockListViewClass.UpdateAll = function(l_5_0, l_5_1)
   l_5_0.stockmanager:Update(StockType_AllStocks, l_5_1)
end

StockListViewClass.SetStockList = function(l_6_0, l_6_1, l_6_2)
   if l_6_2 ~= nil then
      l_6_0.type = l_6_2
   end
   l_6_0.stocklist = l_6_1
   local l_6_3 = LibraryGeneratorStock(l_6_1, l_6_0.ListView:GetMovie(), l_6_0.ListView.ComponentLibraryName, l_6_0.ListView.ComponentLibraryID)
   l_6_3.RecycleItems = true
   l_6_3.ItemCreated:connect(StockListViewClass.HandleItemCreated, l_6_0)
   l_6_3.ItemDestroyed:connect(StockListViewClass.HandleItemDestroyed, l_6_0)
   l_6_0.ListView:SetGenerator(l_6_3)
   local l_6_4 = l_6_0.ListView:GetGenerator()
   l_6_4.SelectedIndex = -1
   if ListPhysics == nil then
      ListPhysics = ScrollPhysics(l_6_0.ListView, l_6_0.ListView, HandleListSelection)
      ListPhysics:ConnectMouseEvents()
   end
   l_6_0.ListView:Focus()
end

StockListViewClass.ShowStockList = function(l_7_0, l_7_1)
   l_7_0.type = l_7_1
   l_7_0.stocklist = l_7_0.stockmanager:GetStockItemList(l_7_1)
   local l_7_2 = LibraryGeneratorStock(l_7_0.stocklist, l_7_0.ListView:GetMovie(), l_7_0.ListView.ComponentLibraryName, l_7_0.ListView.ComponentLibraryID)
   l_7_2.RecycleItems = false
   l_7_2.ItemCreated:connect(StockListViewClass.HandleItemCreated, l_7_0)
   l_7_2.ItemDestroyed:connect(StockListViewClass.HandleItemDestroyed, l_7_0)
   l_7_0.ListView:SetGenerator(l_7_2)
   local l_7_3 = l_7_0.ListView:GetGenerator()
   l_7_3.SelectedIndex = -1
   if gStyle == "summary" then
      l_7_0.ListView.Viewport.x = 480
      l_7_0.ListView.Viewport.y = g_itemsize * 6
   elseif gStyle == "detail" then
      ListPhysics = ScrollPhysics(l_7_0.ListView, l_7_0.ListView, HandleListSelection)
      ListPhysics:ConnectMouseEvents()
      l_7_0.ListView:Focus()
   elseif gStyle == "delete" then
      StockListView:GetGenerator()
      ListPhysics = ScrollPhysics(l_7_0.ListView, l_7_0.ListView, HandleListSelection)
      ListPhysics:ConnectMouseEvents()
      l_7_0.ListView:Focus()
   elseif gStyle == "rearrange" then
      l_7_0.stocklist.ItemsMoved:connect(OnItemMove, l_7_0)
      ListPhysics = ScrollPhysics(l_7_0.ListView, l_7_0.ListView, HandleListSelection)
      ListPhysics:ConnectMouseEvents()
      l_7_0.ListView:Focus()
   elseif gStyle == "Quote" then
      trace("quote page:show stock list")
   end
end

StockListViewClass.OnItemMove = function(l_8_0)
end

StockListViewClass.SetQueryCompleteCallback = function(l_9_0, l_9_1)
   l_9_0.querycallback = l_9_1
end

StockListViewClass.OnQuoteComplete = function(l_10_0, l_10_1, l_10_2, l_10_3)
   trace("~~OnQuoteComplete!!~~ \n")
   if l_10_1 ~= false then
     if l_10_0.querycallback ~= nil then
      trace("***connection ok!!***\n")
      l_10_0.querycallback(l_10_1, l_10_3)
    end
   else
    trace("***connection error!!***\n")
    l_10_0.querycallback(l_10_1)
   end
   trace("~~end OnQuoteComplete!!~~ \n")
end

StockListViewClass.Commit = function(l_11_0)
   l_11_0.stockmanager:Commit()
end

StockListViewClass.HandleItemSelected = function(l_12_0, l_12_1)
   local l_12_2 = l_12_1.Namespace:FindName("Symbol")  
   if l_12_2 ~= nil then
      l_12_2.Color = GetMainTextSelectedColor()
   end
   l_12_2 = l_12_1.Namespace:FindName("Name")     
   if l_12_2 ~= nil then
      l_12_2.Color = GetMainTextSelectedColor()
   end
   l_12_2 = l_12_1.Namespace:FindName("Pricing")
   if l_12_2 ~= nil then
      l_12_2.Color = GetMainTextSelectedColor()
   end
   l_12_2 = l_12_1.Namespace:FindName("Change")
   if l_12_2 ~= nil then
      l_12_2.Color = GetMainTextSelectedColor()
   end
   l_12_2 = l_12_1.Namespace:FindName("ChangePercent")
   if l_12_2 ~= nil then
      l_12_2.Color = GetMainTextSelectedColor()
   end
end

StockListViewClass.HandleItemDeselected = function(l_13_0, l_13_1)
   local l_13_2 = l_13_1.Namespace:FindName("Symbol")  
   if l_13_2 ~= nil then
      l_13_2.Color = GetMainTextUnselectedColor()
   end
   l_13_2 = l_13_1.Namespace:FindName("Name")
   if l_13_2 ~= nil then
      l_13_2.Color = GetMainTextUnselectedColor()
   end
   l_13_2 = l_13_1.Namespace:FindName("Pricing")
   if l_13_2 ~= nil then
      l_13_2.Color = GetMainTextUnselectedColor()
   end
   l_13_2 = l_13_1.Namespace:FindName("Change")
   if l_13_2 ~= nil then
      l_13_2.Color = GetMainTextUnselectedColor()
   end
   l_13_2 = l_13_1.Namespace:FindName("ChangePercent")
   if l_13_2 ~= nil then
      l_13_2.Color = GetMainTextUnselectedColor()
   end
end

StockListViewClass.HandleItemRollOver = function(l_14_0, l_14_1)
end

StockListViewClass.HandleItemRollOut = function(l_15_0, l_15_1)
end

StockListViewClass.HandleMouseUp = function(l_16_0, l_16_1)
   local l_16_2 = l_16_0.ListView:GetIndexAtPoint(l_16_1._xmouse, -l_16_1._ymouse + g_itemsize / 2)
   local l_16_3 = l_16_0.ListView:GetIndexAtPoint(l_16_1._xmouse, -l_16_1._ymouse)
   trace("onMouseUp index = " .. tostring(l_16_2) .. ", index1 = " .. tostring(l_16_3) .. "\n")
   trace("obj._ymouse = " .. l_16_1._ymouse)
   if g_OriginalItemIndex < l_16_2 and (l_16_2 == l_16_3 or l_16_2 ~= l_16_0.ListView:GetGenerator():GetCount() - 1) then
      l_16_2 = l_16_2 - 1
   end
   trace("move to index " .. tostring(l_16_2) .. "\n")
   ListPhysics:ConnectMouseEvents()
   if selected_symbol ~= nil then
      if l_16_2 ~= -1 then
         l_16_0.stockmanager:MoveItem(l_16_0.type, selected_symbol, l_16_2)
      elseif l_16_1._ymouse <= 60 and l_16_1._ymouse > 0 then
         l_16_0.stockmanager:MoveItem(l_16_0.type, selected_symbol, 0)
      end
   end
   selected_symbol = nil
   FakeMovingObj._visible = false
   FakeMovingObj.Opacity.value = 0
   ControlListViewGroup._visible = false
   mask._visible = false
end

StockListViewClass.HandleMouseDown = function(l_17_0, l_17_1)
   org_y = l_17_1._ymouse
   local l_17_2 = l_17_0.ListView:GetIndexAtPoint(l_17_1._xmouse, -l_17_1._ymouse + g_itemsize / 2)
   trace(" mouse down index=" .. l_17_2)
   if l_17_2 < 0 then
      return 
   end
   if l_17_1._xmouse < 400 and _application.Orientation == ScreenOrientation_Portrait then
      return 
   elseif l_17_1._xmouse < 720 and _application.Orientation == ScreenOrientation_Landscape then
      return 
   end
   g_OriginalItemIndex = l_17_2
   local l_17_3 = l_17_0.stocklist:GetItem(l_17_2)
   selected_symbol = l_17_3.Symbol
   selected_name = l_17_3.Name
   FakeMovingObj._visible = true