glPopMatrix ();

glEndList();

}

GLvoid TForm2::initializeGL(GLsizei width, GLsizei height)

{

GLfloat maxObjectSize, aspect;

GLdouble near_plane;

glClearIndex( (GLfloat)BLACK_INDEX);

glClearDepth( 1.0 );

glEnable(GL_DEPTH_TEST);

glMatrixMode( GL_PROJECTION );

aspect = (GLfloat) width / height;

gluPerspective( 45.0, aspect, 3.0, 7.0 );

glMatrixMode( GL_MODELVIEW );

near_plane = 3.0;

maxObjectSize = 3.0F;

radius = near_plane + maxObjectSize/2.0;

latitude = 0.0F;

longitude = 0.0F;

latinc = 6.0F;

longinc = 2.5F;

createObjects();

}

void TForm2::polarView(GLdouble radius, GLdouble twist, GLdouble latitude,

GLdouble longitude)

{

glTranslated(0.0, 0.0, -radius);

glRotated(-twist, 0.0, 0.0, 1.0);

glRotated(-latitude, 1.0, 0.0, 0.0);

glRotated(longitude, 0.0, 0.0, 1.0);

}

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)

{

/* Timer1->Enabled = false;

*/

if (ghRC)

wglDeleteContext(ghRC);

if (ghDC)

ReleaseDC(Handle, ghDC);

MediaPlayer1->Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::FormCreate(TObject *Sender)

{

ghDC = GetDC(Handle);

if (!bSetupPixelFormat(ghDC))

Close();

ghRC = wglCreateContext(ghDC);

wglMakeCurrent(ghDC, ghRC);

initializeGL(ClientRect.Right, ClientRect.Bottom);

MediaPlayer1->Open();

MediaPlayer1->Play();

ProgressBar1->Position = 0;

}

//---------------------------------------------------------------------------

void __fastcall TForm2::FormKeyDown(TObject *Sender, WORD &Key,

TShiftState Shift)

{

MediaPlayer1->Close();

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::FormResize(TObject *Sender)

{

resize(ClientRect.Right, ClientRect.Bottom);

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Timer2Timer(TObject *Sender)

{

ProgressBar1->Position++;

}

//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

//---------------------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

int step=0;

TForm3::nextstep(){

switch(step){

case 0:

deltatime(300);

break;

case 1:

MediaPlayer1->FileName = "data\\765888.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 2:

deltatime(1000);

break;

case 3:

Shape3->Visible=true;

deltatime(300);

break;

case 4:

MediaPlayer1->FileName = "data\\9564334.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 5:

Label1->Visible = false;

Label2->Visible = false;

Label3->Visible = false;

Label4->Visible = false;

Label5->Visible = false;

Label6->Visible = false;

Label7->Visible = false;

Label8->Visible = false;

Label9->Visible = false;

Label13->Visible = false;

Shape3->Visible=false;

/* Label10->Visible = false;

Label11->Visible = false;

Label12->Visible = false;

Label14->Visible = false;

Label15->Visible = false;

Label16->Visible = false;*/

Label10->Visible = true;

Label11->Visible = true;

Label12->Visible = true;

Label14->Visible = true;

deltatime(300);

break;

case 6:

MediaPlayer1->FileName = "data\\533677.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 7:

deltatime(400);

break;

case 8:

Label1->Visible = true;

Label2->Visible = true;

Label3->Visible = true;

Label4->Visible = true;

Label5->Visible = true;

Label6->Visible = true;

Label7->Visible = true;

Label8->Visible = true;

Label9->Visible = true;

Label13->Visible = true;

Label10->Visible = false;

Label11->Visible = false;

Label12->Visible = false;

Label14->Visible = false;

deltatime(300);

break;

case 9:

Shape2->Visible=true;

deltatime(300);

break;

case 10:

MediaPlayer1->FileName = "data\\822567.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 11:

deltatime(400);

break;

case 12:

Shape2->Visible=false;

deltatime(300);

break;

case 13:

MediaPlayer1->FileName = "data\\6345676.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 14:

deltatime(400);

break;

case 15:

Label1->Visible = false;

Label3->Visible = false;

Label4->Visible = false;

Label5->Visible = false;

Label8->Visible = false;

Label9->Visible = false;

Label13->Visible = false;

deltatime(300);

break;

case 16:

MediaPlayer1->FileName = "data\\123423.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 17:

deltatime(300);

break;

case 18:

Label1->Visible = true;

Label2->Visible = true;

Label3->Visible = true;

Label4->Visible = true;

Label5->Visible = true;

Label6->Visible = true;

Label7->Visible = true;

Label8->Visible = true;

Label9->Visible = true;

Label13->Visible = true;

Label10->Visible = false;

Label11->Visible = false;

Label12->Visible = false;

Label14->Visible = false;

deltatime(300);

break;

case 19:

MediaPlayer1->FileName = "data\\908976.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 20:

deltatime(300);

break;

case 21:

Label2->Visible = false;

Label4->Visible = false;

Label6->Visible = false;

Label7->Visible = false;

Label8->Visible = false;

Label9->Visible = false;

deltatime(300);

break;

case 22:

MediaPlayer1->FileName = "data\\444555.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 23:

deltatime(300);

break;

case 24:

Label1->Visible = true;

Label2->Visible = true;

Label3->Visible = true;

Label4->Visible = true;

Label5->Visible = true;

Label6->Visible = true;

Label7->Visible = true;

Label8->Visible = true;

Label9->Visible = true;

Label13->Visible = true;

Label10->Visible = false;

Label11->Visible = false;

Label12->Visible = false;

Label14->Visible = false;

deltatime(1500);

break;

case 25:

Label1->Visible = false;

Label2->Visible = false;

Label3->Visible = false;

Label5->Visible = false;

Label6->Visible = false;

Label7->Visible = false;

Label8->Visible = false;

Label9->Visible = false;

Label13->Visible = false;

deltatime(300);

break;

case 26:

MediaPlayer1->FileName = "data\\444777.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 27:

deltatime(300);

break;

case 28:

MediaPlayer1->FileName = "data\\8349244.avi";

MediaPlayer1->Open();

MediaPlayer1->Play();

Label4->Visible = false;

break;

case 29:

Close();

break;

}

}

TForm3::deltatime(int delta){

Timer1->Interval = delta;

Timer1->Enabled = true;

}

void __fastcall TForm3::FormActivate(TObject *Sender)

{

Label1->Visible = true;

Label2->Visible = true;

Label3->Visible = true;

Label4->Visible = true;

Label5->Visible = true;

Label6->Visible = true;

Label7->Visible = true;

Label8->Visible = true;

Label9->Visible = true;

Label13->Visible = true;

Label10->Visible = false;

Label11->Visible = false;

Label12->Visible = false;

Label14->Visible = false;

step=0;

nextstep();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Timer1Timer(TObject *Sender)

{

Timer1->Enabled = false;

step++;

nextstep();

}

//---------------------------------------------------------------------------

Страницы: 1, 2, 3, 4