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

fpvviewer: Minor improvements

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4491 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2016-02-06 10:16:09 +00:00
parent 0cf154c322
commit 92b7929557
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
applications/fpvviewer/fpvv_mainform.pas
View File

@ -109,7 +109,7 @@ begin
lPage := FVec.GetPage(0); lPage := FVec.GetPage(0);
if lPage = nil then if lPage = nil then
Exception.Create('The document has no pages'); Exception.Create('The document has no pages');
lPageHeight := Drawer.Height; lPageHeight := Drawer.Drawing.Height;
lPage.GetNaturalRenderPos(lPageHeight, YAxisMultiplier); lPage.GetNaturalRenderPos(lPageHeight, YAxisMultiplier);
if checkForceWhiteBackground.Checked then lPage.BackgroundColor := colWhite; if checkForceWhiteBackground.Checked then lPage.BackgroundColor := colWhite;
if not checkForceWhiteBackground.Checked then if not checkForceWhiteBackground.Checked then
@ -117,14 +117,14 @@ begin
lPage.Render( lPage.Render(
Drawer.Drawing.Canvas, Drawer.Drawing.Canvas,
Drawer.PosX, Drawer.PosX,
Drawer.Drawing.Height + Drawer.PosY, lPageHeight + Drawer.PosY,
spinScale.Value, spinScale.Value,
YAxisMultiplier * spinScale.Value); YAxisMultiplier * spinScale.Value);
if checkShowPage.Checked then if checkShowPage.Checked then
lPage.RenderPageBorder( lPage.RenderPageBorder(
Drawer.Drawing.Canvas, Drawer.Drawing.Canvas,
Drawer.PosX, Drawer.PosX,
Drawer.Drawing.Height + Drawer.PosY, lPageHeight + Drawer.PosY,
spinScale.Value, spinScale.Value,
YAxisMultiplier * spinScale.Value); YAxisMultiplier * spinScale.Value);
Drawer.Invalidate; Drawer.Invalidate;