anchor.diff:    begin
       FFocusRect := ARect;
     end;
  +
  +  if ACol < 10 then
  +    grdCompilerDirs.Canvas.SetFont(FCheckFont)
  +  else
  +    grdCompilerDirs.Canvas.Setfont(grdCompilerDirs.Font);
   end;
   
   procedure TProjectOptionsForm.grdCompilerDirsKeyPressed(Sender: TObject;
     var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
   begin
     if TfpgStringGrid(Sender).FocusCol < 10 then
  -    Exit;
  -  if (KeyCode = keyF2) or (KeyCode = keyReturn) then
  -  begin
  -    // we need to edit the cell contents
  -    SetupCellEdit(TfpgStringGrid(Sender));
  +  begin
  +    if (KeyCode = keySpace) then
  +      grdCompilerDirsClicked(Sender);
  +  end
  +  else if TfpgStringGrid(Sender).FocusCol = 10 then
  +  begin
  +    if (KeyCode = keyF2) or (KeyCode = keyReturn) then
  +    begin
  +      // we need to edit the cell contents
  +      SetupCellEdit(TfpgStringGrid(Sender));
  +    end;
     end;
   end;
   
  
positive.code:   begin
      FFocusRect := ARect;
    end;
  end;
  
  procedure TProjectOptionsForm.grdCompilerMakeOptionsClicked(Sender: TObject);
  var
    r, c: integer;
  begin
    r := grdCompilerMakeOptions.FocusRow;
    c := grdCompilerMakeOptions.FocusCol;
    if c < 6 then   // checkbox area
    begin
      if TfpgStringGrid(Sender).Cells[c, r] = '' then
        TfpgStringGrid(Sender).Cells[c, r] := 'x'
      else
        TfpgStringGrid(Sender).Cells[c, r] := '';
    end;
  
negative.code: 
  {@VFD_NEWFORM_IMPL}
  
  procedure TProjectOptionsForm.CellEditExit(Sender: TObject);
  begin
    FCellEdit.Visible := False;
  end;
  
  procedure TProjectOptionsForm.CellEditKeypressed(Sender: TObject;
    var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
  begin
  