Обработчики нажатия кнопок
Листинг 13.14. Обработчики нажатия кнопок
procedure TForm1.LineButtonClick{Sender: TObject);
{ Кнопка линии } begin
DrawingTool := dtLine; end;
procedure TForm1.RectangleButtonClick(Sender: TObject);
{ Кнопка
прямоугольника } begin
DrawingTool := dtRectangle; end; procedure TForm1.EllipseButtonClick (Sender: TObject);
{ Кнопка эллипса } begin
DrawingTool := dtEllipse; end;
procedure TForm1.RoundedRectButtonClick(Sender: TObject}; { Кнопка
прямоугольника со скругленными углами } begin
DrawingTool := dtKoundRect; end;
Теперь нам осталось написать лишь обработчики событий движения мыши (OnMouseMove) и отпускания левой кнопки мыши (OnMouseUр). Эти обработчики представлены в листингах 13.15 и 13.16.
