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

fpvviewer: Improves page border drawing

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3095 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2014-05-25 15:06:38 +00:00
parent ce3d5849f8
commit 5b30aa71e0
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
applications/fpvviewer/fpvv_mainform.pas
View File

@@ -139,6 +139,12 @@ begin
if checkForceWhiteBackground.Checked then Vec.GetPageAsVectorial(0).BackgroundColor := colWhite; if checkForceWhiteBackground.Checked then Vec.GetPageAsVectorial(0).BackgroundColor := colWhite;
if not checkForceWhiteBackground.Checked then if not checkForceWhiteBackground.Checked then
Vec.GetPageAsVectorial(0).DrawBackground(Drawer.Drawing.Canvas); Vec.GetPageAsVectorial(0).DrawBackground(Drawer.Drawing.Canvas);
Vec.GetPageAsVectorial(0).Render(
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);
if checkShowPage.Checked then if checkShowPage.Checked then
Vec.GetPageAsVectorial(0).RenderPageBorder( Vec.GetPageAsVectorial(0).RenderPageBorder(
Drawer.Drawing.Canvas, Drawer.Drawing.Canvas,
@@ -146,12 +152,6 @@ begin
Drawer.Drawing.Height - FPVVIEWER_SPACE_FOR_NEGATIVE_COORDS + Drawer.PosY, Drawer.Drawing.Height - FPVVIEWER_SPACE_FOR_NEGATIVE_COORDS + Drawer.PosY,
spinScale.Value, spinScale.Value,
-1 * spinScale.Value); -1 * spinScale.Value);
Vec.GetPageAsVectorial(0).Render(
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);
Drawer.Invalidate; Drawer.Invalidate;
finally finally
Vec.Free; Vec.Free;