нарисовать линию от точки А по направлению к точке Б в пределах радиуса

[Аватар]

procedure TForm1.DrawAngle(x,y,radius: Integer; angle: real);
begin
  Canvas.MoveTo(x,y);
  Canvas.Ellipse(x-radius,y-radius,x+radius,y+radius);
  Canvas.LineTo(Round(x + Cos(angle)*radius),Round(y + Sin(angle)*radius));
end;

x0,y0 - искомая точка?

Yes it is

[BLACK_RAIN]

если искомая точка находится левее или выше начальной, тогда линия рисуется в противоположном направлении.

[Аватар]

А, ось y вниз. Сделай так:

  angle:=ArcTan((y0-y)/(x0-x));
  if x0<x then angle:=angle+pi;
  DrawAngle(x,y,r,angle);

[BLACK_RAIN]

Спасибо. Вопрос решен.
Специально для таких одарённых как я, выкладываю код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure DrawAngle(x,y,radius: Integer; angle: real);
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  xCenter,yCenter : Integer; // начальная точка
  r : Integer; // радиус окружности
  DestPt : TPoint; // искомая точка

implementation

{$R *.dfm}

function Point(const X,Y : Integer) : TPoint;
begin
  Result.X := x;
  Result.Y := y;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WindowState := wsMaximized;
  r := 100; //радиус
  DestPt := Point(0,0);
  Timer1.Interval := 10;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Close;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
  begin
    xCenter := x;
    yCenter := y;
  end else
  DestPt := Point(x,y);
end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if r > 54 then
  Dec(r,5);
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  inc(r,5);
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  a : Real;
begin
  Canvas.FillRect(ClientRect);
  if (DestPt.X <> xCenter) and (DestPt.Y <> yCenter) then
  begin
    a := ArcTan((DestPt.y - yCenter)/(DestPt.X - xCenter));
    if DestPt.X < xCenter then
    a := a+pi;
    DrawAngle(xCenter,yCenter, r, a);
  end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  xCenter := Width div 2 - 10;
  yCenter := Height div 2 - 18;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Invalidate;
end;

procedure TForm1.DrawAngle(x,y,radius: Integer; angle: real);
begin
  Canvas.MoveTo(x,y);
  Canvas.Ellipse(x-radius,y-radius,x+radius,y+radius);
  Canvas.LineTo(Round(x + cos(angle)*radius),Round(y + Sin(angle)*radius));
end;

end.

Можно обойтись без таймера, если не нужен. Для этого, в событии OnMouseMove() вызываем Invalidate; или процедуру рисования.

[Аватар]

А еще лучше и правильней рисовать в PaintBox и ни каких таймеров не нужно ))

[BLACK_RAIN]

Сообщение от Аватар

А еще лучше и правильней рисовать в PaintBox и ни каких таймеров не нужно ))

я вообще форму и компоненты использую только для тестов

[BLACK_RAIN]

Я дико извиняюсь, но вопрос решен не до конца

Сообщение от Аватар

Сделай так:

  angle:=ArcTan((y0-y)/(x0-x));
  if x0<x then angle:=angle+pi;
  DrawAngle(x,y,r,angle);

Линия рисуется правильно. Но как узнать, под каким углом она нарисована? всмысле градус этого угла

[Serge_Bliznykov]

Сообщение от BLACK_RAIN

всмысле градус этого угла

так у Вас же angle и содержит величину угла.
В радианах.
Не знаете, как радианы перевести в градусы?
Тогда просто воспользуйтесь встроенной функцией Delphi: RadToDeg()
(или можете умножить величину угла в радианах на 180° и разделите на pi - получите угол в градусах)

например,

  angle:=ArcTan((y0-y)/(x0-x));
  if x0<x then angle:=angle+pi;
  ShowMessage(' величина угла в градусах = ' + FloatToStr( RadToDeg( angle)) );
  DrawAngle(x,y,r,angle);

[BLACK_RAIN]

procedure TForm1.FormPaint(Sender: TObject);
var
  a : Real;
begin
  Canvas.FillRect(ClientRect);
  if (DestPt.X <> xCenter) and (DestPt.Y <> yCenter) then
  begin
    a := ArcTan((DestPt.y - yCenter)/(DestPt.X - xCenter));
    if DestPt.X < xCenter then
    a := a+pi;
    DrawAngle(xCenter,yCenter, r, a);
    lbl1.Caption := FormatFloat('0.00', (a*180)/pi));
  end;
end;

В диапазоне, где должно быть 270 - 359.99, выдаёт -90.0 - -0.01
Где ошибка?

[Аватар]

Та нет ошибки. Просто формулы рассчитаны на правильную систему координат, а у тебя ось oy вниз направлена. Преобразуй так:

  if a<0 then a:=a+2*pi;
  a:=2*pi-a;
  lbl1.Caption:=FormatFloat('0.00',a*180/pi);

Можно было бы и заранее угол корректно вычислять, но тогда при отображении пришлось бы зеркальные преобразования делать с координатой y