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

2 files changed, 14 insertions, 3 deletions

diff --git a/Game/Code/lib/midi/MidiFile.pas b/Game/Code/lib/midi/MidiFile.pas
index 5c15481e..10b64a80 100644
--- a/Game/Code/lib/midi/MidiFile.pas
+++ b/Game/Code/lib/midi/MidiFile.pas
@@ -91,8 +91,17 @@ unit MidiFile;
 interface

 

 uses

-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

-  stdctrls, ExtCtrls, WinProcs;

+  Windows,

+  Messages,

+  SysUtils,

+  Classes,

+  Graphics,

+  Controls,

+  Forms,

+  stdctrls,

+  ExtCtrls,

+  WinProcs;

+

 type

   TChunkType = (illegal, header, track);

   TFileFormat = (single, multi_synch, multi_asynch);

diff --git a/Game/Code/lib/midi/Midiin.pas b/Game/Code/lib/midi/Midiin.pas
index 2f2e76c0..32a17c51 100644
--- a/Game/Code/lib/midi/Midiin.pas
+++ b/Game/Code/lib/midi/Midiin.pas
@@ -212,7 +212,9 @@ procedure Register;
 {====================================================================}

 implementation

 

-uses Graphics, Controls, Forms, Dialogs;

+uses Controls,

+     Forms,

+     Graphics;

 

 (* Not used in Delphi 3

 { This is the callback procedure in the external DLL.