Mundarija I. Delphi dasturi haqida delphi grafik imkoniyatlari chizish sohasi grafik primitivlarni chizish usullari chiziq Tutashgan chiziq 10 var 10 Ko‘pburchak 11 var 12 Nuqta 12 Grafik dasturni ishga tushirish uchun foydalaniladigan


procedure TForm1.Button1Click(Sender: TObject); var



Download 128,99 Kb.
bet4/6
Sana23.04.2022
Hajmi128,99 Kb.
#577769
1   2   3   4   5   6
Bog'liq
“Axborot tizimlari va texnologiyalari” kafedrasi

procedure TForm1.Button1Click(Sender: TObject); var
r1, r2: TRect;
begin
r1 := Rect(20,20,60,40);
r2 := Rect(10,10,40,50);
with form1.Canvas do begin
Brush.Color := clRed;
FillRect(r1);
Brush.Color := clGreen;
FrameRect(r2};
end;
end;
Ko‘pburchak
Polygon usuli ko‘pburchak chizishga mo‘ljallangan bo‘lib, parametri TPoint tipidagi massivdir. Massivning har bir elementi (x,y) maydonlari ko‘pburchak uchi koordinatalaridan iborat bo‘lgan yozuvdir.
Quyida polygon usuli yordamida uchburchak chizish protsedurasi keltirilgan:
procedure TForm1.Button2Click(Sender: TObject);
var
pol: array[1..3] of TPoint;
begin
pol[1].x := 10;
pol[1].y := 50;
pol[2].x := 40;
pol[2].y := 10;
pol[3].x := 70;
pol[3].u := 50;
Form1.Canvas.Polygon(pol);
end;
Sektor
Ellips yoki aylana sektori pie usuli bilan chizilib, chaqirish instruksiyasi quyidagi umumiy ko‘rinishga ega:
Ob’ekt. Canvas.Pie(x1,y1,x2,y2,x3,y3,x4,y4)
Bu yerda:

  • x1, y1, x2, y2 - ellips yoki aylana parametrlari;

  • x3, u3, x4, y4 - sektor chegarasini tashkil qiluvchi to’g’ri chiziqlar oxirgi

nuqtalari koordinatalari.
Nuqta
Canvas ob’ektining pixels xossasi tipidagi ikki o‘lchovli massiv bo‘lib har bir soha nuqtasining rangi haqidagi ma’lumotni o‘z ichiga oladi. Pixels xossasidan foydalanib ixtiyoriy nuqta rangini o‘zgartirish, ya’ni nuqta chizish mumkin. Misol uchun
Form1.Canvas.Pixels[10,10]:=clRed Instruksiyasi soha nuqtasini qizil ranga bo‘yaydi.
Quyida keltirilgan dastur pixels xossasidan foydalanib, u = 2 sin(jc) e*/5 funksiyasi grafigini chiqaradi.

Download 128,99 Kb.

Do'stlaringiz bilan baham:
1   2   3   4   5   6




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish