SmallTune [0.3.1]

[Mithrandir]

Zitat:

Zitat von mleyen

Jetzt noch die optionale Einstellungsmöglichkeit zur Unterstützung globaler Mediatasten und das Ding ersetzt meinen Winamp. :thumb:

Da müsste ich mal schauen, sowas habe ich auf meinem Laptop nicht. Ich weiß aber, dass Windows da einige Keys kennt. Ich guck mal... :)

[wicht]

Hab das Programm nicht getestet (sorry :stupid: ) aber der Source, die Screenshots und auch die Webseite sehen sehr schön aus, also :thumb: :)

[Mithrandir]

Zitat:

Zitat von wicht

Hab das Programm nicht getestet (sorry :stupid: ) aber der Source, die Screenshots und auch die Webseite sehen sehr schön aus, also :thumb: :)

Bei soviel Lob sei's dir verziehen... :mrgreen:

:firejump:

[Mithrandir]

@mleyen und alle, die solche MM-Keys haben:

Könnt ihr die Exe im Anhang samt DLL mal testen? Ihr braucht dazu natürlich die sqlite.dll aus dem Originalarchiv.

Die DLL erstellt einen Shell-Hook. Nur dummerweise kommt bei meinem Programm nix an. Jetzt habe ich die DLL debuggt, und festgestellt, dass der Hook auf das Testprogramm, dass ich geschrieben habe um die MM-Keys zu simulieren, gar nicht anspringt. Wohl aber der Windows Media Player reagiert. Das wäre dann noch eine andere Baustelle.

Mich würde also mal interessieren, ob die "richtigen" Tasten auf dem Keyboard funktionieren.

//Nachtrag: Mittlerweile läuft es. An dieser Stelle danke an die zwei Unbekannten Downloader. :mrgreen:

[toms]

Drag & Drop in die Playlist wäre noch nützlich.

[Mithrandir]

Bugfix only Release 0.2.1

Zitat:

Zitat von Changelog

• [-] After restarting the explorer, the icon was lost.
• [-] After adding files oder folders, clicking and removing items from the playlist without restarting failed
• [-] Different names for the same action
• [-] Position didn't change when Taskbar was replaced

[toms]

Wenn Shuffle = True ist und auf "Next" geklickt wird im Player gibt es einen "Range check error" wenn die Playlist leer ist.

Der Fehler entsteht hier (unit dgstMediaClass.pas):

Delphi-Quellcode:

procedure TMediaClass.PlayNextTrack;
//....
      repeat
        Pos := random(GetDBItemsCount - 1) + 1;
        inc(i);
      until (fSongsAlreadyPlayed[Pos - 1] <> true) or (i >= Length(fMediaFileLst));

oder genauer gesagt hier:

Delphi-Quellcode:

fSongsAlreadyPlayed[Pos - 1]

Beheben lässt es sich wahrscheinlich so (kommt auf jeden Fall keine Fehlermeldung mehr)

Delphi-Quellcode:

until (i >= Length(fMediaFileLst)) or (fSongsAlreadyPlayed[Pos - 1] <> true);

[DeddyH]

Bitte bitte nicht mit true vergleichen :roll:

[turboPASCAL]

So besser ?

Delphi-Quellcode:

until (i >= Length(fMediaFileLst)) or (fSongsAlreadyPlayed[Pos - 1] = false);

:mrgreen:

Delphi-Quellcode:

until (i >= Length(fMediaFileLst)) or not (fSongsAlreadyPlayed[Pos - 1]);

[mleyen]

Zitat:

Zitat von Daniel G

• [-] Position didn't change when Taskbar was replaced

Bei mir funzt´s immer noch nicht wie gewollt. :)
Warum? Weil ich meine Taskleiste auf dem 2tem Desktop habe. :-D