Mavzuning dolzarbligi i-bob. Asosiy tushunchalar


procedure TForml.Button2Click(Sender: TObject); var



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

procedure TForml.Button2Click(Sender: TObject);
var
pol: array[1..3] of TPoint;
begin
pol[l].x := 10;
polfl].y := 50;
pol[2].x := 40;
pol[2].y := 10;
pol[3].x := 70;
pol[3].y := 50;
Form l .Canvas.Polygon(pol);
end;

Sektor
Ellips yoki aylana sektori pie usuli bilan chizilib, chaqirish instruksiyasi quyidagi umumiy ko‘rinishga ega:
Object. Canvas.Pie(xl,yl,x2,y2,x3,y3,x4,y4)
Bu yerda:
• x 1, y 1, x 2, y 2 — ellips yoki aylana parametrlari;
• x 3, y 3, x 4, y 4 — sektor chegarasini tashkil qiluvchi to‘g‘ri chiziqlar, oxirgi nuqtalar koordinatalari.

Nuqta
Canvas obyektining pixels xossasi tipidagi ikki olchovli 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:
Form 1.Canvas.Pixels [10,10]:=clRed
Instruksiyasi soha nuqtasini qizil rangga bo‘yaydi.
Q uyida k e ltirilg an d astu r pixels xossasidan foydalanib, y = 2- Sinx • e |- funksiyasi grafigini chiqaradi.

Unit Unitl; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogos, StdCtrls;
Type
TForml = class(TForm) Buttonl: TButton;
procedure ButtonlClick(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
Var
Forml: TForml; implementation
{$R *.dfm}
Function f(x:real):real; Begin f:=2*Sin(x)*exp(x/5) ; end;
Procedure GrOfFunc;

Yüklə 61,83 Kb.

Dostları ilə paylaş:
1   ...   6   7   8   9   10   11   12   13   ...   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