Проблема заключается в том что после запуска программы вылетает заставка , во весь екран, после ее показа програма так и остается работать в полноекранном режиме, мне же надо сделать так что бы после показа заставки программа переходила обратно в оконный режим, подскажите пожалуйста какие существуют методы для решения етого вопроса .
klem4
25.06.2007 0:44
CloseGraph
или
RestoreCRTMode
rekrut
25.06.2007 0:49
не пашет все равно, вот даю код и куда я впихиваю ети строчки, может просто в другое место их вписать надо?
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,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.
klem4
25.06.2007 0:59
Во первыйх это ни укого даже откомпилировать неполучится ... Во вторых проверь это:
блииин, может у тебя какието параметры доса стоят не такие как у меня.
Когда я запускаю твою прогу появляется строчка в графическом режиме, после нажатия пробела окно не меняя размера переключается в текстовый режим и все, надеюсь ты понял что я хочу сделать. повторюсь: что бы после выключения заставки програма переходила в оконный режим и была не на весь екран, а обычное окошко.
klem4
25.06.2007 14:02
Цитата
а обычное окошко.
Что ты понимаешь под обычным окошком ? не забывай, TurboPascal - программирование под DOS никаких окошек(в понимание виндовых) там и в помине нет + управлять размерами окна в котором появляется консольное приложение он тебе тоже не позволит (типа сымитировать нажание alt + enter из винды).
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.