fixed song loading in Lazarus..

cant assume variables are initialized as 0 :)
in UFile "Done: byte;" was no initialized on lazarus compiler.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@431 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 11 insertions, 14 deletions

diff --git a/Game/Code/Classes/UThemes.pas b/Game/Code/Classes/UThemes.pas
index 1e102987..9da176df 100644
--- a/Game/Code/Classes/UThemes.pas
+++ b/Game/Code/Classes/UThemes.pas
@@ -7,6 +7,7 @@ interface
 {$ENDIF}

 

 uses

+    ULog,

     IniFiles,

     SysUtils,

     Classes;

@@ -1426,24 +1427,20 @@ var
   C:    integer;

 begin

   DecimalSeparator := '.';

-  ThemeText.X := ThemeIni.ReadInteger(Name, 'X', 0);

-  ThemeText.Y := ThemeIni.ReadInteger(Name, 'Y', 0);

-  ThemeText.W := ThemeIni.ReadInteger(Name, 'W', 0);

+  

+  ThemeText.X     := ThemeIni.ReadInteger(Name, 'X', 0);

+  ThemeText.Y     := ThemeIni.ReadInteger(Name, 'Y', 0);

+  ThemeText.W     := ThemeIni.ReadInteger(Name, 'W', 0);

 

-  ThemeText.ColR := ThemeIni.ReadFloat(Name, 'ColR', 0);

-  ThemeText.ColG := ThemeIni.ReadFloat(Name, 'ColG', 0);

-  ThemeText.ColB := ThemeIni.ReadFloat(Name, 'ColB', 0);

+  ThemeText.ColR  := ThemeIni.ReadFloat(Name, 'ColR', 0);

+  ThemeText.ColG  := ThemeIni.ReadFloat(Name, 'ColG', 0);

+  ThemeText.ColB  := ThemeIni.ReadFloat(Name, 'ColB', 0);

 

-  ThemeText.Font := ThemeIni.ReadInteger(Name, 'Font', 0);

-  ThemeText.Size := ThemeIni.ReadInteger(Name, 'Size', 0);

+  ThemeText.Font  := ThemeIni.ReadInteger(Name, 'Font', 0);

+  ThemeText.Size  := ThemeIni.ReadInteger(Name, 'Size', 0);

   ThemeText.Align := ThemeIni.ReadInteger(Name, 'Align', 0);

 

-  {{$IFDEF TRANSLATE}

-  ThemeText.Text := Language.Translate(ThemeIni.ReadString(Name, 'Text', ''));

-  {{$ELSE}{

-  ThemeText.Text := ThemeIni.ReadString(Name, 'Text', '');

-  {$ENDIF}

-

+  ThemeText.Text  := Language.Translate(ThemeIni.ReadString(Name, 'Text', ''));

   ThemeText.Color := ThemeIni.ReadString(Name, 'Color', '');

 

   C := ColorExists(ThemeText.Color);