anchor.diff:      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('Build All', 'Ctrl+Shift+F9', @miRunBuild);
  +    AddMenuItem('Make 1', 'Ctrl+Alt+1', @miRunMake1);
  +    AddMenuItem('Make 2', 'Ctrl+Alt+2', @miRunMake2);
  +    AddMenuItem('Make 3', 'Ctrl+Alt+3', @miRunMake3);
  +    AddMenuItem('Make 4', 'Ctrl+Alt+4', @miRunMake4);
       AddMenuItem('-', '', nil);
       AddMenuItem('Run', 'F9', nil);
       AddMenuItem('Run Parameters...', '', nil);
  
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:     u.Opened := False;
  end;
  
  procedure TMainForm.BuildTerminated(Sender: TObject);
  begin
    AddMessage('Compilation complete');
  end;
  
  procedure TMainForm.UpdateStatus(const AText: TfpgString);
  begin
    lblStatus.Text := AText;
  