|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.04.2013, 21:18 | #1 |
Пользователь
Регистрация: 10.04.2013
Сообщений: 22
|
Создать 10 кругов на вертикальной линии Делфи.
Зачастил последнее время я на этом форуме
Построить на экране изображения 10 окружностей, центры которых расположены на одной вертикальной линии. Почти сделал, но он почему-то жалуется на for.. В чем проблема? Код HTML:
procedure TForm1.Button1Click(Sender: TObject); // 10 кругов var i: integer; x1, y1, x2, y2 : integer; begin x1:=100; y1:=50; X2:=200; y2:=150; with Canvas do begin pen.Color:=clBlue; Brush.Style:=bsClear for i := 1 to 10 do begin Ellipse (x1,y1,x2,y2); y1:= y1+100; y2:= y2+100; end; end; end; end. |
11.04.2013, 21:20 | #2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
11.04.2013, 22:10 | #3 |
Пользователь
Регистрация: 10.04.2013
Сообщений: 22
|
Ну как всегда тупанул=(
А как сделать с теми же самыми кругами, только чтобы 10 кругов, центры которых расположены на линии совпадающей с диагональю экрана? Код HTML:
procedure TForm1.Button1Click(Sender: TObject); // 10 кругов var i: integer; x1, y1, x2, y2 : integer; begin x1:=100; y1:=50; X2:=200; y2:=150; with Canvas do begin pen.Color:=clred; Brush.Style:=bsClear; for i := 1 to 10 do begin Ellipse (x1,y1,x2,y2); x1:= x1+100; x2:= x2+100; y1:= y1+100; y2:= y2+100; end; end; end; end. |
11.04.2013, 22:14 | #4 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
сделай форму во весь экран и будет
==диагональ формы
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
11.04.2013, 22:55 | #5 |
Пользователь
Регистрация: 10.04.2013
Сообщений: 22
|
А как сделать 10 концентрических окружностей с центром в точке Xc, Yc?
Вроде уже как только не пробовал, но они у меня то по всему экрану, то разных размеров.. |
11.04.2013, 23:32 | #6 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,341
|
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
12.04.2013, 00:35 | #7 |
Пользователь
Регистрация: 10.04.2013
Сообщений: 22
|
Спасибо! Все работает!=) Эх.. Чтобы я без вас делал?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сделать из линии, толщиной в несколько пикселей, линии, толщиной 1 пиксель. | ImmortalAlexSan | Общие вопросы Delphi | 12 | 25.10.2012 19:05 |
рисование кругов в делфи | Gal4onOK))) | Помощь студентам | 0 | 15.02.2012 14:18 |
Точки на ломаной линии (делфи) | Rauko | Помощь студентам | 2 | 23.11.2011 16:23 |
Как создать линии исходящие из точки на графике на оси координат? | Pavarotti | Microsoft Office Excel | 3 | 27.01.2011 09:06 |
Движение ломанной линии Делфи | Walter | Помощь студентам | 8 | 23.05.2009 19:42 |