forum.boolean.name - Проблемы с Setclip

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Проблемы с Setclip (http://forum.boolean.name/showthread.php?t=861)

Код:

program test;

var clicked: integer;



Begin

  repeat

  setClip(50,50, getWidth, getHeight);

  fillEllipse(0, 0, getWidth, getHeight); 

  setClip(0, 0, gGetWidth, getHeight);

  Fillrect(0,0,50,50);

  repaint;

  clicked:=getKeyClicked;

  until Clicked<>KE_None;

end.

После повторного использования SetClip
(который в данном коде дожен покрыть весь экран) не рисуется рямоугольник.
Не могу понять в чем дело, так и должно быть?
Т.е. SetClip можно вызвать только один раз?

У меня все рисуется.

Хм...
А не подскажешь свою версию МидлетПаскаля и Эмулятор?

С новой версией midletpascal'a всё заработало)