anchor.diff:  
     // Load make options
     LoadList(MakeOptions, 'MakeOptionsCount', 'MakeOption');
  +  sl := TStringList.Create;
  +  try
  +    LoadList(sl, 'MakeOptionsCount', 'MakeOptionEnabled');
  +    SetLength(FMakeOptionsGrid, 6, MakeOptions.Count);    // 6 columns by X rows
  +    for j := 0 to sl.Count-1 do
  +    begin
  +      s := sl[j];
  +      for l := 0 to 5 do  // we know we only have 6 columns
  +      begin
  +        a := tiToken(s, ',', l+1);
  +        MakeOptionsGrid[l, j] := Boolean(StrToInt(a));  // 1 = True, 0 = False
  +      end;
  +    end;
  +  finally
  +    sl.Free;
  +  end;
   
     // Load Macro definitions
     LoadList(MacroNames, 'MacroCount', 'Macro');
   
     // Load Unit search dirs
  -  LoadList(UnitDirs, 'UnitDirsCount', 'unitdir');
  +  LoadList(UnitDirs, 'UnitDirsCount', 'UnitDir');
  +  sl := TStringList.Create;
  +  try
  +    LoadList(sl, 'UnitDirsCount', 'UnitDirEnabled');
  +    SetLength(FUnitDirsGrid, 10, UnitDirs.Count);    // 10 columns by X rows
  +    for j := 0 to sl.Count-1 do
  +    begin
  +      s := sl[j];
  +      for l := 0 to 9 do  // we know we only have 10 columns
  +      begin
  +        a := tiToken(s, ',', l+1);
  +        UnitDirsGrid[l, j] := Boolean(StrToInt(a));  // 1 = True, 0 = False
  +      end;
  +    end;
  +  finally
  +    sl.Free;
  +  end;
   
     UnitOutputDir := FIniFile.ReadString(cProjectOptions, 'UnitOutputDir', 'units/i386-linux/');
   
  
positive.code:   Classes, SysUtils, UnitList, fpg_base, fpg_iniutils;
  
  type
    TProject = class(TObject)
    private
      FProjectName: TfpgString;
      FMainUnit: TfpgString;
      FUnitDirs: TStringList;
      FUnitList: TUnitList;
      FIniFile: TfpgINIFile;
      FProjectDir: TfpgString;
  
negative.code:     property    UnitList: TUnitList read FUnitList;
      property    DefaultMake: integer read FDefaultMake write FDefaultMake;
      property    MakeOptions: TStringList read FMakeOptions;
      property    MakeOptionsGrid: TBooleanGrid read FMakeOptionsGrid write FMakeOptionsGrid;
      property    MacroNames: TStringList read FMacroNames;
      property    UnitDirs: TStringList read FUnitDirs;
      property    UnitOutputDir: TfpgString read FUnitOutputDir write FUnitOutputDir;
      property    UnitDirsGrid: TBooleanGrid read FUnitDirsGrid write FUnitDirsGrid;
    end;
  
  
  