
спасибо
fpc,winXP
Сообщение отредактировано: klem4 -
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
klem4 |
![]()
Сообщение
#1
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Идет заполнение данных в текстовом режиме, дальше уже в графическом по этим данным строются соответствующие графики, потом возвращение в текстовый режим, но для переключения между ними приходится искользовть <Alt+Tab>. Как сделать переход после CloseGraph в текстовый режим автоматически ? И переход в окно графики сразу после инициализации ? (без дополнительных движений пальцами по клаве
![]() спасибо fpc,winXP Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
klem4, ну уже сколько раз обсуждалось - не получится это у тебя
Цитата без дополнительных движений Максимум, что можно посоветовать - не закрывай графический режим до тех пор, пока не нужно будет выйти из программы окончательно, а для временного перехода в текстовый пользуйся RestoreCrtMode:Begin Переключения RestoreCrtMode <-> SetGraphMode могут производиться неоднократно... Хотя если ты НЕ хочешь, чтобы решение было переносимо на Turbo Pascal, то давай я все-таки эту тему перенесу в 32-битные компиляторы, и там уже будем пользоваться функциями, специфичными для FPC... |
klem4 |
![]()
Сообщение
#3
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
То что ты написал я пробовал ... Если есть каке-то другие средства для 32б, то переноси ;)
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
![]() ![]() |
![]() |
Текстовая версия | 1.09.2025 20:13 |