Delphi tilida

Multiplikatsiya 

Multiplikatsiya deyilganda harakatlanuvchi rasm tushuniladi. 
Rasmni harakatlantirish uchun awal u ekranga chiziladi, ma’lum 
vaqtdan so‘ng rasmni o‘chirib yangi joyga chiziladi. 

-ipi *i 

Harakatlanuvchi aylana dasturining matni: 
Unit Unitl; 
interface 
uses 

129 

{ Private declarations } 
public 
{ Public declarations } 
end; 
Procedure Ris; 
Var 
Forml: TForml; 
x,y: byte; 
implementation 
{$R *.dfm} 
Procedure Ris; 
Begin 
form1.Canvas.Pen. Color:=form1. Color; 
forml.Canvas.Ellipse(x,y,x+10,y+10); 
x:=x+5; 
form1. Canvas. Pen. Color:=clBlack; 
forml.Canvas.Ellipse(x,y, x+10, y+10) ; 
end; 
Procedure TForml.FormActivate(Sender: TObject); 
Begin 
x:=0; 
y:=10; 
timerl.Interval:=50; 
end; 
Procedure TForml.TimerlTimer(Sender: TObject); 
Begin 
Ris; 
end; 
end. 

130 

5.2.Grafik komponentalar 

Shape komponentasi ham Additional palitrasida joylashgan bo‘lib, 

u *:■_ko‘rinishdagi piktogrammaga ega. Butugmachanibosib, formadan 
shakl uchun joy ajratiladi va keyin esa xossalar bolimidan Shape 
xossasiga kirilib, kerakli shakl tanlanadi. 
PaintBox komponentasi formaga chegaralangan maydonda 
shakllami chizish imkonini beradi. 
PaintBox komponentasi System palitrasida joylashgan bo‘lib, u 
+ ko‘rinishdagi piktogrammaga ega. Butugmachanibosib, formadan 
shakl uchun joy ajratiladi va keyin esa xossalar bolimidan Shape 
xossasiga kirilib, kerakli shakl tanlanadi. 

131 

olib kelib qo‘yiladi. 
U quyidagi xossalarga ega: 
Enabled —true qiymati o‘rnatilgan bo‘lsa u boladigan jarayonga 
ta’sir qiladi; 
Interval —millisekundlarda vaqt intervalini aniqlaydi va jarayonning 
ekranga chiqishiga ta’sir ko'rsatadi. Tegmagan holda 1000 (1 sekund)ni 
ko‘rsatadi.