aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes')
-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;