Programowanie w języku Delphi » FAQ

Jak regulować dźwięk przy pomocy ScrollBara

Gdy umieścisz na komponencie komponent "ScrollBar" chcesz, aby przy jego pomocy regulować dzwięk. W procedurze "OnScroll" tego komponentu powinieneś wpisać taki kod:

  if ScrollPos = 100 then { jezeli jest na maxa to ustaw dzwiek na maxa }
    WaveOutSetVolume(0, $FFFFFFF)
  else
    WaveOutSetVolume(0, ScrollPos * 1000);
{ inaczej ustaw wg. ustawień Scroll'a }

Nie zapomnij do listy modułów ( uses ) dodać słowa "MMSystem".

2 komentarze

dos 2004-12-29 16:57

I to jest złe i to jest złe. Zapraszam na forum: http://forum.4programmers.net/viewtopic.php/id=62953 tam napisałem jak się to robi, wystarczy potem tylko dać maxa w scrollbarze na 16 i przypisać w onscroll <delphi>if scrollbar1.position=1 then WaveOutSetVolume(0, $00000000) else if...</delhpi> I tak dalej, jak napisałem na forum.

Juhas 2003-05-01 23:39

Niestety Adasiu, to jest złe :)

Max scrolla ustawiasz na 60

Jeżeli scroll nie jest na maxa to:

WaveOutSetVolume(0, $ff*ScrollBar1.Position*1024*$ff);