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