Delphi tilida

Jarayon 

aviCopyFiles 
AviDeleteFile 
Fayldan nusxa olish 
Faylni o‘chirish 

aviRecycleFile 
Faylni korzinaga o‘chirish 

Quyidagi dastur Animate komponentasidan foydalanishga misol 

boladi. Dastur formasining ko‘rinishi Animatel komponentasi xossalari
qiymatlari jadvalida berilgan. 

138 

Svodka bo‘limida AVI-fayli haqida ma’lumot aks etadi. 
Animatsiya qurish dasturining formasi. 

i------m--------* 

r 

r kw * 

mmwi | 

m 


' 

Xossa  
FileName 

Active 
Transparent 

AVIS\SEARCH.AVI 

Buttonl tugmasi animatsiyani ko‘rishjarayonini initsializatsiya qilish
yoki to‘xtatib turish uchun ishlatiladi. Animatsiyaning uzluksiz aks 
etishi Pusk tugmasining Onclick hodisasini qayta ishlash protse-durasida 
Active xossasiga True qiymatini berish orqali initsializatsiya qilinadi. 
Bu protsedura Buttonl tugmasidagi Pusk so‘zini Stop so‘ziga 
almashtiradi. Animatsiyani ko'rish rejimi RadioButtonl va 
RadioButton 2 tugmalari orqali tanlanadi. 
Animatsiyani ko‘rish dasturining matni: 
Unit Unitl; 
Interface 
Uses 

139 

Windows, Messages, SysUtils, 
Classes, Graphics, Controls, 
Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls; 
Type 
TForml = class(TForm) 
Animatel: TAnimate; 
Buttonl: TButton; 
Button2: TButton; 
Button3: TButton; 
RadioButtonl: TRadioButton; 
RadioButton2: TRadioButton; 
procedure ButtonlClick(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure Button3Click(Sender: TObject); 
procedure RadioButtonlClick(Sender: TObject); 
procedure RadioButton2Click(Sender: TObject); 
private 
{ Private declarations } public 
{ Public declarations } 
end; 
Var 
Forml: TForml; 
CFrame: Integer; 
implementation {$R *.DFM} 
Procedure TForml.Button2Click(Sender: TObject); 
Begin 
If CFrame = 1 then Button2.Enabled := True; 
If CFrame < Animatel.FrameCount then begin 
CFrame := CFrame + 1; 
Animatel.StartFrame := CFrame; 
Animatel.StopFrame := CFrame; 
Animatel.Active := True; 
if CFrame = Animatel.FrameCount 
then Button2.Enabled:=False; 
end; 
end; 
Procedure TForml.Button3Click(Sender: TObject); 
Begin 
if CFrame = Animatel.FrameCount 
then Button2.Enabled := True; 

140 

if CFrame > 1 then begin 
CFrame := CFrame - 1; 
Animatel.StartFrame := CFrame; 
Animatel.StopFrame := CFrame; 
Animatel.Active := True; 
if CFrame = 1 
then Forml.Button3.Enabled := False;