[SOLVED] fpspreadsheet svn - WriteRowHeight don't workig

[paweld]

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]

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]

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]

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]

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]

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]

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

[wp]

Strange...