clip.inc

来自「将bmf在DOS下显示出来」· INC 代码 · 共 12 行

{$IFNDEF clip}
{$DEFINE clip}
{$I RECT.INC}
var
  clipping:boolean:=false;
  clip:TRect; {must be properly initialized before use}
procedure setClip(_x,_y,_w,_h:TCoordinate);
begin
  clip.init(_x,_y,_w,_h);
  clipping:=true;
end;  {setClip}
{$ENDIF}