Перерисовка объектов, при изменении размера окна - PascalABC.NET - Ответ 12333694

uses GraphABC;
 
const
  r = 20;
  n = 5;
 
type
  Fig = record
    x, y: integer;
    c: Color;
    constructor(px, py: integer; pc: Color);
    begin
      x := px; y := py; c := pc;
    end;
  end;
 
var
  L: List<Fig> := new List<Fig>;
 
procedure PaintFigure(F: Fig);
begin
  SetPenColor(F.c);
  with F do
    if (x / y) >= (WindowWidth / WindowHeight) then 
      Circle(x - r, y - n, 30)
    else 
      Rectangle(x - r, y - r, x + 30, y + 30);
end;
 
procedure MouseDown(x, y, mousebutton: integer);
begin
  var fg := new Fig(x, y, clRandom);
  PaintFigure(fg);
  L.Add(fg);
end;
 
procedure DoResize;
begin
  ClearWindow;
  SetPenColor(clBlack);
  Line(0, 0, WindowWidth, WindowHeight);
  SetFontSize(25);
  TextOut(200, 320, 'I');
  TextOut(600, 120, 'II');
  
  foreach var fg in L do
    PaintFigure(fg);
end;
 
begin
  CenterWindow;
  DoResize;
  OnMouseDown := MouseDown;
  OnResize := DoResize;
end.