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, 15 insertions, 5 deletions

diff --git a/Game/Code/Menu/UDisplay.pas b/Game/Code/Menu/UDisplay.pas
index 6ad01406..160e8a73 100644
--- a/Game/Code/Menu/UDisplay.pas
+++ b/Game/Code/Menu/UDisplay.pas
@@ -2,7 +2,15 @@ unit UDisplay;
 

 interface

 

-uses Windows, SDL, UMenu, OpenGL12, SysUtils;

+{$IFDEF FPC}

+  {$MODE Delphi}

+{$ENDIF}

+

+uses Windows,

+     SDL,

+     UMenu,

+     OpenGL12,

+     SysUtils;

 

 type

   TDisplay = class

@@ -53,10 +61,12 @@ var
 implementation

 

 uses

-     {$IFNDEF FPC}

-     Graphics,

+     {$IFDEF FPC}

+     lazjpeg,

+     {$ELSE}

      JPEG,

      {$ENDIF}

+     graphics,

      TextGL,

      // UFiles,

      UMain,

@@ -320,8 +330,8 @@ begin
   end;

 

   glReadPixels(0, 0, ScreenW, ScreenH, GL_RGBA, GL_UNSIGNED_BYTE, @PrintScreenData[0]);

-  Bitmap := TBitmap.Create;

-  Bitmap.Width := ScreenW;

+  Bitmap        := TBitmap.Create;

+  Bitmap.Width  := ScreenW;

   Bitmap.Height := ScreenH;

 

   for Y := 0 to ScreenH-1 do