From 62c82114318ed04ce42617fa9ce2e179834dbda4 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 19 Sep 2007 11:44:10 +0000
Subject: 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
---
 Game/Code/lib/midi/MidiFile.pas | 13 +++++++++++--
 Game/Code/lib/midi/Midiin.pas   |  4 +++-
 2 files changed, 14 insertions(+), 3 deletions(-)

(limited to 'Game/Code/lib')

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.
-- 
cgit v1.2.3