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

1 files changed, 24 insertions, 2 deletions

diff --git a/Game/Code/Classes/UCommon.pas b/Game/Code/Classes/UCommon.pas
index b572a768..8089f28c 100644
--- a/Game/Code/Classes/UCommon.pas
+++ b/Game/Code/Classes/UCommon.pas
@@ -7,7 +7,10 @@ interface
 {$ENDIF}

 

 uses

-

+{$IFDEF FPC}

+   lResources,

+{$ENDIF}   

+   ULog,

 {$IFDEF win32}

    windows;

 {$ELSE}

@@ -28,7 +31,9 @@ type
 type

   TWndMethod = procedure(var Message: TMessage) of object;

 

-function  RandomRange(aMin: Integer; aMax: Integer) : Integer;

+function LazFindResource( const aName, aType : String ): TLResource;

+

+function RandomRange(aMin: Integer; aMax: Integer) : Integer;

 

 function MaxValue(const Data: array of Double): Double;

 function MinValue(const Data: array of Double): Double;

@@ -82,6 +87,23 @@ end;
 

 {$IFDEF FPC}

 

+function LazFindResource( const aName, aType : String ): TLResource;

+var

+  iCount : Integer;

+begin

+  result := nil;

+  

+  for iCount := 0 to LazarusResources.count -1 do

+  begin

+    if ( LazarusResources.items[ iCount ].Name      = aName ) AND

+       ( LazarusResources.items[ iCount ].ValueType = aType ) THEN

+    begin

+      result := LazarusResources.items[ iCount ];

+      exit;

+    end;

+  end;

+end;

+

 function MaxValue(const Data: array of Double): Double;

 var

   I: Integer;