Иллюстрированный самоучитель по Kylix


Листинг 13 15 Обработчик события 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;



- Начало - - Назад - - Вперед -