aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UMedia_dummy.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UMedia_dummy.pas50
1 files changed, 26 insertions, 24 deletions
diff --git a/Game/Code/Classes/UMedia_dummy.pas b/Game/Code/Classes/UMedia_dummy.pas
index 0752ab64..bf3ad727 100644
--- a/Game/Code/Classes/UMedia_dummy.pas
+++ b/Game/Code/Classes/UMedia_dummy.pas
@@ -37,9 +37,9 @@ type
procedure init();
function Open( aFileName : string): boolean; // true if succeed
- procedure Close;
-
- procedure Play;
+ procedure Close;
+
+ procedure Play;
procedure Pause;
procedure Stop;
@@ -90,7 +90,7 @@ type
function Tmedia_dummy.GetName: String;
begin
- result := 'dummy';
+ result := 'dummy';
end;
@@ -104,23 +104,23 @@ end;
constructor Tmedia_dummy.create();
begin
-end;
-
-procedure Tmedia_dummy.init();
+end;
+
+procedure Tmedia_dummy.init();
+begin
+end;
+
+
+function Tmedia_dummy.Open( aFileName : string): boolean; // true if succeed
begin
-end;
-
-
-function Tmedia_dummy.Open( aFileName : string): boolean; // true if succeed
-begin
result := false;
-end;
-
-procedure Tmedia_dummy.Close;
+end;
+
+procedure Tmedia_dummy.Close;
begin
end;
-procedure Tmedia_dummy.Play;
+procedure Tmedia_dummy.Play;
begin
end;
@@ -138,7 +138,7 @@ end;
function Tmedia_dummy.getPosition: real;
begin
- result := 0;
+ result := 0;
end;
// IAudioInput
@@ -169,8 +169,8 @@ end;
// IAudioPlayback
procedure Tmedia_dummy.InitializePlayback;
begin
-end;
-
+end;
+
procedure Tmedia_dummy.SetVolume(Volume: integer);
begin
end;
@@ -189,11 +189,13 @@ end;
function Tmedia_dummy.Finished: boolean;
begin
-end;
-
+ result := false;
+end;
+
function Tmedia_dummy.Length: real;
begin
-end;
+ Result := 60;
+end;
procedure Tmedia_dummy.PlayStart;
begin
@@ -267,8 +269,8 @@ initialization
writeln( 'UMedia_dummy - Register dummy Video_Playback' );
AudioManager.add( IAudioInput( singleton_dummy ) );
-finalization
- AudioManager.Remove( IVideoPlayback( singleton_dummy ) );
+finalization
+ AudioManager.Remove( IVideoPlayback( singleton_dummy ) );
AudioManager.Remove( IAudioPlayback( singleton_dummy ) );
AudioManager.Remove( IAudioInput( singleton_dummy ) );