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

Refresh;

end;

procedure TForm1.FormPaint(Sender: TObject);

var

i : integer;

p : pNode;

begin

for i := 0 to ListBox1.Items.Count - 1 do

begin

p := s.find(ListBox1.Items[i]);

if p <> nil then

begin

if p.id = sel1.Caption then Canvas.Pen.Color := clBlue

else if p.id = sel2.Caption then Canvas.Pen.Color := clNavy

else Canvas.Pen.Color := clBlack;

Canvas.Pen.Width := 5;

Canvas.Brush.Style := bsClear;

Canvas.Rectangle(p.x, p.y, p.x + p.w, p.y + p.h);

end;

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

f : pNode;

begin

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

if f <> nil then

begin

f.x := StrToInt(Editx.Text);