[SOLVED] fpspreadsheet svn - WriteRowHeight don't workig
lazarus / 49-FPSpreadsheet

----------------------------------------------------------------------
paweld · 2015-04-28 09:38

Hi,
in svn version procedure WriteRowHeight not working.
In version 1.4.2 it's ok.

Lazarus 1.4.0 32bit, Windows 7 x64

----------------------------------------------------------------------
wp · 2015-04-28 09:57

Cannot reproduce. A spreadsheet with modified row height is written
correctly to any of the biff formats, xlsx or ods. Please be more
specific what is not working any more and what you are doing exactly.
Which svn revision are you using, and which operating system?

----------------------------------------------------------------------
paweld · 2015-04-28 10:56

Latest svn version (4100) on Lazarus 1.4.0 32 bit, Windows 7 x64
(pro).
i tried saved as sfExcel8, sfOOXML and sfOpenDocument, and has no any
changes.

Code: [Select]program xlswritetest;

{$mode objfpc}{$H+}

uses
  Classes, SysUtils, fpstypes, fpspreadsheet, laz_fpspreadsheet;

var
  workb: TsWorkbook;
  works: TsWorksheet;

begin
  workb:=TsWorkbook.Create;
  works:=workb.AddWorksheet('Test');
  works.WriteRowHeight(1, 5);
  works.WriteUTF8Text(0, 0, 'One');
  works.WriteUTF8Text(1, 0, 'Two');
  works.WriteUTF8Text(2, 0, 'Three');
  workb.WriteToFile('c:\test.xls', sfExcel8);
  workb.Free;
end.
Best regards
Paweł

----------------------------------------------------------------------
wp · 2015-04-28 13:24

Using the same configuration, the second row is saved with a higher
height here, as I can seen when loading the file into Excel or the
spready or demo_ctrls demos of the visual package. There must be
something else that you are doing wrong.

Open the package, do a clean recompile ("Package" / "Open package
file" / Select laz_fpspreadsheet.dpk / "More >>>" / "Recompile clean",
and try again.

----------------------------------------------------------------------
paweld · 2015-04-28 16:42

Thanks for your help.
The problem solved. In fpspreadsheet.pas file in line 5645 (function
GetRow) was:
Code: [Select]FCols.Add(Result);instead of
Code: [Select]FRows.Add(Result);
I download svn repository again, and it's ok

----------------------------------------------------------------------
wp · 2015-04-28 17:02

Good that you found it. But how can this be? I cannot find the line
that you modified in the repository. Did you modify the sources
yourself?

----------------------------------------------------------------------
paweld · 2015-04-28 17:53

no, i get sources from svn and build Lazarus with "clean and build
all"

----------------------------------------------------------------------
wp · 2015-04-28 17:58

Strange...