copyrect_demo.pas

procedure ImFill;
begin
  Window.Maximize;
  var src := Picture.Create('pic.png');
  var p := Picture.Create(180, 352);
  p.CopyRect(Rect(0, 0, 180, 352), src, Rect(220, 64, 420, 416));
  var (w, h) := (p.Width, p.Height);
  var (x, y) := (0, 0);
  loop Window.Height div h do
  begin
    loop Window.Width div w do
    begin
      p.Draw(x, y);
      x += w;
    end;
    x := 0;
    y += h;
  end;
end;