Надо перевернуть на 180 градусов
Схема упрощена
Make(delphi)
ver(4.03 build 181)
Add(MainForm,5544688,120,109)
{
Width=424
Height=376
Color=-16777203
Caption="проба эквалайзер"
Point(Handle)
link(onCreate,4252681:doInit,[(161,129)(161,131)])
}
Add(BASS_Init,4252681,183,125)
{
link(Handle,5544688:Handle,[(203,113)(165,113)(165,154)(126,154)])
}
Add(Edit,16746696,280,91)
{
Left=65
Top=40
Width=330
Color=16777215
Text=""
}
Add(BASS_StreamCreateFile,1147551,378,161)
{
Name="MainSound"
link(onCreate,3651364:doPlay,[])
link(FileName,16746696:Text,[(384,142)(286,142)])
}
Add(BASS_ChannelPlay,3651364,461,161)
{
Channel="MainSound"
}
Add(Button,2793090,294,182)
{
Left=240
Top=100
Caption="play"
link(onClick,1147551:doCreate,[(352,188)(352,167)])
}
Add(ScrollBarEx,5404405,541,192)
{
Left=35
Top=140
Width=15
Height=100
Color=8388736
LightColor=16711935
DarkColor=16711935
FaceColor=0
ArrowColor=16711935
Max=15
Min=-15
Kind=1
link(onPosition,7027187:doEvent1,[(578,198)(578,197)])
}
Add(Label,5758854,542,150)
{
Left=30
Top=110
Width=35
Height=12
Color=-16777203
Caption="500Hz"
}
Add(Hub,7027187,583,191)
{
link(onEvent1,11230734:doSet,[(613,197)(613,169)])
link(onEvent2,13126728:doText,[])
}
Add(BASS_ChannelFX_Eq,11230734,637,163)
{
Channel="MainSound"
Center=500
Bandwidth=16
}
Add(Label,13126728,678,198)
{
Left=35
Top=265
Width=15
Height=17
Color=-16777203
Caption="0"
}
Add(Label,12713548,219,275)
{
Left=80
Top=130
Width=28
Height=20
Color=-16777203
Font=[MS Sans Serif,10,1,0,1]
Caption="Min"
}
Add(Label,1730784,306,275)
{
Left=80
Top=230
Width=32
Height=20
Color=-16777203
Font=[MS Sans Serif,10,1,0,1]
Caption="Max"
}
Add(BitBtn,11865194,154,55)
{
Left=85
Top=15
Width=60
Color=65280
Caption="Open file"
link(onClick,15104708:doExecute,[])
}
Add(ODialog,15104708,196,55)
{
Title="Open File"
FileName=""
Select=1
link(onExecute,16746696:doText,[(254,61)(254,97)])
}
Неужели никто не знает, как это сделать ?