Ĺadny brzuch
Utwożyłem odtważacz muzyki i jako pozycja utworu użyłem TTrackBar. Podczas odtważania piosenki automatycznie pozycja zmienia się na podstawie danych z biblioteki BASS. Chcę dodać funkcje ustawienia pozycji utworu za pomocą przesunięcia pozycji myszką w TTrackBar. Jak dodam tę funkcję do onchange(czy jakoś tak :-P ) to podczas odtważania piosenka się zacina. Jest tak ponieważ moja funkcja jest uruchamiana przy każdej zmianie pozycji(czy to programu, czy ręcznie).
Jak ktoś nie rozumie to niech napisze. Prześle na e-mail wersję programu.
Utwożyłem odtważacz muzyki i jako pozycja utworu użyłem TTrackBar. Podczas odtważania piosenki automatycznie pozycja zmienia się na podstawie danych z biblioteki BASS. Chcę dodać funkcje ustawienia pozycji utworu za pomocą przesunięcia pozycji myszką w TTrackBar. Jak dodam tę funkcję do onchange(czy jakoś tak :-P ) to podczas odtważania piosenka się zacina. Jest tak ponieważ moja funkcja jest uruchamiana przy każdej zmianie pozycji(czy to programu, czy ręcznie).
Jak ktoś nie rozumie to niech napisze. Prześle na e-mail wersję programu.
Ja, Ja - tylko w TTrackBar nie ma opcji onscroll :)
//Oka - mogę użyć TScrollBar - tylko napisz mi jak zlikwidować te strzałki po bokach :)
Użytkownik mariuszlorenc edytował ten post 06 czerwiec 2005, 18:41
To jest raczej wina BASS-a, spróbuj z nim inaczej ;) [lub zatrudnij fmod-a B)]
Ja, Ja - tylko w TTrackBar nie ma opcji onscroll :)
TTrackBar na 100% ponieważ program zmienia pozycje co 100ms i przy każdej zmianie program wywołuje onchange.
(...) Fakt, zwracam honor :P Teraz mi powiedzcie, czy w dobrą stronę idę? ;)var Form1: TForm1; b:boolean; m:cardinal; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin BASS_ChannelPlay(m,true); end; procedure TForm1.FormCreate(Sender: TObject); begin BASS_Init(1,44100,0,handle,nil); m:=BASS_StreamCreateFile(false,pchar('D:\Download\DIR0.MP3\Gigi D''Agostino - Bla Bla Bla.mp3'),0,0,0); TrackBar1.Max:=BASS_StreamGetLength(m); end; procedure TForm1.Timer1Timer(Sender: TObject); begin b:=false; TrackBar1.Position:=BASS_ChannelGetPosition(m); b:=true; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin if b then BASS_ChannelSetPosition(m,trackBar1.Position); end;
Yes my master :) Czemu ja nie wpadam na takie proste rozwiązania :P
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jak ktoś nie rozumie to niech napisze. Prześle na e-mail wersję programu.
Utwożyłem odtważacz muzyki i jako pozycja utworu użyłem TTrackBar. Podczas odtważania piosenki automatycznie pozycja zmienia się na podstawie danych z biblioteki BASS. Chcę dodać funkcje ustawienia pozycji utworu za pomocą przesunięcia pozycji myszką w TTrackBar. Jak dodam tę funkcję do onchange(czy jakoś tak :-P ) to podczas odtważania piosenka się zacina. Jest tak ponieważ moja funkcja jest uruchamiana przy każdej zmianie pozycji(czy to programu, czy ręcznie).
Jak ktoś nie rozumie to niech napisze. Prześle na e-mail wersję programu.
Ja, Ja - tylko w TTrackBar nie ma opcji onscroll :)
//Oka - mogę użyć TScrollBar - tylko napisz mi jak zlikwidować te strzałki po bokach :)
Użytkownik mariuszlorenc edytował ten post 06 czerwiec 2005, 18:41
To jest raczej wina BASS-a, spróbuj z nim inaczej ;) [lub zatrudnij fmod-a B)]
Ja, Ja - tylko w TTrackBar nie ma opcji onscroll :)
TTrackBar na 100% ponieważ program zmienia pozycje co 100ms i przy każdej zmianie program wywołuje onchange.
(...) Fakt, zwracam honor :P Teraz mi powiedzcie, czy w dobrą stronę idę? ;)var Form1: TForm1; b:boolean; m:cardinal; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin BASS_ChannelPlay(m,true); end; procedure TForm1.FormCreate(Sender: TObject); begin BASS_Init(1,44100,0,handle,nil); m:=BASS_StreamCreateFile(false,pchar('D:\Download\DIR0.MP3\Gigi D''Agostino - Bla Bla Bla.mp3'),0,0,0); TrackBar1.Max:=BASS_StreamGetLength(m); end; procedure TForm1.Timer1Timer(Sender: TObject); begin b:=false; TrackBar1.Position:=BASS_ChannelGetPosition(m); b:=true; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin if b then BASS_ChannelSetPosition(m,trackBar1.Position); end;
Yes my master :) Czemu ja nie wpadam na takie proste rozwiązania :P