diff --git a/components/fpspreadsheet/source/common/fpsclasses.pas b/components/fpspreadsheet/source/common/fpsclasses.pas index 73835c36c..1b6d6bf2e 100644 --- a/components/fpspreadsheet/source/common/fpsclasses.pas +++ b/components/fpspreadsheet/source/common/fpsclasses.pas @@ -1505,50 +1505,6 @@ begin Delete(ARow, ACol); // will release memory automatically end; -(* -procedure TsFormulas.DeleteRowOrCol(AIndex: Cardinal; IsRow: Boolean; - InSheet: TsBasicWorksheet); -var - node, nextnode: TAvgLvlTreeNode; - formula: PsFormula; - changed: Boolean; -begin - node := FindLowest; - while Assigned(node) do - begin - changed := false; - nextnode := FindSuccessor(node); - formula := PsFormula(node.Data); - if IsRow then - begin - // Remove and destroy the formula record if it is in the deleted row - if formula^.Row = AIndex then - Delete(node) - else begin - if formula^.Row > AIndex then - dec(formula^.Row); - // Update all RowCol records at row indexes above the deleted row - changed := formula^.Parser.IterateNodes(@FixDeletedRow, Pointer(PtrInt(AIndex))); - end; - end else - begin - // Remove and destroy the formula record if it is in the deleted column - if formula^.Col = AIndex then - Delete(node) - else begin - if formula^.Col > AIndex then - dec(formula^.Col); - // Update all RowCol records at column indexes above the deleted column - changed := formula^.Parser.IterateNodes(@FixDeletedCol, Pointer(PtrInt(AIndex))); - end; - end; - // Recreate the formula if required. - if changed then - formula^.Text := formula^.Parser.Expression; - node := nextnode; - end; -end; *) - procedure TsFormulas.DisposeData(var AData: Pointer); begin if AData <> nil then begin @@ -1603,30 +1559,6 @@ function TsFormulas.GetEnumerator: TsFormulaEnumerator; begin Result := TsFormulaEnumerator.Create(self, 0, 0, $7FFFFFFF, $7FFFFFFF, false); end; - (* -procedure TsFormulas.InsertRowOrCol(AIndex: Cardinal; IsRow: Boolean); -var - node: TAvgLvlTreeNode; - formula: PsFormula; - changed: Boolean; -begin - node := FindLowest; - while Assigned(node) do begin - formula := PsFormula(node.Data); - if IsRow then - begin - if formula^.Row >= AIndex then inc(formula^.Row); - changed := formula^.Parser.IterateNodes(@FixInsertedRow, Pointer(PtrInt(AIndex))); - end else - begin - if formula^.Col >= AIndex then inc(formula^.Col); - changed := formula^.Parser.IterateNodes(@FixInsertedCol, Pointer(PtrInt(AIndex))); - end; - if changed then - formula^.Text := formula^.Parser.Expression; - node := FindSuccessor(node); - end; -end; *) function TsFormulas.NewData: Pointer; var