Copy Cell with property
lazarus / 49-FPSpreadsheet

----------------------------------------------------------------------
eldonfsr · 2025-09-30 15:48

How i can copy cell with properies the way to write it on new sheet
with value and properties...

i tried to get borders and font cell and put on new sheet what i tried
to aboy is not copy formulas just values... but i need look same as
originial file...

----------------------------------------------------------------------
wp · 2025-09-30 17:43

Doesn't the worksheet's CopyCell method do this?

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i program
Project1;uses  fpSpreadsheet, fpsTypes, fpsOpenDocument;var  wBook:
TsWorkbook;  wSheet1, wSheet2: TsWorksheet;begin  wBook :=
TsWorkbook.Create;  wSheet1 := wBook.AddWorksheet('Sheet 1');  wSheet2
:= wBook.AddWorksheet('Sheet 2');  wSheet1.WriteNumber(1, 1,
1.23456789, nfFixed, 2);  wSheet1.WriteFontStyle(1, 1, [fssBold]); 
wSheet1.WriteBorders(1, 1, [cbNorth, cbEast, cbSouth, cbWest]); 
wSheet1.WriteFormula(1, 2, '=B2+1');  wSheet1.CopyCell(1, 1, 3, 3);  
       // copy cell B2 to D4, same sheet.  wSheet2.CopyCell(1, 1, 2,
2, wSheet1);  // copy cell B2 from Sheet1 to Sheet2 cell C3 
wSheet2.CopyCell(1, 2, 2, 3, wSheet1);  // copy cell C2 from Sheet1 to
Sheet2 cell D3  wBook.WriteToFile('test.ods', true);  wBook.Free;end.