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

fpvviewer: Updates to compile with the latest fpvectorial

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2771 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2013-08-09 12:25:19 +00:00
parent 1e9328723a
commit 94daafcf93
2 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
applications/fpvviewer/fpvv_mainform.pas
View File

@ -127,10 +127,10 @@ begin
Drawer.Drawing.Canvas.Brush.Color := clWhite;
Drawer.Drawing.Canvas.Brush.Style := bsSolid;
Drawer.Drawing.Canvas.FillRect(0, 0, Drawer.Drawing.Width, Drawer.Drawing.Height);
if checkForceWhiteBackground.Checked then Vec.GetPage(0).BackgroundColor := colWhite;
if checkForceWhiteBackground.Checked then Vec.GetPageAsVectorial(0).BackgroundColor := colWhite;
if not checkForceWhiteBackground.Checked then
Vec.GetPage(0).DrawBackground(Drawer.Drawing.Canvas);
Vec.GetPage(0).Render(
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,
@ -168,7 +168,7 @@ begin
Vec := TvVectorialDocument.Create;
Vec.ReadFromFile(editFileName.FileName);
lPage := Vec.GetPage(0);
lPage := Vec.GetPageAsVectorial(0);
lRasterImage := TvRasterImage(lPage.GetEntity(0));
// create dynamicaly the vectors and datafield
@ -311,7 +311,7 @@ begin
// Generate the positioning info
for i := 0 to Vec.GetPageCount()-1 do
Vec.GetPage(i).PositionEntitySubparts(Canvas, 0, 0);
Vec.GetPageAsVectorial(i).PositionEntitySubparts(Canvas, 0, 0);
TokensTreeView.Items.Clear;
Vec.GenerateDebugTree(@FPVDebugAddItemProc);

5
applications/fpvviewer/fpvviewer.lpi
View File

@ -61,9 +61,11 @@
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
<LCLWidgetType Value="qt"/>
</CompilerOptions>
</Item3>
<SharedMatrixOptions Count="1">
<Item1 ID="194024408686" Modes="qt" Type="IDEMacro" MacroName="LCLWidgetType" Value="qt"/>
</SharedMatrixOptions>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
@ -73,7 +75,6 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="3">