diff options
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Classes/UAudioCore_Bass.pas | 86 | ||||
-rw-r--r-- | Game/Code/Classes/UCovers.pas | 3 | ||||
-rw-r--r-- | Game/Code/Classes/ULog.pas | 2 |
3 files changed, 44 insertions, 47 deletions
diff --git a/Game/Code/Classes/UAudioCore_Bass.pas b/Game/Code/Classes/UAudioCore_Bass.pas index 55148f95..9c13b461 100644 --- a/Game/Code/Classes/UAudioCore_Bass.pas +++ b/Game/Code/Classes/UAudioCore_Bass.pas @@ -1,42 +1,42 @@ unit UAudioCore_Bass;
- -interface - -{$IFDEF FPC} - {$MODE Delphi} -{$ENDIF} - -{$I switches.inc} - -uses - Classes, - SysUtils; - -type - TAudioCore_Bass = class - private - public - class function ErrorGetString(): string; overload; - class function ErrorGetString(errCode: integer): string; overload; - end; - - -implementation - -uses - UMain, - ULog, - bass; - -class function TAudioCore_Bass.ErrorGetString(): string; -begin - ErrorGetString(BASS_ErrorGetCode()); -end; - -class function TAudioCore_Bass.ErrorGetString(errCode: integer): string; -begin - case errCode of - BASS_OK: +
+interface
+
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses
+ Classes,
+ SysUtils;
+
+type
+ TAudioCore_Bass = class
+ private
+ public
+ class function ErrorGetString(): string; overload;
+ class function ErrorGetString(errCode: integer): string; overload;
+ end;
+
+
+implementation
+
+uses
+ UMain,
+ ULog,
+ bass;
+
+class function TAudioCore_Bass.ErrorGetString(): string;
+begin
+ Result := ErrorGetString(BASS_ErrorGetCode());
+end;
+
+class function TAudioCore_Bass.ErrorGetString(errCode: integer): string;
+begin
+ case errCode of
+ BASS_OK:
result := 'No error';
BASS_ERROR_MEM:
result := 'Insufficient memory';
@@ -107,10 +107,10 @@ begin BASS_ERROR_CODEC:
result := 'Codec not available/supported';
BASS_ERROR_UNKNOWN:
- result := 'Unknown error'; - else - result := 'Unknown error'; - end; -end; + result := 'Unknown error';
+ else
+ result := 'Unknown error';
+ end;
+end;
end.
\ No newline at end of file diff --git a/Game/Code/Classes/UCovers.pas b/Game/Code/Classes/UCovers.pas index 478264b9..9cd7af10 100644 --- a/Game/Code/Classes/UCovers.pas +++ b/Game/Code/Classes/UCovers.pas @@ -9,9 +9,6 @@ interface {$I switches.inc} uses gl, - {$IFDEF win32} - windows, - {$ENDIF} Math, Classes, SysUtils, diff --git a/Game/Code/Classes/ULog.pas b/Game/Code/Classes/ULog.pas index ca488e7e..1d710387 100644 --- a/Game/Code/Classes/ULog.pas +++ b/Game/Code/Classes/ULog.pas @@ -37,7 +37,7 @@ const LOG_LEVEL_NONE = -1;
// define level that Log(File)Level is initialized with
- LOG_LEVEL_DEFAULT = LOG_LEVEL_INFO;
+ LOG_LEVEL_DEFAULT = LOG_LEVEL_WARN;
LOG_FILE_LEVEL_DEFAULT = LOG_LEVEL_ERROR;
type
|