[Goodle]

Добрый день, форумчане! Нужна Ваша помощь, нужно нарисовать круг (не овал), но это необходимо сделать методом LineTo, т.е. пройти круг линией (как в часах) и полностью закрасить окружность. нашел исходник часов и чутка его переделал, но результат не совсем тот. Может подскажете где косяк?
Получается вот что:http://www.delphisources.ru/forum/at...d=134277337 0
Хотелось бы вот что:http://www.delphisources.ru/forum/at...d=134277337 0
Вот код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  GRAD = 0.0174532;
var
  R,i:Integer;
  x0,y0,x1,y1,L,A:Integer;
begin
R:=Image1.Width;
x0:=R div 2;
y0:=x0;
L:=140;

for I := 0 to 360 do
  begin
    Image1.Canvas.MoveTo(x0,y0);
    A:=90 - i;
    x1 := Round(x0 + L*cos(A*GRAD));
    y1 := Round(y0 - L*sin(A*GRAD));
    Image1.Canvas.LineTo(x1,y1);
  end;
end;

[Aristarh Dark]

Знаете вы, батенька, толк в извращениях.
Попробуй сдлать толщину карандаша побольше (TPen.Width).

[stanilar]

Может сразу поставить точку размером с радиус?

[Goodle]

Сообщение от Aristarh Dark

Знаете вы, батенька, толк в извращениях.
Попробуй сдлать толщину карандаша побольше (TPen.Width).

Я чуть под стол не рухнул и это ведь не от того, что про извращения написано, а от собственного идеотизма! Canvas.Pen.Width:=5, самое оно))) Спасибо!