trying to fix lazarus runtime errors..

also adding files to make sure everything required for lazarus compile, is in svn.

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

2 files changed, 6 insertions, 4 deletions

diff --git a/Game/Code/Classes/TextGL.pas b/Game/Code/Classes/TextGL.pas
index 12a9a8dc..b61e2657 100644
--- a/Game/Code/Classes/TextGL.pas
+++ b/Game/Code/Classes/TextGL.pas
@@ -73,12 +73,14 @@ procedure BuildFont;			                // Build Our Bitmap Font
   var

     Rejestr:  TResourceStream;

   begin

+    {$IFNDEF FPC}

     Rejestr := TResourceStream.Create(HInstance, aResourceName , pchar( aType ) );

     try

       Rejestr.Read(Fonts[ aID ].Width, 256);

     finally

       Rejestr.Free;

     end;

+    {$ENDIF}

   end;

 

 var

diff --git a/Game/Code/Classes/UTexture.pas b/Game/Code/Classes/UTexture.pas
index c1862828..6895a250 100644
--- a/Game/Code/Classes/UTexture.pas
+++ b/Game/Code/Classes/UTexture.pas
@@ -870,10 +870,10 @@ begin
   Result.TexW := TexOrigW / TexNewW;

   Result.TexH := TexOrigH / TexNewH;

 

-  Result.Int := 1;

-  Result.ColR := 1;

-  Result.ColG := 1;

-  Result.ColB := 1;

+  Result.Int   := 1;

+  Result.ColR  := 1;

+  Result.ColG  := 1;

+  Result.ColB  := 1;

   Result.Alpha := 1;

 

   // 0.4.2 new test - default use whole texure, taking TexW and TexH as const and changing these