Қазақстан республикасы бiлiм және ғылым министрлiгi


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



бет36/39
Дата07.02.2022
өлшемі0,74 Mb.
#94297
түріДиплом
1   ...   31   32   33   34   35   36   37   38   39
Байланысты:
Дип.-Delphi-программалау-ортасында-графикалық-компоненттерді-пайдалану-әдістемесі

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

Panel1:TPanel

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




  1. Фигуралардың түрін таңдау үшін 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;

  1. Dialogs бетіне ColorDialog1 компонентін форма бетіне орналастырамыз.

  2. Фигураның түсін таңдау үшін 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;

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

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




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




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

    Басты бет