anchor.diff:      begin
         // we need to edit the cell contents
         SetupCellEdit(TfpgStringGrid(Sender));
  +      Consumed := True;
       end;
     end;
   end;
  
positive.code: procedure TProjectOptionsForm.grdCompilerDirsKeyPressed(Sender: TObject;
    var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
  begin
    if TfpgStringGrid(Sender).FocusCol < 10 then
    begin
      if (KeyCode = keySpace) then
        grdCompilerDirsClicked(Sender);
    end
    else if TfpgStringGrid(Sender).FocusCol = 10 then
    begin
  
negative.code:     begin
        // we need to edit the cell contents
        SetupCellEdit(TfpgStringGrid(Sender));
        Consumed := True;
      end;
    end;
  end;
  