Mavzuning dolzarbligi i-bob. Asosiy tushunchalar



Yüklə 61,83 Kb.
səhifə12/19
tarix20.02.2023
ölçüsü61,83 Kb.
#85108
1   ...   8   9   10   11   12   13   14   15   ...   19
Dildora.kurs ishi.nortura.domla

Harakatlanuvchi aylana dasturining formasi.
Harakatlanuvchi aylana dasturining matni:
Unit Unitl; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls; Type
TForml = class(TForm) Timerl: TTimer;
procedure FormActivate(Sender: TObject); procedure TimerlTimer(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
Procedure Ris; Var
Forml: TForml; x,y: byte;
implementation
{$R *.dfm}


Procedure Ris;
Begin form1. Canvas.Pen. Color:=form 1. 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.

Grafik komponentalar
Image komponentasi formaga rasmlarni joylashtirish uchun ishlatiladi. Joylashtirilishi lozim bo'lgan rasmlar bitli fayllar (kengaytmalari .Bmp), piktogrammali (kengaytmalari .Ico), metafayllar (kengaytmalari .wmf) bo’lishi kerak.
Image komponentasi Additional palitrasida joylashgan bo‘lib, u ko‘rinishdagi piktogrammaga ega. Bu tugmachani bosib formadan rasm uchun joy ajratiladi va keyin esa xossalar bo’limidan Picture xossasi tanlanib, u yerdan uch nuqtali tugmacha bosiladi. Natijada ekranda rasmni aniqlash va joylash uchun muloqot darchasi ochiladi.
Muloqot darchasi quyidagi tugmachalarga ega:

Yüklə 61,83 Kb.

Dostları ilə paylaş:
1   ...   8   9   10   11   12   13   14   15   ...   19




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azkurs.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin