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

w2 := x2 + f.w;

if w2 < x2 then roll(w2, x2);

h2 := y2 + f.h;

if h2 < y2 then roll(h2, y2);

if (((x1 > x2) and (x1 < w2)) or ((w1 > x2) and (w1 < w2)) or

((x2 > x1) and (x2 < w1)) or ((w2 > x1) and (w2 < w1))) and

(((y1 > y2) and (y1 < h2)) or ((h1 > y2) and (h1 < h2)) or

((y2 > y1) and (y2 < h1)) or ((h2 > y1) and (h2 < h1))) then

begin

x := max(x1, x2);

y := max(y1, y2);

w := min(w1, w2);

h := min(h1, h2);

w := w - x;

h := h - y;

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

Refresh;

end;

end;

end.

unit Unit2;

interface

uses sysutils, classes;

type

pNode = ^Node;

Node = record

id : string;

x, y, w, h : integer;

next : pNode;