Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Graph и Crt

Автор: dream-x 17.05.2008 4:24

Здравствуйте! У меня очень прстой вопрос я активизирую модуль graph потом как то сто мне надо он делает и я его закрываю... Затем у меня приглашение ко вводу уже с использованием CRT но у неотображается текст а просто белая заливка и то наполоуину экрана когда текст ввожу он видени программа работает но почему белый экран?

Автор: volvo 17.05.2008 5:04

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

Автор: dream-x 17.05.2008 14:58

Цитата(volvo @ 17.05.2008 2:04) *

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

Здравствуй volvo, непомогло... У одногрупника такая же штука была но я там просто инициализацию графики в одном месте убрал и все заработало... Может я не там ставлю...


Прикрепленные файлы
Прикрепленный файл  kursach_sdacha.rar ( 246.77 килобайт ) Кол-во скачиваний: 184

Автор: volvo 17.05.2008 15:09

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

Автор: dream-x 17.05.2008 15:11

Цитата(volvo @ 17.05.2008 12:09) *

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

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

Автор: volvo 17.05.2008 15:35

Цитата
у себя не найду

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

А вообще, программу следовало бы переписать с нуля, и она была бы в несколько раз компактнее (больше чем 32К исходников для такой задачи - очень много...)

Автор: dream-x 17.05.2008 15:36

Нефига не получается я все убрал mega_chok.gif

Автор: volvo 17.05.2008 15:39

Ты расскажи мне, где именно ты закрываешь графику и работаешь в текстовом режиме, и что надо сделать, чтоб мне туда попасть? Я пока не нашел у тебя этого в коде... Хочу посмотреть на "окрестности" того места...

Автор: dream-x 17.05.2008 15:47

VOLVO СПАСИБО ОГРОМНОЕ!!! Все сделал я тоже хочу переписать ее вот щас записку сделаю и может перепишу