anchor.diff:    for i := 0 to GProject.MakeOptions.Count-1 do
     begin
       grdCompilerMakeOptions.Cells[6, i] := GProject.MakeOptions[i];
  -  end;
  -
  +    for j := 0 to 5 do // we know there is only 6 boolean columns
  +    begin
  +      if GProject.MakeOptionsGrid[j, i] then
  +        grdCompilerMakeOptions.Cells[j, i] := cCheck;
  +    end;
  +  end;
  +
  +  grdCompilerDirs.RowCount := GProject.UnitDirs.Count;
     for i := 0 to GProject.UnitDirs.Count-1 do
     begin
       grdCompilerDirs.Cells[10, i] := GProject.UnitDirs[i];
  -  end;
  -
  +    for j := 0 to 9 do // we know there is only 10 boolean columns
  +    begin
  +      if GProject.UnitDirsGrid[j, i] then
  +        grdCompilerDirs.Cells[j, i] := cCheck;
  +    end;
  +  end;
  +
  +{
     grdCompilerMakeOptions.Cells[0, 0] := cCheck;
     grdCompilerMakeOptions.Cells[1, 0] := cCheck;
     grdCompilerMakeOptions.Cells[2, 0] := cCheck;
  
positive.code:     TabOrder := 1;
      OnClick := @grdCompilerMakeOptionsClicked;
      OnDrawCell := @grdCompilerMakeOptionsDrawCell;
      OnKeyPress :=@grdCompilerMakeOptionsKeyPressed;
    end;
  
    grdCompilerDirs := TfpgStringGrid.Create(TabSheet2);
  
negative.code: 
  procedure TProjectOptionsForm.LoadSettings;
  var
    i, j: integer;
  begin
    edtMainFile.FileName := GProject.MainUnit;
    edtTargetFile.FileName := GProject.TargetFile;
  