5.lua

htc manila 2 sourcecode

-- Decompiled using luadec 0.7 by sztupy (http://winmo.sztupy.hu)
-- Command line was: -l ;;;;0,2,6;0,1;;;;;;; 252e3f90_manila_13B6E.luac 

if _config_os == "windowsmobile" then
   require("audio_manager_svc")
   require("transitiondelay")
end
gPressed = false
gPosY = 0
gShowDRM_More = false
gCurMusicPath = nil
gLandScapeMode_Enabled = false
PropertiesGroup:Focus()
KeyboardConnect = function(l_1_0)
   if l_1_0 == true then
      PropertiesGroup.onKeyDown:connect(OnKeyDown)
   else
      PropertiesGroup.onKeyDown:disconnect(OnKeyDown)
   end
end

OnPress = function(l_2_0)
   gPressed = true
   gPosY = l_2_0._ymouse
end

OnRelease = function(l_3_0)
   gPressed = false
end

MoveSprite = function(l_4_0)
   local l_4_1 = backpanel.Position
   local l_4_2 = backpanel.Position.y - l_4_0
   l_4_1.y = l_4_2
   l_4_1 = 30
   l_4_2 = gLandScapeMode_Enabled
   if l_4_2 == true then
      l_4_2 = screenHeight
      l_4_2 = l_4_2 - 2 * SystemTitlebarHeight
      l_4_1 = 716 - (l_4_2) + 10
   end
   l_4_2 = backpanel
   l_4_2 = l_4_2.Position
   l_4_2 = l_4_2.y
   if l_4_2 < -60 then
      l_4_2 = backpanel
      l_4_2 = l_4_2.Position
      l_4_2.y = -60
   else
      l_4_2 = backpanel
      l_4_2 = l_4_2.Position
      l_4_2 = l_4_2.y
      if l_4_1 < l_4_2 then
         l_4_2 = backpanel
         l_4_2 = l_4_2.Position
         l_4_2.y = l_4_1
      end
   end
   l_4_2 = properties
   l_4_2 = l_4_2.Position
   l_4_2.y = backpanel.Position.y
end

OnMove = function(l_5_0)
   local l_5_1 = gPressed
   if l_5_1 == false then
      return 
   end
   l_5_1 = l_5_0._ymouse
   l_5_1 = l_5_1 - gPosY
   MoveSprite(l_5_1)
   gPosY = l_5_0._ymouse
end

OnBack = function()
   _application.Navigation:NavigateBack()
end

NullFunction = function()
end

OnDRM_More = function()
   if gShowDRM_More == true and gCurMusicPath ~= nil then
      MusicPlayer_Instance():ShowDRMInfo(gCurMusicPath)
   end
end

OnKeyDown = function(l_9_0)
   if l_9_0.Code == KeyCode_Up then
      MoveSprite(250)
   else
      if l_9_0.Code == KeyCode_Down then
         MoveSprite(-250)
      end
   end
end

OnNavigateOutTo = function(l_10_0)
   _request.NavigateOutTo:disconnect(OnNavigateOutTo)
   properties._visible = false
   KeyboardConnect(false)
   transitionDelayStart("Out")
end

OnNavigateInFrom = function(l_11_0)
   _request.NavigateInFrom:disconnect(OnNavigateInFrom)
   transitionDelayStart("In")
end

if _application.Store:GetStringValue(Lifetime_Permanent, "EnableLandscape") == "true" then
   trace("[MG_Prop] : EnableLandscape")
   require("Audio\\Music_Prop_Landscape")
   gLandScapeMode_Enabled = true
   _MusicProperty_ScreenRotation = MusicProperty_ScreenRotation()
end
properties._visible = true
backpanel.onPress:connect(OnPress)
backpanel.onRelease:connect(OnRelease)
backpanel.onReleaseOutside:connect(OnRelease)
backpanel.onMouseMove:connect(OnMove)
if _config_os == "windowsmobile" then
   local mpi = MusicPropertyInfo()
   MusicPlayer_Instance():GetCurInfo(mpi)
   gCurMusicPath = mpi.Location
   length.String = mpi.Length
   filename.String = mpi.Filename
   location.String = mpi.Location
   param = MusicWhereConditions()
   param:AddCondition(gCurMusicPath)
   query = MusicPlayer_Instance():Database():GetList(VID_SONG_OF_FILEPATH, param)
   if query ~= nil and query:GetCount() > 0 then
      local item = query:GetItem(0)
      title.String = item.Title
      artist.String = item.Artist
      album.String = item.Album
      genre.String = item.Genre
      composer.String = item.Composer
      if MusicHelper_LogicAnd(item.State, SONG_STATUS_DRM_VALID) ~= 0 then
         gShowDRM_More = true
      else
         gShowDRM_More = false
      end
   end
   _request.NavigateOutTo:connect(OnNavigateOutTo)
   _request.NavigateInFrom:connect(OnNavigateInFrom)
   KeyboardConnect(true)
   _application:SetRightSoftkey(Softkey(Locale:GetString("IDS_MUSIC_BACK"), OnBack))
   if gShowDRM_More == true then
      _application:SetLeftSoftkey(Softkey(Locale:GetString("IDS_MUSIC_DRM_MORE"), OnDRM_More))
   else
      _application:SetLeftSoftkey(Softkey("", NullFunction))
   end
end