//---------------------------------------------------------------------------
#include <vcl.h>
#include <windows.h>
#include <stdlib.h>
#include <math.h>
#pragma hdrstop
#include "cppAvelyevAI.h"
#include <stdio.h>
#include "bass.h" //для работы со звуком
#include "bassenc.h"/////запись
///////////
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool bp=0,bp2=0,bb=0,bq=0,bl=0,bc=0;
HINSTANCE hh;
EventAVA *Ev=new EventAVA(); //делаем событие(мой клас)
HSTREAM stream1;
HSTREAM stream;
BASS_CHANNELINFO bbi;/
void _proced(HSTREAM *hstm);
int a1[128];
int a2[128];
DWORD d1;
DWORD d2;
QWORD loop[2]={0};
HSYNC lsync;
void CALLBACK LoopSyncProc(HSYNC hd, DWORD ddw, DWORD data, void *user)
{
if (!BASS_ChannelSetPosition(ddw,loop[0],BASS_POS_BYTE)) // try seeking to loop start
BASS_ChannelSetPosition(ddw,0,BASS_POS_BYTE); // failed, go to start of file instead
}
BASS_DX8_PARAMEQ p;
int fx[11];
double long FFTData[512];
DWORD floatable;
#ifndef M_PI
#define M_PI 3.14159265358979323846
#endif
// "rotate"
HDSP ro=0;
float rp;
void CALLBACK Rotate(HDSP hd, DWORD ddw, void *bbb, DWORD dwl, void *user)
{
float *d=(float*)bbb;
DWORD a;
for (a=0;a<dwl/4;a+=2) {
d[a]*=fabs(sin(rp));
d[a+1]*=fabs(cos(rp));
rp+=0.00003;
}
rp=fmod(rp,2*M_PI);
}
HDSP echdsp=0;
#define ECHBUFLEN 1200
float echbuf[ECHBUFLEN][2];
int echpos;
void CALLBACK Echo(HDSP hd, DWORD ddw, void *bbb, DWORD dwl, void *user)
{
float *d=(float*)bbb;
DWORD a;
for (a=0;a<dwl/4;a+=2) {
float l=d[a]+(echbuf[echpos][1]/2);
float r=d[a+1]+(echbuf[echpos][0]/2);
#if 1
echbuf[echpos][0]=d[a]=l;
echbuf[echpos][1]=d[a+1]=r;
#else
echbuf[echpos][0]=d[a];
echbuf[echpos][1]=d[a+1];
d[a]=l;
d[a+1]=r;
#endif
echpos++;
if (echpos==ECHBUFLEN) echpos=0;
}
}
HDSP fladsp=0;
#define FLABUFLEN 350
float flabuf[FLABUFLEN][2];
int flapos;
float flas,flasinc;
void CALLBACK Flange(HDSP hd, DWORD ddw, void *bbb, DWORD dwl, void *user)
{
float *d=(float*)bbb;
DWORD a;
for (a=0;a<dwl/4;a+=2) {
int p1=(flapos+(int)flas)%FLABUFLEN;
int p2=(p1+1)%FLABUFLEN;
float f=flas-(int)flas;
float s;
s=(d[a]+((flabuf[p1][0]*(1-f))+(flabuf[p2][0]*f)))*0.7;
flabuf[flapos][0]=d[a];
d[a]=s;
s=(d[a+1]+((flabuf[p1][1]*(1-f))+(flabuf[p2][1]*f)))*0.7;
flabuf[flapos][1]=d[a+1];
d[a+1]=s;
flapos++;
if (flapos==FLABUFLEN) flapos=0;
flas+=flasinc;
if (flas<0 || flas>FLABUFLEN-1) {
flasinc=-flasinc;
flas+=flasinc;
}
}
}
//------------------------------------------------
const char *GetCTypeString(DWORD BASS_CTIPE, HPLUGIN pppl,HSTREAM s)
{
if (pppl) {
const BASS_PLUGININFO *pinfo=BASS_PluginGetInfo(pppl);
int a;
for (a=0;a<pinfo->formatc;a++) {
if (pinfo->formats[a].BASS_CTIPE==BASS_CTIPE)
return pinfo->formats[a].name;
}
}
if (BASS_CTIPE==BASS_CTYPE_STREAM_OGG) return "Ogg Vorbis";
if (BASS_CTIPE==BASS_CTYPE_STREAM_MP1) return "MPEG layer 1";
if (BASS_CTIPE==BASS_CTYPE_STREAM_MP2) return "MPEG layer 2";
if (BASS_CTIPE==BASS_CTYPE_STREAM_MP3) return "MPEG layer 3";
if (BASS_CTIPE==BASS_CTYPE_STREAM_AIFF) return "Audio IFF";
if (BASS_CTIPE==BASS_CTYPE_STREAM_WAV_PCM) return "PCM WAVE";
if (BASS_CTIPE==BASS_CTYPE_STREAM_WAV_FLOAT) return "Floating-point WAVE";
if (BASS_CTIPE==BASS_CTYPE_STREAM_MF) {
const WAVEFORMATEX *wf=(WAVEFORMATEX*)BASS_ChannelGetTags(s,BASS_TAG_WAVEFORMAT);
if (wf->wFormatTag==0x1610) return "Advanced Audio Coding";
if (wf->wFormatTag==0x0161 || wf->wFormatTag==0x0162 || wf->wFormatTag==0x0163) return "Windows Media Audio";
}
if (BASS_CTIPE&BASS_CTYPE_STREAM_WAV)
return "WAVE";
return "?";
}
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
i1->Picture->Bitmap->LoadFromResourceName((int)HInstance,"OPEN1");
i2->Picture->Bitmap->LoadFromResourceName((int)HInstance,"PLAY1");
i3->Picture->Bitmap->LoadFromResourceName((int)HInstance,"PA1");
i4->Picture->Bitmap->LoadFromResourceName((int)HInstance,"ST1");
i5->Picture->Bitmap->LoadFromResourceName((int)HInstance,"SAVE1");
Image1->Picture->Bitmap->LoadFromResourceName((int)HInstance,"HL2");
hh=LoadLibrary("bass.dll");
if (hh==NULL)
Memo1->Lines->Add(Ev->SetEventAVA("Где библиотека bass.dll????",-1));
else
{
if(HIWORD(BASS_GetVersion())!=BASSVERSION)
Memo1->Lines->Add(Ev->SetEventAVA("Неверная версия библиотеки",-2));
else
{
;//BASS_Init(-1, 44100, 0, Handle, 0);
if(!BASS_Init( -1,44100, 0,Handle,NULL))
Memo1->Lines->Add(Ev->SetEventAVA("Ошибка инициализации устройства",-101));
else
Memo1->Lines->Add(Ev->SetEventAVA("Устройство инициализировано",101));
BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1);
}
}
floatable=BASS_StreamCreate(44100,2,BASS_SAMPLE_FLOAT,NULL,0);
if (floatable) {
BASS_StreamFree(floatable);
floatable=BASS_SAMPLE_FLOAT;
}
//////////////
Label2->Caption="";
Label3->Caption="";
Label4->Caption="";
Label5->Caption="";
Label6->Caption="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
FreeLibrary(hh);
BASS_Free();
//чистота
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i1Click(TObject *Sender)
{
bb=0;
BASS_StreamFree(stream);
BASS_StreamFree(stream1);
Memo1->Lines->Add(Ev->SetEventAVA("Открыть",1));
if(od1->Execute())
{
bl=1;
Memo1->Lines->Add(Ev->SetEventAVA(od1->FileName+" жми на плей",2));
stream1=BASS_StreamCreateFile(0,od1->FileName.c_str(),0,0,BASS_SAMPLE_LOOP|floatable);
//stream1=BASS_MusicLoad(FALSE,od1->FileName.c_str(),0,0,BASS_SAMPLE_LOOP|BASS_MUSIC_RAMPS|floatable,1);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i2Click(TObject *Sender)
{
bp=1;
Memo1->Lines->Add(Ev->SetEventAVA("Плей",3));
if(!bb)
{
lsync=BASS_ChannelSetSync(stream1,BASS_SYNC_POS|BASS_SYNC_MIXTIME,loop[1],LoopSyncProc,0); // set new sync
BASS_ChannelPlay(stream1,0);
BASS_ChannelGetInfo(stream1,&bbi);
Label5->Caption=GetCTypeString(bbi.BASS_CTIPE,bbi.pppl,stream1);
d1=BASS_StreamGetFilePosition(stream1, BASS_FILEPOS_END);
d2=BASS_ChannelBytes2Seconds(stream1, BASS_ChannelGetLength(stream1, BASS_POS_BYTE));
ScrollBar1->Max=BASS_ChannelGetLength(stream1,0)-1;
Label6->Caption=(AnsiString)(DWORD)(d1/(125*d2+0.5))+"Kbit";
//(AnsiString)(DWORD)(ScrollBar1->Max/(125*it)+0.5);
}
else
{
BASS_ChannelPlay(stream,0);
BASS_ChannelGetInfo(stream,&bbi);
Label5->Caption=GetCTypeString(bbi.BASS_CTIPE,bbi.pppl,stream);
}
fx[1] = BASS_ChannelSetFX(stream1, BASS_FX_DX8_PARAMEQ, 1); //?????? ????? ???????????
fx[2] = BASS_ChannelSetFX(stream1, BASS_FX_DX8_PARAMEQ, 1);
fx[3] = BASS_ChannelSetFX(stream1, BASS_FX_DX8_PARAMEQ, 1);
fx[4] = BASS_ChannelSetFX(stream1, BASS_FX_DX8_PARAMEQ, 1);
fx[5] = BASS_ChannelSetFX(stream1, BASS_FX_DX8_PARAMEQ, 1);
fx[6] = BASS_ChannelSetFX(stream1, BASS_FX_DX8_PARAMEQ, 1);
fx[7] = BASS_ChannelSetFX(stream1, BASS_FX_DX8_PARAMEQ, 1);
fx[8] = BASS_ChannelSetFX(stream1, BASS_FX_DX8_PARAMEQ, 1);
fx[9] = BASS_ChannelSetFX(stream1, BASS_FX_DX8_PARAMEQ, 1);
fx[10] = BASS_ChannelSetFX(stream1, BASS_FX_DX8_PARAMEQ, 1);
fx[11] = BASS_ChannelSetFX(stream1,BASS_FX_DX8_REVERB,1);
BASS_DX8_REVERB pr;
int v=TrackBar13->Position;
BASS_FXGetParameters(fx[11],&pr);
pr.fReverbMix=(v<20?log(1-v/20.0)*20:-96);
BASS_FXSetParameters(fx[11],&pr);
p.fGain =15-TrackBar2->Position;
p.fBandwidth = 3;
p.fCenter = 80;
BASS_FXSetParameters(fx[1],&p);
p.fGain =15-TrackBar3->Position;
p.fBandwidth = 3;
p.fCenter = 170;
BASS_FXSetParameters(fx[2],&p);
p.fGain =15-TrackBar4->Position;
p.fBandwidth = 3;
p.fCenter = 310;
BASS_FXSetParameters(fx[3],&p);
p.fGain =15-TrackBar5->Position;
p.fBandwidth = 3;
p.fCenter = 600;
BASS_FXSetParameters(fx[4],&p);
p.fGain =15-TrackBar6->Position;
p.fBandwidth = 3;
p.fCenter = 1000;
BASS_FXSetParameters(fx[5],&p);
p.fGain =15-TrackBar7->Position;
p.fBandwidth = 3;
p.fCenter = 3000;
BASS_FXSetParameters(fx[6],&p);
p.fGain =15-TrackBar8->Position;
p.fBandwidth = 3;
p.fCenter = 6000;
BASS_FXSetParameters(fx[7],&p);
p.fGain =15-TrackBar9->Position;
p.fBandwidth = 3;
p.fCenter = 10000;
BASS_FXSetParameters(fx[8],&p);
p.fGain =15-TrackBar10->Position;
p.fBandwidth = 3;
p.fCenter = 12000;
BASS_FXSetParameters(fx[9],&p);
p.fGain =15-TrackBar11->Position;
p.fBandwidth = 3;
p.fCenter = 14000;
BASS_FXSetParameters(fx[10],&p);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i3Click(TObject *Sender)
{
if(bp)
{
bp2=!bp2;
Memo1->Lines->Add(Ev->SetEventAVA("Пауза",4));
if(bp2)
if(!bb)
BASS_ChannelPause(stream1);
else
BASS_ChannelPause(stream);
else
if(!bb)
BASS_ChannelPlay(stream1,0);
else
BASS_ChannelPlay(stream,0);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
BASS_SetConfig(BASS_CONFIG_GVOL_STREAM,TrackBar1->Position*100);
Memo1->Lines->Add(Ev->SetEventAVA("громкость",TrackBar1->Position));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i4Click(TObject *Sender)
{
if(bp)
{
Memo1->Lines->Add(Ev->SetEventAVA("Стоп",5));
if(!bb)
BASS_ChannelStop(stream1);
else
BASS_ChannelStop(stream);
bp=0;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(!bq)
ScrollBar1->Position=BASS_ChannelGetPosition(stream1,0);
if(!bb)
BASS_ChannelSetAttribute(stream1,BASS_ATTRIB_PAN, TrackBar12->Position/5);
else
BASS_ChannelSetAttribute(stream,BASS_ATTRIB_PAN, TrackBar12->Position/5);
if(!bb)
_proced(&stream1);
else
_proced(&stream);
Label2->Caption="Проц "+FloatToStrF(BASS_GetCPU(),NULL,NULL,NULL);
double it;
if(!bb)
{
it=BASS_ChannelBytes2Seconds(stream1, BASS_ChannelGetPosition(stream1, BASS_POS_BYTE));
if(bl)
Label3->Caption= FormatDateTime("h:Memo1->Lines->Add:ss",it/(24*3600));
it=BASS_ChannelBytes2Seconds(stream1,BASS_ChannelGetLength(stream1, BASS_POS_BYTE));
}
else
{
it=BASS_ChannelBytes2Seconds(stream, BASS_ChannelGetPosition(stream, BASS_POS_BYTE));
if(bl)
Label3->Caption=FormatDateTime("h:Memo1->Lines->Add:ss",it/(24*3600));
it=BASS_ChannelBytes2Seconds(stream,BASS_ChannelGetLength(stream, BASS_POS_BYTE));
}
if(bl)
Label4->Caption=FormatDateTime("h:Memo1->Lines->Add:ss",it/(24*3600));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i5Click(TObject *Sender)
{
BASS_StreamFree(stream1);
BASS_StreamFree(stream);
bb=1;
stream =BASS_StreamCreateURL("http://animeradio.su:8000", 0, BASS_SAMPLE_LOOP|floatable, NULL, 0);
Form1->Caption=BASS_ChannelGetTags(stream,BASS_TAG_HTTP);
if (!stream)
Memo1->Lines->Add(Ev->SetEventAVA("Ошибка нетрадива",-201));
else
Memo1->Lines->Add(Ev->SetEventAVA("Коннект http://animeradio.su:8000 жми на плей",201));
}
//---------------------------------------------------------------------------
void _proced(HSTREAM *hstm)
{
float H=Form1->PaintBox1->Height,W=Form1->PaintBox1->Width;
int Ypos,i,ip=2,Res=1,il=5,Width=3,Height;
short X,Y;
float Yval;
bool dp=true,fc=true;
TColor Pen=clLime,Peak=clGreen,BackColor=0x004B4B4B;
float fft[512];
Height=H-1;
X=0;
Y=0;
if(fc)
{
Form1->PaintBox1->Canvas->Pen->Color=BackColor;
Form1->PaintBox1->Canvas->Brush->Color=BackColor;
Form1->PaintBox1->Canvas->Rectangle(0,0,W,H);
}
if(BASS_ChannelIsActive(*hstm)!=BASS_ACTIVE_PLAYING)
return;
BASS_ChannelGetData(*hstm,fft,BASS_DATA_FFT1024);
Form1->PaintBox1->Canvas->Pen->Color=Pen;
for(i=0;i<=128;i++)
{
Yval=fft[i*Res+5];
if(Yval<0.0)
Yval=-Yval;
Ypos=floor(Yval*500);
if(Ypos>Height)
Ypos=Height;
if(Ypos>=a1[i])
a1[i]=Ypos;
else
a1[i]-=ip;
if(Ypos>=a2[i])
a2[i]=Ypos;
else
a2[i]-=il;
if(dp)
{
Form1->PaintBox1->Canvas->Pen->Color=Peak;
Form1->PaintBox1->Canvas->MoveTo(X+i*(Width+1),Y+H-1-a1[i]);
Form1->PaintBox1->Canvas->MoveTo(X+i*(Width+1),Y+H-1-a1[i]);
Form1->PaintBox1->Canvas->LineTo(X+i*(Width+1)+Width,Y+H-1-a1[i]);
}
Form1->PaintBox1->Canvas->Pen->Color=Pen;
Form1->PaintBox1->Canvas->Brush->Color=Pen;
Form1->PaintBox1->Canvas->Rectangle(X+i*(Width+1),Y+H-a2[i],X+i*(Width+1)+Width,Y+H);
}
}
void __fastcall TForm1::TrackBar2Change(TObject *Sender)
{
BASS_FXGetParameters(fx[1], &p);
p.fGain =15-TrackBar2->Position;
BASS_FXSetParameters(fx[1],&p);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar3Change(TObject *Sender)
{
BASS_FXGetParameters(fx[2], &p);
p.fGain =15-TrackBar3->Position;
BASS_FXSetParameters(fx[2],&p);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar4Change(TObject *Sender)
{
BASS_FXGetParameters(fx[3], &p);
p.fGain =15-TrackBar4->Position;
BASS_FXSetParameters(fx[3],&p);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar5Change(TObject *Sender)
{
BASS_FXGetParameters(fx[4], &p);
p.fGain =15-TrackBar5->Position;
BASS_FXSetParameters(fx[4],&p);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar6Change(TObject *Sender)
{
BASS_FXGetParameters(fx[5], &p);
p.fGain =15-TrackBar6->Position;
BASS_FXSetParameters(fx[5],&p);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar7Change(TObject *Sender)
{
BASS_FXGetParameters(fx[6], &p);
p.fGain =15-TrackBar7->Position;
BASS_FXSetParameters(fx[6],&p);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar8Change(TObject *Sender)
{
BASS_FXGetParameters(fx[7], &p);
p.fGain =15-TrackBar8->Position;
BASS_FXSetParameters(fx[7],&p);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar9Change(TObject *Sender)
{
BASS_FXGetParameters(fx[8], &p);
p.fGain =15-TrackBar9->Position;
BASS_FXSetParameters(fx[8],&p);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar10Change(TObject *Sender)
{
BASS_FXGetParameters(fx[9], &p);
p.fGain =15-TrackBar10->Position;
BASS_FXSetParameters(fx[9],&p);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar11Change(TObject *Sender)
{
BASS_FXGetParameters(fx[10], &p);
p.fGain =15-TrackBar11->Position;
BASS_FXSetParameters(fx[10],&p);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar1Scroll(TObject *Sender,
TScrollCode ScrollCode, int &ScrollPos)
{
bq=1;
if(!bb)
BASS_ChannelSetPosition(stream1, ScrollBar1->Position, 0);
else
BASS_ChannelSetPosition(stream, ScrollBar1->Position, 0);
bq=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
if(CheckBox1->Checked)
{
rp=0.7853981f;
if(!bb)
ro=BASS_ChannelSetDSP(stream1,&Rotate,0,2);
else
ro=BASS_ChannelSetDSP(stream,&Rotate,0,2);
}
else
if(!bb)
BASS_ChannelRemoveDSP(stream1,ro);
else
BASS_ChannelRemoveDSP(stream,ro);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{
if(CheckBox2->Checked)
{
memset(echbuf,0,sizeof(echbuf));
echpos=0;
if(!bb)
ro=BASS_ChannelSetDSP(stream1,&Echo,0,2);
else
ro=BASS_ChannelSetDSP(stream,&Echo,0,2);
}
else
if(!bb)
BASS_ChannelRemoveDSP(stream1,ro);
else
BASS_ChannelRemoveDSP(stream,ro);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox3Click(TObject *Sender)
{
if(CheckBox3->Checked)
{
memset(flabuf,0,sizeof(flabuf));
flapos=0;
flas=FLABUFLEN/2;
flasinc=0.002f;
if(!bb)
ro=BASS_ChannelSetDSP(stream1,&Flange,0,2);
else
ro=BASS_ChannelSetDSP(stream,&Flange,0,2);
}
else
if(!bb)
BASS_ChannelRemoveDSP(stream1,ro);
else
BASS_ChannelRemoveDSP(stream,ro);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrackBar13Change(TObject *Sender)
{
BASS_DX8_REVERB pr;
int v=TrackBar13->Position;
BASS_FXGetParameters(fx[11],&pr);
pr.fReverbMix=(v<20?log(1-v/20.0)*20:-96);
BASS_FXSetParameters(fx[11],&pr);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
loop[0]=ScrollBar1->Position;
ShowMessage("Авельев Владимир Анатольевич\n Пока кнопка не фунциклирует");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
loop[1]=ScrollBar1->Position;
BASS_ChannelRemoveSync(stream1,lsync);
lsync=BASS_ChannelSetSync(stream1,BASS_SYNC_POS|BASS_SYNC_MIXTIME,loop[1],LoopSyncProc,0); // set new sync
ShowMessage("Авельев Владимир Анатольевич\n Пока кнопка не фунциклирует");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
//ненужно i1->Picture->Bitmap->LoadFromResourceName((int)HInstance,"OPEN2");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i1MouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
i1->Picture->Bitmap->LoadFromResourceName((int)HInstance,"OPEN3");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
i1->Picture->Bitmap->LoadFromResourceName((int)HInstance,"OPEN1");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i2MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
//i2->Picture->Bitmap->LoadFromResourceName((int)HInstance,"PLAY2");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i2MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
i2->Picture->Bitmap->LoadFromResourceName((int)HInstance,"PLAY1");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i3MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
//i3->Picture->Bitmap->LoadFromResourceName((int)HInstance,"PA2");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i3MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
i3->Picture->Bitmap->LoadFromResourceName((int)HInstance,"PA1");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i3MouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
i3->Picture->Bitmap->LoadFromResourceName((int)HInstance,"PA3");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i2MouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
i2->Picture->Bitmap->LoadFromResourceName((int)HInstance,"PLAY3");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i4MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
//i4->Picture->Bitmap->LoadFromResourceName((int)HInstance,"ST2");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i4MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
i4->Picture->Bitmap->LoadFromResourceName((int)HInstance,"ST1");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i4MouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
i4->Picture->Bitmap->LoadFromResourceName((int)HInstance,"ST3");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i5MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
//i5->Picture->Bitmap->LoadFromResourceName((int)HInstance,"SAVE2");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i5MouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
i5->Picture->Bitmap->LoadFromResourceName((int)HInstance,"SAVE2");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::i5MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
i5->Picture->Bitmap->LoadFromResourceName((int)HInstance,"SAVE1");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1Click(TObject *Sender)
{
ShowMessage("Целый день прогу делал)))\nОшибок море эт насрать главное фунцикляция\n Авельев Владимир Анатольевич");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
//неработает пока
;//StartRecording(&stream);
Memo1->Lines->Add(Ev->SetEventAVA("запись",9));
}
