anchor.diff:      u.Opened := False;
   end;
   
  +procedure TMainForm.BuildTerminated(Sender: TObject);
  +begin
  +  AddMessage('Compilation complete');
  +end;
  +
   procedure TMainForm.UpdateStatus(const AText: TfpgString);
   begin
     lblStatus.Text := AText;
  
positive.code:     Name := 'mnuRun';
      SetPosition(476, 161, 172, 20);
      AddMenuItem('Make', 'Ctrl+F9', @miRunMake);
      AddMenuItem('Build All', 'Ctrl+Shift+F9', nil);
      AddMenuItem('Make 1', 'Ctrl+Alt+1', nil);
      AddMenuItem('Make 2', 'Ctrl+Alt+2', nil);
      AddMenuItem('Make 3', 'Ctrl+Alt+3', nil);
      AddMenuItem('Make 4', 'Ctrl+Alt+4', nil);
      AddMenuItem('-', '', nil);
      AddMenuItem('Run', 'F9', nil);
      AddMenuItem('Run Parameters...', '', nil);
  
negative.code: 
  procedure TMainForm.miRunMake(Sender: TObject);
  var
    thd: TBuilderThread;
  begin
    thd := TBuilderThread.Create(True);
    thd.OnTerminate := @BuildTerminated;
    thd.Resume;
  end;
  
  procedure TMainForm.miRunBuild(Sender: TObject);
  var
    thd: TBuilderThread;
  begin
    thd := TBuilderThread.Create(True);
    thd.BuildMode := 1;
    thd.OnTerminate := @BuildTerminated;
    thd.Resume;
  end;
  
  procedure TMainForm.miRunMake1(Sender: TObject);
  var
    thd: TBuilderThread;
  begin
    thd := TBuilderThread.Create(True);
    thd.BuildMode := 2;
    thd.OnTerminate := @BuildTerminated;
    thd.Resume;
  end;
  
  procedure TMainForm.miRunMake2(Sender: TObject);
  var
    thd: TBuilderThread;
  begin
    thd := TBuilderThread.Create(True);
    thd.BuildMode := 3;
    thd.OnTerminate := @BuildTerminated;
    thd.Resume;
  end;
  
  procedure TMainForm.miRunMake3(Sender: TObject);
  var
    thd: TBuilderThread;
  begin
    thd := TBuilderThread.Create(True);
    thd.BuildMode := 4;
    thd.OnTerminate := @BuildTerminated;
    thd.Resume;
  end;
  
  procedure TMainForm.miRunMake4(Sender: TObject);
  var
    thd: TBuilderThread;
  begin
    thd := TBuilderThread.Create(True);
    thd.BuildMode := 5;
    thd.OnTerminate := @BuildTerminated;
    thd.Resume;
  end;
  
  procedure TMainForm.miConfigureIDE(Sender: TObject);
  