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

fpvviewer: New idea for rendering page sequences

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3948 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2015-02-17 10:35:43 +00:00
parent 6fc4a28b47
commit 08d24d46a6
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
applications/fpvviewer/fpvv_mainform.pas
View File

@ -100,6 +100,7 @@ var
CanvasSize: TPoint;
lCurPage: TvVectorialPage;
lPage: TvPage;
YAxisMultiplier: Double = -1;
begin
// First check the in input
if editFileName.FileName = '' then Exit; // silent exit in this simple case
@ -143,6 +144,7 @@ begin
lPage := Vec.GetPage(0);
if lPage = nil then
Exception.Create('The document has no pages');
if lPage is TvTextPageSequence then YAxisMultiplier := 1.0;
if checkForceWhiteBackground.Checked then lPage.BackgroundColor := colWhite;
if not checkForceWhiteBackground.Checked then
lPage.DrawBackground(Drawer.Drawing.Canvas);
@ -151,14 +153,14 @@ begin
FPVVIEWER_SPACE_FOR_NEGATIVE_COORDS + Drawer.PosX,
Drawer.Drawing.Height - FPVVIEWER_SPACE_FOR_NEGATIVE_COORDS + Drawer.PosY,
spinScale.Value,
-1 * spinScale.Value);
YAxisMultiplier * spinScale.Value);
if checkShowPage.Checked then
lPage.RenderPageBorder(
Drawer.Drawing.Canvas,
FPVVIEWER_SPACE_FOR_NEGATIVE_COORDS + Drawer.PosX,
Drawer.Drawing.Height - FPVVIEWER_SPACE_FOR_NEGATIVE_COORDS + Drawer.PosY,
spinScale.Value,
-1 * spinScale.Value);
YAxisMultiplier * spinScale.Value);
Drawer.Invalidate;
// Show debug tokens