Системное программирование. Андрианов В.П. - 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;
. . . 
                                                                                             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;
.       .     .

Страницы