From d4df85930a195250d3f4a3d315921e265f6295c2 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 9 Oct 2007 10:44:00 +0000
Subject: added 3rd party units to DPR to help simplify build. ( backported
 from trunk )

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.01@482 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/ULCD.pas   | 4 +++-
 Game/Code/Classes/UMusic.pas | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'Game/Code/Classes')

diff --git a/Game/Code/Classes/ULCD.pas b/Game/Code/Classes/ULCD.pas
index a127c689..abdf3584 100644
--- a/Game/Code/Classes/ULCD.pas
+++ b/Game/Code/Classes/ULCD.pas
@@ -41,7 +41,9 @@ const
 implementation
 
 uses
-  SysUtils, zlportio, UTime;
+  SysUtils,
+  zlportio,
+  UTime;
 
 procedure TLCD.WriteCommand(B: Byte);
 // Wysylanie komend sterujacych
diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index 4e647ed3..9399adb1 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -441,7 +441,7 @@ var
 begin
   Result := 60;
 
-  bytes := BASS_StreamGetLength(Bass);
+  bytes  := BASS_ChannelGetLength( Bass );
   Result := BASS_ChannelBytes2Seconds(Bass, bytes);
 
 {  if Assigned(MediaPlayer) then begin
-- 
cgit v1.2.3