From 333ec29a5275fb851f38f7be695930ea1dfe8340 Mon Sep 17 00:00:00 2001 From: jaybinks Date: Thu, 20 Sep 2007 11:28:04 +0000 Subject: remove logging git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@420 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UTexture.pas | 15 ++++----------- 1 file changed, 4 insertions(+), 11 deletions(-) diff --git a/Game/Code/Classes/UTexture.pas b/Game/Code/Classes/UTexture.pas index 96c0ec28..389dd0b0 100644 --- a/Game/Code/Classes/UTexture.pas +++ b/Game/Code/Classes/UTexture.pas @@ -381,7 +381,8 @@ var begin lTextureStream := nil; - Log.LogStatus( 'From Resource - ' + inttostr( integer( FromRegistry ) ) , Identifier +' '+ Format +' '+ Typ ); +// Log.LogStatus( 'From Resource - ' + inttostr( integer( FromRegistry ) ) , Identifier +' '+ Format +' '+ Typ ); + // {$IFNDEF FPC} // TODO : JB_lazarus eeeew this is a nasty one... // but lazarus implementation scanlines is different :( @@ -395,14 +396,11 @@ begin if FromRegistry then begin try - - Log.LogStatus( ' A' , ''); - // Res := TResourceStream.Create(HInstance, Identifier, Format); lTextureStream := TResourceStream.Create(HInstance, Identifier, Format); - Log.LogStatus( ' B' , ''); - // TODO : Where does the format come from + // TEmp, untill all code is moved to refactord way.. + Res := TResourceStream( lTextureStream ); except Log.LogStatus( 'ERROR Could not load from resource' , Identifier +' '+ Format +' '+ Typ ); beep; @@ -421,11 +419,6 @@ begin if assigned( lTextureStream ) then begin - Log.LogStatus( ' C - '+Format , ''); - - // TEmp, untill all code is moved to refactord way.. - Res := TResourceStream( lTextureStream ); - TextureB := TBitmap.Create; if Format = 'BMP' then -- cgit v1.2.3