Глючный FPC Опции

[Anonimys]

Вот, пользуюсь Free Pascal IDE. Недавно решил перейти на wingraph с псевдографики. Сегодня был турнир, но изза компиля я даже простейшую игру написать не смог. Понял это, к сожалению, поздно. Скачал тут демки wingraph'а, но нигде, ни в какой демке не работает управление. Такое ощущение, будто IDE не дает считывать нажатие клавиш с клавиатуры. В crt всё нормально работает. Как только переключаюсь на граф - фиг тебе. Сам вопрос: это из-за FPC IDE? Или я что-то не понимаю?
Вот пример. Мой. Тут по идее всё должно работать, а именно: программа должна завершиться.

program testimage;
uses wingraph,wincrt;
const
UpKey= #72;
LtKey= #75;
RtKey= #77;
DnKey= #80;
EscKey= #27;
EnterKey= #13;

var menumod,i,j:integer;
key:char;

procedure LoadBMP(x,y:integer);
var f:file; bitmap:pointer; size:longint;
begin
  {$I-} Assign(f,'bgmain.bmp'); Reset(f,1); {$I+}
  if (IOResult <> 0) then Exit;
  size:=FileSize(f);
  GetMem(bitmap,size);
  BlockRead(f,bitmap^,size);
  Close(f);
  PutImage(x,y,bitmap^,NormalPut);
  FreeMem(bitmap);
end;

begin                
i := detect;
InitGraph(i,j,'');

LoadBMP(0,0);
menumod:=1;

while menumod = 1 do
begin
 delay(10);
 if CloseGraphRequest then
  menumod:=0;
 if keypressed then
  begin
  key:=readkey;
   if key = EscKey then
    menumod:=0;
  end;
end;

closegraph;
end.

Сообщение отредактировано: Anonimys - 14.04.2012 21:38

[Anonimys]

Большое спасибо :D