Объявление типа и переменных
Листинг 13.13.Объявление типа и переменных
type
TDrawingTool = (dtLine, dtRectangle, dtEllipse, dtRoundRect);
TForm1 = class(TForm)
. . . { объявление методов }
public
Drawing: Boolean;
Origin, MovePt: TPoint;
DrawingTool: TDrawingTool; { переменная, которая будет содержать текущий
инструмент }
end;
Расположим на панели инструментов четыре кнопки SpeedButton, каждая из которых будет означать линию, прямоугольник, эллипс или прямоугольник со скругленными углами. Теперь нужно для каждой кнопки написать обработчик события OnClick, в котором необходимо присвоить соответствующее значение переменной DrawingTool (листинг 13.14).
