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

fpspreadsheet: Fix reading of row and column formats from ods files.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5261 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-10-14 10:21:25 +00:00
parent c908c87838
commit 94a1b7adaf
2 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpspreadsheet/fpsopendocument.pas
View File

@ -3503,8 +3503,11 @@ var
// sometimes split into two parts.
cell := FWorksheet.FindCell(row, col);
if cell <> nil then
for i:=1 to colsRepeated-1 do
FWorksheet.CopyCell(row, col, row, col+i);
for i:=1 to colsRepeated-1 do begin
cell := FWorksheet.CopyCell(row, col, row, col+i);
styleIndex := ExtractFormatIndexFromStyle(cellStyleName, col+i);
ApplyStyleToCell(cell, styleIndex);
end;
end;
end
else

12
components/fpspreadsheet/fpspreadsheet.pas
View File

@ -374,8 +374,8 @@ type
{ Data manipulation methods - For Cells }
procedure CopyCell(AFromCell, AToCell: PCell); overload;
procedure CopyCell(AFromRow, AFromCol, AToRow, AToCol: Cardinal;
AFromWorksheet: TsWorksheet = nil); overload;
function CopyCell(AFromRow, AFromCol, AToRow, AToCol: Cardinal;
AFromWorksheet: TsWorksheet = nil): PCell; overload;
procedure CopyFormat(AFromCell, AToCell: PCell); overload;
procedure CopyFormat(AFormatCell: PCell; AToRow, AToCol: Cardinal); overload;
procedure CopyFormula(AFromCell, AToCell: PCell); overload;
@ -1723,9 +1723,11 @@ end;
@param AToRow Row index of the destination cell
@param AToCol Column index of the destination cell
@param AFromWorksheet Worksheet containing the source cell. Self, if omitted.
@return Created new destination cell
-------------------------------------------------------------------------------}
procedure TsWorksheet.CopyCell(AFromRow, AFromCol, AToRow, AToCol: Cardinal;
AFromWorksheet: TsWorksheet = nil);
function TsWorksheet.CopyCell(AFromRow, AFromCol, AToRow, AToCol: Cardinal;
AFromWorksheet: TsWorksheet = nil): PCell;
var
srcCell, destCell: PCell;
begin
@ -1739,6 +1741,8 @@ begin
ChangedCell(AToRow, AToCol);
ChangedFont(AToRow, AToCol);
Result := destCell;
end;
{@@ ----------------------------------------------------------------------------