From 6b5dcb058a3a0b6e0fd1db72bf488ec1871e5804 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Thu, 22 May 2008 23:23:40 +0000 Subject: eol-style unified and propset git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1125 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UMedia_dummy.pas | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) (limited to 'Game') 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; -- cgit v1.2.3