Forum: Software-Projekte der Mitglieder
by Neutral General,
25. Okt 2005
Ich weiß nicht obs schon gesagt wurde aber ich fänds schön wenn man mehrere Dateien auf einmal laden kann... Also Multiselect bei dem Opendialog an und halt Lademethode entsprechend anpassen. Ich denke mal wenn du das mit den ganzen Visualisierungen und so hinbekommen hast dann schaffst du das auch ;)
Forum: Software-Projekte der Mitglieder
by Neutral General,
7. Dez 2004
das mit dem mehrere Dateien laden müsste ungefähr so gehen :
procedure TFormPlayer.addClick(Sender: TObject);
var
f: PChar;
i : Integer;
begin
if not op.Execute then Exit;
for i := 0 to Op.Files.Count-1 do begin
f := PChar(Op.Files.Strings);
Forum: Software-Projekte der Mitglieder
by Neutral General,
6. Dez 2004
Das mit dem Verschieben geht so :
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(wm_syscommand,$f012, 0);
end;
Beim Opendialog soll man mehrere Lieder auf einmal in die Playlist laden können (Multiselect := true oder so)