From 54f567282784181b99a3012fd9db03dae60f361e Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 22 Feb 2010 18:27:15 +0000
Subject: screens code cleanup

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2146 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/screens/UScreenEditConvert.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/screens/UScreenEditConvert.pas')

diff --git a/src/screens/UScreenEditConvert.pas b/src/screens/UScreenEditConvert.pas
index b2fb7773..8b13d410 100644
--- a/src/screens/UScreenEditConvert.pas
+++ b/src/screens/UScreenEditConvert.pas
@@ -602,15 +602,15 @@ begin
 end;
 
 procedure TScreenEditConvert.OnShow;
+{$IFDEF UseMIDIPort}
 var
   T:    integer; // track
   N:    integer; // note
-  {$IFDEF UseMIDIPort}
   MidiTrack: TMidiTrack;
   MidiEvent: PMidiEvent;
-  {$ENDIF}
   FileOpened: boolean;
   KMIDITrackIndex, SMFTrackIndex: integer;
+{$ENDIF}
 begin
   inherited;
 
@@ -731,7 +731,6 @@ var
   Y:      real;
   Height: real;
   YSkip:  real;
-  TrackName: UTF8String;
 begin
   // draw static menu
   inherited Draw;
-- 
cgit v1.2.3