How to make thinner lines of the table?

[izumsasha]

Hello!
Please tell me - is it possible to set the thickness of the lines of the table?
Thank!

[wp]

Please provide more information. fpvectorial supports many formats, and it is not clear which one you are using. Ideally you should post a compilable sample project which shows the issue (put .pas, .lfm, .lpr and .lpi files into a common .zip which you can upload here under "Attchments and other options"; don't add binaries and other compiler-generated files).

[izumsasha]

Please provide more information. fpvectorial supports many formats, and it is not clear which one you are using. Ideally you should post a compilable sample project which shows the issue (put .pas, .lfm, .lpr and .lpi files into a common .zip which you can upload here under "Attchments and other options"; don't add binaries and other compiler-generated files).

I just took your example on creating a simple table and saving a document (http://wiki.freepascal.org/fpvectorial_-_Text_Document_Support). Also an example procedure in an application.

[wp]

Strange, this example does not compile for me. I had to modify setting of the col widths and some other places.

Anyway, after studying the source code I found that each cell has a field "Borders" which, in turn, contains elements "Left", "Right", "Top" and "Bottom"; and these have an element "Width" for the border width in millimeters. Unfortunately this is initialized with the value 1 mm which seems to be too large, in my eyes - 0.1 mm would be better.

You can do this: Whenever you create a cell call the following procedure: it changes the border widths to 0.1 mm and sets the LineType of the border to tbtSingle (this is necessary because borders with the standard line type, tbtDefault, are not written to the file).

Code: Pascal  [Select][+][-]

1. procedure DefaultBorder(var ABorder: TvTableBorder);
2. begin
3.   ABorder.Width := 0.1;
4.   ABorder.LineType := tbtSingle;
5. end;
6.  
7. procedure DefaultCell(ACell: TvTableCell);
8. begin
9.   DefaultBorder(ACell.Borders.Left);
10.   DefaultBorder(ACell.Borders.Right);
11.   DefaultBorder(ACell.Borders.Top);
12.   DefaultBorder(ACell.Borders.Bottom);
13. end;
14. ...
15.       for iCol := 0 to 4 do
16.       begin
17.         Cell := Row.AddCell;
18.         DefaultCell(Cell);     // <---- NEW

[izumsasha]

Code: Pascal  [Select][+][-]

1. procedure DefaultBorder(var ABorder: TvTableBorder);
2. begin
3.   ABorder.Width := 0.1;
4.   ABorder.LineType := tbtSingle;
5. end;
6.  
7. procedure DefaultCell(ACell: TvTableCell);
8. begin
9.   DefaultBorder(ACell.Borders.Left);
10.   DefaultBorder(ACell.Borders.Right);
11.   DefaultBorder(ACell.Borders.Top);
12.   DefaultBorder(ACell.Borders.Bottom);
13. end;
14. ...
15.       for iCol := 0 to 4 do
16.       begin
17.         Cell := Row.AddCell;
18.         DefaultCell(Cell);     // <---- NEW

Works!
Lazarus forever!

[wp]

I modified the sources of fpvectorial, the default value of cell border widths is now 0.5 pt. The fix will be contained in the upcoming version 2.0.