Каранаев Линар Минтимерович Стерлибашево 2017 содержание глава реферативное изложение

1. 
   Поместить на форму четыре текстовых поля для ввода координат: EditX1, EditY1, EditX2 и EditY2.
   
2. 
   Поместить на форму графическое поле Image1, в котором будет проводиться рисование графических примитивов.
   
3. 
   Поместить на форму четыре метки для обозначения текстовых полей.
   
4. 
   Объявить переменные:
   

X1:integer;

Y1:integer;

X2:integer;

Y2:integer;

5. 
   Поместить на форму четыре кнопки и создать событийные процедуры рисования примитивов так, чтобы параметры считывались из текстовых окон. 
   

procedure TForm1.Button1Click(Sender: TObject);

begin

X1 := StrToInt(EditX1.Text);

X2 := StrToInt(EditX2.Text);

Y2 := StrToInt(EditY2.Text);

Image1.Canvas.Pixels[Round(X1),Round(Y1)]:= clBlack;

end;

Событийная процедура рисования линии красным цветом запишется следующим образом:

begin

Y1 := StrToInt(EditY1.Text);

X2 := StrToInt(EditX2.Text);

Y2 := StrToInt(EditY2.Text);

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.MoveTo (Round(X1),Round(Y1));

Image1.Canvas.LineTo (Round(X2),Round(Y2));

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

X1 := StrToInt(EditX1.Text);

X2 := StrToInt(EditX2.Text);

Y2 := StrToInt(EditY2.Text);

Image1.Canvas.Pen.Color := clBlue;

Image1.Canvas.Rectangle(Round(X1),Round(Y1),

Round(X2),Round(Y2));

end;

Событийная процедура рисования окружности зеленым цветом запишется следующим образом:

begin

Y1 := StrToInt(EditY1.Text);

X2 := StrToInt(EditX2.Text);

Y2 := StrToInt(EditY2.Text);

Image1.Canvas.Pen.Color := clGreen;

Image1.Canvas.Ellipse(Round(X1),Round(Y1),

Round(X2),Round(Y2));

end;

6. 
   Запустить проект. 
   

Ввести в поля числовые значения и щелкнуть по кнопкам, в графическом поле будут нарисованы графические примитивы.