From 6fa5fafa9b441c45ae85e30c3af80305643134c2 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 2 Jan 2013 11:05:14 +0000
Subject: [PATCH] fpvviewer: Compilation fix

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2615 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/fpvviewer/fpvv_mainform.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/applications/fpvviewer/fpvv_mainform.pas b/applications/fpvviewer/fpvv_mainform.pas
index a275e4761..64407d4cb 100644
--- a/applications/fpvviewer/fpvv_mainform.pas
+++ b/applications/fpvviewer/fpvv_mainform.pas
@@ -288,6 +288,7 @@ end;
 procedure TfrmFPVViewer.Button2Click(Sender: TObject);
 var
   Vec: TvVectorialDocument;
+  i: Integer;
 begin
   // First check the in input
   //if not CheckInput() then Exit;
@@ -299,7 +300,8 @@ begin
     Vec.ReadFromFile(editFileName.FileName);
 
     // Generate the positioning info
-    TvFormula(Vec.GetPage(0).GetEntity(0)).PositionElements(Canvas, 0, 0);
+    for i := 0 to Vec.GetPageCount()-1 do
+      Vec.GetPage(i).PositionEntitySubparts(Canvas, 0, 0);
 
     TokensTreeView.Items.Clear;
     Vec.GenerateDebugTree(@FPVDebugAddItemProc);