Просмотр анимации

программасының формасы

Келесі программа Animate компонентінің қолдануына мысал келтірілген:

Animate1 компонентінің қасиеттері

unit ShowAVI_;

Interface

Uses

Windows, Messages, SysUtils,

Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;

Type

TForm1 = class(TForm)

Animate1: TAnimate;

// Animate компоненті

Button1: TButton; // Пуск-Стоп батырмасы

Button2: TButton; // келесі кадр

Button3: TButton; // алдыңғы кадр

RadioButton1: TRadioButton;

// барлық анимацияны қарап шығу

RadioButton2: TRadioButton;

// әр кадр бойынша қарап шығу

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations)

End;

var Form1: TForm1; // форма

CFrame: integer;

implementation {$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);

Begin

if CFrame = 1 then

Button2.Enabled:= True;

if CFrame < Animate1.FrameCount then begin

CFrame:= CFrame + 1;

Animate1.StartFrame:= CFrame;

Animate1.StopFrame:= CFrame;

Animate1.Active:= True;

if CFrame = Animatel.FrameCount

then Button2.Enabled:=False;

End;

End;

procedure TForm1.Button3Click(Sender: TObject);

Begin

if CFrame = Animate1.FrameCount

then Button2.Enabled:= True;

if CFrame > 1 then begin

CFrame:= CFrame — 1;

Animate1.StartFrame:= CFrame;

Animate1.StopFrame:= CFrame;

Animate1.Active:= True;

if CFrame = 1 // текущий кадр — первый

then Form1.Button3.Enabled:= False;

End;

End;

procedure TForml.RadioButtonlClick(Sender: TObject);

Begin

Buttonl.Enabled:=True;

Form1.Button3.Enabled:=False;

Form1.Button2.Enabled:=False;

End;

procedure TForm1.RadioButton2Click(Sender:TObject);

Begin

Button2.Enabled:=True;

Buttons.Enabled:=False

Buttonl.Enabled:=False; end;

procedure TForm1.ButtonlClick(Sender: TObject);

Begin

if Animate1.Active = False