From 758c00904a5c70b0b92729ca55698e51fff4f526 Mon Sep 17 00:00:00 2001 From: wp Date: Mon, 26 Nov 2018 11:23:41 +0000 Subject: [PATCH] fpvectorial: Reduce default border width of table cells from 1mm to 0.5pt (see https://forum.lazarus.freepascal.org/index.php/topic,43322.msg302997). git-svn-id: trunk@59665 - --- components/fpvectorial/fpvectorial.pas | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/components/fpvectorial/fpvectorial.pas b/components/fpvectorial/fpvectorial.pas index a98637ccbe..e1302f785b 100644 --- a/components/fpvectorial/fpvectorial.pas +++ b/components/fpvectorial/fpvectorial.pas @@ -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;