anchor.diff:        IniCalendarCell;
     end;
     FEditing := True;
  +  Enabled:= False;
   end;
   
   procedure TfpgCustomEditGrid.EditGridMouseDown(Sender: TObject; AButton: TMouseButton; AShift: TShiftState;
  
positive.code:         FCellEditText.Text := '';
          FCellEditText.Visible := False;
          FEditing := False;
          SetFocus;
          end;
      end;
  
negative.code: begin
    case FEditWay of
      edNone:
        begin
        FEditing:= False;
        Enabled:= True;
        end;
      edColumn:
        if FocusCol < Pred(ColumnCount) then
          FocusCol := FocusCol + 1
        else
          begin
          FEditing:= False;
          Enabled:= True;
          end;
      edRow:
        if FocusRow < Pred(RowCount) then
          FocusRow := FocusRow + 1
        else
          begin
          FEditing:= False;
          Enabled:= True;
          end;
    end;
    SetFocus;
    if FEditing then
  