Компилятор у меня Borland builder 6, проигрыватель из группы компонентов System.
При программировании всех кнопок кнопки Next и Previous почему-то дублируют кнопку Play. Почему? Ведь это разные кнопки?
Если оставить "пуск", "паузу" и "стоп" по умолчанию (не программировать), а программировать только Next и Prev, то "пуск" вообще не работает, а воспроизведение включается кнопкой Next - то есть дублируется. Почему всё это? Почему кнопки не автономны?
Вот код:
| C++ |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
| //---------------------------------------------------------------------------
#include <vcl.h>
#include<stdio.h>
#include<iostream.h>
#include<conio.h>
#include <Windows.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int main();
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
int z;
OpenDialog1->Execute();
MediaPlayer1->FileName = OpenDialog1->FileName;
MediaPlayer1->Open();
ListBox1->Items->AddStrings(OpenDialog1->Files);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
MediaPlayer1->FileName = ListBox1->Items->Strings[ListBox1->ItemIndex];
MediaPlayer1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
ListBox1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel1Click(TObject *Sender)
{
MediaPlayer1->DisplayRect = Rect(0,0,497,297);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MediaPlayer1Click(TObject *Sender,
TMPBtnType Button, bool &DoDefault)
{
DoDefault = false;
switch(Button)
{
case ::btPlay:
MediaPlayer1->Play();
break;
case ::btPause:
MediaPlayer1->Pause();
break;
case ::btStop:
MediaPlayer1->Stop();
break;
case btStep:
MediaPlayer1->Position = MediaPlayer1->Position + 25000;
MediaPlayer1->Step();
MediaPlayer1->Play();
break;
case btBack:
MediaPlayer1->Position = MediaPlayer1->Position - 25000;
MediaPlayer1->Back();
MediaPlayer1->Play();
break;
case Comctrls::btNext:
MediaPlayer1->Next();
break;
case Comctrls::btPrev:
MediaPlayer1->Previous();
break;
}
}
//--------------------------------------------------------------------------- |
|
(
