|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Нарисовать залитый круг при помощи LineTo
Добрый день, форумчане! Нужна Ваша помощь, нужно нарисовать круг (не овал), но это необходимо сделать методом 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; |
#2
|
||||
|
||||
Знаете вы, батенька, толк в извращениях.
Попробуй сдлать толщину карандаша побольше (TPen.Width). Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
|||
|
|||
Может сразу поставить точку размером с радиус?
|
#4
|
|||
|
|||
Цитата:
|