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

fpvectorial: Unites all drawing parameters into a single parameter

Browse Source 
git-svn-id: trunk@55517 -
This commit is contained in:
sekelsenmat 2017-07-17 08:43:35 +00:00
parent 5d80654b46
commit 6b9ae632bc
2 changed files with 575 additions and 425 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpvectorial/epsvectorialreader.pas
View File

@ -1775,6 +1775,7 @@ begin
TDictionaryToken(Param1).TransformToListOfNamedValues(); TDictionaryToken(Param1).TransformToListOfNamedValues();
// Read the source of the data // Read the source of the data
TDictionaryToken(Param1).Names.Sorted := True;
if TDictionaryToken(Param1).Names.Find('DataSource', lFindIndex) then if TDictionaryToken(Param1).Names.Find('DataSource', lFindIndex) then
begin begin
lDataSource := TPSToken(TDictionaryToken(Param1).Values[lFindIndex]).StrValue; lDataSource := TPSToken(TDictionaryToken(Param1).Values[lFindIndex]).StrValue;

997
components/fpvectorial/fpvectorial.pas
View File

File diff suppressed because it is too large Load Diff