From cf1102dac69a569279ae05dd95426d9e1c544ffc Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 22 Sep 2007 08:15:59 +0000
Subject: minor bug fixes to have lazarus build load resources into SDL_Image
 correctly... ( lazarus Resources are weak compared to delphi :( )

also Laz build will now run, and main loop works properly.


git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@429 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Tools/USDXResCompiler.lpr | 21 +++++++++------------
 1 file changed, 9 insertions(+), 12 deletions(-)

(limited to 'Tools/USDXResCompiler.lpr')

diff --git a/Tools/USDXResCompiler.lpr b/Tools/USDXResCompiler.lpr
index b6d0ef7d..5acdd8d9 100644
--- a/Tools/USDXResCompiler.lpr
+++ b/Tools/USDXResCompiler.lpr
@@ -10,15 +10,13 @@ uses
 var
   lResourceFile : TMemoryStream;
   
-procedure AddFile( aResName, aResTye, aFile : string );
+procedure AddFile( aResName, aResType, aFile : string );
 var
   lTmpStream : TmemoryStream;
 begin
-  writeln();
-  writeln( aFile );
   if not fileexists( aFile ) then
   begin
-    writeln( 'NOT FOUND' );
+    writeln( 'SKIPED' + ' ( '+aFile+' ) File not found' );
     exit;
   end;
     
@@ -27,8 +25,8 @@ begin
     lTmpStream.loadfromfile( aFile );
     lTmpStream.position := 0;
     
-    BinaryToLazarusResourceCode(lTmpStream, lResourceFile, aResName, aResTye);
-    writeln( 'Added' );
+    BinaryToLazarusResourceCode(lTmpStream, lResourceFile, aResName, aResType);
+    writeln( 'ADDED - ' + aResType + ' : ' + aResName + ' ( '+aFile+' )' );
   finally
     freeandnil( lTmpStream );
   end;
@@ -39,21 +37,20 @@ begin
 
   lResourceFile := TMemoryStream.create();
   try
-     AddFile( 'Font', 'PNG', '..\Fonts\Normal\eurostar_regular.png' );
-     AddFile( 'Font', 'FNT', '.\Fonts\Normal\eurostar_regular.dat' );
+     AddFile( 'Font', 'TEX', '..\Fonts\Normal\eurostar_regular.png' );
+     AddFile( 'Font', 'FNT', '..\Fonts\Normal\eurostar_regular.dat' );
 
-     AddFile( 'FontB', 'PNG', '..\Fonts\Bold\eurostar_regular_bold.png' );
+     AddFile( 'FontB', 'TEX', '..\Fonts\Bold\eurostar_regular_bold.png' );
      AddFile( 'FontB', 'FNT', '..\Fonts\Bold\eurostar_regular_bold.dat' );
 
-     AddFile( 'FontO', 'PNG', '..\Fonts\Outline 1\Outline 1.PNG' );
+     AddFile( 'FontO', 'TEX', '..\Fonts\Outline 1\Outline 1.PNG' );
      AddFile( 'FontO', 'FNT', '..\Fonts\Outline 1\Outline 1.dat' );
      
-     AddFile( 'FontO2', 'PNG', '..\Fonts\Outline 2\Outline 2.PNG' );
+     AddFile( 'FontO2', 'TEX', '..\Fonts\Outline 2\Outline 2.PNG' );
      AddFile( 'FontO2', 'FNT', '..\Fonts\Outline 2\Outline 2.dat' );
      
      AddFile( 'MAINICON', 'ICON', '..\Graphics\ustar-icon_v01.ico' );
 
-     AddFile( 'MAINICON', 'ICON', '..\Graphics\ustar-icon_v01.ico' );
 
      AddFile( 'CRDTS_BG', 'PNG', '..\Graphics\credits_v5_bg.png' );
      AddFile( 'CRDTS_OVL', 'PNG', '..\Graphics\credits_v5_overlay.png"' );
-- 
cgit v1.2.3