Case RadioGroup1.ItemIndex of
Begin
Image1.Canvas.LineTo(A,B);
Image1.Canvas.Pen.Color:=ColorBox1.Selected;
Image1.Canvas.Brush.Color:=ColorBox3.Selected;
Image1.Canvas.LineTo(X,Y);
end;
Begin
Image1.Canvas.Ellipse(A,B,C,D);
Image1.Canvas.Pen.Color:=ColorBox1.Selected;
Image1.Canvas.Brush.Color:=ColorBox3.Selected;
Image1.Canvas.Ellipse(A,B,X,Y);
end;
Begin
Image1.Canvas.Rectangle(A,B,C,D);
Image1.Canvas.Pen.Color:=ColorBox1.Selected;
Image1.Canvas.Brush.Color:=ColorBox3.Selected;
Image1.Canvas.Rectangle(A,B,X,Y);
end;
end;
C:=X;
D:=Y
end;
end;
e. Метод Image1MouseUp – реакция на событие onMouseUp, отпускание левой клавиши мыши в области компонента Image1:
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
DoLine:=False;
end;
8. Сохраните исходный файл проекта в своей рабочей папке.
9. Используя прием DragAndDroup, меняя цвета линии, фона, заливки, попробуйте изобразить фигуры, показанные на рисунке 2. Убедитесь в правильности работы программы. При необходимости исправьте допущенные ошибки.
10. Сохраните исходный файл проекта в своей рабочей папке.
11. Выйдите из среды программирования Delphi с помощью меню File\Exit
Учебное издание
Татьяна Николаевна Иванилова
Сергей Петрович Якимов
Дискретная математика. Теория графов.
Учебное пособие по выполнению курсовых работ «Исследование и программная реализация алгоритмов теории графов»
Учебное пособие
Отв. редактор
Редактор РИЦ Т.А.Полуэктова
|
|
Подписано в печать
Формат 60 х 84 1/16 Тираж 50 экз.
Усл. печ. л. Изд. № 9/26. Заказ №
Редакционно-издательский центр СибГТУ
660049, Красноярск,пр.Мира, 82
Тел. (391) 227-69-90
Факс (391) 211-97-25
Дата добавления: 2018-05-12; просмотров: 555; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!