IPB
ЛогинПароль:

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

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

 
 Ответить  Открыть новую тему 
> Текстовый-Графический, и обратно ...
сообщение
Сообщение #1


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Идет заполнение данных в текстовом режиме, дальше уже в графическом по этим данным строются соответствующие графики, потом возвращение в текстовый режим, но для переключения между ними приходится искользовть <Alt+Tab>. Как сделать переход после CloseGraph в текстовый режим автоматически ? И переход в окно графики сразу после инициализации ? (без дополнительных движений пальцами по клаве smile.gif)

спасибо

fpc,winXP

Сообщение отредактировано: klem4 -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






klem4, ну уже сколько раз обсуждалось - не получится это у тебя
Цитата
без дополнительных движений
Максимум, что можно посоветовать - не закрывай графический режим до тех пор, пока не нужно будет выйти из программы окончательно, а для временного перехода в текстовый пользуйся RestoreCrtMode:
Begin
{ инициализировал графику }
{ отобразил, что тебе нужно в граф. режиме }
RestoreCrtMode; { - перешел в текстовый }
...
SetGraphMode(GetGraphMode); {возвращаешься в графический }
...
CloseGraph
End.

Переключения RestoreCrtMode <-> SetGraphMode могут производиться неоднократно...

Хотя если ты НЕ хочешь, чтобы решение было переносимо на Turbo Pascal, то давай я все-таки эту тему перенесу в 32-битные компиляторы, и там уже будем пользоваться функциями, специфичными для FPC...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


То что ты написал я пробовал ... Если есть каке-то другие средства для 32б, то переноси ;)


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.09.2025 20:13
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name