paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 11:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Fixes DXF DIMENSION support for places where the DimensionLeft position is provided

Browse Source 
git-svn-id: trunk@39185 -
This commit is contained in:
sekelsenmat 2012-10-29 10:58:14 +00:00
parent a134c17799
commit 2c2ab8a509
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpvectorial/dxfvectorialreader.pas
View File

@ -1227,6 +1227,13 @@ begin
DimensionLeft.X := BaseLeft.X;
DimensionLeft.Y := DimensionRight.Y;
end
// Inverted horizontal where DL was provided
else if DimensionRight.X = BaseLeft.X then
begin
DimensionLeft.X := DimensionRight.X;
DimensionLeft.Y := DimensionRight.Y;
DimensionRight.X := BaseRight.X;
end
// vertical
//
// BL ----|DR