Народ, помогите мне, у меня проблема,
задали в универе зделать медиа Плейер, почти его зделал, но вот надо зделать :
1) регулятор звука
ScrollBar'om
2) и по возможности Регулятор Трека
ScrollBar'om и (
ProgressBar'om или CGauge)
Программлю на С++ Builder 6
вот код проги:
Код:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvGlowButton"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
void__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{
MediaPlayer1->FileName=OpenDialog1->FileName;
MediaPlayer1->Open();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
MediaPlayer1->Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{
MediaPlayer1->FileName=OpenDialog1->FileName;
MediaPlayer1->Open();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Open1Click(TObject *Sender)
{
mciSendString ( "Set cdaudio door open wait", NULL, 0, NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Close2Click(TObject *Sender)
{
mciSendString ( "Set cdaudio door closed wait",NULL,0,NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AdvGlowButton1Click(TObject *Sender)
{
mciSendString ( "Set cdaudio door open wait", NULL, 0, NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AdvGlowButton2Click(TObject *Sender)
{
mciSendString ( "Set cdaudio door closed wait",NULL,0,NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AdvGlowButton3Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{
MediaPlayer1->FileName=OpenDialog1->FileName;
MediaPlayer1->Open();
}
}
//---------------------------------------------------------------------------