paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-03 09:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Add UseTopLeftCoords variable for wmf reader.

Browse Source 
git-svn-id: trunk@52802 -
This commit is contained in:
wp 2016-08-13 22:41:52 +00:00
parent cc041a51b2
commit 2dc04023df
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpvectorial/wmfvectorialreader.pas
View File

@ -119,6 +119,9 @@ type
procedure ReadFromStream(AStream: TStream; AData: TvVectorialDocument); override;
end;
var
// Settings
gWMFVecReader_UseTopLeftCoords: Boolean = True;
implementation
@ -719,8 +722,7 @@ var
page: TvVectorialPage;
prevX, prevY: Word;
begin
AData.AddPage(true);
page := AData.GetPageAsVectorial(0);
page := AData.AddPage(gWMFVecReader_UseTopLeftCoords);
while AStream.Position < AStream.Size do begin
// Store the stream position where the current record begins