aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes')
-rw-r--r--Game/Code/Classes/UTexture.pas15
1 files 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