pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpsound: Removes unused code

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2267 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2012-01-25 14:30:05 +00:00
parent 9cb501fd8b
commit d605088c96
1 changed files with 0 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
components/fpsound/fpsound_openal.pas
View File

@ -49,44 +49,6 @@ type
implementation
(*type
TOpenALThread = class(TThread)
private
public
FAOwner: TStream;
constructor Create(aOwner: TStream);
destructor Destroy; override;
procedure Execute; override;
procedure DoOpenALPlay;
end;
var
TheLastThread: TOpenALThread;
constructor TOpenALThread.Create(aOwner: TStream);
begin
inherited Create(False);
FAOwner := aOwner;
FreeOnTerminate := True;
end;
destructor TOpenALThread.Destroy;
begin
inherited Destroy;
end;
procedure TOpenALThread.Execute;
begin
Synchronize(@DoOpenALPlay);
end;
procedure TOpenALThread.DoOpenALPlay;
begin
OPCSoundPlayStreamEx(FAOwner);
end;*)
procedure TOpenALPlayer.alStop;
begin
alSourceStop(al_source);