|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.03.2011, 15:10 | #1 |
Форумчанин
Регистрация: 08.05.2010
Сообщений: 177
|
Рисование кругов инструментом LineTo
У меня такая проблема нужно нарисовать 3 круга на одной высоте тремя разными цветами, провирив несколько раз вместо 3 кругов рисует всего навсего одно
Код:
Почему именно таким способом рисую потому что мне нужно чтобы эти круги во втором ряду пересекались, поэтому использование стандартных инструментов исключается они будут перекрывать друг друга Последний раз редактировалось Anubys; 06.03.2011 в 15:29. |
06.03.2011, 15:47 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Я бы все это выделил в отдельную функу вот так вот:
Код:
I'm learning to live...
|
06.03.2011, 15:49 | #3 | |
Форумчанин
Регистрация: 31.05.2009
Сообщений: 786
|
Цитата:
добавьте сразу после получения DC: Код:
|
|
06.03.2011, 20:46 | #4 | |
Форумчанин
Регистрация: 08.05.2010
Сообщений: 177
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Даны центры равномерно растущих кругов на плоскости. При столкновении друг с другом столкнувшиеся круги п | napster1991 | Помощь студентам | 3 | 07.02.2011 20:02 |
Нумерация кругов | Lifefine | Общие вопросы Delphi | 13 | 05.02.2011 22:36 |
Изменение параметров процедуры lineto. | vedro-compota | Мультимедиа в Delphi | 2 | 07.06.2010 21:53 |
LineTo рисование на экране - lineto(0,1000,1000) - LineTo(DC, 1000, 1000); | Crivel | Общие вопросы Delphi | 8 | 23.05.2009 22:30 |
Pascal. Площадь пересечения кругов | TOSAgrk | Помощь студентам | 1 | 05.02.2009 04:23 |