aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UMedia_dummy.pas
diff options
context:
space:
mode:
authorjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-10-25 06:59:28 +0000
committerjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-10-25 06:59:28 +0000
commit9a144f3cc3b9fbed5b07ffc3a05c5449d638d3ae (patch)
treea64ee8fce70b5f7fba115d2b30109c4f3deea621 /Game/Code/Classes/UMedia_dummy.pas
parentcdf2eb843e60cb4712080430a9f43f8e68e26069 (diff)
downloadusdx-9a144f3cc3b9fbed5b07ffc3a05c5449d638d3ae.tar.gz
usdx-9a144f3cc3b9fbed5b07ffc3a05c5449d638d3ae.tar.xz
usdx-9a144f3cc3b9fbed5b07ffc3a05c5449d638d3ae.zip
minor changes and fixes for USDX on linux.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@526 b956fd51-792f-4845-bead-9b4dfca2ff2c
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 ) );