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/Screens/UScreenEditSub.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'Game/Code/Screens/UScreenEditSub.pas')

diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index 7184b0b6..3843fbf4 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -1169,11 +1169,12 @@ begin
     Exit;
   end
   else begin
+  {$IFDEF UseMIDIPort}
     MidiOut := TMidiOutput.Create(nil);
     if Ini.Debug = 1 then
       MidiOut.ProductName := 'Microsoft GS Wavetable SW Synth'; // for my kxproject without midi table
     MidiOut.Open;
-
+  {$ENDIF}
     Text[TextTitle].Text :=   AktSong.Title;
     Text[TextArtist].Text :=  AktSong.Artist;
     Text[TextMp3].Text :=     AktSong.Mp3;
@@ -1224,11 +1225,13 @@ begin
   if PlaySentenceMidi then begin
     MidiPos := USTime.GetTime - MidiTime + MidiStart;
 
+    {$IFDEF UseMIDIPort}
     // stop the music
     if (MidiPos > MidiStop) then begin
       MidiOut.PutShort($81, Czesci[0].Czesc[Czesci[0].Akt].Nuta[MidiLastNote].Ton + 60, 127);
       PlaySentenceMidi := false;
     end;
+    {$ENDIF}
 
     // click
     AktBeat := Floor(GetMidBeat(MidiPos - AktSong.GAP / 1000));
@@ -1236,13 +1239,16 @@ begin
 
     if AktBeat <> LastClick then begin
       for Pet := 0 to Czesci[0].Czesc[Czesci[0].Akt].HighNut do
-        if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet].Start = AktBeat) then begin
+        if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet].Start = AktBeat) then
+        begin
 
+          {$IFDEF UseMIDIPort}
           LastClick := AktBeat;
           if Pet > 0 then
             MidiOut.PutShort($81, Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet-1].Ton + 60, 127);
           MidiOut.PutShort($91, Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet].Ton + 60, 127);
           MidiLastNote := Pet;
+          {$ENDIF}
 
         end;
     end;
@@ -1312,8 +1318,10 @@ end;
 
 procedure TScreenEditSub.onHide;
 begin
+  {$IFDEF UseMIDIPort}
   MidiOut.Close;
   MidiOut.Free;
+  {$ENDIF}
   //Music.SetVolume(100);
 end;
 
-- 
cgit v1.2.3