Глючный 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

[IUnknown]

Я не скачал, а "взял", это разные вещи На диске у меня лежат исходники разных версий, разных библиотек, чтоб если в новых чего понакручено - проще было поправить под себя.

Вот WinGraph + WinCRT, с которыми у меня твой код отработал:
 wingraph.zip ( 24.74 килобайт ) Кол-во скачиваний: 558


(я там что-то правил в WinGraph-е, поэтому его тоже присоединил, на одном из форумов поймали глюк, я нашел и исправил ошибку)