Системное программирование. Андрианов В.П. - 19 стр.

UptoLike

Составители: 

19
3.2 К имеющемуся набору кнопок для выбора фигур следует добавить новую с изображением
заданной фигуры. Пиктограмму фигуры можно создать с помощью встроенного в Delphi
графического редактора Image Editor (вызывается из основного меню кнопкой Tools).
3.3 Перечень фигур для задания представлен на рис. 4
Рис.4 Варианты фигур для задания.
3.4. В графическом редакторе Graphex введен тип данных TDrawingTool, содержащий
именованные константы фигур:
type
TDrawingTool = (dtLine, dtRectangle, dtEllipse, dtRoundRect);
С этим типом данных связана переменная DrawingTool: TDrawingTool, в которой хранится
текущий код рисуемой фигуры. Управление состоянием переменной DrawingTool
осуществляется нажатием соответствующей кнопки выбора фигур, например
procedure TForm1.LineButtonClick(Sender: TObject);
begin
DrawingTool := dtLine;
end;
Рисование фигур обеспечивает процедура
DrawShape(TopLeft, BottomRight: TPoint; AMode: TPenMode);
в которой в зависимости от переменной DrawingTool вызываются соответствующие подпрограммы,
например
case DrawingTool of
dtLine:
begin
Image.Canvas.MoveTo(TopLeft.X, TopLeft.Y);
Image.Canvas.LineTo(BottomRight.X, BottomRight.Y);
end;
. . .