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

> Правила раздела!

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

 
 Ответить  Открыть новую тему 
> Выключение графического режима, отображение программы в окне
сообщение
Сообщение #1


Новичок
*

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

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


Проблема заключается в том что после запуска программы вылетает заставка , во весь екран, после ее показа програма так и остается работать в полноекранном режиме, мне же надо сделать так что бы после показа заставки программа переходила обратно в оконный режим, подскажите пожалуйста какие существуют методы для решения етого вопроса .
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


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

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

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


CloseGraph


или

RestoreCRTMode


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


Новичок
*

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

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


не пашет все равно, вот даю код и куда я впихиваю ети строчки, может просто в другое место их вписать надо?



Procedure zastavka;
Var gd,gm:integer;
Path:string;
Begin
gd:=detect;
Path:=' ';
InitGraph(gd,gm,Path);
SBMI('zas12.bmp',0,0,0);
Line(120,60,340,60);
Line(120,62,340,62);

Line(120,60,120,110);
Line(123,60,123,110);
Line(125,60,125,110);

Line(120,110,340,110);
Line(340,60,340,110);
OutTextXY(169,65,'SPORT SHOP');
OutTextXY(145,74,'Programm written by');
OutTextXY(130,83,'Kostenko Alexandr AKS 1-8');
OutTextXY(130,100,'Teacher: Gribkov S.V.');
readkey;
Closegraph; {в ето место и первый вариант и второй подставляю и не пашет чето}
end;

begin {начало основной программы}
zastavka; {вызов заставки}
textBackground(1);
tek:=2;
exist:=false;
nast:=menu1; menus(nast,nast.m);
while 1>0 do begin
if keypressed then key:=readkey;
case key of
#80:ramka('+');
#72:ramka('-');
#27:exist:=true;
#13:main;
end;
if exist then exit;
krutis;
end;
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


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

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

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


Во первыйх это ни укого даже откомпилировать неполучится ... Во вторых проверь это:

uses crt, graph;

var
gd, gm: Integer;

begin
gd := detect;
initgraph(gd, gm, '');
outtextxy(100, 100, 'test graph');
readkey;

closegraph;
writeln('test crt');
readln;
end.


отработало замечательно.


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


Новичок
*

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

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


блииин, может у тебя какието параметры доса стоят не такие как у меня.

Когда я запускаю твою прогу появляется строчка в графическом режиме, после нажатия пробела окно не меняя размера переключается в текстовый режим и все, надеюсь ты понял что я хочу сделать. повторюсь: что бы после выключения заставки програма переходила в оконный режим и была не на весь екран, а обычное окошко.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


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

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

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


Цитата
а обычное окошко.


Что ты понимаешь под обычным окошком ? не забывай, TurboPascal - программирование под DOS никаких окошек(в понимание виндовых) там и в помине нет + управлять размерами окна в котором появляется консольное приложение он тебе тоже не позволит (типа сымитировать нажание alt + enter из винды).


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

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

 





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