
Последние записи
- Форматирование таблиц в документе (Microsoft Office Word)
- Добавить текст на картинку JPEG
- Повторяющийся звук в Delphi
- Выгрузка TImage в Excel
- Где курсор
- Удалить повторы со сложением значений (Microsoft Office Excel)
- Bass регулировка по отдельности левого и правого каналов звука
- Как ускорить замену текста в MEMO?
- Вывод картинки (текстуры) на OpenGL 3.3 и Qt C++ с плавающем диапазоном координат по оси X
- Поиск ячеек определенного цвета (Microsoft Office Excel)

18th
Авг
Как управлять звуком правой и левой колонок с помощью TrackBar?
Posted by obzor under Delphi
Как можно управлять звуком правой и левой колонок с помощью TrackBar? Ну чтобы можно было увеличить звук определённого динамика перетаскиванием указателя.
Левый Динамики Правый
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|- -| |- -|
|-0-| |-0-|
объяснять не буду, разберешься надеюсь
Код:
uses MMSystem;
function GetWaveVolume: DWord;
var Woc : TWaveOutCaps;
Volume : DWord;
begin
result:=0;
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then begin
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then begin
WaveOutGetVolume(WAVE_MAPPER, @Volume);
Result := Volume;
end;
end;
end;
procedure SetWaveVolume(const AVolume: DWord);
var Woc : TWaveOutCaps;
begin
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then begin
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
WaveOutSetVolume(WAVE_MAPPER, AVolume);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var a,b:integer;
begin
a:=GetWaveVolume shr 16;
b:=GetWaveVolume-(GetWaveVolume shr 16)shl 16;
sb2.Position:=a;
sb.Position:=b;
caption:=inttostr(a)+'<=>'+inttostr(b);
end;
procedure TForm1.sbChange(Sender: TObject);
begin
SetWaveVolume(MakeLong(sb.Position,sb2.Position));
caption:=inttostr(sb.Position)+'<=>'+inttostr(sb2. Position);
end;
Случайные статьи

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)