Zitat:
1 Für was ist das grüne Ding unter dem Schieberegler zum Songpos einstellen?
Wenn du lesen würdest wüsstest du, dass das der Volume-Regler ist.
Zitat:
2 Was um alles in der Welt soll dieser Kerl mit der Pumpgun (oder was das ist) in den Credits?
Ich wollte auch mal Scherzwn und hab Mick Thompson als Hintergrund genommen
Zitat:
3 Öffnen von m3u vermisse ich genauso
Da müsst ihr mir erklären, wie man das macht
Zitat:
4 Unter der Playlist kann man "Tag-Information" kaum lesen.
Ich weiß nicht, was du da meinst.
Zitat:
5 Fände es besser, wenn man nach dem Druck auf den "Öffnen" Knopp auch gleich das Lied abgespielt wird.
6Früher hast du dich beschwert das es falschrum sei. Ich finde das so besser.
Zitat:
7 Bei der Playlist sollte man auch nur einzelne Lieder einfügen können.
Zitat:
8 Das dunkle Design spricht mich nicht so an.
Da musst du dich noch eine Weile gedulden, das Skinsystem kommt noch.
Zitat:
Das Programm spielt die Lieder soooooo laut ab, ich dachte meine Ohren fliegen weg. Lautstärkeregler auf 3% und Windows-Regler fast ganz unten. -> Programm ist bei mir unbenutztbar.
Stell dir die Laustärke so ein, wie du willst, sie wird ab jetzt abgespeichert.
Zitat:
Noch ein paar Anmerkungen:
- Wieso is die Echse so groß ?
- Das ganze läuft bei mir nur schellpend und sehr langsam (Laden einer Datei dauert ziemlich lange, im Gegensatz zum WMP)
- CPU-Auslastung ist auch nicht gerade wenig (600Mhz, 192 MB
RAM)
Das problem hatte ich noch nie. Aber mit dem Skinsystem, dass noch kommt geht das. Das Programm ist so groß, weil es aus Bildern und weil es aus 1510 Zeilen besteht.
Zitat:
Was sollen denn die beiden schwarzen "unsichtbaren" Edits rechts von Liednamen??
EasterEgg Grübelnd...
//Edit: Wenn man Lieder zur Playlist hinzufügt, dann werden keine Unterordner durchsucht.
In die Edits kommen noch zwei ID3Tags, muss ich noch machen.
Falls jemand eine Idee hat, wie man die unterordner mit durchsucht, ist hier der Code:
Delphi-Quellcode:
function Tpform.BrowseDialog(const Title: string; const Flag: integer): string;
var
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
Result:='';
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
with BrowseInfo do begin
hwndOwner := Application.Handle;
pszDisplayName := @DisplayName;
lpszTitle := PChar(Title);
ulFlags := Flag;
end;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
Result := IncludeTrailingBackslash(TempPath);
GlobalFreePtr(lpItemID);
end;
end;
-
Neue Version da.