Changeset 677 for trunk/Music.pas

Timestamp:

Jul 26, 2025, 2:00:45 PM (19 hours ago)

Author:

chronos

Message:

• Fixed: New music player index calculation.

File:

• trunk/Music.pas (modified) (3 diffs)

trunk/Music.pas

@@ -20 +20 @@
     AutoPlayNext: Boolean;
     LibrariesLoaded: Boolean;
+    NewPlayerIndex: Integer;
     function GetPlaying: Boolean;
     procedure Initialize;
@@ -153 +154 @@
   Playlist := TStringList.Create;
   PlayerIndex1 := -1;
+  NewPlayerIndex := 0;
   FVolume := 1;
 end;
@@ -213 +215 @@
   if PlayerIndex1 >= 0 then uos_Stop(PlayerIndex1);
 
-  Inc(PlayerIndex1);
+  PlayerIndex1 := NewPlayerIndex;
+  Inc(NewPlayerIndex);
 
   uos_CreatePlayer(PlayerIndex1);
   uos_EndProc(PlayerIndex1, EndPlay);
-  //uos_LoopEndProc(PlayerIndex1, LoopEndProc);
 
   FileName := GetNextPlaylistItem;