aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Game/Code/Classes/UMedia_dummy.pas15
1 files changed, 5 insertions, 10 deletions
diff --git a/Game/Code/Classes/UMedia_dummy.pas b/Game/Code/Classes/UMedia_dummy.pas
index bb25a0aa..abd8c1e0 100644
--- a/Game/Code/Classes/UMedia_dummy.pas
+++ b/Game/Code/Classes/UMedia_dummy.pas
@@ -25,7 +25,6 @@ uses
math,
UMusic;
-
var
singleton_dummy : IVideoPlayback;
@@ -35,7 +34,7 @@ type
DummyOutputDeviceList: TAudioOutputDeviceList;
public
constructor create();
- function GetName: String;
+ function GetName: string;
procedure init();
@@ -74,19 +73,16 @@ type
function Finished: boolean;
function Length: real;
- function OpenSound(const Filename: String): TAudioPlaybackStream;
+ function OpenSound(const Filename: string): TAudioPlaybackStream;
procedure PlaySound(stream: TAudioPlaybackStream);
procedure StopSound(stream: TAudioPlaybackStream);
end;
-
-
-function Tmedia_dummy.GetName: String;
+function Tmedia_dummy.GetName: string;
begin
result := 'dummy';
end;
-
procedure Tmedia_dummy.GetFrame(Time: Extended);
begin
end;
@@ -104,7 +100,6 @@ procedure Tmedia_dummy.init();
begin
end;
-
function Tmedia_dummy.Open(const aFileName : string): boolean; // true if succeed
begin
result := false;
@@ -196,7 +191,7 @@ end;
procedure Tmedia_dummy.FadeIn(Time: real; TargetVolume: single);
begin
-end;
+end;
procedure Tmedia_dummy.Rewind;
begin
@@ -212,7 +207,7 @@ begin
Result := 60;
end;
-function Tmedia_dummy.OpenSound(const Filename: String): TAudioPlaybackStream;
+function Tmedia_dummy.OpenSound(const Filename: string): TAudioPlaybackStream;
begin
result := nil;
end;