Changeset 75 for trunk/Packages/CoolAudio/Systems/mplayer

Timestamp:

Mar 26, 2024, 11:27:01 PM (9 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from CoolAudio package unit names.

File:

• trunk/Packages/CoolAudio/Systems/mplayer/AudioSystemMPlayer.pas (moved) (moved from trunk/Packages/CoolAudio/Systems/mplayer/UAudioSystemMPlayer.pas ) (6 diffs)

trunk/Packages/CoolAudio/Systems/mplayer/AudioSystemMPlayer.pas

@@ -1 +1 @@
 // MPlayer slave command list: http://www.mplayerhq.hu/DOCS/tech/slave.txt
 
-unit UAudioSystemMPlayer;
-
-{$I UCoolAudioConfig.inc}
-{$mode Delphi}{$H+}
+unit AudioSystemMPlayer;
+
+{$I CoolAudioConfig.inc}
 
 interface
 
 uses
-  Classes, SysUtils, UAudioSystem, Process, Math, Dialogs, DateUtils;
+  Classes, SysUtils, AudioSystem, Process, Math, Dialogs, DateUtils;
 
 const
@@ -64 +63 @@
   SCantStopProcess = 'Can''t stop Mplayer process';
 
+
 implementation
 
@@ -125 +125 @@
 destructor TAudioSystemMPlayer.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 
@@ -189 +189 @@
 function TPlayerMPlayer.GetVolume: Real;
 begin
+  Result := 0;
 end;
 
@@ -251 +252 @@
 var
   MPOptions: String;
-  Vol: Real;
 begin
   if FPlaying then Stop;
@@ -306 +306 @@
 begin
   Stop;
-  FProcess.Free;
-  inherited Destroy;
+  FreeAndNil(FProcess);
+  inherited;
 end;