Adding new Resource compiler for lazarus projects..

(other one did not name resources correctly)

this resource compiler could be expanded by someone to Parse 
Ultrastar.rc and compile the lrs file, rather than having it hardcoded in USDXResCompiler

other changes, include ability to read the Resource String properly in code generated by lazarus.

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

1 files changed, 14 insertions, 8 deletions

diff --git a/Game/Code/Classes/UTexture.pas b/Game/Code/Classes/UTexture.pas
index f01cfd23..1c436f04 100644
--- a/Game/Code/Classes/UTexture.pas
+++ b/Game/Code/Classes/UTexture.pas
@@ -154,32 +154,36 @@ begin
   // find texture entry

   T := FindTexture(Name);

 

-  if T = -1 then begin

+  if T = -1 then

+  begin

     // create texture entry

     T := Length(TextureDatabase.Texture);

     SetLength(TextureDatabase.Texture, T+1);

+

     TextureDatabase.Texture[T].Name := Name;

-    TextureDatabase.Texture[T].Typ := Typ;

+    TextureDatabase.Texture[T].Typ  := Typ;

 

     // inform database that no textures have been loaded into memory

-    TextureDatabase.Texture[T].Texture.TexNum := -1;

+    TextureDatabase.Texture[T].Texture.TexNum      := -1;

     TextureDatabase.Texture[T].TextureCache.TexNum := -1;

   end;

 

   // use preloaded texture

-  if (not FromCache) or (FromCache and not Covers.CoverExists(Name)) then begin

+  if (not FromCache) or (FromCache and not Covers.CoverExists(Name)) then

+  begin

     // use full texture

-    if TextureDatabase.Texture[T].Texture.TexNum = -1 then begin

+    if TextureDatabase.Texture[T].Texture.TexNum = -1 then

+    begin

       // load texture

       TextureDatabase.Texture[T].Texture := LoadTexture(false, pchar(Name), 'JPG', pchar(Typ), $0);

     end;

 

     // use texture

     Result := TextureDatabase.Texture[T].Texture;

-

   end;

 

-  if FromCache and Covers.CoverExists(Name) then begin

+  if FromCache and Covers.CoverExists(Name) then

+  begin

     // use cache texture

     C := Covers.CoverNumber(Name);

 

@@ -381,7 +385,7 @@ 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...

@@ -396,10 +400,12 @@ begin
   if FromRegistry then

   begin

     try

+      {$IFNDEF FPC}

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

 

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

       Res := TResourceStream( lTextureStream );

+      {$ENDIF}

     except

       Log.LogStatus( 'ERROR Could not load from resource' , Identifier +' '+ Format +' '+ Typ );

       beep;