Ignore:
Timestamp:
Mar 26, 2024, 11:27:01 PM (8 months ago)
Author:
chronos
Message:
  • Modified: Removed U prefix from CoolAudio package unit names.
File:
1 moved

Legend:

Unmodified
Added
Removed

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

    r74 r75  
    11// MPlayer slave command list: http://www.mplayerhq.hu/DOCS/tech/slave.txt
    22
    3 unit UAudioSystemMPlayer;
    4 
    5 {$I UCoolAudioConfig.inc}
    6 {$mode Delphi}{$H+}
     3unit AudioSystemMPlayer;
     4
     5{$I CoolAudioConfig.inc}
    76
    87interface
    98
    109uses
    11   Classes, SysUtils, UAudioSystem, Process, Math, Dialogs, DateUtils;
     10  Classes, SysUtils, AudioSystem, Process, Math, Dialogs, DateUtils;
    1211
    1312const
    … …  
    6463  SCantStopProcess = 'Can''t stop Mplayer process';
    6564
     65
    6666implementation
    6767
    … …  
    125125destructor TAudioSystemMPlayer.Destroy;
    126126begin
    127   inherited Destroy;
     127  inherited;
    128128end;
    129129
    … …  
    189189function TPlayerMPlayer.GetVolume: Real;
    190190begin
     191  Result := 0;
    191192end;
    192193
    … …  
    251252var
    252253  MPOptions: String;
    253   Vol: Real;
    254254begin
    255255  if FPlaying then Stop;
    … …  
    306306begin
    307307  Stop;
    308   FProcess.Free;
    309   inherited Destroy;
     308  FreeAndNil(FProcess);
     309  inherited;
    310310end;
    311311
Note: See TracChangeset for help on using the changeset viewer.