TMIDIPlayerComp

[EWeiss]

Wenn es nur rein um den Text geht ist das mit einer Zeile erledigt. Oder?

Addiere ne RichEdit auf dein Formular deaktiviere "HIDESCROLLBAR"
und aktiviere Scrollbars [ssBoth]
RichEdit deshalb weil sie TStrings enthält und der Text auf grund dessen nicht extra formatiert werden muss.

In der procedure
procedure TForm1.btnOpenClick(Sender: TObject);
addierst du diese Zeile zu dem projekt
vor ..

Delphi-Quellcode:

 // PositionBar.Max := MidiFile.PlayTicks;
  PositionBar.Max := round(MidiFile.Duration / 100.0);

.......

Delphi-Quellcode:

// Get Lyrics
  RichEdit1.Text := MidiFile.Lyrics;

sieht dann so aus !!

Delphi-Quellcode:

// Get Lyrics
  RichEdit1.Text := MidiFile.Lyrics;
 // PositionBar.Max := MidiFile.PlayTicks;
  PositionBar.Max := round(MidiFile.Duration / 100.0);

das ergebnis siehe Pic..

PS:
Hab noch ein kleines problem gefunden.. In der Unit MidiFile2

Delphi-Quellcode:

function TMidiFile2.ReadFromFile(const FileName: WideString): Boolean;
var
  FileInfo: TMidiFileInfo;
  I, N: integer;
  LyricsTrack: Integer;
begin
  try
    FileInfo.TrackList := nil;
    FileInfo.TempoList := nil;
    FLyrics := ''; // Diese Zeile addieren um den zuvor geladenen Lyric string zu löschen.
    FIsValid := GetInfo(FileName, FileInfo);
  except

gruss