|
O‘zbekiston respublikasi oliy ta’lim, fan va innovatsiyalar vazirligi navoiy davlat pedagogika instituti
|
| bet | 41/178 | | Sana | 13.05.2024 | | Hajmi | 14,73 Mb. | | #230019 |
Bog'liq Darslik 01.05.2023stCircle – aylana;
stEllipse – ellips;
stRectangle – to‘g‘ri to‘rtburchak;
stRoundRect – burchaklari yoysimon to‘g‘ri to‘rtburchak;
stRoundSquare - burchaklari yoysimon kvadrat;
stSquare – kvadrat.
Hosil qilingan geometrik shakllar o‘lchamlari Height va Width xususiyatlari orqali o‘zgartiriladi. Geometrik shakllarning ichki fon rangini tahrirlash uchun Brush xususiyatidan foydalaniladi. Brush xususiyati tarkibida ikkita bo‘lim mavjud. Bular: Color – fon rangi; Style – bo‘yash usuli.
Shakllarning chizig‘ini tahrirlash uchun esa Pen xususiyatidan foydalaniladi. Pen xususiyati tarkibida to‘rtta bo‘lim mavjud:
Komponenta xususiyatlarini dinamik ravishda ham o‘zgartirish mumkin. Masalan, fon rangini o‘zgartirish uchun joriy tugma yoki loyiha oynasining dasturlash maydoniga quyidagi dastur kodi yoziladi:
Shape1.Brush.Color:=clRed;
1-misol. A butun son berilgan. Tomonlari mos ravishda A ga teng bo‘lgan kvadrat tasvirini hosil qilish. Kvadratning fon rangini ko‘k, chiziq rangini yashil holatga keltirish va yuzasini hisoblash dasturi.
Ushbu qo‘yilgan masalani yechish uchun loyiha oynasiga Standart komponentalar palitrasidan Button1, Edit1, Label1 va Additional komponentalar palitrasidan Shape1 tugmalari joylashtiriladi. Shape1 tugmasining Object Inspectorida balandligi (Height) va eni (Width)ni bir pikselga tenglashtiriladi. Ushbu amallar ketma-ketligi bajarilgandan so‘ng, Button tugmasining dasturlash maydoniga quyidagi dastur kodi kiritiladi:
var a,s:integer;
begin
a:=StrToInt(Edit1.Text);
Shape1.Shape:=stRectangle;
Shape1.Height:=a;
Shape1.Width:=a;
Shape1.Brush.Color:=clBlue;
Shape1.Pen.Color:=clGreen;
s:=a*a;
Label1.Caption:=‘S = ‘+IntToStr(s);
end;
Hosil qilingan loyiha oynasi kompyuter xotirasiga saqlanadi va F9 tugmasi yordamida ishchi holatga o‘tkaziladi:
1.4.43-rasm.
|
| |
