quickstartdemo_.cpp

toi co the nghe nhac bang choung trinh nay phgan 2

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "QuickStartDemo_.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AMovie"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
//---------------------------------------------------------------------------
{
}


//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
//---------------------------------------------------------------------------
{
   CheckBox1->Checked = ActiveMovie1->FullScreenMode;
   CheckBox2->Checked = ActiveMovie1->ShowControls;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
//---------------------------------------------------------------------------
{
   OpenDialog1->Filter = "video clips";
   OpenDialog1->FileName = "*.mpg;*.mpeg;*.avi;*.wav;*.mp3;*.asf;*.wmv";
   if (OpenDialog1->Execute()) {
      Edit1->Text = OpenDialog1->FileName;
      ActiveMovie1->FileName = Edit1->Text;
      ActiveMovie1->Open();
   }
}

//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
//---------------------------------------------------------------------------
{
   ActiveMovie1->FullScreenMode = CheckBox1->Checked;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox2Click(TObject *Sender)
//---------------------------------------------------------------------------
{
   ActiveMovie1->ShowControls = CheckBox2->Checked;
   CheckBox2->Checked = ActiveMovie1->ShowControls; // loopback if ShowControls rejected
}