Ќазаќстан республикасы бiлiм жјне єылым министрлiгi

Объектілер инспекторы терезесіне енгізілетін өзгертулер

жүктеу/скачать 0,72 Mb.

бет	35/38
Дата	09.03.2022
өлшемі	0,72 Mb.
	#134799
түрі	Программа

1 ... 30 31 32 33 34 35 36 37 38

Байланысты:
11 апта Абдуллина

Компонент Объектілер инспекторы терезесіне енгізілетін өзгертулер

Объектілер инспекторы терезесіне енгізілетін өзгертулер

Panel1:TPanel

Caption:
Heigth: 89
Width: 521
Left: 8
Top: 328
Kind: cbHorizontal

Фигуралардың түрін таңдау үшін ComboBox1 компонентін орналастырамыз және төмендегі кестеде берілгендей қасиеттеріне өзгертулер енгіземіз:

Компонент	Объектілер инспекторы терезесіне енгізілетін өзгертулер
ComboBox1: тсomboBox	Caption: бос қалдырамыз Items: stRectangle stSquare stRoundSquare stRoundRect stEllipse stCircle Font: шрифтің түсін және өлшемін өзгертеміз

ComboBox1 компонентіне екі рет басып, ашылған ComboBox1 Change оқиға өңдеуші процедурасына төмендегі мәліметтерді енгіземіз:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
shape1.Shape:=TShapeType(ComboBox1.ItemIndex);
end;

Dialogs бетіне ColorDialog1 компонентін форма бетіне орналастырамыз.
Фигураның түсін таңдау үшін Button1 компонентін орналастырып, тақырып жолына «Фигураның түсі» мәтінін жазамыз және Button1Click оқиға өңдеуші процедурасына төмендегі программа мәтінін енгіземіз:

procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
shape1.Brush.Color:=ColorDialog1.Color;
end;
Форманың түсін таңдау үшін Button2 компонентін орналастырып, тақырып жолына «Форманың түсі» мәтінін жазамыз және Button2Click оқиға өңдеуші процедурасына төмендегі программа мәтінін енгіземіз:
procedure TForm1.Button2Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Color:=ColorDialog1.Color;
end;
Фигураның жиегінің түсін таңдау үшін Button1 компонентін орналастырып, тақырып жолына «Фигураның жиегінің түсі» мәтінін жазамыз және Button3Click оқиға өңдеуші процедурасына төмендегі программа мәтінін енгіземіз:
procedure TForm1.Button3Click(Sender: TObject);
begin
if ColorDialog1.Execute then
shape1.Pen.Color:= ColorDialog1.Color;
end;

Форманы жабу үшін BitBtn1 компонентін орналастырып, Кind қасиетіне bcClose мәнін қабылдаймыз.

Программаны сақтап орындаймыз. Программаның орындалу нәтижесі келесі суреттерде көрсетілген.

жүктеу/скачать 0,72 Mb.

Достарыңызбен бөлісу:

1 ... 30 31 32 33 34 35 36 37 38