linkedin facebook linkedin facebook nod32

Delphida animate komponentasi

Muallif: Mengliyev SH.

Qo`shilgan sana: 2014-09-12

Delphida animate komponentasi


Animate komponentasi belgisi, Win32  qatorda joylashgan bo‘lib, kadrlari AVI-faylda joylashgan sodda animatsiya ko‘rishga imkon beradi.
AVI-fayldagi animatsiya tovushli bo‘lishi mumkin bo‘lsa ham Animate komponentasi faqat tasvirni aks ettirishga imkon beradi.
Animate komponentasi formaga oddiy usulda ko‘shiladi. Komponenta  formaga qo‘shilgandan so‘ng uning xossalaprini o‘rnatish lozim. Animate xossalari  jadvalda keltirilgan:

Animate komponentasi xossalari.

Xossa

Ta’rifi

Name

Komponenta nomi.

FileName

Animatsiya joylashgan AVI-fayl nomi

StartFrame

Animatsiyani birinchi kadri nomeri

stopFrame

Animatsiya oxirgi kadri nomeri

Activate

Animatsiyani aks ettirish jaraenini aktivlashtirish belgisi

Color

Komponenta foni rangi

Transparent

Animatsiya aks ettirishda shaffof rangdan foydalanish rejimi

Repetitions

Animatsiyani qaytarish soni

Agar FileName xossasiga tovushli fayl nomi yozilsa, Delphi faylni ochish mumkin emasligi haqida ma’lumot chiqaradi (Cannot open AVI). AVI-faylda animatsiya va tovush yoki faqat animatsiya yozilganligini aniqlash uchun Windowsda kerakli papkani ochib, AVI-faylni belgilash va kontekstli menyudan Svoystva komandasini tanlash lozim. Natijada Svoystva, oynasi ochilib, Svodka  qatorida fayl haqida to‘liq ma’lumot beriladi.
Animate komponentasi dasturchiga Windows standart animatsiyasidan foydalanishga imkon beradi. Animatsiya turi SommonAVI xossasi qiymati bilan belgilanadi. Xossa qiymati nomlangan konstantalar orqali beriladi. Quyidagi jadvalda konstantalar qiymatlari, animatsiya turi, jarayon ta’rifi berilgan.
comonAVI xossasi qiymatlari.

Qiymat

Animatsiya

Jarayon

aviCopyFiles

 Fayldan  nusxa olish

AviDeleteFile

 Faylni o‘chirish

aviRecycleFile

 Fayli korzinaga o‘chirish

Quyidagi dastur, Animate komponentasidan foydalanishga misol bo‘ladi. Dastur formasi ko‘rinishi rasmda, Animatel komponentasi xossalari qiymatlari jadvalda berilgan

Svodka bo‘limida AVI-fayl haqida ma’lumot aks etadi.

Animatsiya qurish dasturi formasi

Animate1 xossalari qiymatlari

Xossa

Qiymat

FileName

D:\music\ms\COMMON\GRAPHICS\AVIS\SEARCH.AVI

Active

False

Transparent

True

Dastur ishga tushirilgandan so‘ng formaga birinchi animatsiya kadri chiqariladi. Dastur animatsiyani ko‘rishning ikki rejimini ta’minlaydi:

  • uzluksiz;
  • kadrli.

Button1 tugmasi animatsiyani kurish jarayonini initsializatsiya qilish yoki tuxtatib turish uchun ishlatiladi. Animatsiyani uzluksiz aks etishi Pusk tugmasining Onclick hodisasini qayta ishlash protsedurasida Active xossasiga True kiymatini berish orqali initsializatsiya qilinadi. Bu protsedura Button1 tugmasidagi  Pusk so‘zini Stop so‘ziga almashtiradi. Animatsiyani ko‘rish rejimi RadioButton1 va RadioButton2 tugmalari orqali tanlanadi.

 

Animatsiya ko‘rish  dasturi matni
unit Unit1;

interface

uses
Windows, Messages, SysUtils,
Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Animate1: TAnimate;
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 = Animate1.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 TForm1.RadioButton1Click(Sender: TObject);
begin
Button1.Enabled:=True;
Button3.Enabled:=False ;
Button2.Enabled:=False;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Button2.Enabled:=True;
Button3.Enabled:=False;
Button1.Enabled:=False; end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Animate1.Active = False
then begin
Animate1.StartFrame:=1;
Animate1.StopFrame:=Animate1.FrameCount;
Animate1.Active:=True;
Button1.caption:='Tuxtash';
RadioButton2.Enabled:=False;
end
else
begin
Animate1.Active:=False;
Button1.caption:='Boshlash';
RadioButton2.Enabled:=True;
end;
end;
end.

1830 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений