Текст основного модуля из архива

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, OleCtrls, ShockwaveFlashObjects_TLB; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; ShockwaveFlash1: TShockwaveFlash; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; SpinEdit1: TSpinEdit; OpenDialog1: TOpenDialog; Button8: TButton; procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } procedure ShowCurFrame(); // показать номер текущего фрейма public { Public declarations } end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ShowCurFrame(); // показать номер текущего фрейма begin Label2.Caption := IntToStr(ShockwaveFlash1.CurrentFrame()); // номер текущего фрейма Label2.Visible := true; end;

procedure TForm1.Button2Click(Sender: TObject); begin ShockwaveFlash1.Stop(); ShowCurFrame(); end;

procedure TForm1.Button3Click(Sender: TObject); begin ShockwaveFlash1.Play(); Label2.Visible := false; end;

procedure TForm1.Button4Click(Sender: TObject); begin if ShockwaveFlash1.IsPlaying() then ShockwaveFlash1.Stop(); // если проигрывается, то остановим ShockwaveFlash1.Back(); // на предыдущий фрейм ShowCurFrame(); end;

procedure TForm1.Button5Click(Sender: TObject); begin if ShockwaveFlash1.IsPlaying() then ShockwaveFlash1.Stop(); // если проигрывается, то остановим ShockwaveFlash1.Forward(); // на следующий фрейм ShowCurFrame(); end;

procedure TForm1.Button6Click(Sender: TObject); begin if ShockwaveFlash1.IsPlaying() then ShockwaveFlash1.Stop(); // если проигрывается, то остановим ShockwaveFlash1.Rewind(); // на 1-й фрейм ShowCurFrame(); end;

procedure TForm1.Button7Click(Sender: TObject); begin ShockwaveFlash1.GotoFrame(StrToInt(SpinEdit1.Text)); // на введенный фрейм ShowCurFrame(); end;

procedure TForm1.Button8Click(Sender: TObject); begin if OpenDialog1.Execute() then begin if (ShockwaveFlash1.IsPlaying()) then ShockwaveFlash1.Stop(); // если проигрывается, то остановим ShockwaveFlash1.Movie := OpenDialog1.FileName; Label4.Caption := IntToStr(ShockwaveFlash1.TotalFrames); // Общее число фреймов ShockwaveFlash1.Play(); Label2.Visible := false; end

end;

procedure TForm1.FormCreate(Sender: TObject); begin ShockwaveFlash1.Movie := ExtractFilePath(Application.ExeName) + 'ball.swf'; Label4.Caption := IntToStr(ShockwaveFlash1.TotalFrames); // Общее число фреймов end; end.

Содержание раздела

---