1 problem je dugme previous i next.ne znam zasto nece da radi.evo cod:
Code:
var ind,i:integer;
pj:string;
begin
if mp1.FileName<>'' then
begin
pj:=mp1.FileName;
for i:=0 to pjesme.Count-1 do
if pj=form2.ListBox2.Items.Text[i] then ind:=i;
if ind=0 then mp1.filename:=(form2.ListBox2.items[pjesme.count])
else mp1.filename:=(form2.ListBox2.items[ind-1]);
dec(ind);
form2.ListBox1.Selected[ind]:=True;
mp1.open;
mp1.play;
end;
var ind,i:integer;
pj:string;
begin
if mp1.FileName<>'' then
begin
pj:=mp1.FileName;
for i:=0 to pjesme.Count-1 do
if pj=form2.ListBox2.Items.Text[i] then ind:=i;
if ind=0 then mp1.filename:=(form2.ListBox2.items[pjesme.count])
else mp1.filename:=(form2.ListBox2.items[ind-1]);
dec(ind);
form2.ListBox1.Selected[ind]:=True;
mp1.open;
mp1.play;
end;
2) problem je sto na dugmetu repeat imam 3 opcije (popup menu), ali popup menu radi sa desnim klikom a ja bih da ga pozivam na lijevi klik.
3) problem tice se brisanja pjesama iz playliste.
Code:
procedure TForm2.Button4Click(Sender: TObject);
var i,j,rb1,pom,ind:integer;
begin
if listbox1.Count=0 then showmessage('mp3 lista je prazna') else pom:=1;
if pom=1 then
begin
for i:=0 to pjesme.Count- 1 do
if ListBox1.Selected[i]=True then
pjesme.Delete(i);
listbox1.clear;
listbox2.Clear;
rb1:=1;
for j:=0 to pjesme.Count-1 do
begin
listbox2.Items.add(pjesme[j]);
Listbox1.Items.Add(inttostr(rb1)+'.'+extractfilename(pjesme[j]));
inc(rb1);
end;
end;
end;
procedure TForm2.Button4Click(Sender: TObject);
var i,j,rb1,pom,ind:integer;
begin
if listbox1.Count=0 then showmessage('mp3 lista je prazna') else pom:=1;
if pom=1 then
begin
for i:=0 to pjesme.Count- 1 do
if ListBox1.Selected[i]=True then
pjesme.Delete(i);
listbox1.clear;
listbox2.Clear;
rb1:=1;
for j:=0 to pjesme.Count-1 do
begin
listbox2.Items.add(pjesme[j]);
Listbox1.Items.Add(inttostr(rb1)+'.'+extractfilename(pjesme[j]));
inc(rb1);
end;
end;
end;
znaci kada kliknem da dugme delete on provjerava da li ima pjesama u playlisti, ako je pjesma selektovana da je izbrise i da ponovo doda ostale sa rednim brojem, a ako je kliknuto na delete a nije selektovano da kaze u mesage nisi selektovao
unparijed hvala