aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-10-08 09:08:17 +0000
committerjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-10-08 09:08:17 +0000
commit174244a5ddf10da145779f6fe0ad1c5bc398fa6a (patch)
tree4dd3045df6869811dd77f6c1739636d55ed4c691
parente32eda08cb91c82afc568a406d2444e075eda5dd (diff)
downloadusdx-174244a5ddf10da145779f6fe0ad1c5bc398fa6a.tar.gz
usdx-174244a5ddf10da145779f6fe0ad1c5bc398fa6a.tar.xz
usdx-174244a5ddf10da145779f6fe0ad1c5bc398fa6a.zip
fixed bad build build#USDX-DELPHI-31
oops... git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@473 b956fd51-792f-4845-bead-9b4dfca2ff2c
-rw-r--r--Game/Code/Classes/UMusic.pas7
-rw-r--r--Game/Code/Classes/URecord.pas3
2 files changed, 6 insertions, 4 deletions
diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index bdd0be83..3c43615b 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -97,12 +97,12 @@ type
//Custom Sounds
CustomSounds: array of TCustomSoundEntry;
+ Loaded: boolean;
+ Loop: boolean;
function FFMPeg_StreamCreateFile(abool : boolean; aFileName : pchar ): THandle;
- Loaded: boolean;
- Loop: boolean;
public
Bass: hStream;
procedure InitializePlayback;
@@ -670,7 +670,8 @@ begin
{$IFDEF useBASS}
// TODO : jb_linux replace with something other than bass
- if not BASS_RecordInit(RecordI) then begin
+ if not BASS_RecordInit(RecordI) then
+ begin
Error := BASS_ErrorGetCode;
ErrorMsg := IntToStr(Error);
diff --git a/Game/Code/Classes/URecord.pas b/Game/Code/Classes/URecord.pas
index d22e20d3..b553504d 100644
--- a/Game/Code/Classes/URecord.pas
+++ b/Game/Code/Classes/URecord.pas
@@ -76,6 +76,7 @@ var
Recording: TRecord;
implementation
+
uses UMain;
procedure TSound.ProcessNewBuffer;
@@ -308,7 +309,7 @@ begin
Repeat
Inc(No)
Until not IsDuplicate(Descr + ' (' + InttoStr(No) + ')');
-
+
//Set Description
Descr := Descr + ' (' + InttoStr(No) + ')';
end;