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, 4 insertions, 3 deletions

diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 2d10c9dc..7b16c315 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -1078,7 +1078,8 @@ begin
   end;

 end;

 

-{procedure TScreenSong.SetScroll4; // rotate

+(*

+procedure TScreenSong.SetScroll4; // rotate

 var

   B:      integer;

   Wsp:    real;

@@ -1158,7 +1159,7 @@ begin
       else Button[B].Visible := False;

     end;

   end;

-end;      }

+end;      *)

 

 procedure TScreenSong.SetScroll5; // rotate

 var

@@ -2003,4 +2004,4 @@ FixSelected; }
 

 end;

 

-end.
\ No newline at end of file
+end.