Page Comparison

procedure TForm1.psSetSelected(Sender: TObject);
var
  ps: IPlanSwift;
  Est,sect,Area: IItem;
  psline: ILine;
  pt1,pt2: IPoint;
  I: Integer;
begin
  //Get Planswift Interface
  ps := CoPlanswift.Create;
  //Place planswift into update mode
  ps.BeginUpdate;
  // Get the Takeoff Folder (Estimating Tab in Planswift);
  Est := ps.GetItem('Job\Takeoff');
  //Create a New Area Item in the Estimating Tab
  Area := Est.NewItem('Area','Get Rect Demo');
  //Create three different Areas
  for I := 0 to 3 - 1 do begin
    //Create a new Section for the Area
    sect := Area.NewSection('Get Rect Demo Section');
    //Call the Get Rect functions
    psline := ps.GetRect('Draw Area');
    //Get the two points from the iLine Returned by the GetRect function
    pt1 := psline.Point1;
    pt2 := psline.Point2;
    //Add Points to section to create a box
    sect.NewPoint(pt1.X,pt1.y);
    sect.NewPoint(pt2.X,pt1.y);
    sect.NewPoint(pt2.X,pt2.y);
    sect.NewPoint(pt1.X,pt2.y);
    sect.NewPoint(pt1.X,pt1.y);
  end;
  //EndUpdate;
  ps.EndUpdate;
  //Set Second Area As Selected zero based 1 = 2
  Area.ChildItem[1].Selected := True;
  //Free the Planswift Interface
  ps := nil;
 
end;