From 3260749d369d3466c345d40a8b2189c32c8c1b60 Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Mon, 7 Nov 2011 15:26:44 +0100 Subject: removed pascal code --- src/screens/UScreenEditConvert.pas | 827 ------------------------------------- 1 file changed, 827 deletions(-) delete mode 100644 src/screens/UScreenEditConvert.pas (limited to 'src/screens/UScreenEditConvert.pas') diff --git a/src/screens/UScreenEditConvert.pas b/src/screens/UScreenEditConvert.pas deleted file mode 100644 index b2fb7773..00000000 --- a/src/screens/UScreenEditConvert.pas +++ /dev/null @@ -1,827 +0,0 @@ -{* UltraStar Deluxe - Karaoke Game - * - * UltraStar Deluxe is the legal property of its developers, whose names - * are too numerous to list here. Please refer to the COPYRIGHT - * file distributed with this source distribution. - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, - * Boston, MA 02110-1301, USA. - * - * $URL$ - * $Id$ - *} - -unit UScreenEditConvert; - -{* - * See - * MIDI Recommended Practice (RP-017): SMF Lyric Meta Event Definition - * http://www.midi.org/techspecs/rp17.php - * MIDI Recommended Practice (RP-026): SMF Language and Display Extensions - * http://www.midi.org/techspecs/rp26.php - * MIDI File Format - * http://www.sonicspot.com/guide/midifiles.html - * KMIDI File Format - * http://gnese.free.fr/Projects/KaraokeTime/Fichiers/karfaq.html - * http://journals.rpungin.fotki.com/karaoke/category/midi - * - * There are two widely spread karaoke formats: - * - KMIDI (.kar), an inofficial midi extension by Tune 1000 - * - Standard Midi files with lyric meta-tags (SMF with lyrics, .mid). - * - * KMIDI uses two tracks, the first just contains a header (mostly track 2) and - * the second the lyrics (track 3). It uses text meta tags for the lyrics. - * SMF uses just one track (normally track 1) and uses lyric meta tags for storage. - * - * Most files are in the KMIDI format. Some Midi files contain both lyric types. - *} - -interface - -{$IFDEF FPC} - {$MODE Delphi} -{$ENDIF} - -{$I switches.inc} - -uses - math, - UMenu, - SDL, - {$IFDEF UseMIDIPort} - MidiFile, - MidiOut, - {$ENDIF} - ULog, - USongs, - USong, - UMusic, - UThemes, - UPath; - -type - TMidiNote = record - Event: integer; - EventType: integer; - Channel: integer; - Start: real; - Len: real; - Data1: integer; - Data2: integer; - Str: UTF8String; // normally ASCII - end; - - TLyricType = (ltKMIDI, ltSMFLyric); - - TTrack = record - Note: array of TMidiNote; - Name: UTF8String; // normally ASCII - Status: set of (tsNotes, tsLyrics); //< track contains notes, lyrics or both - LyricType: set of TLyricType; - NoteType: (ntNone, ntAvail); - end; - - TNote = record - Start: integer; - Len: integer; - Tone: integer; - Lyric: UTF8String; - NewSentence: boolean; - end; - - TArrayTrack = array of TTrack; - - TScreenEditConvert = class(TMenu) - private - Tracks: TArrayTrack; // current track - ColR: array[0..100] of real; - ColG: array[0..100] of real; - ColB: array[0..100] of real; - Len: real; - SelTrack: integer; // index of selected track - fFileName: IPath; - - {$IFDEF UseMIDIPort} - MidiFile: TMidiFile; - MidiOut: TMidiOutput; - {$ENDIF} - - BPM: real; - Ticks: real; - Note: array of TNote; - - procedure AddLyric(Start: integer; LyricType: TLyricType; Text: UTF8String); - procedure Extract(out Song: TSong; out Lines: TLines); - - {$IFDEF UseMIDIPort} - procedure MidiFile1MidiEvent(event: PMidiEvent); - {$ENDIF} - - function CountSelectedTracks: integer; - - public - constructor Create; override; - procedure OnShow; override; - function ParseInput(PressedKey: cardinal; CharCode: UCS4Char; PressedDown: boolean): boolean; override; - function Draw: boolean; override; - procedure OnHide; override; - end; - -implementation - -uses - SysUtils, - TextGL, - gl, - UDrawTexture, - UFiles, - UGraphic, - UIni, - UMain, - UPathUtils, - USkins, - ULanguage, - UTextEncoding, - UUnicodeUtils; - -const - // MIDI/KAR lyrics are specified to be ASCII only. - // Assume backward compatible CP1252 encoding. - DEFAULT_ENCODING = encCP1252; - -const - MIDI_EVENTTYPE_NOTEOFF = $8; - MIDI_EVENTTYPE_NOTEON = $9; - MIDI_EVENTTYPE_META_SYSEX = $F; - - MIDI_EVENT_META = $FF; - MIDI_META_TEXT = $1; - MIDI_META_LYRICS = $5; - -function TScreenEditConvert.ParseInput(PressedKey: cardinal; CharCode: UCS4Char; PressedDown: boolean): boolean; -{$IFDEF UseMIDIPort} -var - SResult: TSaveSongResult; - Playing: boolean; - MidiTrack: TMidiTrack; - Song: TSong; - Lines: TLines; -{$ENDIF} -begin - Result := true; - if (PressedDown) then - begin // Key Down - // check normal keys - case UCS4UpperCase(CharCode) of - Ord('Q'): - begin - Result := false; - Exit; - end; - end; - - // check special keys - case PressedKey of - SDLK_ESCAPE, - SDLK_BACKSPACE : - begin - {$IFDEF UseMIDIPort} - if (MidiFile <> nil) then - MidiFile.StopPlaying; - {$ENDIF} - AudioPlayback.PlaySound(SoundLib.Back); - FadeTo(@ScreenEdit); - end; - - SDLK_RETURN: - begin - if Interaction = 0 then - begin - AudioPlayback.PlaySound(SoundLib.Start); - ScreenOpen.Filename := GamePath.Append('file.mid'); - ScreenOpen.BackScreen := @ScreenEditConvert; - FadeTo(@ScreenOpen); - end - else if Interaction = 1 then - begin - {$IFDEF UseMIDIPort} - if (MidiFile <> nil) then - begin - MidiFile.OnMidiEvent := MidiFile1MidiEvent; - //MidiFile.GoToTime(MidiFile.GetTrackLength div 2); - MidiFile.StartPlaying; - end; - {$ENDIF} - end - else if Interaction = 2 then - begin - {$IFDEF UseMIDIPort} - if (MidiFile <> nil) then - begin - MidiFile.OnMidiEvent := nil; - MidiFile.StartPlaying; - end; - {$ENDIF} - end - else if Interaction = 3 then - begin - {$IFDEF UseMIDIPort} - if CountSelectedTracks > 0 then - begin - Extract(Song, Lines); - SResult := SaveSong(Song, Lines, fFileName.SetExtension('.txt'), - false); - FreeAndNil(Song); - if (SResult = ssrOK) then - ScreenPopupInfo.ShowPopup(Language.Translate('INFO_FILE_SAVED')) - else - ScreenPopupError.ShowPopup(Language.Translate('ERROR_SAVE_FILE_FAILED')); - end - else - begin - ScreenPopupError.ShowPopup(Language.Translate('EDITOR_ERROR_NO_TRACK_SELECTED')); - end; - {$ENDIF} - end; - - end; - - SDLK_SPACE: - begin - {$IFDEF UseMIDIPort} - if (MidiFile <> nil) then - begin - if (Tracks[SelTrack].NoteType = ntAvail) and - (Tracks[SelTrack].LyricType <> []) then - begin - if (Tracks[SelTrack].Status = []) then - Tracks[SelTrack].Status := [tsNotes] - else if (Tracks[SelTrack].Status = [tsNotes]) then - Tracks[SelTrack].Status := [tsLyrics] - else if (Tracks[SelTrack].Status = [tsLyrics]) then - Tracks[SelTrack].Status := [tsNotes, tsLyrics] - else if (Tracks[SelTrack].Status = [tsNotes, tsLyrics]) then - Tracks[SelTrack].Status := []; - end - else if (Tracks[SelTrack].NoteType = ntAvail) then - begin - if (Tracks[SelTrack].Status = []) then - Tracks[SelTrack].Status := [tsNotes] - else - Tracks[SelTrack].Status := []; - end - else if (Tracks[SelTrack].LyricType <> []) then - begin - if (Tracks[SelTrack].Status = []) then - Tracks[SelTrack].Status := [tsLyrics] - else - Tracks[SelTrack].Status := []; - end; - - Playing := (MidiFile.GetCurrentTime > 0); - MidiFile.StopPlaying(); - MidiTrack := MidiFile.GetTrack(SelTrack); - if tsNotes in Tracks[SelTrack].Status then - MidiTrack.OnMidiEvent := MidiFile1MidiEvent - else - MidiTrack.OnMidiEvent := nil; - if (Playing) then - MidiFile.ContinuePlaying(); - end; - {$ENDIF} - end; - - SDLK_RIGHT: - begin - InteractNext; - end; - - SDLK_LEFT: - begin - InteractPrev; - end; - - SDLK_DOWN: - begin - Inc(SelTrack); - if SelTrack > High(Tracks) then - SelTrack := 0; - end; - SDLK_UP: - begin - Dec(SelTrack); - if SelTrack < 0 then - SelTrack := High(Tracks); - end; - end; - end; -end; - -procedure TScreenEditConvert.AddLyric(Start: integer; LyricType: TLyricType; Text: UTF8String); -var - N: integer; -begin - // find corresponding note - N := 0; - while (N <= High(Note)) do - begin - if Note[N].Start = Start then - Break; - Inc(N); - end; - - // check if note was found - if (N > High(Note)) then - Exit; - - // set text - if (LyricType = ltKMIDI) then - begin - // end of paragraph - if Copy(Text, 1, 1) = '\' then - begin - Delete(Text, 1, 1); - end - // end of line - else if Copy(Text, 1, 1) = '/' then - begin - Delete(Text, 1, 1); - Note[N].NewSentence := true; - end; - end - else // SMFLyric - begin - // Line Feed -> end of paragraph - if Copy(Text, 1, 1) = #$0A then - begin - Delete(Text, 1, 1); - end - // Carriage Return -> end of line - else if Copy(Text, 1, 1) = #$0D then - begin - Delete(Text, 1, 1); - Note[N].NewSentence := true; - end; - end; - - // overwrite lyric or append - if Note[N].Lyric = '-' then - Note[N].Lyric := Text - else - Note[N].Lyric := Note[N].Lyric + Text; -end; - -procedure TScreenEditConvert.Extract(out Song: TSong; out Lines: TLines); - -var - T: integer; - C: integer; - N: integer; - Nu: integer; - NoteTemp: TNote; - Move: integer; - Max, Min: integer; - LyricType: TLyricType; - Text: UTF8String; -begin - // song info - Song := TSong.Create(); - Song.Clear(); - Song.Resolution := 4; - SetLength(Song.BPM, 1); - Song.BPM[0].BPM := BPM*4; - SetLength(Note, 0); - - // extract notes - for T := 0 to High(Tracks) do - begin - if tsNotes in Tracks[T].Status then - begin - for N := 0 to High(Tracks[T].Note) do - begin - if (Tracks[T].Note[N].EventType = MIDI_EVENTTYPE_NOTEON) and - (Tracks[T].Note[N].Data2 > 0) then - begin - Nu := Length(Note); - SetLength(Note, Nu + 1); - Note[Nu].Start := Round(Tracks[T].Note[N].Start / Ticks); - Note[Nu].Len := Round(Tracks[T].Note[N].Len / Ticks); - Note[Nu].Tone := Tracks[T].Note[N].Data1 - 12*5; - Note[Nu].Lyric := '-'; - end; - end; - end; - end; - - // extract lyrics (and artist + title info) - for T := 0 to High(Tracks) do - begin - if not (tsLyrics in Tracks[T].Status) then - Continue; - - for N := 0 to High(Tracks[T].Note) do - begin - if (Tracks[T].Note[N].Event = MIDI_EVENT_META) then - begin - // determine and validate lyric meta tag - if (ltKMIDI in Tracks[T].LyricType) and - (Tracks[T].Note[N].Data1 = MIDI_META_TEXT) then - begin - Text := Tracks[T].Note[N].Str; - - // check for meta info - if (Length(Text) > 2) and (Text[1] = '@') then - begin - case Text[2] of - 'L': Song.Language := Copy(Text, 3, Length(Text)); // language - 'T': begin // title info - if (Song.Artist = '') then - Song.Artist := Copy(Text, 3, Length(Text)) - else if (Song.Title = '') then - Song.Title := Copy(Text, 3, Length(Text)); - end; - end; - Continue; - end; - - LyricType := ltKMIDI; - end - else if (ltSMFLyric in Tracks[T].LyricType) and - (Tracks[T].Note[N].Data1 = MIDI_META_LYRICS) then - begin - LyricType := ltSMFLyric; - end - else - begin - // unknown meta event - Continue; - end; - - AddLyric(Round(Tracks[T].Note[N].Start / Ticks), LyricType, Tracks[T].Note[N].Str); - end; - end; - end; - - // sort notes - for N := 0 to High(Note) do - for Nu := 0 to High(Note)-1 do - if Note[Nu].Start > Note[Nu+1].Start then - begin - NoteTemp := Note[Nu]; - Note[Nu] := Note[Nu+1]; - Note[Nu+1] := NoteTemp; - end; - - // move to 0 at beginning - Move := Note[0].Start; - for N := 0 to High(Note) do - Note[N].Start := Note[N].Start - Move; - - // copy notes - SetLength(Lines.Line, 1); - Lines.Number := 1; - Lines.High := 0; - Lines.Current := 0; - Lines.Resolution := 0; - Lines.NotesGAP := 0; - Lines.ScoreValue := 0; - - C := 0; - N := 0; - Lines.Line[C].HighNote := -1; - - for Nu := 0 to High(Note) do - begin - if Note[Nu].NewSentence then // new line - begin - SetLength(Lines.Line, Length(Lines.Line)+1); - Lines.Number := Lines.Number + 1; - Lines.High := Lines.High + 1; - C := C + 1; - N := 0; - SetLength(Lines.Line[C].Note, 0); - Lines.Line[C].HighNote := -1; - - //Calculate Start of the Last Sentence - if (C > 0) and (Nu > 0) then - begin - Max := Note[Nu].Start; - Min := Note[Nu-1].Start + Note[Nu-1].Len; - - case (Max - Min) of - 0: Lines.Line[C].Start := Max; - 1: Lines.Line[C].Start := Max; - 2: Lines.Line[C].Start := Max - 1; - 3: Lines.Line[C].Start := Max - 2; - else - if ((Max - Min) > 4) then - Lines.Line[C].Start := Min + 2 - else - Lines.Line[C].Start := Max; - - end; // case - - end; - end; - - // create space for new note - SetLength(Lines.Line[C].Note, Length(Lines.Line[C].Note)+1); - Inc(Lines.Line[C].HighNote); - - // initialize note - Lines.Line[C].Note[N].Start := Note[Nu].Start; - Lines.Line[C].Note[N].Length := Note[Nu].Len; - Lines.Line[C].Note[N].Tone := Note[Nu].Tone; - Lines.Line[C].Note[N].Text := DecodeStringUTF8(Note[Nu].Lyric, DEFAULT_ENCODING); - Lines.Line[C].Note[N].NoteType := ntNormal; - Inc(N); - end; -end; - -function TScreenEditConvert.CountSelectedTracks: integer; -var - T: integer; // track -begin - Result := 0; - for T := 0 to High(Tracks) do - if tsNotes in Tracks[T].Status then - Inc(Result); -end; - -{$IFDEF UseMIDIPort} -procedure TScreenEditConvert.MidiFile1MidiEvent(event: PMidiEvent); -begin - //Log.LogStatus(IntToStr(event.event), 'MIDI'); - try - MidiOut.PutShort(event.event, event.data1, event.data2); - except - MidiFile.StopPlaying(); - end; -end; -{$ENDIF} - -constructor TScreenEditConvert.Create; -var - P: integer; -begin - inherited Create; - AddButton(40, 20, 100, 40, Skin.GetTextureFileName('ButtonF')); - AddButtonText(15, 5, 0, 0, 0, 'Open'); - //Button[High(Button)].Text[0].Size := 11; - - AddButton(160, 20, 100, 40, Skin.GetTextureFileName('ButtonF')); - AddButtonText(25, 5, 0, 0, 0, 'Play'); - - AddButton(280, 20, 200, 40, Skin.GetTextureFileName('ButtonF')); - AddButtonText(25, 5, 0, 0, 0, 'Play Selected'); - - AddButton(500, 20, 100, 40, Skin.GetTextureFileName('ButtonF')); - AddButtonText(20, 5, 0, 0, 0, 'Save'); - - fFileName := PATH_NONE; - - for P := 0 to 100 do - begin - ColR[P] := Random(10)/10; - ColG[P] := Random(10)/10; - ColB[P] := Random(10)/10; - end; - -end; - -procedure TScreenEditConvert.OnShow; -var - T: integer; // track - N: integer; // note - {$IFDEF UseMIDIPort} - MidiTrack: TMidiTrack; - MidiEvent: PMidiEvent; - {$ENDIF} - FileOpened: boolean; - KMIDITrackIndex, SMFTrackIndex: integer; -begin - inherited; - - Interaction := 0; - -{$IFDEF UseMIDIPort} - MidiOut := TMidiOutput.Create(nil); - Log.LogInfo(MidiOut.ProductName, 'MIDI'); - MidiOut.Open; - MidiFile := nil; - SetLength(Tracks, 0); - - // Filename is only <> PATH_NONE if we called the OpenScreen before - fFilename := ScreenOpen.Filename; - if (fFilename = PATH_NONE) then - Exit; - ScreenOpen.Filename := PATH_NONE; - - FileOpened := false; - if fFileName.Exists then - begin - MidiFile := TMidiFile.Create(nil); - MidiFile.Filename := fFileName; - try - MidiFile.ReadFile; - FileOpened := true; - except - MidiFile.Free; - end; - end; - - if (not FileOpened) then - begin - ScreenPopupError.ShowPopup(Language.Translate('ERROR_FILE_NOT_FOUND')); - Exit; - end; - - Len := 0; - SelTrack := 0; - BPM := MidiFile.Bpm; - Ticks := MidiFile.TicksPerQuarter / 4; - - KMIDITrackIndex := -1; - SMFTrackIndex := -1; - - SetLength(Tracks, MidiFile.NumberOfTracks); - for T := 0 to MidiFile.NumberOfTracks-1 do - Tracks[T].LyricType := []; - - for T := 0 to MidiFile.NumberOfTracks-1 do - begin - MidiTrack := MidiFile.GetTrack(T); - MidiTrack.OnMidiEvent := nil; - Tracks[T].Name := DecodeStringUTF8(MidiTrack.getName, DEFAULT_ENCODING); - Tracks[T].NoteType := ntNone; - Tracks[T].Status := []; - - SetLength(Tracks[T].Note, MidiTrack.getEventCount()); - for N := 0 to MidiTrack.getEventCount-1 do - begin - MidiEvent := MidiTrack.GetEvent(N); - - Tracks[T].Note[N].Start := MidiEvent.time; - Tracks[T].Note[N].Len := MidiEvent.len; - Tracks[T].Note[N].Event := MidiEvent.event; - Tracks[T].Note[N].EventType := MidiEvent.event shr 4; - Tracks[T].Note[N].Channel := MidiEvent.event and $0F; - Tracks[T].Note[N].Data1 := MidiEvent.data1; - Tracks[T].Note[N].Data2 := MidiEvent.data2; - Tracks[T].Note[N].Str := DecodeStringUTF8(MidiEvent.str, DEFAULT_ENCODING); - - if (Tracks[T].Note[N].Event = MIDI_EVENT_META) then - begin - case (Tracks[T].Note[N].Data1) of - MIDI_META_TEXT: begin - // KMIDI lyrics (uses MIDI_META_TEXT events) - if (StrLComp(PAnsiChar(Tracks[T].Note[N].Str), '@KMIDI KARAOKE FILE', 19) = 0) and - (High(Tracks) >= T+1) then - begin - // The '@KMIDI ...' mark is in the first track (mostly named 'Soft Karaoke') - // but the lyrics are in the second track (named 'Words') - Tracks[T+1].LyricType := Tracks[T+1].LyricType + [ltKMIDI]; - KMIDITrackIndex := T+1; - end; - end; - MIDI_META_LYRICS: begin - // lyrics in Standard Midi File format found (uses MIDI_META_LYRICS events) - Tracks[T].LyricType := Tracks[T].LyricType + [ltSMFLyric]; - SMFTrackIndex := T; - end; - end; - end - else if (Tracks[T].Note[N].EventType = MIDI_EVENTTYPE_NOTEON) then - begin - // notes available - Tracks[T].NoteType := ntAvail; - end; - - if Tracks[T].Note[N].Start + Tracks[T].Note[N].Len > Len then - Len := Tracks[T].Note[N].Start + Tracks[T].Note[N].Len; - end; - end; - - // set default lyric track. Prefer KMIDI. - if (KMIDITrackIndex > -1) then - Tracks[KMIDITrackIndex].Status := Tracks[KMIDITrackIndex].Status + [tsLyrics] - else if (SMFTrackIndex > -1) then - Tracks[SMFTrackIndex].Status := Tracks[SMFTrackIndex].Status + [tsLyrics]; -{$ENDIF} -end; - -function TScreenEditConvert.Draw: boolean; -var - Count: integer; - Count2: integer; - Bottom: real; - X: real; - Y: real; - Height: real; - YSkip: real; - TrackName: UTF8String; -begin - // draw static menu - inherited Draw; - - Y := 100; - - Height := min(480, 40 * Length(Tracks)); - Bottom := Y + Height; - - YSkip := Height / Length(Tracks); - - // highlight selected track - DrawQuad(10, Y+SelTrack*YSkip, 780, YSkip, 0.8, 0.8, 0.8); - - // track-selection info - for Count := 0 to High(Tracks) do - if Tracks[Count].Status <> [] then - DrawQuad(10, Y + Count*YSkip, 50, YSkip, 0.8, 0.3, 0.3); - glColor3f(0, 0, 0); - for Count := 0 to High(Tracks) do - begin - if Tracks[Count].NoteType = ntAvail then - begin - if tsNotes in Tracks[Count].Status then - glColor3f(0, 0, 0) - else - glColor3f(0.7, 0.7, 0.7); - SetFontPos(25, Y + Count*YSkip + 10); - SetFontSize(15); - glPrint('N'); - end; - if Tracks[Count].LyricType <> [] then - begin - if tsLyrics in Tracks[Count].Status then - glColor3f(0, 0, 0) - else - glColor3f(0.7, 0.7, 0.7); - SetFontPos(40, Y + Count*YSkip + 10); - SetFontSize(15); - glPrint('L'); - end; - end; - - DrawLine( 10, Y, 10, Bottom, 0, 0, 0); - DrawLine( 60, Y, 60, Bottom, 0, 0, 0); - DrawLine(790, Y, 790, Bottom, 0, 0, 0); - - for Count := 0 to Length(Tracks) do - DrawLine(10, Y + Count*YSkip, 790, Y + Count*YSkip, 0, 0, 0); - - for Count := 0 to High(Tracks) do - begin - SetFontPos(65, Y + Count*YSkip); - SetFontSize(15); - glPrint(Tracks[Count].Name); - end; - - for Count := 0 to High(Tracks) do - begin - for Count2 := 0 to High(Tracks[Count].Note) do - begin - if Tracks[Count].Note[Count2].EventType = MIDI_EVENTTYPE_NOTEON then - DrawQuad(60 + Tracks[Count].Note[Count2].Start/Len * 725, - Y + (Count+1)*YSkip - Tracks[Count].Note[Count2].Data1*35/127, - 3, 3, - ColR[Count], ColG[Count], ColB[Count]); - if Tracks[Count].Note[Count2].EventType = 15 then - DrawLine(60 + Tracks[Count].Note[Count2].Start/Len * 725, Y + 0.75 * YSkip + Count*YSkip, - 60 + Tracks[Count].Note[Count2].Start/Len * 725, Y + YSkip + Count*YSkip, - ColR[Count], ColG[Count], ColB[Count]); - end; - end; - - // playing line - {$IFDEF UseMIDIPort} - if (MidiFile <> nil) then - X := 60 + MidiFile.GetCurrentTime/MidiFile.GetTrackLength*730; - {$ENDIF} - DrawLine(X, Y, X, Bottom, 0.3, 0.3, 0.3); - - Result := true; -end; - -procedure TScreenEditConvert.OnHide; -begin -{$IFDEF UseMIDIPort} - FreeAndNil(MidiFile); - MidiOut.Close; - FreeAndNil(MidiOut); -{$ENDIF} -end; - -end. -- cgit v1.2.3