0.lua

htc manila 2 sourcecode

RSKFunction = function()
   ShowMenu()
end

RSKFunctionPlayer = function()
   _application.Navigation:Navigate(URL("Manila://music.page"))
end

LSKFunction = function()
   GotoUpLayer()
end

RSKCancelFunction = function()
   GotoUpLayer()
end

NullFunction = function()
end

SelectData = function()
   local l_19_0 = MusicWhereConditions()
   local l_19_1 = gPlayer:Database()
   if gOrder == "1" then
      l_19_1:SelectGroup(VID_ARTISTS, FID_SONG_ARTIST, l_19_0)
      _application.Navigation.Title = Locale:GetString("IDS_MUSIC_ARTISTS")
      if gAddSongs == "1" then
         listview.Viewport.y = listview.Viewport.y - gSubTitleHeight
      end
   elseif gOrder == "2" then
      l_19_1:SelectGroup(VID_ALBUMS, FID_SONG_ALBUM, l_19_0)
      _application.Navigation.Title = Locale:GetString("IDS_MUSIC_ALBUMS")
      if gAddSongs == "1" then
          listview.Viewport.y = listview.Viewport.y - gSubTitleHeight
      end
   elseif gOrder == "3" then
      _application.Navigation.Title = Locale:GetString("IDS_MUSIC_PLAYLISTS")
   elseif gOrder == "5" then
      l_19_1:SelectGroup(VID_GENRES, FID_SONG_GENRE, l_19_0)
      _application.Navigation.Title = Locale:GetString("IDS_MUSIC_GENRES")
      if gAddSongs == "1" then
         listview.Viewport.y = listview.Viewport.y - gSubTitleHeight
      end
   elseif gOrder == "6" then
      l_19_1:SelectGroup(VID_COMPOSERS, FID_SONG_COMPOSER, l_19_0)
      _application.Navigation.Title = Locale:GetString("IDS_MUSIC_COMPOSERS")
      if gAddSongs == "1" then
         listview.Viewport.y = listview.Viewport.y - gSubTitleHeight
      end
   elseif gOrder == "10" then
      local ca = MusicConfig_Instance():GetSetting(CONFIG_CURRENT_ARTIST)
      l_19_0:AddCondition(ca)
      l_19_1:SelectGroup(VID_ALBUMS_OF_ARTIST, FID_SONG_ALBUM, l_19_0)
      _application.Navigation.Title = ca .. ": " .. Locale:GetString("IDS_MUSIC_ALBUMS")
   elseif gOrder == "50" then
      local cg = MusicConfig_Instance():GetSetting(CONFIG_CURRENT_GENRE)
      l_19_0:AddCondition(cg)
      l_19_1:SelectGroup(VID_ARTISTS_OF_GENRE, FID_SONG_ARTIST, l_19_0)
      _application.Navigation.Title = cg .. ": " .. Locale:GetString("IDS_MUSIC_ARTISTS")
   elseif gOrder == "51" then
     local cg = MusicConfig_Instance():GetSetting(CONFIG_CURRENT_GENRE)
      l_19_0:AddCondition(cg)
      l_19_1:SelectGroup(VID_ALBUMS_OF_GENRE, FID_SONG_ALBUM, l_19_0)
      _application.Navigation.Title = cg .. ": " .. Locale:GetString("IDS_MUSIC_ALBUMS")
   elseif gOrder == "60" then
      local cc = MusicConfig_Instance():GetSetting(CONFIG_CURRENT_COMPOSER)
      l_19_0:AddCondition(cc)
      l_19_1:SelectGroup(VID_ARTISTS_OF_COMPOSER, FID_SONG_ARTIST, l_19_0)
      _application.Navigation.Title = cc .. ": " .. Locale:GetString("IDS_MUSIC_ARTISTS")
   elseif gOrder == "61" then
      local l_19_2 = MusicConfig_Instance():GetSetting(CONFIG_CURRENT_COMPOSER)
      l_19_0:AddCondition(l_19_2)
      l_19_1:SelectGroup(VID_ALBUMS_OF_COMPOSER, FID_SONG_ALBUM, l_19_0)
      _application.Navigation.Title = l_19_2 .. ": " .. Locale:GetString("IDS_MUSIC_ALBUMS")
   end
end

OnListChange = function()
   SelectData()
   if gOrder == "3" then
     GroupCollection = gPlayer:Database():GetAllPlaylists(true)
     ItemListGenerator.Collection = GroupCollection
     if ItemListGenerator:GetCount() > 0 then
        newplaylist._visible = false
        gizmo._visible = true
     else
        gizmo._visible = false
        newplaylist._visible = true
      end
   else
      GroupCollection = gPlayer:Database().CurGroupList
      ItemListGenerator.Collection = GroupCollection
      newplaylist._visible = false
      gizmo._visible = true
   end
   listview:Focus()
end

OnActivate = function()
   if _application.Visibility == true then
      gPlayer:Activated()
   end
end

OnNavigateOutTo = function(l_22_0)
   _application.OnVisibilityChanged:disconnect(OnActivate)
   _request.NavigateOutTo:disconnect(OnNavigateOutTo)
   gPlayer.onListChange:disconnect(OnListChange)
   ListPhysics:DisconnectMouseEvents()
   Transition(l_22_0, "Out")
end

OnNavigateInFrom = function(l_23_0)
   _request.NavigateInFrom:disconnect(OnNavigateInFrom)
   Transition(l_23_0, "In")
end

if _config_os == "windowsmobile" then
   ImgHitFeedback = Music_2D_HitFeedback(newplaylist_img)
end
OnImgBtnReleaseTimerProc = function(l_24_0)
   l_24_0:Stop()
   if newplaylist._visible == true then
      _application.Navigation:Navigate(URL("Manila://music/playlist/Input/New/new_playlist.page"))
   end
end

gImgBtnReleaseTimer = nil
OnImgBtnPress = function(l_25_0)
   if _config_os == "windowsmobile" and newplaylist._visible == true and ImgHitFeedback ~= nil then
      ImgHitFeedback:Press()
   end
end

OnImgBtnRelease = function(l_26_0)
   if _config_os == "windowsmobile" and newplaylist._visible == true then
      if ImgHitFeedback ~= nil then
         ImgHitFeedback:Release()
      end
      if gImgBtnReleaseTimer == nil then
         gImgBtnReleaseTimer = timer(0.19999694824219)
         gImgBtnReleaseTimer.OnElapsed:connect(OnImgBtnReleaseTimerProc)
      else
         gImgBtnReleaseTimer:Start()
      end
   end
end

OnImgBtnReleaseOutside = function(l_27_0)
   if _config_os == "windowsmobile" and newplaylist._visible == true and ImgHitFeedback ~= nil then
      ImgHitFeedback:Release()
   end
end

ItemListLayout = TileLayout()
ItemListLayout:SetItemSize(480, gListView_Height, 0)
ItemListLayout.SelectionNode = Selector
listview:SetLayout(ItemListLayout)
if _config_os == "windowsmobile" then
   _application.OnVisibilityChanged:connect(OnActivate)
   _request.NavigateOutTo:connect(OnNavigateOutTo)
   _request.NavigateInFrom:connect(OnNavigateInFrom)
   gPlayer.onListChange:connect(OnListChange)
   gOrder = _request.URL.Parameters:GetParameter("order")
   gAddSongs = _request.URL.Parameters:GetParameter("addsongs")
   trace("[MG] addsongs: " .. gAddSongs .. "\n")
   SelectData()
   if gOrder == "3" then
     GroupCollection = gPlayer:Database():GetAllPlaylists(true)
     ItemListGenerator = LibraryGeneratorPlaylistInfo(GroupCollection, listview:GetMovie(), listview.ComponentLibraryName, listview.ComponentLibraryID)
   else
     GroupCollection = gPlayer:Database().CurGroupList
     ItemListGenerator = LibraryGeneratorMusicInfo(GroupCollection, listview:GetMovie(), listview.ComponentLibraryName, listview.ComponentLibraryID)
   end
   if gAddSongs == "1" then
      _application:SetLeftSoftkey(Softkey("", NullFunction))
      _application:SetRightSoftkey(Softkey(Locale:GetString("IDS_MUSIC_CANCEL"), RSKCancelFunction))
      newplaylist._visible = false
      gizmo._visible = true
      gizmo.Position.y = gizmo.Position.y - gSubTitleHeight
      SubTitleGroup._visible = true
   else
      SubTitleGroup._visible = false
      _application:SetLeftSoftkey(Softkey(Locale:GetString("IDS_MUSIC_UP"), LSKFunction))
      if gOrder ~= "3" then
         _application:SetRightSoftkey(Softkey(Locale:GetString("IDS_MUSIC_NOWPLAYING_RSK"), RSKFunctionPlayer))
         newplaylist._visible = false
         gizmo._visible = true
      else
         _application:SetRightSoftkey(Softkey(Locale:GetString("IDS_MUSIC_MENU"), RSKFunction))
         newplaylist_text.Color = GetMainTextUnselectedColor()
         local ilg = ItemListGenerator:GetCount()
         if ilg > 0 then
            newplaylist._visible = false
            gizmo._visible = true
         else
            gizmo._visible = false
            newplaylist._visible = true
         end
      end
   end
else
   FakeCollection = VectorNotifyint()
   for i = 0, 10 do
      FakeCollection:push_back(i)
   end
   ItemListGenerator = LibraryGeneratorint(FakeCollection, listview:GetMovie(), listview.ComponentLibraryName, listview.ComponentLibraryID)
end



ItemListGenerator.RecycleItems = true
ItemListGenerator.ItemCreated:connect(HandleItemCreated)
ItemListGenerator.ItemDestroyed:connect(HandleItemDestroyed)
listview:SetGenerator(ItemListGenerator)
listview.onPress:connect(HandleMousePress)
listview.onRelease:connect(HandleMouseRelease)
listview.onReleaseOutside:connect(HandleMouseRelease)
listview.onMouseMove:connect(HandleMouseMove)
listview:Focus()
ListPhysics = ScrollPhysics(listview, listview, HandleItemSelection)
ListPhysics:ConnectMouseEvents()
newplaylist_img.onPress:connect(OnImgBtnPress)
newplaylist_img.onRelease:connect(OnImgBtnRelease)
newplaylist_img.onReleaseOutside:connect(OnImgBtnReleaseOutside)
if _application.Store:GetStringValue(Lifetime_Permanent, "EnableLandscape") == "true" then
  trace("[MG] : EnableLandscape")
  require("Audio\\MusicGroup_Landscape")
  _MusicGroup_ScreenRotation = MusicGroup_ScreenRotation()
end