albumbegin.luac.lua

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

-- Decompiled using luadec 0.4 by sztupy (http://winmo.sztupy.hu)
-- Command line was: -l ;1;0;0;;10,16;;4;0;;8;0;0;0;;0;;41; 7ceb369d_manila.luac 

if _config_os == "windowsmobile" then
   require("camera_album_svc")
end
gAlbumItemOffX = 200
gAlbumItemOffY = -20
gAlbumItemOffZ = -350
gbMobileDevice = false
gDataModule = nil
gCountTotal = 5
gCountIndex = 1
gUpdateIndexString = function()
   local l_1_0 = ItemIndexString
   l_1_0.String = gCountIndex .. " / " .. gCountTotal
end

gUpdateIndexStringForTotal = function(l_2_0)
   gCountTotal = l_2_0
   gUpdateIndexString()
end

gUpdateIndexStringForIndex = function(l_3_0)
   gCountIndex = l_3_0
   gUpdateIndexString()
end

gstrCurrentFilePath = ""
ViewCurrentFileInAlbum = function()
   Shell_NavigateTo(ShellLocation_Album, "-mode:gizmo " .. gstrCurrentFilePath)
end

RSKFunction = function()
   trace("RSKFunction\n")
   if gbDebug == true then
      quit()
   else
      if gDataModule ~= nil then
         Shell_NavigateTo(ShellLocation_Album, "-mode:gizmo -type:slideshow " .. gstrCurrentFilePath)
      end
   end
end

RSKFunction_play = function()
   trace("RSKFunction play\n")
   if gbDebug == true then
      quit()
   elseif gDataModule ~= nil then
      ViewCurrentFileInAlbum()
   end
end

LSKFunction = function()
   trace("LSKFunction\n")
   if gDataModule ~= nil then
      Shell_NavigateTo(ShellLocation_Album, "-mode:gizmo")
   end
end

if _config_os == "windowsmobile" then
   gDataModule = HTCCameraAlbum()
   if gDataModule ~= nil and gDataModule:Init(2) then
     gbMobileDevice = true
     gUpdateIndexStringForTotal(gDataModule:GetImageCount())
   end   
end
titleBackgroundSpritOnMouse = function(l_8_0)
   gMyTrace("mouse: " .. l_8_0._xmouse .. "  " .. l_8_0._ymouse .. "\n")
end

gLaunchCamera = function()
   if gbDebug == true then
      gMyTrace("Camera\n")
   else
      Shell_NavigateTo(ShellLocation_Camera, "/i")
   end
end

gLaunchVideo = function()
   if gbDebug == true then
      gMyTrace("Video")
   else
      Shell_NavigateTo(ShellLocation_Camera, "/v")
   end
end

easeInOut = function(l_11_0, l_11_1, l_11_2, l_11_3)
   l_11_0 = l_11_0 / l_11_3
   if 2 * (l_11_0) < 1 then
      return l_11_2 / 2 * (l_11_0) * (l_11_0) + l_11_1
   else
      l_11_0 = l_11_0 - 1
      return -l_11_2 / 2 * ((l_11_0) * (l_11_0 - 2)) + l_11_1
   end
end

easeOut = function(l_12_0, l_12_1, l_12_2, l_12_3)
   l_12_0 = l_12_0 / l_12_3
   return -l_12_2 * (l_12_0) * (l_12_0 - 2) + l_12_1
end

easeIn = function(l_13_0, l_13_1, l_13_2, l_13_3)
   l_13_0 = l_13_0 / l_13_3
   return l_13_2 * (l_13_0) * (l_13_0) + l_13_1
end

OnListSlideIn = function(l_14_0)
   AlbumLV.Position.x = AlbumList.Position.x - 6.3999938964844
end

OnAnimation = function(l_15_0)
   if l_15_0.Tag.time > l_15_0.Tag.duration then
      l_15_0.onUpdate:disconnect(OnAnimation)
      return 
   end
   gAlbumItemOffX = gAlbumItemOffX - 6.6666564941406
   AlbumLV.Position.x = gAlbumItemOffX
   l_15_0.Tag.time = l_15_0.Tag.time + 1
end

EnterAnimation = function()
   Camera2DBegin.Tag = {time = 0, duration = 30}
   AlbumLV.Position.x = 200
   Camera2DBegin.onUpdate:connect(OnAnimation)
end

nLastCount = 0
gCheckImageCount = function()
   if gDataModule:GetImageCount() > 0 then
      Listview3DCamera._visible = true
      ControlPanel._visible = true
      NoPhoto._visible = false
      if nLastCount == 0 then
      end        
      gnViewType = 0
   else
      gnViewType = 1
      Listview3DCamera._visible = false
      ControlPanel._visible = false
      NoPhoto.Opacity.value = 0
      NoPhoto._visible = true
      NoPhoto.Opacity:Interpolate(0, 100, 45, 0, Interpolate_EaseOutQuart)
      local l_17_0 = Locale:GetString("IDS_NO_PHOTOS")
      if gDataModule:IsDBExists() == false then
         l_17_0 = Locale:GetString("IDS_PHOTO_SEARCHING")
      end
      if _application.Store:GetStringValue(Lifetime_Permanent, "EnableLandscape") == "true" and
         _application.Orientation == ScreenOrientation_Landscape then
         NoPhotoText_L.String = l_17_0
      else
         NoPhotoText_P.String = l_17_0
      end
   end
   nLastCount = gDataModule:GetImageCount()
end

if gbMobileDevice == true then
   gCheckImageCount()
else
   EnterAnimation()
end