Обработчик события OnMouseup
Листинг 13.15.Обработчик события OnMouseup
procedure TForm1. FormMouseUp (Sender: TObject; Button TMouseButton; Shift: TShiftState; X ,Y: Integer);
begin
case DrawingTool of dtLine: begin
Canvas.MoveTo(Origin.X, Origin. Y);
Canvas.LineTo(X, Y) end;
dtRectangle: Canvas.Rectangle{Origin.X, Origin.Y, X, Y);
dtEllipse: Canvas.Ellipse(Origin.X, Origin.Y, X, Y);
dtRoundRect: Canvas.RoundRect(Origin.X, Origin.Y, X, Y, (Origin.X - X} div 2, (Origin.Y - Y) div 2);
end;
Drawing := False; end;
