aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code')
-rw-r--r--Game/Code/Classes/UCatCovers.pas153
-rw-r--r--Game/Code/Classes/UCommandLine.pas3
-rw-r--r--Game/Code/Classes/UCommon.pas4
-rw-r--r--Game/Code/Classes/UCore.pas2
-rw-r--r--Game/Code/Classes/UCoreModule.pas2
-rw-r--r--Game/Code/Classes/UCovers.pas1
-rw-r--r--Game/Code/Classes/UDLLManager.pas1
-rw-r--r--Game/Code/Classes/UDataBase.pas4
-rw-r--r--Game/Code/Classes/UHooks.pas2
-rw-r--r--Game/Code/Classes/UJoystick.pas2
-rw-r--r--Game/Code/Classes/ULCD.pas2
-rw-r--r--Game/Code/Classes/ULanguage.pas2
-rw-r--r--Game/Code/Classes/ULight.pas1
-rw-r--r--Game/Code/Classes/ULog.pas2
-rw-r--r--Game/Code/Classes/ULyrics.pas4
-rw-r--r--Game/Code/Classes/ULyrics_bak.pas1
-rw-r--r--Game/Code/Classes/UMedia_dummy.pas1
-rw-r--r--Game/Code/Classes/UMusic.pas3
-rw-r--r--Game/Code/Classes/UParty.pas2
-rw-r--r--Game/Code/Classes/UPlaylist.pas1
-rw-r--r--Game/Code/Classes/URecord.pas1
-rw-r--r--Game/Code/Classes/UServices.pas4
-rw-r--r--Game/Code/Classes/USingScores.pas2
-rw-r--r--Game/Code/Classes/USkins.pas1
-rw-r--r--Game/Code/Classes/USong.pas3
-rw-r--r--Game/Code/Classes/USongs.pas1
-rw-r--r--Game/Code/Classes/UThemes.pas6
-rw-r--r--Game/Code/Classes/UTime.pas1
-rw-r--r--Game/Code/Classes/UVideo.pas2
-rw-r--r--Game/Code/Classes/UVisualizer.pas9
-rw-r--r--Game/Code/Classes/uPluginLoader.pas4
-rw-r--r--Game/Code/Menu/UMenu.pas2
-rw-r--r--Game/Code/lib/projectM/projectM-0_9.inc3
-rw-r--r--Game/Code/lib/projectM/projectM-1_0.inc3
34 files changed, 138 insertions, 97 deletions
diff --git a/Game/Code/Classes/UCatCovers.pas b/Game/Code/Classes/UCatCovers.pas
index 516544be..d8cebffa 100644
--- a/Game/Code/Classes/UCatCovers.pas
+++ b/Game/Code/Classes/UCatCovers.pas
@@ -24,18 +24,21 @@ type
end;
var
-CatCovers: TCatCovers;
+ CatCovers: TCatCovers;
implementation
-uses IniFiles,
- SysUtils,
- Classes,
- // UFiles,
- UMain,
- ULog;
+
+uses
+ IniFiles,
+ SysUtils,
+ Classes,
+ // UFiles,
+ UMain,
+ ULog;
constructor TCatCovers.Create;
begin
+ inherited;
Load;
end;
@@ -48,104 +51,100 @@ var
I, J: Integer;
Name, Filename, Temp: string;
begin
-try
- Ini := TMemIniFile.Create(CoversPath + 'covers.ini');
- List := TStringlist.Create;
-
- //Add every Cover in Covers Ini for Every Sorting option
- for I := low(ISorting) to high(ISorting) do
- begin
- Ini.ReadSection(ISorting[I], List);
-
- for J := 0 to List.Count - 1 do
- Add(I, List.Strings[J], CoversPath + Ini.ReadString(ISorting[I], List.Strings[J], 'NoCover.jpg'));
+ try
+ Ini := TMemIniFile.Create(CoversPath + 'covers.ini');
+ List := TStringlist.Create;
+
+ //Add every Cover in Covers Ini for Every Sorting option
+ for I := low(ISorting) to high(ISorting) do
+ begin
+ Ini.ReadSection(ISorting[I], List);
+
+ for J := 0 to List.Count - 1 do
+ Add(I, List.Strings[J], CoversPath + Ini.ReadString(ISorting[I], List.Strings[J], 'NoCover.jpg'));
+ end;
+ finally
+ Ini.Free;
+ List.Free;
end;
-finally
- Ini.Free;
- List.Free;
-end;
-
-try
- //Add Covers from Folder
- if (FindFirst (CoversPath + '*.jpg', faAnyFile, SR) = 0) then
- repeat
- //Add Cover if it doesn't exist for every Section
- Name := SR.Name;
- Filename := CoversPath + Name;
- Delete (Name, length(Name) - 3, 4);
-
- for I := low(ISorting) to high(ISorting) do
- begin
- Temp := Name;
- if ((I = sTitle) or (I = sTitle2)) and (Pos ('Title', Temp) <> 0) then
- Delete (Temp, Pos ('Title', Temp), 5)
- else if (I = sArtist) or (I = sArtist2) and (Pos ('Artist', Temp) <> 0) then
- Delete (Temp, Pos ('Artist', Temp), 6);
-
- if not CoverExists(I, Temp) then
- Add (I, Temp, Filename);
- end;
- until FindNext (SR) <> 0;
-
-finally
- FindClose (SR);
-end;
-
+ try
+ //Add Covers from Folder
+ if (FindFirst (CoversPath + '*.jpg', faAnyFile, SR) = 0) then
+ repeat
+ //Add Cover if it doesn't exist for every Section
+ Name := SR.Name;
+ Filename := CoversPath + Name;
+ Delete (Name, length(Name) - 3, 4);
+
+ for I := low(ISorting) to high(ISorting) do
+ begin
+ Temp := Name;
+ if ((I = sTitle) or (I = sTitle2)) and (Pos ('Title', Temp) <> 0) then
+ Delete (Temp, Pos ('Title', Temp), 5)
+ else if (I = sArtist) or (I = sArtist2) and (Pos ('Artist', Temp) <> 0) then
+ Delete (Temp, Pos ('Artist', Temp), 6);
+
+ if not CoverExists(I, Temp) then
+ Add (I, Temp, Filename);
+ end;
+ until FindNext (SR) <> 0;
+ finally
+ FindClose (SR);
+ end;
end;
//Add a Cover
procedure TCatCovers.Add(Sorting: integer; Name, Filename: string);
begin
-if FileExists (Filename) then //If Exists -> Add
-begin
-SetLength (CNames[Sorting], Length(CNames[Sorting]) + 1);
-SetLength (CFiles[Sorting], Length(CNames[Sorting]) + 1);
+ if FileExists (Filename) then //If Exists -> Add
+ begin
+ SetLength (CNames[Sorting], Length(CNames[Sorting]) + 1);
+ SetLength (CFiles[Sorting], Length(CNames[Sorting]) + 1);
-CNames[Sorting][high(cNames[Sorting])] := Uppercase(Name);
-CFiles[Sorting][high(cNames[Sorting])] := FileName;
-end;
+ CNames[Sorting][high(cNames[Sorting])] := Uppercase(Name);
+ CFiles[Sorting][high(cNames[Sorting])] := FileName;
+ end;
end;
//Returns True when a cover with the given Name exists
function TCatCovers.CoverExists(Sorting: integer; Name: string): boolean;
var
-I: Integer;
+ I: Integer;
begin
-Result := False;
-Name := Uppercase(Name); //Case Insensitiv
+ Result := False;
+ Name := Uppercase(Name); //Case Insensitiv
-for I := low(cNames[Sorting]) to high(cNames[Sorting]) do
-begin
- if (cNames[Sorting][I] = Name) then //Found Name
+ for I := low(cNames[Sorting]) to high(cNames[Sorting]) do
begin
- Result := true;
- break; //Break For Loop
+ if (cNames[Sorting][I] = Name) then //Found Name
+ begin
+ Result := true;
+ break; //Break For Loop
+ end;
end;
end;
-end;
//Returns the Filename of a Cover
function TCatCovers.GetCover(Sorting: integer; Name: string): string;
var
I: Integer;
begin
-Result := '';
-Name := Uppercase(Name);
+ Result := '';
+ Name := Uppercase(Name);
-for I := low(cNames[Sorting]) to high(cNames[Sorting]) do
-begin
- if cNames[Sorting][I] = Name then
+ for I := low(cNames[Sorting]) to high(cNames[Sorting]) do
begin
- Result := cFiles[Sorting][I];
- Break;
+ if cNames[Sorting][I] = Name then
+ begin
+ Result := cFiles[Sorting][I];
+ Break;
+ end;
end;
-end;
-
-//No Cover
-if (Result = '') AND (FileExists(CoversPath + 'NoCover.jpg')) then
- Result := CoversPath + 'NoCover.jpg';
+ //No Cover
+ if (Result = '') AND (FileExists(CoversPath + 'NoCover.jpg')) then
+ Result := CoversPath + 'NoCover.jpg';
end;
end.
diff --git a/Game/Code/Classes/UCommandLine.pas b/Game/Code/Classes/UCommandLine.pas
index e7398b50..03e5c9d3 100644
--- a/Game/Code/Classes/UCommandLine.pas
+++ b/Game/Code/Classes/UCommandLine.pas
@@ -72,7 +72,8 @@ uses SysUtils,
//-------------
Constructor TCMDParams.Create;
begin
-
+ inherited;
+
if FindCmdLineSwitch( cHelp ) or FindCmdLineSwitch( 'h' ) then
showhelp();
diff --git a/Game/Code/Classes/UCommon.pas b/Game/Code/Classes/UCommon.pas
index 2c73db25..026c2850 100644
--- a/Game/Code/Classes/UCommon.pas
+++ b/Game/Code/Classes/UCommon.pas
@@ -692,8 +692,8 @@ end;
* output-list. If we only had In- and OutList parameters we had to merge into
* InList after the recursive calls and copy the data to the OutList afterwards.
*)
-function _MergeSort(InList, TempList, OutList: TList; StartPos, BlockSize: integer;
- CompareFunc: TListSortCompare): TList;
+procedure _MergeSort(InList, TempList, OutList: TList; StartPos, BlockSize: integer;
+ CompareFunc: TListSortCompare);
var
LeftSize, RightSize: integer; // number of elements in left/right block
LeftEnd, RightEnd: integer; // Index after last element in left/right block
diff --git a/Game/Code/Classes/UCore.pas b/Game/Code/Classes/UCore.pas
index f28b54f2..ac29e727 100644
--- a/Game/Code/Classes/UCore.pas
+++ b/Game/Code/Classes/UCore.pas
@@ -128,6 +128,8 @@ uses {$IFDEF win32}
//-------------
Constructor TCore.Create(const cName: String; const cVersion: LongWord);
begin
+ inherited Create;
+
Name := cName;
Version := cVersion;
iLastExecuted := 0;
diff --git a/Game/Code/Classes/UCoreModule.pas b/Game/Code/Classes/UCoreModule.pas
index a7ad3b4e..031fb04e 100644
--- a/Game/Code/Classes/UCoreModule.pas
+++ b/Game/Code/Classes/UCoreModule.pas
@@ -59,6 +59,7 @@ implementation
Constructor TCoreModule.Create;
begin
//Dummy maaaan ;)
+ inherited;
end;
//-------------
@@ -121,6 +122,7 @@ end;
Destructor TCoreModule.Destroy;
begin
//Dummy ftw!!
+ inherited;
end;
end.
diff --git a/Game/Code/Classes/UCovers.pas b/Game/Code/Classes/UCovers.pas
index 9cd7af10..3a5b4f50 100644
--- a/Game/Code/Classes/UCovers.pas
+++ b/Game/Code/Classes/UCovers.pas
@@ -57,6 +57,7 @@ uses UMain,
constructor TCovers.Create;
begin
+ inherited;
W := 128;
H := 128;
Size := W*H*3;
diff --git a/Game/Code/Classes/UDLLManager.pas b/Game/Code/Classes/UDLLManager.pas
index cbe79c3c..3d32a72a 100644
--- a/Game/Code/Classes/UDLLManager.pas
+++ b/Game/Code/Classes/UDLLManager.pas
@@ -68,6 +68,7 @@ uses {$IFDEF MSWINDOWS}
constructor TDLLMan.Create;
begin
+ inherited;
SetLength(Plugins, 0);
SetLength(PluginPaths, Length(Plugins));
GetPluginList;
diff --git a/Game/Code/Classes/UDataBase.pas b/Game/Code/Classes/UDataBase.pas
index f7f39634..8f5ebf50 100644
--- a/Game/Code/Classes/UDataBase.pas
+++ b/Game/Code/Classes/UDataBase.pas
@@ -118,9 +118,9 @@ end;
//--------------------
Destructor TDataBaseSystem.Destroy;
begin
- debugWriteln( 'TDataBaseSystem.Free' );
-
+ Log.LogInfo('TDataBaseSystem.Free', 'TDataBaseSystem.Destroy');
freeandnil( ScoreDB );
+ inherited;
end;
//--------------------
diff --git a/Game/Code/Classes/UHooks.pas b/Game/Code/Classes/UHooks.pas
index 9c9e7dca..f0ba3276 100644
--- a/Game/Code/Classes/UHooks.pas
+++ b/Game/Code/Classes/UHooks.pas
@@ -76,6 +76,8 @@ uses
constructor THookManager.Create(const SpacetoAllocate: Word);
var I: Integer;
begin
+ inherited Create();
+
//Get the Space and "Zero" it
SetLength (Events, SpacetoAllocate);
For I := 0 to SpacetoAllocate-1 do
diff --git a/Game/Code/Classes/UJoystick.pas b/Game/Code/Classes/UJoystick.pas
index cd7171d6..59a1221b 100644
--- a/Game/Code/Classes/UJoystick.pas
+++ b/Game/Code/Classes/UJoystick.pas
@@ -48,6 +48,8 @@ constructor TJoy.Create;
var
B, N: integer;
begin
+ inherited;
+
//Old Corvus5 Method
{// joystick support
SDL_JoystickEventState(SDL_IGNORE);
diff --git a/Game/Code/Classes/ULCD.pas b/Game/Code/Classes/ULCD.pas
index 13736729..4bbddf46 100644
--- a/Game/Code/Classes/ULCD.pas
+++ b/Game/Code/Classes/ULCD.pas
@@ -119,7 +119,7 @@ end;
constructor TLCD.Create;
begin
-//
+ inherited;
end;
procedure TLCD.Enable;
diff --git a/Game/Code/Classes/ULanguage.pas b/Game/Code/Classes/ULanguage.pas
index dc07c298..d534b4e1 100644
--- a/Game/Code/Classes/ULanguage.pas
+++ b/Game/Code/Classes/ULanguage.pas
@@ -61,6 +61,8 @@ constructor TLanguage.Create;
var
I, J: Integer;
begin
+ inherited;
+
LoadList;
//Set Implode Glues for Backward Compatibility
diff --git a/Game/Code/Classes/ULight.pas b/Game/Code/Classes/ULight.pas
index b0ff9d6b..f91d614c 100644
--- a/Game/Code/Classes/ULight.pas
+++ b/Game/Code/Classes/ULight.pas
@@ -82,6 +82,7 @@ uses
constructor TLight.Create;
begin
+ inherited;
Enabled := false;
end;
diff --git a/Game/Code/Classes/ULog.pas b/Game/Code/Classes/ULog.pas
index 1d710387..9cfddcfc 100644
--- a/Game/Code/Classes/ULog.pas
+++ b/Game/Code/Classes/ULog.pas
@@ -128,6 +128,7 @@ end;
constructor TLog.Create;
begin
+ inherited;
LogLevel := LOG_LEVEL_DEFAULT;
LogFileLevel := LOG_FILE_LEVEL_DEFAULT;
FileOutputEnabled := true;
@@ -141,6 +142,7 @@ begin
// CloseFile(AnalyzeFile);
if LogFileOpened then
CloseFile(LogFile);
+ inherited;
end;
procedure TLog.BenchmarkStart(Number: integer);
diff --git a/Game/Code/Classes/ULyrics.pas b/Game/Code/Classes/ULyrics.pas
index b542b5f6..05d7682e 100644
--- a/Game/Code/Classes/ULyrics.pas
+++ b/Game/Code/Classes/ULyrics.pas
@@ -157,6 +157,8 @@ end;
//---------------
Constructor TLyricEngine.Create;
begin
+ inherited;
+
BPM := 0;
Resolution := 0;
LCounter := 0;
@@ -194,7 +196,7 @@ end;
//---------------
Destructor TLyricEngine.Destroy;
begin
-
+ inherited;
end;
//---------------
diff --git a/Game/Code/Classes/ULyrics_bak.pas b/Game/Code/Classes/ULyrics_bak.pas
index c99b846f..06361911 100644
--- a/Game/Code/Classes/ULyrics_bak.pas
+++ b/Game/Code/Classes/ULyrics_bak.pas
@@ -116,6 +116,7 @@ Constructor TLyric.Create;
var
I: Integer;
begin
+ inherited;
//Only 2 Players for now
For I := 0 to 1 do
begin
diff --git a/Game/Code/Classes/UMedia_dummy.pas b/Game/Code/Classes/UMedia_dummy.pas
index f576400d..dcdcd710 100644
--- a/Game/Code/Classes/UMedia_dummy.pas
+++ b/Game/Code/Classes/UMedia_dummy.pas
@@ -91,6 +91,7 @@ end;
constructor Tmedia_dummy.create();
begin
+ inherited;
end;
procedure Tmedia_dummy.init();
diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index 93dd15de..4e0291cf 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -319,6 +319,7 @@ var
constructor TAudioFormatInfo.Create(Channels: byte; SampleRate: double; Format: TAudioSampleFormat);
begin
+ inherited Create();
Self.Channels := Channels;
Self.SampleRate := SampleRate;
Self.Format := Format;
@@ -484,12 +485,14 @@ end;
constructor TSoundLibrary.Create();
begin
+ inherited;
LoadSounds();
end;
destructor TSoundLibrary.Destroy();
begin
UnloadSounds();
+ inherited;
end;
procedure TSoundLibrary.LoadSounds();
diff --git a/Game/Code/Classes/UParty.pas b/Game/Code/Classes/UParty.pas
index b7670c67..9fdcf7a6 100644
--- a/Game/Code/Classes/UParty.pas
+++ b/Game/Code/Classes/UParty.pas
@@ -102,6 +102,7 @@ end;
//-------------
Constructor TPartySession.Create;
begin
+ inherited;
//UnSet PartyMode
bPartyMode := False;
end;
@@ -151,6 +152,7 @@ Destructor TPartySession.Destroy;
begin
//Just save some Memory if it wasn't done now..
SetLength(Modis, 0);
+ inherited;
end;
//-------------
diff --git a/Game/Code/Classes/UPlaylist.pas b/Game/Code/Classes/UPlaylist.pas
index 4f181d73..a08f33ec 100644
--- a/Game/Code/Classes/UPlaylist.pas
+++ b/Game/Code/Classes/UPlaylist.pas
@@ -83,6 +83,7 @@ uses USongs,
//----------
constructor TPlayListManager.Create;
begin
+ inherited;
LoadPlayLists;
end;
diff --git a/Game/Code/Classes/URecord.pas b/Game/Code/Classes/URecord.pas
index 2f62f441..6faac2b6 100644
--- a/Game/Code/Classes/URecord.pas
+++ b/Game/Code/Classes/URecord.pas
@@ -368,6 +368,7 @@ constructor TAudioInputProcessor.Create;
var
i: integer;
begin
+ inherited;
SetLength(Sound, 6 {max players});//Ini.Players+1);
for i := 0 to High(Sound) do
begin
diff --git a/Game/Code/Classes/UServices.pas b/Game/Code/Classes/UServices.pas
index cb03248e..6a73521d 100644
--- a/Game/Code/Classes/UServices.pas
+++ b/Game/Code/Classes/UServices.pas
@@ -78,6 +78,8 @@ uses
//------------
Constructor TServiceManager.Create;
begin
+ inherited;
+
FirstService := nil;
LastService := nil;
@@ -233,11 +235,9 @@ begin
If (Service.isClass) then
//Use Proc of Class
- // FIXME: "function ... of object" does not fit into an integer (2x pointers: object + function-code -> 8byte on x86)
Result := Service.ProcOfClass(wParam, lParam)
Else
//Use normal Proc
- // FIXME: will not work with x64 CPUs, pointers will be 64bit there
Result := Service.Proc(wParam, lParam);
//Restore CurExecuted
diff --git a/Game/Code/Classes/USingScores.pas b/Game/Code/Classes/USingScores.pas
index 07ef2e40..dd326356 100644
--- a/Game/Code/Classes/USingScores.pas
+++ b/Game/Code/Classes/USingScores.pas
@@ -199,6 +199,8 @@ uses SDL,
//-----------
Constructor TSingScores.Create;
begin
+ inherited;
+
//Clear PopupList Pointers
FirstPopUp := nil;
LastPopUp := nil;
diff --git a/Game/Code/Classes/USkins.pas b/Game/Code/Classes/USkins.pas
index 76a64de0..8d4ef706 100644
--- a/Game/Code/Classes/USkins.pas
+++ b/Game/Code/Classes/USkins.pas
@@ -51,6 +51,7 @@ uses IniFiles,
constructor TSkin.Create;
begin
+ inherited;
LoadList;
// LoadSkin('Lisek');
// SkinColor := Color;
diff --git a/Game/Code/Classes/USong.pas b/Game/Code/Classes/USong.pas
index 3c365720..66e6f680 100644
--- a/Game/Code/Classes/USong.pas
+++ b/Game/Code/Classes/USong.pas
@@ -124,10 +124,13 @@ uses
constructor TSong.Create();
begin
+ inherited;
end;
constructor TSong.Create( const aFileName : WideString );
begin
+ inherited Create();
+
Mult := 1;
MultBPM := 4;
fFileName := aFileName;
diff --git a/Game/Code/Classes/USongs.pas b/Game/Code/Classes/USongs.pas
index ebc42efe..dfe79c97 100644
--- a/Game/Code/Classes/USongs.pas
+++ b/Game/Code/Classes/USongs.pas
@@ -164,6 +164,7 @@ end;
destructor TSongs.destroy();
begin
freeandnil( SongList );
+ inherited;
end;
procedure TSongs.DoDirChanged(Sender: TObject);
diff --git a/Game/Code/Classes/UThemes.pas b/Game/Code/Classes/UThemes.pas
index f38871a9..805bf51a 100644
--- a/Game/Code/Classes/UThemes.pas
+++ b/Game/Code/Classes/UThemes.pas
@@ -65,7 +65,7 @@ type
Align: integer;
Text: string;
//Reflection
- Reflection: boolean;
+ Reflection: boolean;
ReflectionSpacing: Real;
end;
AThemeText = array of TThemeText;
@@ -767,6 +767,8 @@ end;
constructor TTheme.Create(FileName: string; Color: integer);
begin
+ inherited Create();
+
Loading := TThemeLoading.Create;
Main := TThemeMain.Create;
Name := TThemeName.Create;
@@ -1467,7 +1469,7 @@ begin
ThemeText.Color := ThemeIni.ReadString(Name, 'Color', '');
//Reflection
- ThemeText.Reflection := (ThemeIni.ReadInteger(Name, 'Reflection', 0)) = 1;
+ ThemeText.Reflection := (ThemeIni.ReadInteger(Name, 'Reflection', 0)) = 1;
ThemeText.Reflectionspacing := ThemeIni.ReadFloat(Name, 'ReflectionSpacing', 15);
C := ColorExists(ThemeText.Color);
diff --git a/Game/Code/Classes/UTime.pas b/Game/Code/Classes/UTime.pas
index 2bc77a9c..bd03754d 100644
--- a/Game/Code/Classes/UTime.pas
+++ b/Game/Code/Classes/UTime.pas
@@ -48,6 +48,7 @@ http://www.gamedev.net/community/forums/topic.asp?topic_id=466145&whichpage=1%EE
constructor TTime.Create;
begin
+ inherited;
CountSkipTimeSet;
end;
diff --git a/Game/Code/Classes/UVideo.pas b/Game/Code/Classes/UVideo.pas
index f0f710a2..185a693d 100644
--- a/Game/Code/Classes/UVideo.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -407,6 +407,8 @@ end;
constructor TVideoPlayback_ffmpeg.create();
begin
+ inherited;
+
av_register_all;
fVideoOpened := False;
diff --git a/Game/Code/Classes/UVisualizer.pas b/Game/Code/Classes/UVisualizer.pas
index de117f20..d778eff7 100644
--- a/Game/Code/Classes/UVisualizer.pas
+++ b/Game/Code/Classes/UVisualizer.pas
@@ -91,7 +91,6 @@ type
procedure RestoreOpenGLState();
public
- constructor Create();
procedure Init();
function GetName: String;
@@ -110,12 +109,6 @@ type
end;
-constructor TVideoPlayback_ProjectM.Create();
-begin
- inherited;
-end;
-
-
procedure TVideoPlayback_ProjectM.Init();
begin
// FIXME: dirty fix needed because the init method is not
@@ -393,6 +386,4 @@ initialization
finalization
AudioManager.Remove( singleton_VideoProjectM );
-
-
end.
diff --git a/Game/Code/Classes/uPluginLoader.pas b/Game/Code/Classes/uPluginLoader.pas
index cec9d77d..7191678e 100644
--- a/Game/Code/Classes/uPluginLoader.pas
+++ b/Game/Code/Classes/uPluginLoader.pas
@@ -130,6 +130,8 @@ end;
//-------------
Constructor TPluginLoader.Create;
begin
+ inherited;
+
//Init PluginInterface
//Using Methods from UPluginInterface
PluginInterface.CreateHookableEvent := CreateHookableEvent;
@@ -207,6 +209,7 @@ Destructor TPluginLoader.Destroy;
begin
//Just save some Memory if it wasn't done now..
SetLength(Plugins, 0);
+ inherited;
end;
//--------------
@@ -634,6 +637,7 @@ end;
//-------------
Constructor TtehPlugins.Create;
begin
+ inherited;
PluginLoader := nil;
end;
diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas
index 9edf1e00..7656c639 100644
--- a/Game/Code/Menu/UMenu.pas
+++ b/Game/Code/Menu/UMenu.pas
@@ -180,6 +180,8 @@ end;
constructor TMenu.Create;
begin
+ inherited;
+
Fade := 0;//fWhite;
SetLength(Static, 0);
diff --git a/Game/Code/lib/projectM/projectM-0_9.inc b/Game/Code/lib/projectM/projectM-0_9.inc
index 24d83700..4aed3260 100644
--- a/Game/Code/lib/projectM/projectM-0_9.inc
+++ b/Game/Code/lib/projectM/projectM-0_9.inc
@@ -321,6 +321,8 @@ constructor TProjectM.Create(gx, gy: integer; fps: integer;
var
state: PProjectMState;
begin
+ inherited Create();
+
New(state);
data := state;
@@ -420,5 +422,6 @@ destructor TProjectM.Destroy();
begin
Dispose(PProjectMState(data));
data := nil;
+ inherited;
end;
diff --git a/Game/Code/lib/projectM/projectM-1_0.inc b/Game/Code/lib/projectM/projectM-1_0.inc
index a1c1c1f4..96b224ae 100644
--- a/Game/Code/lib/projectM/projectM-1_0.inc
+++ b/Game/Code/lib/projectM/projectM-1_0.inc
@@ -68,6 +68,8 @@ end;
constructor TProjectM.Create(const configFile: string);
begin
+ inherited Create();
+
// we cannot catch C++ exceptions in delphi, so we have to check
// if configFile is valid first
if (FileExists(configFile)) then
@@ -166,5 +168,6 @@ destructor TProjectM.Destroy();
begin
_projectM_free(data);
data := nil;
+ inherited;
end;