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, 27 insertions, 16 deletions

diff --git a/Game/Code/Classes/UGraphic.pas b/Game/Code/Classes/UGraphic.pas
index a8728fa7..3fbef8b1 100644
--- a/Game/Code/Classes/UGraphic.pas
+++ b/Game/Code/Classes/UGraphic.pas
@@ -245,6 +245,12 @@ uses  UMain,
       {$ENDIF}

       Classes;

 

+procedure LoadFontTextures;

+begin

+  Log.LogStatus('Building Fonts', 'LoadTextures');

+  BuildFont;

+end;

+

 procedure LoadTextures;

 

 

@@ -261,6 +267,8 @@ begin
   Tex_Right[0] := Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayRight')), 'BMP', 'Transparent', 0);     //brauch man die noch?

 

   // P1-6

+  // TODO... do it once for each player... this is a bit crappy !!

+  //                                       can we make it any better !?

   for P := 1 to 6 do

   begin

     LoadColor(R, G, B, 'P' + IntToStr(P) + 'Light');

@@ -307,8 +315,8 @@ begin
   //PhrasenBonus - Line Bonus Mod End

 

   // tworzenie czcionek

-  Log.LogStatus('Building Fonts', 'LoadTextures');

-  BuildFont;

+//  Log.LogStatus('Building Fonts', 'LoadTextures');

+//  BuildFont;

 end;

 

 procedure Initialize3D (Title: string);

@@ -320,12 +328,13 @@ var
   I: Integer;

 begin

   Log.LogStatus('LoadOpenGL', 'Initialize3D');

-  Log.BenchmarkStart(2);

+//  Log.BenchmarkStart(2);

 

   LoadOpenGL;

 

   Log.LogStatus('SDL_Init', 'Initialize3D');

-  if ( SDL_Init(SDL_INIT_VIDEO or SDL_INIT_AUDIO)= -1 ) then begin

+  if ( SDL_Init(SDL_INIT_VIDEO or SDL_INIT_AUDIO)= -1 ) then

+  begin

     Log.LogError('SDL_Init Failed', 'Initialize3D');

     exit;

   end;

@@ -355,17 +364,17 @@ begin
 

   InitializeScreen;

 

-  Log.BenchmarkEnd(2);

-  Log.LogBenchmark('--> Setting Screen', 2);

+//  Log.BenchmarkEnd(2);

+//  Log.LogBenchmark('--> Setting Screen', 2);

 

   // ladowanie tekstur

-  Log.BenchmarkStart(2);

+//  Log.BenchmarkStart(2);

   Texture := TTextureUnit.Create;

   Texture.Limit := 1024*1024;

 

-  LoadTextures;

-  Log.BenchmarkEnd(2);

-  Log.LogBenchmark('--> Loading Textures', 2);

+//  LoadTextures;

+//  Log.BenchmarkEnd(2);

+//  Log.LogBenchmark('--> Loading Textures', 2);

 

 {  Log.BenchmarkStart(2);

   Lyric:= TLyric.Create;

@@ -373,21 +382,23 @@ begin
   Log.LogBenchmark('--> Loading Fonts', 2);

 }

 

-  Log.BenchmarkStart(2);

+//  Log.BenchmarkStart(2);

   Display := TDisplay.Create;

   SDL_EnableUnicode(1);

-  Log.BenchmarkEnd(2); Log.LogBenchmark('====> Creating Display', 2);

+//  Log.BenchmarkEnd(2); Log.LogBenchmark('====> Creating Display', 2);

 

-  Log.LogStatus('Loading Screens', 'Initialize3D');

-  Log.BenchmarkStart(3);

+//  Log.LogStatus('Loading Screens', 'Initialize3D');

+//  Log.BenchmarkStart(3);

+

+  LoadFontTextures();

 

   // Show the Loading Screen -------------

   LoadLoadingScreen;

   Log.LogStatus('Loading Screens', 'Initialize3D');

 

 

-//  LoadTextures; // jb

-//  Log.LogStatus(' Loading Textures', '');

+  LoadTextures; // jb

+  Log.LogStatus(' Loading Textures', '');