pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Consider hyperlinks when inserting/deleting rows/columns

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3975 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-03-01 22:20:03 +00:00
parent 5a4bb856f5
commit f92da238ee
1 changed files with 51 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
components/fpspreadsheet/fpspreadsheet.pas
View File

@ -6409,6 +6409,7 @@ var
firstRow, lastCol, lastRow: Cardinal;
rng: PsCellRange;
comment: PsComment;
hyperlink: PsHyperlink;
begin
lastCol := GetLastColIndex;
lastRow := GetLastOccupiedRowIndex;
@ -6477,6 +6478,22 @@ begin
AVLNode := nextAVLNode;
end;
// Fix hyperlinks
AVLNode := FHyperlinks.FindLowest;
while Assigned(AVLNode) do begin
nextAVLNode := FHyperlinks.FindSuccessor(AVLNode);
hyperlink := PsHyperlink(AVLNode.Data);
// Update all hyperlink column indexes to the right of the deleted column
if hyperlink^.Col > ACol then
dec(hyperlink^.Col)
else
// Remove the hyperlink if it is in the deleted column
if hyperlink^.Col = ACol then
WriteHyperlink(hyperlink^.Row, ACol, '');
AVLNode := nextAVLNode;
end;
// Delete cells
for r := lastRow downto firstRow do
RemoveAndFreeCell(r, ACol);
@ -6520,6 +6537,7 @@ var
cell, nextcell, basecell: PCell;
rng: PsCellRange;
comment: PsComment;
hyperlink: PsHyperlink;
begin
firstCol := GetFirstColIndex;
lastCol := GetLastOccupiedColIndex;
@ -6586,6 +6604,21 @@ begin
AVLNode := nextAVLNode;
end;
// Fix hyperlinks
AVLNode := FHyperlinks.FindLowest;
while Assigned(AVLNode) do begin
nextAVLNode := FHyperlinks.FindSuccessor(AVLNode);;
hyperlink := PsHyperlink(AVLNode.Data);
// Update all hyperlink row indexes below the deleted row
if hyperlink^.Row > ARow then
dec(hyperlink^.Row)
else
// Remove the hyperlink if it is in the deleted row
if hyperlink^.Row = ARow then
WriteHyperlink(ARow, hyperlink^.Col, '');
AVLNode := nextAVLNode;
end;
// Delete cells
for c := lastCol downto 0 do
RemoveAndFreeCell(ARow, c);
@ -6629,6 +6662,7 @@ var
AVLNode: TAVLTreeNode;
rng: PsCellRange;
comment: PsComment;
hyperlink: PsHyperlink;
begin
// Handling of shared formula references is too complicated for me...
// Split them into isolated cell formulas
@ -6647,6 +6681,14 @@ begin
AVLNode := FComments.FindSuccessor(AVLNode);
end;
// Update column index of hyperlinks
AVLNode := FHyperlinks.FindLowest;
while Assigned(AVLNode) do begin
hyperlink := PsHyperlink(AVLNode.Data);
if hyperlink^.Col >= ACol then inc(hyperlink^.Col);
AVLNode := FHyperlinks.FindSuccessor(AVLNode);
end;
// Update column index of cell records
AVLNode := FCells.FindLowest;
while Assigned(AVLNode) do begin
@ -6756,6 +6798,7 @@ var
AVLNode: TAVLTreeNode;
rng: PsCellRange;
comment: PsComment;
hyperlink: PsHyperlink;
begin
// Handling of shared formula references is too complicated for me...
// Splits them into isolated cell formulas
@ -6774,6 +6817,14 @@ begin
AVLNode := FComments.FindSuccessor(AVLNode);
end;
// Update row index of cell hyperlinks
AVLNode := FHyperlinks.FindLowest;
while Assigned(AVLNode) do begin
hyperlink := PsHyperlink(AVLNode.Data);
if hyperlink^.Row >= ARow then inc(hyperlink^.Row);
AVLNode := FHyperlinks.FindSuccessor(AVLNode);
end;
// Update row index of cell records
AVLNode := FCells.FindLowest;
while Assigned(AVLNode) do begin