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

fpvectorial-html: Sets border to none when there is no border attribute

Browse Source 
git-svn-id: trunk@48923 -
This commit is contained in:
sekelsenmat 2015-05-03 07:35:04 +00:00
parent 389df5cdfe
commit 662f81c5c1
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/fpvectorial/htmlvectorialreader.pas
View File

@ -317,12 +317,26 @@ var
// attributes
i, lBorderNr: Integer;
lAttrName, lAttrValue: DOMString;
procedure SetBorderLineType(AType: TvTableBorderType);
begin
CurTable.Borders.Left.LineType := AType;
CurTable.Borders.Right.LineType := AType;
CurTable.Borders.Top.LineType := AType;
CurTable.Borders.Bottom.LineType := AType;
CurTable.Borders.InsideHoriz.LineType := AType;
CurTable.Borders.InsideVert.LineType := AType;
end;
begin
Result := nil;
CurTable := AData.AddTable();
CurTable.CellSpacingLeft := 3;
CurTable.CellSpacingTop := 2;
// Default to no border without "border" attribute
SetBorderLineType(tbtNone);
// table attributes
for i := 0 to ANode.Attributes.Length - 1 do
begin
@ -342,14 +356,7 @@ begin
CurTable.Borders.InsideVert.Width := lBorderNr;
if lBorderNr = 0 then
begin
CurTable.Borders.Left.LineType := tbtNone;
CurTable.Borders.Right.LineType := tbtNone;
CurTable.Borders.Top.LineType := tbtNone;
CurTable.Borders.Bottom.LineType := tbtNone;
CurTable.Borders.InsideHoriz.LineType := tbtNone;
CurTable.Borders.InsideVert.LineType := tbtNone;
end;
SetBorderLineType(tbtNone);
end;
end;
end;