графика - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

графика, не меняется фон

Опции

compiler	23.02.2007 17:08 Сообщение #1
Человек Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: 3	Почему в программе не меняется цвет фона? Uses Graph; VAR x1, y1, x2, y2:integer; GraphDriver,GraphMode:integer; procedure L(x1, y1, x2, y2:word); begin SetColor(red); Line (x1, y1, x2, y2); end; Begin GraphDriver:=detect; InitGraph(GraphDriver, GraphMode, ''); SetBkColor(white); {<------------------вот строчка которая должна менять цвет фона} x1:=150; y1:=450; x2:=100; y2:=350; L (x1, y1, x2, y2); x1:=100; y1:=350; x2:=350; y2:=350; L (x1, y1, x2, y2); x1:=350; y1:=350; x2:=300; y2:=450; L (x1, y1, x2, y2); x1:=150; y1:=450; x2:=300; y2:=450; L (x1, y1, x2, y2); x1:=200; y1:=350; x2:=200; y2:=20; L (x1, y1, x2, y2); x1:=200; y1:=20; x2:=250; y2:=40; L (x1, y1, x2, y2); x1:=250; y1:=40; x2:=200; y2:=40; L (x1, y1, x2, y2); x1:=200; y1:=50; x2:=300; y2:=250; L (x1, y1, x2, y2); x1:=300; y1:=250; x2:=200; y2:=350; L (x1, y1, x2, y2); read(x1); CloseGraph; End. заранее благодарен. Добавлено через 7 мин. FloodFill тоже не работает... -------------------- Спасибо! Удачи!