 Графика |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| @^WARlock^@ |
 25.11.2006 6:07
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 96 Пол: Мужской Реальное имя: John Репутация:  0   |
Народ подскажите, как заполнить белое окошко любым словом, и чтобы это слово сохранилось в текстовый фаил.
Вот начальный код или предложите свой. uses crt,graph;
var
gm,gd:integer;
begin
initgraph(gd,gm,'c:\bgi');
setbkcolor(white);
setcolor(blue);
rectangle(210,190,430,260);
rectangle(220,200,420,250);
setfillstyle(1,lightgreen);
floodfill(221,201,blue);
setfillstyle(11,blue);
floodfill(211,191,blue);
setcolor(red);
outtextxy(225,217,'Vvedite');
outtextxy(233,230,'slovo');
setcolor(blue);
rectangle(300,210,410,240);
setfillstyle(1,white);
floodfill(301,211,blue);
readln;
end.
|
   |
 
|
Сообщений в этой теме
@^WARlock^@ Графика 25.11.2006 6:07
@^WARlock^@ Народ ну подскажите в графическом режиме можно выв... 26.11.2006 4:11
volvo Точно так же, как ты в обычном текстовом режиме мо... 26.11.2006 9:36  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 29.07.2025 21:31 |