10.lua

htc manila 2 sourcecode

            l_6_2.String = l_6_0.Title
            if gOrder == "10" then
               l_6_2.Size.height = gListView_Height
               l_6_3._visible = false
            else
               l_6_2.Size.height = gListView_Height / 2
               l_6_3.String = l_6_0.Artist
               l_6_3._visible = true
            end
         end
      elseif gOrder == "20" then
         l_6_4._visible = false
         l_6_5._visible = false
         l_6_3._visible = true
         l_6_2.String = l_6_0.Title
         l_6_3.String = l_6_0.Artist
         l_6_2.Size.height = gListView_Height / 2
         l_6_2.Position.x = 40
         l_6_3.Position.x = 40
      elseif gOrder == "7" then
         l_6_2.String = l_6_0.Title
         l_6_3.String = l_6_0.Artist
         l_6_5._visible = true
         if MusicHelper_LogicAnd(l_6_0.State, SONG_STATUS_DRM_VALID) ~= 0 then
            l_6_4:SetTextureRef("music-drm-unlock")
         else
            l_6_4:SetTextureRef("music-drm-lock")
         end
      end
      if l_6_0.IsAdded == true then
         l_6_6:SetTextureRef("Check-box")
      elseif l_6_0.Level == 0 and l_6_0.SelectedChildCount > 0 then
         l_6_6:SetTextureRef("Check-box-semi")
      else
         l_6_6:SetTextureRef("Check-box-empty")
      end
     l_6_1.Focusable = true
     l_6_1.OnSelected:connect(HandleSelectionForItem)
     l_6_1.OnDeselected:connect(HandleDeselectionForItem)
   end      
end

HandleItemDestroyed = function(l_7_0)
   l_7_0.Tag.IsRealized = false
   l_7_0.OnSelected:disconnect(HandleSelectionForItem)
   l_7_0.OnDeselected:disconnect(HandleDeselectionForItem)
end

OnNavigateOutTo = function(l_8_0)
   ListPhysics:DisconnectMouseEvents()
   gPlayer.onListChange:disconnect(OnListChange)
   _request.NavigateInFrom:disconnect(OnNavigateInFrom)
   _request.NavigateOutTo:disconnect(OnNavigateOutTo)
   Transition(l_8_0, "Out")
end

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

Select_DeSelectAll = function(l_10_0)
   for i = 0, gCount - 1 do
      local data = ItemListGenerator:GetData(i)
      if data ~= nil then
         data.IsAdded = l_10_0
         local item = ItemListGenerator:GetItem(i)
         if item ~= nil then
            local cbi = item.Namespace:FindName("CheckboxIcon")
            if l_10_0 == true then
               cbi:SetTextureRef("Check-box")
               if data.Level == 0 then
                  data.SelectedChildCount = data.ChildCount
               end
            else
               cbi:SetTextureRef("Check-box-empty")
               if data.Level == 0 then
                  data.SelectedChildCount = 0
               end
            end
         end            
      else
        break
      end
   end
end

RSKMenuFunction = function()
   DialogRequest = _application.DialogManager:GetDialog(URL("Manila://music-playlist-addsongs.dialog"))
   DialogRequest.OnExit:connect(DialogCallback)
   DialogRequest:Show()
end

DialogCallback = function(l_12_0)
   l_12_0.OnExit:disconnect(DialogCallback)
   listview:Focus()
   if l_12_0.Result.ExitType == DialogExitType_Cancel then
     return
   end
   if l_12_0.Result.UserValue == "SelectAll" then
      Select_DeSelectAll(true)
   elseif l_12_0.Result.UserValue == "DeselectAll" then
      Select_DeSelectAll(false)
   elseif l_12_0.Result.UserValue == "Cancel" then
     _application.Navigation:NavigateBack()
   end
end

LSKFunction = function()
   local l_13_0 = MusicConfig_Instance():GetSetting(CONFIG_CURRENT_PLAYLIST)
   gPlayer:Database():AddSongsToPlaylist(l_13_0)
   _application.Navigation:NavigateBack()
end

SelectData = function()
   if gOrder == "4" then
      local mwc = MusicWhereConditions()
      gPlayer:Database():SelectSongsToAdd(TID_SONG, mwc)
      _application.Navigation.Title = Locale:GetString("IDS_MUSIC_ALLSONGS")
      listview.Viewport.y = listview.Viewport.y - gManilaTrayBarHeight - 18
   elseif gOrder == "7" then
      local mwc = MusicWhereConditions()     
      gPlayer:Database():SelectSongsToAdd(VID_SONGS_OF_TYPE, mwc)
      _application.Navigation.Title = Locale:GetString("IDS_MUSIC_PURCHASED")
      listview.Viewport.y = listview.Viewport.y - gManilaTrayBarHeight - 18
   elseif gOrder == "10" then
      local ca = MusicConfig_Instance():GetSetting(CONFIG_CURRENT_ARTIST)
      local mwc = MusicWhereConditions()     
      mwc:AddCondition(ca)
      gPlayer:Database():SelectSongsToAdd(VID_SONGS_OF_ARTIST, mwc)
      _application.Navigation.Title = ca
   elseif gOrder == "20" then
      local ca = MusicConfig_Instance():GetSetting(CONFIG_CURRENT_ALBUM)
      local mwc = MusicWhereConditions()     
      mwc:AddCondition(ca)
      gPlayer:Database():SelectSongsToAdd(VID_SONGS_OF_ALBUM, mwc)
      _application.Navigation.Title = ca
   elseif gOrder == "50" then
      local cg = MusicConfig_Instance():GetSetting(CONFIG_CURRENT_GENRE)
      local mwc = MusicWhereConditions()     
      mwc:AddCondition(cg)
      gPlayer:Database():SelectSongsToAdd(VID_SONGS_OF_GENRE, mwc)
      _application.Navigation.Title = cg
   elseif gOrder == "60" then
      local cc = MusicConfig_Instance():GetSetting(CONFIG_CURRENT_COMPOSER)
      local mwc = MusicWhereConditions()     
      mwc:AddCondition(cc)
      gPlayer:Database():SelectSongsToAdd(VID_SONGS_OF_COMPOSER, mwc)
      _application.Navigation.Title = cc
   end
end

OnListChange = function()
   SelectData()
   AddSongCollection = gPlayer:Database().SongsListToAdd
   ItemListGenerator.Collection = AddSongCollection
   listview:Focus()
end

trace("[MG-Add] Playlist AddSongs page loading.")
ItemListLayout = TileLayout()
ItemListLayout:SetItemSize(480, gListView_Height, 0)
ItemListLayout.SelectionNode = Selector
listview:SetLayout(ItemListLayout)
if _config_os == "windowsmobile" then
   _request.NavigateOutTo:connect(OnNavigateOutTo)
   _request.NavigateInFrom:connect(OnNavigateInFrom)
   gPlayer.onListChange:connect(OnListChange)
   gOrder = _request.URL.Parameters:GetParameter("order")
   trace("[MG-Add] AddSongs - order " .. gOrder .. "\n")
   SelectData()
   AddSongCollection = gPlayer:Database().SongsListToAdd
   ItemListGenerator = LibraryGeneratorPlaylistAddSongInfo(AddSongCollection, listview:GetMovie(), listview.ComponentLibraryName, listview.ComponentLibraryID)
   gCount = gPlayer:Database().CountAddSongList
   trace("[MG-Add] CountAddSongList: " .. tostring(gCount))
   _application:SetLeftSoftkey(Softkey(Locale:GetString("IDS_MUSIC_EDIT_OK"), LSKFunction))
   _application:SetRightSoftkey(Softkey(Locale:GetString("IDS_MUSIC_MENU"), RSKMenuFunction))
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
ListPhysics = ScrollPhysics(listview, listview, HandleItemSelection)
ListPhysics:ConnectMouseEvents()
ItemListGenerator.ItemCreated:connect(HandleItemCreated)
ItemListGenerator.ItemDestroyed:connect(HandleItemDestroyed)
listview:SetGenerator(ItemListGenerator)
listview:ForceLayout()
listview:Focus()
if _application.Store:GetStringValue(Lifetime_Permanent, "EnableLandscape") == "true" then
   trace("[MG-Addsongs] : EnableLandscape")
   require("Audio\\Music_AddSongs_Landscape")
   _Music_AddSongs_ScreenRotation = Music_AddSongs_ScreenRotation()
end