paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:59:14 +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 // attributes
i, lBorderNr: Integer; i, lBorderNr: Integer;
lAttrName, lAttrValue: DOMString; 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 begin
Result := nil; Result := nil;
CurTable := AData.AddTable(); CurTable := AData.AddTable();
CurTable.CellSpacingLeft := 3; CurTable.CellSpacingLeft := 3;
CurTable.CellSpacingTop := 2; CurTable.CellSpacingTop := 2;
// Default to no border without "border" attribute
SetBorderLineType(tbtNone);
// table attributes // table attributes
for i := 0 to ANode.Attributes.Length - 1 do for i := 0 to ANode.Attributes.Length - 1 do
begin begin
@ -342,14 +356,7 @@ begin
CurTable.Borders.InsideVert.Width := lBorderNr; CurTable.Borders.InsideVert.Width := lBorderNr;
if lBorderNr = 0 then if lBorderNr = 0 then
begin SetBorderLineType(tbtNone);
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;
end; end;
end; end;
end; end;