diff options
| author | jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-10-08 09:08:17 +0000 |
|---|---|---|
| committer | jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-10-08 09:08:17 +0000 |
| commit | 174244a5ddf10da145779f6fe0ad1c5bc398fa6a (patch) | |
| tree | 4dd3045df6869811dd77f6c1739636d55ed4c691 /Game | |
| parent | e32eda08cb91c82afc568a406d2444e075eda5dd (diff) | |
| download | usdx-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
Diffstat (limited to '')
| -rw-r--r-- | Game/Code/Classes/UMusic.pas | 7 | ||||
| -rw-r--r-- | Game/Code/Classes/URecord.pas | 3 |
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; |