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

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

X1:integer;

Y1:integer;

X2:integer;

Y2:integer;

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

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;

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

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