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

fpvectorial: DXF: Adds support for the color of an arrow

Browse Source 
git-svn-id: trunk@37236 -
This commit is contained in:
sekelsenmat 2012-05-10 10:02:59 +00:00
parent 43b9f71606
commit fc747d6013
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpvectorial/dxfvectorialreader.pas
View File

@ -1445,9 +1445,11 @@ var
i, curPoint: Integer;
lValueX, lValueY: Double;
lArrow: TvArrow;
LElementColor: TFPColor;
begin
lArrow := TvArrow.Create;
curPoint := 0;
LElementColor := colBlack;
for i := 0 to ATokens.Count - 1 do
begin
@ -1455,7 +1457,7 @@ begin
CurToken := TDXFToken(ATokens.Items[i]);
// Avoid an exception by previously checking if the conversion can be made
if CurToken.GroupCode in [10, 20, 30, 11, 21, 31] then
if CurToken.GroupCode in [10, 20, 30, 11, 21, 31, 62] then
begin
CurToken.FloatValue := StrToFloat(Trim(CurToken.StrValue), FPointSeparator);
end;
@ -1486,6 +1488,7 @@ begin
3: lArrow.ExtraLineBase.Y := lValueY;
end;
end;
62: LElementColor := DXFColorIndexToFPColor(Trunc(CurToken.FloatValue));
end;
end;
@ -1495,7 +1498,9 @@ begin
// And now write it
lArrow.HasExtraLine := True;
lArrow.Pen.Color := LElementColor;
lArrow.Brush.Style := bsSolid;
lArrow.Brush.Color := LElementColor;
AData.AddEntity(lArrow);
end;