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

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

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

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

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

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

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

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

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

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

выделенным	переключателем	будет		первый.
6. Label1 және Label2 меткаларынаCaptionқасиетін			‘Атрибуты’ және ‘Образец’
қондырамыз.

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

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

6. 
   Edit1 компонентінеTextқасиетін тең етіп қоямыз: ‘АаВвБбФф’.
   
7. 
   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];
   

CheckListBox1ClickCheck(Self);

9. 
   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
   
   10. 
       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
   
   11. 
       CheckListBox1 компонентіне OnClickCheck, оқиғасын жазамыз:
       

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 командасы арқылы қосымшаны орындауға жібереміз.

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

unit RadioGroup; interface

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;

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;

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];
   

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
   

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
   

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;