paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 17:58:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Reduce default border width of table cells from 1mm to 0.5pt (see https://forum.lazarus.freepascal.org/index.php/topic,43322.msg302997).

Browse Source 
git-svn-id: trunk@59665 -
This commit is contained in:
wp 2018-11-26 11:23:41 +00:00
parent 743dfad3a9
commit 758c00904a
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/fpvectorial/fpvectorial.pas
View File

@ -2430,15 +2430,15 @@ end;
constructor TvTable.create(APage: TvPage);
begin
inherited Create(APage);
Rows := TFPList.Create;
Borders.Left.Width := 1;
Borders.Right.Width := 1;
Borders.Top.Width := 1;
Borders.Bottom.Width := 1;
Borders.InsideHoriz.Width := 1;
Borders.InsideVert.Width := 1;
// Use default cell border widths of 0.5 pts, like Word or Writer.
Borders.Left.Width := 0.5 * FPV_TEXT_POINT_TO_MM;
Borders.Right.Width := 0.5 * FPV_TEXT_POINT_TO_MM;
Borders.Top.Width := 0.5 * FPV_TEXT_POINT_TO_MM;
Borders.Bottom.Width := 0.5 * FPV_TEXT_POINT_TO_MM;
Borders.InsideHoriz.Width := 0.5 * FPV_TEXT_POINT_TO_MM;
Borders.InsideVert.Width := 0.5 * FPV_TEXT_POINT_TO_MM;
end;
destructor TvTable.destroy;