TMIDIPlayerComp

[EWeiss]

Zitat von beanbear6:

Hallo Emil,
wow wow das sind ja herrliche Neuigkeiten!!
Gibt es dann in naher Zukunft eine neue Version
von den MidiComps?
Gruß Reiner
(beanbear6)

Was für neue?
Die sind erst überarbeitet worden.

Um was geht es dir denn genau das du meinst bzw. glaubst eine neue Version zu benötigen.

gruss

[EWeiss]

Kleines update vom 12.2

Delphi-Quellcode:

procedure TMainForm.FormShow(Sender: TObject);
....
ViewChannelForm.ResetFields(true{Reset Device});  // ** Added at 2013-02-12

Archiv aktualisiert.
Zudem noch einige nicht verwendete Variablen und Proceduren entfernt.

gruss

[EWeiss]

Neue Version oben!

TMidiplayer verwendet nun MidiSheetMusic-2.5 als Slave.
Angepasster Quelltext von MidiSheetMusic im Archiv enthalten.

gruss

[hathor]

Danke für den Source Code!

kMIDIPlayer läuft störungsfrei.
Die Grafik von MidiSheetMusic ist sehr resourcenfressend.
Bei meinem ACER-NB Extensa 5220 mit CPU T9300 und UMA-Grafik wird alles blockiert.
Sogar der Maus-Cursor lässt sich nicht mehr bewegen.

[EWeiss]

Zitat von hathor:

Danke für den Source Code!

kMIDIPlayer läuft störungsfrei.
Die Grafik von MidiSheetMusic ist sehr resourcenfressend.
Bei meinem ACER-NB Extensa 5220 mit CPU T9300 und UMA-Grafik wird alles blockiert.
Sogar der Maus-Cursor lässt sich nicht mehr bewegen.

Ist möglich
Bei mir habe ich in der hinsicht keine probleme.
Ein Programm als Slave zu kontrollieren ist immer etwas aufwendiger und unterumständen kann das auch auf kosten der resourcen gehen.

Ich müßte mal testen wie sich das verhält wenn ich eine Version von MidiSheet mit VS2012 kompiliere,
könnte man aber auch selbst machen wenn man über VS2012 verfügt.
Diese im Archiv ist mit SharpDevelop kompiliert worden.

gruss

[EWeiss]

Für die Leute die das projekt verwenden eine kleine korrektur.

Zitat:

There should be a modification to allow position change by mouse click on music sheet
at stopped state.

Delphi-Quellcode:

in procedure TMainForm.WndProc of MIDITest.pas

                  .

                  .

else if (Msg.Msg = WM_Mouse_Clicked) then  // mouse click on music sheet of MidiSheetMusic
  begin
    if (FhServer <> 0) and
      (Paused or (not MidiPlayer.Playing)) then
    begin
      if (not Paused) then
      begin
         Paused := true;
         for I := 0 to MidiPlayer.MidiFile.TrackCount - 1 do   // "I" should be declared as a local variable
           MidiPlayer.MidiFile.GetTrack(I).EndOfTrack := false;
      end;

      PostMessage(FhServer, WM_MIDI_PosUpdate, WPARAM(Msg.WParam), 0{=Move to new position});
      PrevPosMs := Midifile.Tick2TimePos(Msg.WParam);
      MidiPlayer.CurrentTime := PrevPosMs;
      PrevPosTicks := Msg.WParam;
      MidiPlayerPosUpdate(PrevPosMs, Msg.WParam);
    end;
  end

gruss

[EWeiss]

Neue Version oben.
Was geändert bzw. addiert wurde kann man im Text Revision_Notification nachlesen.

Wer das Menü gerne in Deutsch haben will kann folgendermaßen vorgehen.

1. MusicSheet Projekt öffen
2. TextLib.resx ins Deutsche übersetzen
3. Nach der übersetzung als TextLib.de-DE.resx speichern und zum Projekt addieren
4. Öffne LyricsEdit.cs und ändere die Sprache nach German (nicht vergessen die Buttonbeschriftung hier zu ändern)
5. Neu kompilieren

gruss