Дістемелік кешені



бет37/43
Дата07.01.2022
өлшемі1,39 Mb.
#17102
түріПрограмма
1   ...   33   34   35   36   37   38   39   40   ...   43
Байланысты:
UMKD Obektige ba 1171 yttal 1171 an programmalau 2014 KAZ (1)

Лабораториялық жұмыс №7
RadioGroup, CheckListBox компоненттерін пайдаланып программа құру Тапсырма
Edit жолындағы жазылғанды іске қосу, жаңа қосымша құру.

Шешімі

  1. Басты менюдегі File/New/Application командасы арқылы жаңа қосымша ашамыз.




  1. Form1 формаға CheckListBox1 компонентін, Палитры Компонентов компонентіндегі Additional бетінен, ал қалғандарын Standard бетінен таңдап аламыз. Формада мына компоненттердің ораласуы RadioGroup, CheckListBox, Label және Edit .




  1. Caption қасиетінің RadioGroup1, RadioGroup2 және RadioGroup3

компонентіне ‘Начертание’, ‘Размер’ және ‘Цвет’ мәндерін қоямыз.



  1. Items қасиетіне жоғарыда көрсетілген компоненттері үш нүктелі кнопкасын басамыз. Пайда болған StringListeditorтерезеге қосылған аттарды жазамыз.

RadioGroup1 компонентіне төмендегі жолдарды кіргіземіз: Обычный Курсив Полужирный

Полужирный курсив



51

RadioGroup2 компонентіне:



8




10




12




14

RadioGroup3 компонентіне: Черный Зеленый Красный Синий


Еңгізіп болғаннан кейін ОК кнопкасын басамыз.

5. Барлық қарастырылып отырған үш компонентімізге ItemIndexқасиетін тең етіп 0 қоямыз. Это означает, что в начале работы программы

выделенным

переключателем

будет

первый.

6. Label1 және Label2 меткаларынаCaptionқасиетін

‘Атрибуты’ және ‘Образец’

қондырамыз.










  1. CheckListBox1 компонентіне Itemsқасиетін таңдап және қосылу аттарын еңгіземіз. Олар:

Зачеркнутый

Подчеркнутый



  1. Edit1 компонентінеTextқасиетін тең етіп қоямыз: ‘АаВвБбФф’.

  2. RadioGroup1 компонентін екі рет басамыз. Пайда болған Редактора Кодына OnClick оқиғасына өңдеу операторына еңгіземіз:

52

case RadioGroup1.ItemIndex of



  1. Edit1.Font.Style:=[];

  2. Edit1.Font.Style:=[fsItalic];

  3. Edit1.Font.Style:=[fsBold];

  4. Edit1.Font.Style:=[fsItalic,fsBold];

end;

CheckListBox1ClickCheck(Self);



    1. RadioGroup2 компонентіне келесі опреаторды еңгіземіз OnClick: case RadioGroup2.ItemIndex of




  1. Edit1.Font.Size:=8;

  2. Edit1.Font.Size:=10;

  3. Edit1.Font.Size:=12;

  4. Edit1.Font.Size:=14; end

    1. RadioGroup3 компонентіне OnClick оқиғасының опреаторын

еңгіземіз:

case RadioGroup3.ItemIndex of



  1. Edit1.Font.Color:=clBlack;

  2. Edit1.Font.Color:=clGreen;

  3. Edit1.Font.Color:=clRed;

  4. Edit1.Font.Color:=clBlue; end

    1. CheckListBox1 компонентіне OnClickCheck, оқиғасын жазамыз:

if CheckListBox1.Checked[0]

then Edit1.Font.Style:=Edit1.Font.Style+[fsStrikeOut] else Edit1.Font.Style:=Edit1.Font.Style-[fsStrikeOut]; if CheckListBox1.Checked[1]

then Edit1.Font.Style:=Edit1.Font.Style+[fsUnderline] else Edit1.Font.Style:=Edit1.Font.Style-[fsUnderline];

12. Басты менюдегі File/Save All командасын орындаймыз. Run/Run командасы арқылы қосымшаны орындауға жібереміз.



Модульдің қалыптасуының толық текстін көрсетеміз.


53

unit RadioGroup; interface


uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, CheckLst;

type

TForm1 = class(TForm) RadioGroup1: TRadioGroup; RadioGroup2: TRadioGroup; RadioGroup3: TRadioGroup; CheckListBox1: TCheckListBox; Edit1: TEdit;



Label1: TLabel;

Label2: TLabel;

procedure RadioGroup1Click(Sender: TObject); procedure RadioGroup2Click(Sender: TObject); procedure RadioGroup3Click(Sender: TObject); procedure CheckListBox1ClickCheck(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;
var

Form1: TForm1;


implementation
{$R *.DFM}

procedure TForm1.RadioGroup1Click(Sender:TObject); begin

case RadioGroup1.ItemIndex of


  1. Edit1.Font.Style:=[];

  2. Edit1.Font.Style:=[fsItalic];

  3. Edit1.Font.Style:=[fsBold];

  4. Edit1.Font.Style:=[fsItalic,fsBold];

end;

CheckListBox1ClickCheck(Self);

end;
procedure TForm1.RadioGroup2Click(Sender:TObject); begin

case RadioGroup2.ItemIndex of



  1. Edit1.Font.Size:=8;

  2. Edit1.Font.Size:=10;

  3. Edit1.Font.Size:=12;

  4. Edit1.Font.Size:=14; end

end;
54

procedure TForm1.RadioGroup3Click(Sender:TObject); begin

case RadioGroup3.ItemIndex of


  1. Edit1.Font.Color:=clBlack;

  2. Edit1.Font.Color:=clGreen;

  3. Edit1.Font.Color:=clRed;

  4. Edit1.Font.Color:=clBlue; end

end;
procedure TForm1.CheckListBox1ClickCheck(Sender:TObject); begin

if CheckListBox1.Checked[0]

then Edit1.Font.Style:=Edit1.Font.Style+[fsStrikeOut] else Edit1.Font.Style:=Edit1.Font.Style-[fsStrikeOut]; if CheckListBox1.Checked[1]

then Edit1.Font.Style:=Edit1.Font.Style+[fsUnderline] else Edit1.Font.Style:=Edit1.Font.Style-[fsUnderline]; end;


end.


Достарыңызбен бөлісу:
1   ...   33   34   35   36   37   38   39   40   ...   43




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет