anchor.diff:    end;
   end;
   
  +procedure TProjectOptionsForm.SaveToMacroList(AList: TIDEMacroList);
  +begin
  +//  AList.SetValue(cMacro_FPCSrcDir, edtFPCSrcDir.Directory);
  +end;
  +
   constructor TProjectOptionsForm.Create(AOwner: TComponent);
   begin
     inherited Create(AOwner);
  +  FInternalMacroList := TIDEMacroList.Create;
     FCheckFont := fpgGetFont('DejaVu Sans-9');
   end;
   
   destructor TProjectOptionsForm.Destroy;
   begin
  +  FInternalMacroList.Free;
     FCheckFont.Free;
     inherited Destroy;
   end;
  
positive.code:     AddColumn('Directories', 350, taLeftJustify);
      FontDesc := '#Grid';
      HeaderFontDesc := '#GridHeader';
      Hint := '';
      RowCount := 0;
      RowSelect := False;
      TabOrder := 1;
      OnClick := @grdCompilerDirsClicked;
      OnDrawCell := @grdCompilerDirsDrawCell;
      OnKeyPress := @grdCompilerDirsKeyPressed;
    end;
  
    Label11 := TfpgLabel.Create(TabSheet2);
  
negative.code:     InitialDir := '';
      Filter := '';
      TabOrder := 2;
      Hint := ' ';
      OnShowHint := @BeforeShowHint;
    end;
  
    Label2 := TfpgLabel.Create(tsCompiler);
  