added UCommon ( in classes ) for lazarus...

common functions needed for lazarus ( and others ) can be put in here.

also this now compiles on lazarus.. 
( dosnt link yet... but I dont get any critical compiler errors )

tested to compile in my delphi, and basic functionality is fine.

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

1 files changed, 9 insertions, 4 deletions

diff --git a/Game/Code/Screens/UScreenTop5.pas b/Game/Code/Screens/UScreenTop5.pas
index f9de4114..4971d12a 100644
--- a/Game/Code/Screens/UScreenTop5.pas
+++ b/Game/Code/Screens/UScreenTop5.pas
@@ -2,6 +2,11 @@ unit UScreenTop5;
 

 interface

 

+{$IFDEF FPC}

+  {$MODE DELPHI}

+{$ENDIF}

+

+

 uses

   UMenu, SDL, SysUtils, UDisplay, UMusic, USongs, UThemes, ULCD;

 

@@ -131,7 +136,7 @@ function TScreenTop5.Draw: boolean;
   C:      integer;}

 begin

   // Singstar - let it be...... with 6 statics

-{  if PlayersPlay = 6 then begin

+(*  if PlayersPlay = 6 then begin

     for Item := 4 to 6 do begin

       if ScreenAct = 1 then P := Item-4;

       if ScreenAct = 2 then P := Item-1;

@@ -152,10 +157,10 @@ begin
           Static[StaticBoxLightest[Item]].Texture.ColG,

           Static[StaticBoxLightest[Item]].Texture.ColB,

           'P4Dark');

-      end;}

+      end; }

 

-{    end;

-  end;}

+    end;

+  end; *)

 

   inherited Draw;

 end;