Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Регулировка звука Help 
:(
    Опции темы
Labels
Дата 6.4.2012, 08:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 6.4.2012

Репутация: нет
Всего: нет
Добрый день. Прошу у Вас помощи. Как сделать чтоб вместо трекбара было 2 кнопки громкости , на одну нажимаешь громче а на другую тише..

bass.dll библиотека

Всем заранее большое спасибо.
PM MAIL   Вверх
Чучмек
Дата 6.4.2012, 09:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 2
Всего: 41
Код

procedure TForm1.ButtonAddClick(Sender: TObject);
var vol:single;
begin
 vol:=BASS_GetVolume;
 vol:=vol+0.02;
 if vol>1 then vol:=1;
 BASS_SetVolume(vol);

end;

procedure TForm1.ButtonSubClick(Sender: TObject);
var vol:single;
begin
 vol:=BASS_GetVolume;
 vol:=vol-0.02;
 if vol<0 then vol:=0;
 BASS_SetVolume(vol);
end;



--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Чучмек
Дата 6.4.2012, 09:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 2
Всего: 41
Или
Код

procedure TForm1.ButtonAddMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var vol:single;
begin
 while csLButtonDown in ButtonAdd.ControlState do
  begin
  vol:=BASS_GetVolume;
  vol:=vol+0.02;
  if vol>1 then vol:=1;
  BASS_SetVolume(vol);
  form1.Caption:=inttostr(trunc(100*vol))+'%';
  sleep(100);
  application.ProcessMessages;
  end;
end;

procedure TForm1.ButtonSubMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var vol:single;
begin
 while csLButtonDown in ButtonSub.ControlState do
  begin
  vol:=BASS_GetVolume;
  vol:=vol-0.02;
  if vol<0 then vol:=0;
  BASS_SetVolume(vol);
  form1.Caption:=inttostr(trunc(100*vol))+'%';
  sleep(100);
  application.ProcessMessages;
  end;
end;



--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Labels
Дата 8.4.2012, 19:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 6.4.2012

Репутация: нет
Всего: нет
Спасибо smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1003 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.