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 можно вызвать только один раз?