[ Floppy @ 04.09.2005. 13:59 ] @
E.ovako...Napravi sam moj prvi (ozbiljniji) program u Delphi-u 4.Zove se Music Player,kao sto ime kaze sluzi za slusanje muzike....ali imam nekoliko problema a to su:
1.Ne radi "stop" dugme iako sam napisao ovako:
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
if MediaPlayer1.Enabled then
begin
MediaPlayer1.Stop;
Label3.Caption := d + '00:00';
Timer1.Enabled := False;
TrackBar1.Position := 0;
end;
end;
Mislim da je ovo ispravno ako nije ispravite....
2.Ne radi mu "Pauza" dugme iako sam napisao:
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if MediaPlayer1.Enabled then
begin
MediaPlayer1.Pause;
Timer1.Enabled := False;
end;
end;

To je sto ne radi,a ovo je sto ne znam da napisem....
imam dugme "Izbaci" ali ne znam na napisem da izbaci pesmu iz ListBox-a
I imam jedan TrackBar koji bi sluzio za smanjivanje i pojacavanje zvuka i to ne znam da napisem
Imam jos jedan mali Problem....Naime kad ubacim vise WMA fajlova pocne da izbacuje error "No MCI device open"(to izbacuje kada se zavrsi prva pesma)

Inace program otvara Mp3,Wma i Wav fajlove.....
I imam jos jedno pitanje,a to je kao da mi promeni "skin"tj. da promeni slicice u programu(moj "skin" je sastvljenj od slicica")

ako vam nesto nije jasno pitajte....



E to je to......nadam se da ce te mi pomoci....
Zeleo bi da napomenem da imam 15 godina i da sam pocetnik u programiranju....

Unapred zahvalan....
[ Passwd @ 04.09.2005. 18:30 ] @
Citat:
Floppy:1.Ne radi "stop" dugme iako sam napisao ovako:
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
if MediaPlayer1.Enabled then
begin
MediaPlayer1.Stop;
Label3.Caption := d + '00:00';
Timer1.Enabled := False;
TrackBar1.Position := 0;
end;
end;
2.Ne radi mu "Pauza" dugme iako sam napisao:
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if MediaPlayer1.Enabled then
begin
MediaPlayer1.Pause;
Timer1.Enabled := False;
end;
end;


probaj maknut if then petlju..

Citat:
Floppy: 
imam dugme "Izbaci" ali ne znam na napisem da izbaci pesmu iz ListBox-a


Listbox1.DeleteSelected;


Citat:
Floppy: I imam jedan TrackBar koji bi sluzio za smanjivanje i pojacavanje zvuka i to ne znam da napisem


type
TGlasnoca = record
Levi, Desni: Word;
end;

..

procedure TForm1.TrackBar2Change(Sender: TObject);
var
G: TGlasnoca;
begin
G.Levi := TrackBar2.Position;
G.Desni := TrackBar2.Position;
waveOutSetVolume(0, Cardinal(G));

end;




Citat:
Floppy: Imam jos jedan mali Problem....Naime kad ubacim vise WMA fajlova pocne da izbacuje error "No MCI device open"(to izbacuje kada se zavrsi prva pesma)



U uses dodaj MMSystem...u u neki onclick event buttona:

procedure TForm1.Button1Click(Sender: TObject);
begin
if WavFajl <> '' then
if not PlaySound(PChar(WavFajl), 0, SND_FILENAME)
then
ShowMessage('neka_greska');
end;



Citat:
Floppy:
I imam jos jedno pitanje,a to je kao da mi promeni "skin"tj. da promeni slicice u programu(moj "skin" je sastvljenj od slicica")


Skini vclskin komponentu..
[ Nemanja Avramović @ 05.09.2005. 00:00 ] @
Citat:
Passwd: Skini vclskin komponentu..


i potrazi ovde na forumu za skidanje onog "demo verzija" ... programski workaround... by me, i josh par leekova... udruzenim snagama! :P
[ Peke @ 06.09.2005. 02:24 ] @
Floppy,
Mogao bih da te uputim na neke od tema na koje sam ja odgovarao (pogledaj moj profil).
Ima tamo par primera za slicne probleme, mozda dobijes koju ideju.