From 96dc6b99395e334aef4d08af1160a7f2e3136904 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 4 Sep 2020 09:05:50 +0000
Subject: [PATCH] fpspreadsheet: clean up

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7643 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../source/visual/fpspreadsheetgrid.pas       | 41 -------------------
 1 file changed, 41 deletions(-)

diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
index 448a34bed..945df52ca 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
@@ -409,7 +409,6 @@ type
     procedure DeleteCol(AGridCol: Integer); reintroduce;
     procedure DeleteRow(AGridRow: Integer); reintroduce;
     procedure DragDrop(Source: TObject; X, Y: Integer); override;
-    procedure EditingDone; override;
     function  EditorByStyle(Style: TColumnButtonStyle): TWinControl; override;
     procedure EndUpdate(ARefresh: Boolean = true);
     function GetGridCol(ASheetCol: Cardinal): Integer; inline;
@@ -3362,46 +3361,6 @@ begin
     fntIndex, numfmtColor, lCell^.RichTextParams, RTL);
 end;
 
-{@@ ----------------------------------------------------------------------------
-  This procedure is called when editing of a cell is completed. It determines
-  the worksheet cell and writes the text into the worksheet. Tries to keep the
-  format of the cell, but if it is a new cell, or the content type has changed,
-  tries to figure out the content type (number, date/time, text).
--------------------------------------------------------------------------------}
-procedure TsCustomWorksheetGrid.EditingDone;
-var
-  cell: PCell;
-  msg: String;
-begin
-  {
-  if (not EditorShowing) and FEditing then
-  begin
-    if not ValidFormula(FEditText, msg) then
-    begin
-      FEditing := false;
-      exit;
-    end;
-
-    if FOldEditorText <> FEditText then
-    begin
-      cell := Worksheet.GetCell(GetWorksheetRow(Row), GetWorksheetCol(Col));
-      if Worksheet.IsMerged(cell) then
-        cell := Worksheet.FindMergeBase(cell);
-      if (FEditText <> '') and (FEditText[1] = '=') then
-        Worksheet.WriteFormula(cell, Copy(FEditText, 2, Length(FEditText)), true)
-      else
-        Worksheet.WriteCellValueAsString(cell, FEditText);
-      FEditText := '';
-      FOldEditorText := '';
-    end;
-    inherited EditingDone;
-  end;
-  FEditing := false;
-  FEnhEditMode := false;
-  }
-  inherited;
-end;
-
 {@@ ----------------------------------------------------------------------------
   Is called when editing is complete; checks whether input is valid already
   have been done.