Выключение графического режима, отображение программы в окне Опции

[rekrut]

Проблема заключается в том что после запуска программы вылетает заставка , во весь екран, после ее показа програма так и остается работать в полноекранном режиме, мне же надо сделать так что бы после показа заставки программа переходила обратно в оконный режим, подскажите пожалуйста какие существуют методы для решения етого вопроса .

[klem4]

CloseGraph

или

RestoreCRTMode

[rekrut]

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

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.

[klem4]

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

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.

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

[rekrut]

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

Когда я запускаю твою прогу появляется строчка в графическом режиме, после нажатия пробела окно не меняя размера переключается в текстовый режим и все, надеюсь ты понял что я хочу сделать. повторюсь: что бы после выключения заставки програма переходила в оконный режим и была не на весь екран, а обычное окошко.

[klem4]

а обычное окошко.

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