pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpvviewer: Updates to latest fpvectorial

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5102 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2016-08-26 12:27:26 +00:00
parent e2482a5149
commit f1c0532112
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/fpvviewer/fpvv_mainform.lfm
View File

@@ -327,8 +327,6 @@ object frmFPVViewer: TfrmFPVViewer
Top = 168
Width = 147
Caption = 'SVG Rendering via RSVG'
Checked = True
State = cbChecked
TabOrder = 17
end
end

8
applications/fpvviewer/fpvv_mainform.pas
View File

@@ -136,6 +136,7 @@ begin
// Show debug tokens
TokensTreeView.Items.Clear;
FVec.GenerateDebugTree(@FPVDebugAddItemProc);
memoDebug.Lines.AddStrings(lPage.RenderInfo.Errors);
finally
Render_FreeFile();
end;
@@ -556,9 +557,12 @@ begin
// checkbox options
{$ifdef Windows}
gSVGVecReader_RSVG_Path := ExtractFilePath(paramstr(0))+'rsvg\rsvg-convert.exe';
FVec.ReaderSettings.HelperToolPath := ExtractFilePath(paramstr(0))+'rsvg\rsvg-convert.exe';
{$endif}
gSVGVecReader_UseTopLeftCoords := not checkboxForceBottomLeftOrigin.Checked;
if checkboxForceBottomLeftOrigin.Checked then
FVec.ReaderSettings.VecReaderFlags := []
else
FVec.ReaderSettings.VecReaderFlags := [vrfSVG_UseTopLeftCoords];
if checkboxSVGviaRSVG.Checked then
RegisterVectorialReader(TvSVGVectorialReader_RSVG, vfSVG)
else