• Brush
  • Style
  • Shape1.Brush.Color:=clRed; 1-misol.
  • Standart
  • O‘zbekiston respublikasi oliy ta’lim, fan va innovatsiyalar vazirligi navoiy davlat pedagogika instituti




    Download 14,73 Mb.
    bet41/178
    Sana13.05.2024
    Hajmi14,73 Mb.
    #230019
    1   ...   37   38   39   40   41   42   43   44   ...   178
    Bog'liq
    Darslik 01.05.2023

    stCircle – 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:

    • Color – chiziq rangi;

    • Mode – chiziq chizilish tartibi;

    • Style – chiziq turi;

    • Width – chiziq qalinligi.

    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.

    Download 14,73 Mb.
  • 1   ...   37   38   39   40   41   42   43   44   ...   178




    Download 14,73 Mb.

    Bosh sahifa
    Aloqalar

        Bosh sahifa



    O‘zbekiston respublikasi oliy ta’lim, fan va innovatsiyalar vazirligi navoiy davlat pedagogika instituti

    Download 14,73 Mb.