diff options
Diffstat (limited to 'Game')
-rw-r--r-- | Game/Code/Classes/UMedia_dummy.pas | 15 |
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;
|