Курсовая работа: Разработка класса прямоугольников

f.w := StrToInt(Editw.Text);

f.h := StrToInt(Edith.Text);

Refresh;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if sel1.Caption <> '' then s.delRect(sel1.Caption);

ListBox1.Items.Delete(ListBox1.ItemIndex);

Refresh;

end;

procedure TForm1.Button4Click(Sender: TObject);

var

f1, f2 : pNode;

x, y, w, h : integer;

begin

f1 := s.find(sel1.Caption);

f2 := s.find(sel2.Caption);

x := min(min(f1.x, f1.x + f1.w), min(f2.x, f2.x + f2.w));

w := max(max(f1.x, f1.x + f1.w), max(f2.x, f2.x + f2.w));

w := w - x;

y := min(min(f1.y, f1.y + f1.h), min(f2.y, f2.y + f2.h));

h := max(max(f1.y, f1.y + f1.h), max(f2.y, f2.y + f2.h));

h := h - y;

ListBox1.Items.Add(s.newRect(x, y, w, h));

Refresh;

end;

function TForm1.min(a, b : integer) : integer;

begin