Mirsaid Aripov, Nurillo Otaxanov

12.2-listing. Animate komponetasidan foydalanish

var

Form1: TForm1;  forma

CFrame: integer;  ko`rsatilayotgan kadrning nomeri

 navbatdagi kadrga

procedure TForm1.Button2Click(Sender: TObject);

begin

if CFrame  1 then Button2.Enabled : True;

if CFrame < Animate1.FrameCount then

begin

CFrame : CFrame  1;

 kadrni chiqarish

Animate1.StartFrame : CFrame;

Animate1.StopFrame : CFrame;

Animate1.Active : True;

if CFrame  Animate1.FrameCount joriy kadr-oxirgisi

then Button2.Enabled : False;

end;

end;

 avvalgi kadrga

procedure TForm1.Button3Click(Sender: TObject);

begin

if CFrame  Animate1.FrameCount

then Button2.Enabled : True;

if CFrame > 1 then

begin

CFrame : CFrame - 1;

 kadrni chiqarish

Animate1.StartFrame : CFrame;

Animate1.StopFrame : CFrame;

Animate1.Active : True;

if CFrame  1  joriy kadr - birinchisi

then Form1.Button3.Enabled : False;

end;

end;

 animatsiyani to`la ko`rish rejimini faollashtirish

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Button1.Enabled : True;  Boshlash tugmasi ishlaydi

 Kadrlar tugmasini o`chirib qo`yish

Form1.Button3.Enabled : False;

Form1.Button2.Enabled : False;

end;

 kadrlar bo`yicha ko`rish rejimini faollashtirish

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

Button2.Enabled:True; Navbvtdagi kadr tugmasi ishlaydi

Button3.Enabled:False; Avvaligi kadr tugmasi ishlamaydi

 Boshlash tugmasini o`chirib qo`yish

Button1.Enabled : False;

end;

 animatsiyalar ko`rishni boshlash va to`xtatish

procedure TForm1.Button1Click(Sender: TObject);

begin

if Animate1.ActiveFalse bu vaqtda animatsiya ko`rsatilmaydi

then begin

Animate1.StartFrame : 1;  birinchidan boshlab chiqarish

Animate1.StopFrame:Animate1.FrameCount;  oxirigacha

Animate1.Active : True;

Button1.caption : 'To`xtatish';

RadioButton2.Enabled : False;

end

else  animatsiya ko`rsatilmoqda

begin

Animate1.Active : False;  ko`rsatishni to`xtatish

Button1.caption : 'Boshlash';

RadioButton2.Enabled : True;

end;

end;

Animate komponetasi dasturchiga dasturda Windows dagi standart animatsiyalardan foydalanishga imkon beradi. Animatsiyalar ko`rinishi CommonAVI hususiyati qiymatlari bilan belgilanadi. Bu qiymatlarning ayrimlari 12.3-jadvalda keltirilgan.

ComonAVI hususiyatining ayrim qiymatlari 12.3-jadval.