email_transition.luac.lua

来自「htc manila 2 sourcecode」· LUA 代码 · 共 99 行

-- Decompiled using luadec 0.4 by sztupy (http://winmo.sztupy.hu)
-- Command line was: -l ;0;0,26,32;9,13,17,24,37;; 29712f70_manila.luac 

trace("load email transition")
require("transitions")
require("common")
require("machine_status_svc")
OnNavigateOut = function(l_1_0)
   trace("OnNavigate out")
   DisconnectAccoutEvents()
   DisconnectEmailEvents()
   _request.NavigateOutTo:disconnect(OnNavigateOut)
   _application.OnVisibilityChanged:disconnect(HandleVisibilityChanged)
   Transition(l_1_0, "Out")
   trace("OnNavigate out end")
end

OnNavigateIn = function(l_2_0)
   trace("OnNavigateIn")
   _request.NavigateInFrom:disconnect(OnNavigateIn)
   _application.OnVisibilityChanged:connect(HandleVisibilityChanged)
   InitialEmailObject()
   OpenEnvelope(true)
   AccountQuery = AccountDatabase:Select(nil, nil)
   local l_2_1 = AccountQuery:GetCount()
   local l_2_2 = _application.Store:GetIntValue(Lifetime_Application, "Email.LastSelectedAccountIndex")
   if l_2_2 < 0 or l_2_1 <= l_2_2 then
      l_2_2 = 0
   end
   if l_2_1 > 0 then
      InitializeIndex = l_2_2
      BindCurrentAccount(l_2_2)
   end
   Transition(l_2_0, "In")
   trace("OnNavigateIn end")
end

OnPageInit = function()
   _request.PageInit:disconnect(OnPageInit)
   local l_3_0 = AccountQuery:GetItem(InitializeIndex)
   if l_3_0 then
      local l_3_1 = l_3_0:GetAccountName()
      local l_3_2 = EmailGenerator:GetCount()
      local l_3_3 = EmailGenerator.SelectedIndex + 1      
      if l_3_1 == "ActiveSync" then
         l_3_1 = "Outlook"
      end
      MailCount.Size.width = 480
      MailCount.String = l_3_3 .. "/" .. l_3_2
      local l_3_4 = TextHelper_GetStringWidth(MailCount, MailCount.String)
      MailCount.Size.width = l_3_4
      local l_3_5 = 360 - l_3_4 - 8         
      trace("AccountName=" .. l_3_1 .. " Account maxW=" .. l_3_5)
      AccountNameText.Size.width = 480
      local swidth = TextHelper_GetStringWidth(AccountNameText, l_3_1)
      trace("accountW=" .. swidth)
      AccountNameText.String = l_3_1
      if l_3_5 < swidth then
         AccountNameText.Size.width = l_3_5
      else
         AccountNameText.Size.width = swidth
      end
      MailCount.Position.x = AccountNameText.Position.x + AccountNameText.Size.width + 8
   end      
   require("BladeListView")
   InitialAccountObject()
   RebuildAccountList()
   Transition("Arbitrary", "In")
   trace("OnPageInit+++ end")
end

OnPostPageInit = function()
   trace("OnPostPageInit+++")
   _request.PostPageInit:disconnect(OnPostPageInit)
   Transition("Arbitrary", "In")
   EmailMachineStatus = MachineStatus()
   if not EmailMachineStatus:RemoveMailNotification() then
      trace("Remove email notification failed!")
   end
   EmailMachineStatus.EmailUnread.OnValueChanged:connect(OnUnreadEmailNumberChanged)
   trace("OnPostPageInit+++end")
end

objs3D[1] = Objects3D
objs2D = {}
objs2D[1] = Objects2D
offscreenrotation = 135
setOffScreen()
_request.NavigateOutTo:connect(OnNavigateOut)
_request.NavigateInFrom:connect(OnNavigateIn)
_request.PageInit:connect(OnPageInit)
_request.PostPageInit:connect(OnPostPageInit)
if _application.Store:GetStringValue(Lifetime_Permanent, "EnableLandscape") == "true" then
   require("Email\\Email_Landscape")
   _Email_ScreenRotation = Email_ScreenRotation()
end
trace("load email transition end")