paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-24 01:59:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 59665 #758c00904a from trunk:

Browse Source 
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: branches/fixes_2_0@59706 -
This commit is contained in:
maxim 2018-11-29 23:02:12 +00:00
parent fcc64fc072
commit 31570c7e45
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;