![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
diehard |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 21 Пол: Мужской Репутация: ![]() ![]() ![]() |
Добрый день товарищи программисты.
Собственно задание вот такое : Отобразить квадрат , длина стороны которого задаётся пользователем , бегущим по экрану и на каждой четверти пути (длина экрана) меняющим свой цвет . Код программы :
Ввод стороны знаю как делать , как он должен двигаться тоже представляю ... идея на счёт смены цвета вроде тоже есть (делим число пикселей формы на 4 части и следим в процессе перемещения квадрата за координатой икс , в какой она области , и меняем цвет карандаша ) , но сам квадрат двигаться не хочет ![]() ![]() |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Цитата бегает только до середины формы , дальше ни в какую А емкости типа Byte на большее не хватает, только до 255, а потом опять с нуля. Во-первых:x, y , a: integer; // вот это !!!, во вторых - вот это: procedure Ris;И вообще, внеси Ris в класс формы, оно тебе надо все время Form1 дописывать впереди? |
![]() ![]() |
![]() |
Текстовая версия | 11.07.2025 10:17 |