fpvviewer: Adds more debug info for formula tokens

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2473 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/fpvviewer/fpvv_mainform.lfm

@@ -70,7 +70,7 @@ object frmFPVViewer: TfrmFPVViewer
     Height = 410
     Top = 128
     Width = 485
-    PageIndex = 1
+    PageIndex = 0
     Anchors = [akTop, akLeft, akRight, akBottom]
     TabOrder = 4
     TabStop = True

applications/fpvviewer/fpvv_mainform.pas

@@ -240,6 +240,9 @@ begin
   try
     Vec.ReadFromFile(editFileName.FileName);
 
+    // Generate the positioning info
+    TvFormula(Vec.GetPage(0).GetEntity(0)).PositionElements(Canvas, 0, 0);
+
     DXFTreeView.Items.Clear;
     Vec.GenerateDebugTree(@FPVDebugAddItemProc);
   finally

applications/fpvviewer/fpvviewer.lpi

@@ -43,6 +43,7 @@
             </CompilerMessages>
             <CompilerPath Value="$(CompPath)"/>
           </Other>
+          <LCLWidgetType Value="qt"/>
         </CompilerOptions>
       </Item2>
     </BuildModes>