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: procedure TProjectOptionsForm.grdCompilerMakeOptionsKeyPressed(Sender: TObject;
    var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
  begin
    if (KeyCode = keyInsert) and (ssCtrl in ShiftState) then
    begin
      TfpgStringGrid(Sender).RowCount := TfpgStringGrid(Sender).RowCount + 1;
      Consumed := True;
      Exit;
    end;
  
    if TfpgStringGrid(Sender).FocusCol < 6 then
    begin
      if (KeyCode = keySpace) then
      begin
        grdCompilerMakeOptionsClicked(Sender);
        Consumed := True;
      end;
    end
    else if TfpgStringGrid(Sender).FocusCol = 6 then
    begin
  