Changeset 665 for trunk/Packages/uos/uos_flat.pas

Timestamp:

Jul 9, 2025, 4:45:12 PM (13 hours ago)

Author:

chronos

Message:

• Fixed: Playing music on Windows.

Location:

trunk/Packages/uos

Files:

• . (modified) (1 prop)
• uos_flat.pas (modified) (5 diffs)

trunk/Packages/uos/uos_flat.pas

@@ -197 +197 @@
   {$else}
   TProc = procedure of object;
+  TPlayerProc = procedure(PlayerIndex: cint32) of object;
   {$endif}
 
@@ -537 +538 @@
  // PlayerIndex : Index of an existing Player
  // InIndex : Index of an existing Input
-procedure uos_EndProc(PlayerIndex: cint32; Proc: TProc);
+procedure uos_EndProc(PlayerIndex: cint32; Proc: TPlayerProc);
 
  // Assign the procedure (not of object) to execute at end, after loop
@@ -917 +918 @@
  // Stop playing and free thread
 procedure uos_Stop(PlayerIndex: cint32);
-
-// Stop playing and free thread
-procedure uos_StopAndWait(PlayerIndex: cint32);
 
 // Pause playing
@@ -2299 +2297 @@
 end;
 
-procedure uos_StopAndWait(PlayerIndex: cint32);
-begin
-  if (length(uosPlayers) > 0) and (PlayerIndex < length(uosPlayers)) then
-    if uosPlayersStat[PlayerIndex] = 1 then
-      if Assigned(uosPlayers[PlayerIndex]) then
-        uosPlayers[PlayerIndex].StopAndWait()
-{$IF DEFINED (mse)}
-{$endif}
-  ;
-end;
-
 procedure uos_Pause(PlayerIndex: cint32);// Pause playing
 begin
@@ -2328 +2315 @@
 end;
 
-procedure uos_EndProc(PlayerIndex: cint32; Proc: TProc);
+procedure uos_EndProc(PlayerIndex: cint32; Proc: TPlayerProc);
  // Assign the procedure of object to execute at end, after loop
  // PlayerIndex : Index of an existing Player