Crt модуль, Графический режим Опции

[Alexn]

Подскажите, кто знает, почему в графическом режиме если
uses Crt,Graph,Dos;
то Write('=>'); ничего не выводит (хотя курсор уходит на 2 символа), а если
uses Graph,Dos; то рисует.
В программе сначала SetBkColr(синий)ж
SetColor(белый) тоже не помогает.

[Ozzя]

Можно написать самому:
установка курсора в произвольную точку - moveto
обработка нажатий клавиш - readkey
вывод "эха" на экран outtextxy

Uses Graph;
Var
grDriver : Integer;
grMode   : Integer;
ErrCode  : Integer;
s        : String;
sx,sy    : Integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, 'c:bpbgi');
ErrCode:=GraphResult;
If ErrCode = grOk Then
 Begin
  { Графика }
  s:='Enter something here:';
  { Запомнили текущее CP }
  sx:=GetX;
  sy:=GetY;
  OutText(s);
  { Подсчитали новое значение CP }
  sx:=sx+TextWidth(s);
  sy:=sy+TextHeight(s);
  { Переместили CP }
  MoveTo(sx,sy);
  { Проверка перемещения указателя }
  PutPixel(sx,sy,Red);
  ReadLn;
  CloseGraph;
 End
Else WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
End. 

Сообщение отредактировано: Ozzя - 26.07.2005 14:06