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

fpvectorial: Fix svgreader to accept "in" as known length unit

Browse Source 
git-svn-id: trunk@51117 -
This commit is contained in:
wp 2016-01-02 12:15:10 +00:00
parent 3351cc3c41
commit de4fbfafc7
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/svgvectorialreader.pas
View File

@ -2935,6 +2935,13 @@ begin
Result := Result * 10;
DoProcessMM_End();
end
else if UnitStr = 'in' then
begin
ValueStr := Copy(AStr, 1, Len-2);
Result := StrToFloat(ValueStr, FPointSeparator);
Result := Result * 25.4;
DoProcessMM_End();
end
else if UnitStr = 'px' then
begin
ValueStr := Copy(AStr, 1, Len-2);