Проблема заключается в том что после запуска программы вылетает заставка , во весь екран, после ее показа програма так и остается работать в полноекранном режиме, мне же надо сделать так что бы после показа заставки программа переходила обратно в оконный режим, подскажите пожалуйста какие существуют методы для решения етого вопроса .
CloseGraph
RestoreCRTMode
не пашет все равно, вот даю код и куда я впихиваю ети строчки, может просто в другое место их вписать надо?
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.
Во первыйх это ни укого даже откомпилировать неполучится ... Во вторых проверь это:
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.
блииин, может у тебя какието параметры доса стоят не такие как у меня.
Когда я запускаю твою прогу появляется строчка в графическом режиме, после нажатия пробела окно не меняя размера переключается в текстовый режим и все, надеюсь ты понял что я хочу сделать. повторюсь: что бы после выключения заставки програма переходила в оконный режим и была не на весь екран, а обычное окошко.