tidy texture loading.

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

1 files changed, 10 insertions, 7 deletions

diff --git a/Game/Code/Classes/UTexture.pas b/Game/Code/Classes/UTexture.pas
index 389dd0b0..f01cfd23 100644
--- a/Game/Code/Classes/UTexture.pas
+++ b/Game/Code/Classes/UTexture.pas
@@ -90,8 +90,8 @@ type
   TTextureUnit = class

   

     private

-      function LoadBitmap( aSourceStream : TStream; aIMG : TBitMap ): boolean;

-      function LoadJpeg( aSourceStream : TStream; aIMG : TBitMap ): boolean;

+      function LoadBitmap( const aSourceStream : TStream; const aIMG : TBitMap ): boolean;

+      function LoadJpeg( const aSourceStream : TStream; const aIMG : TBitMap ): boolean;

     public

     Limit:      integer;

     CreateCacheMipmap:  boolean;

@@ -312,7 +312,7 @@ begin
 end;

 

 

-function TTextureUnit.LoadBitmap( aSourceStream : TStream; aIMG : TBitMap ): boolean;

+function TTextureUnit.LoadBitmap( const aSourceStream : TStream; const aIMG : TBitMap ): boolean;

 begin

   result := false;

   try

@@ -325,7 +325,7 @@ begin
   end;

 end;

 

-function TTextureUnit.LoadJpeg( aSourceStream : TStream; aIMG : TBitMap ): boolean;

+function TTextureUnit.LoadJpeg( const aSourceStream : TStream; const aIMG : TBitMap ): boolean;

 var

   TextureJ:   TJPEGImage;

 begin

@@ -396,7 +396,6 @@ begin
   if FromRegistry then

   begin

     try

-    //      Res := TResourceStream.Create(HInstance, Identifier, Format);

       lTextureStream := TResourceStream.Create(HInstance, Identifier, Format);

 

       // TEmp, untill all code is moved to refactord way..

@@ -413,7 +412,9 @@ begin
     begin

       // Get the File Extension...

       Format := PAnsichar(UpperCase(RightStr(ExtractFileExt(Identifier),3)));

-      lTextureStream := TFileStream.create( Identifier , fmOpenRead or fmShareDenyNone );

+

+      lTextureStream := TMemoryStream.create();

+      TMemoryStream(lTextureStream).loadfromfile( Identifier );

     end;

   end;

 

@@ -990,7 +991,9 @@ begin
   if Log.BenchmarkTimeLength[4] >= 1 then

     Log.LogBenchmark('**********> Texture Load Time Warning - ' + Format + '/' + Identifier + '/' + Typ, 4);

 

-  end; // logerror    

+  end; // logerror

+

+//  freeandnil( lTextureStream );  // TODO - jb - free this.. but we cant at the moment :(   

 //  {$ENDIF}

 end;