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: 
  procedure TMainForm.miRunMake(Sender: TObject);
  var
    p: TProcess;
    c: TfpgString;
  begin
    p := TProcess.Create(nil);
    p.ShowWindow := swoShowNormal;
    p.CurrentDirectory := GProject.ProjectDir;
  
    // build compilation string
    c := gINI.ReadString(cEnvironment, 'Compiler', '');
    c := c + GProject.GenerateCmdLine;
    c := GMacroList.ExpandMacro(c);
  
    writeln('');
    writeln('Compile command:');
    writeln('  ' + c);
    AddMessage('Compile command: ' + c);
  
    p.CommandLine := c;
    p.Execute;
    AddMessage('Compilation complete');
    p.Free;
  end;
  
  procedure TMainForm.miConfigureIDE(Sender: TObject);
  
negative.code:   ,idemacros
    ,Project
    ,UnitList
    ,BuilderThread
    ;
  
  
  