*iBan* ( Mediaplayer )

[Garfield]

Zitat von BullsEye:

  if listbox1.Count > 0 then Das müsste, wenn ich richtig bin nicht 0 sondern -1 sein.

Bei -1 würde der Vergleich immer True ergeben, da eine Anzahl nicht negativ sein kann. Bei der Prüfung des ItemIndex wäre -1 richtig.

Der erste Eindruck:

• Bei den TSpeedbutton für "play", "pause" und "open" ist Flat := True eingestellt. Da die Farbe der Button mit der Farbe der Schrift übereinstimmt, kann man kann die Caption nicht mehr lesen wenn man mit der Maus drüberfährt.
• Bei einem Klick auf "Open" wird kein Verzeichnis - zB Eigene Musik - vorgegeben.
• Nach dem Öffnen einer Datei wird die Lautstärke immer "voll" aufgedreht.
• Die Playlist wird in einer Endlosschleife abgespielt, wobei der aktuelle Titel nicht markiert ist.
• Es gibt keine Stop-Funktion.
• Das Auf- und Zuklappen dauert mir zu lange. Nach dem Aufklappen müsste die Caption des TSpeedButton von ">" auf "<" geändert werden.