Помощь - Поиск - Пользователи - Календарь
Полная версия: Graph и Crt
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
dream-x
Здравствуйте! У меня очень прстой вопрос я активизирую модуль graph потом как то сто мне надо он делает и я его закрываю... Затем у меня приглашение ко вводу уже с использованием CRT но у неотображается текст а просто белая заливка и то наполоуину экрана когда текст ввожу он видени программа работает но почему белый экран?
volvo
Цитата
потом как то сто мне надо он делает и я его закрываю.
Для этого есть процедура RestoreCRTMode, которая восстанавливает текстовый режим, работавший перед InitGraph... Очень удобно переключаться Текст<->Графика через RestoreCRTMode / SetGraphMode(GetGraphMode)... А в самом конце программы уже закрывай графику (CloseGraph)
dream-x
Цитата(volvo @ 17.05.2008 2:04) *

Для этого есть процедура RestoreCRTMode, которая восстанавливает текстовый режим, работавший перед InitGraph... Очень удобно переключаться Текст<->Графика через RestoreCRTMode / SetGraphMode(GetGraphMode)... А в самом конце программы уже закрывай графику (CloseGraph)

Здравствуй volvo, непомогло... У одногрупника такая же штука была но я там просто инициализацию графики в одном месте убрал и все заработало... Может я не там ставлю...
volvo
Это ты сам придумал, вызывать второй раз InitGraph, не закрывая первый? Ищи, где это происходит, и делай так, чтобы графика инициализировалась ОДИН раз: в основной программе , а не в каждом модуле, как у тебя...
dream-x
Цитата(volvo @ 17.05.2008 12:09) *

Это ты сам придумал, вызывать второй раз InitGraph, не закрывая первый? Ищи, где это происходит, и делай так, чтобы графика инициализировалась ОДИН раз: в основной программе , а не в каждом модуле, как у тебя...

Ок да у приятеля все исправил а у себя не найду спасибо щас все сделаем))
volvo
Цитата
у себя не найду

Модуль modul.pas, процедура Zastavka_1, вызов InitGr лишний...

А вообще, программу следовало бы переписать с нуля, и она была бы в несколько раз компактнее (больше чем 32К исходников для такой задачи - очень много...)
dream-x
Нефига не получается я все убрал mega_chok.gif
volvo
Ты расскажи мне, где именно ты закрываешь графику и работаешь в текстовом режиме, и что надо сделать, чтоб мне туда попасть? Я пока не нашел у тебя этого в коде... Хочу посмотреть на "окрестности" того места...
dream-x
VOLVO СПАСИБО ОГРОМНОЕ!!! Все сделал я тоже хочу переписать ее вот щас записку сделаю и может перепишу
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.