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.