fpvviewer improvements

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

applications/fpvviewer/fpvv_mainform.lfm

@@ -8,7 +8,7 @@ object frmFPVViewer: TfrmFPVViewer
   ClientWidth = 485
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  LCLVersion = '1.3'
+  LCLVersion = '1.5'
   object notebook: TNotebook
     Left = 0
     Height = 424
@@ -104,7 +104,7 @@ object frmFPVViewer: TfrmFPVViewer
     end
     object spinScale: TFloatSpinEdit
       Left = 72
-      Height = 23
+      Height = 16
       Top = 97
       Width = 168
       DecimalPlaces = 6
@@ -117,9 +117,9 @@ object frmFPVViewer: TfrmFPVViewer
     end
     object Label1: TLabel
       Left = 8
-      Height = 15
+      Height = 16
       Top = 97
-      Width = 46
+      Width = 55
       Caption = 'Scale by:'
       ParentColor = False
     end
@@ -161,15 +161,15 @@ object frmFPVViewer: TfrmFPVViewer
     end
     object Label2: TLabel
       Left = 8
-      Height = 15
+      Height = 16
       Top = 72
-      Width = 73
+      Width = 88
       Caption = 'Y adjustment:'
       ParentColor = False
     end
     object spinAdjustY: TSpinEdit
       Left = 80
-      Height = 23
+      Height = 16
       Top = 72
       Width = 72
       Increment = 100
@@ -180,7 +180,7 @@ object frmFPVViewer: TfrmFPVViewer
     end
     object spinAdjustX: TSpinEdit
       Left = 232
-      Height = 23
+      Height = 16
       Top = 72
       Width = 72
       Increment = 50
@@ -191,9 +191,9 @@ object frmFPVViewer: TfrmFPVViewer
     end
     object Label3: TLabel
       Left = 160
-      Height = 15
+      Height = 16
       Top = 72
-      Width = 73
+      Width = 88
       Caption = 'X adjustment:'
       ParentColor = False
     end
@@ -208,18 +208,18 @@ object frmFPVViewer: TfrmFPVViewer
     end
     object Label4: TLabel
       Left = 9
-      Height = 15
+      Height = 16
       Top = 126
-      Width = 128
+      Width = 153
       Caption = 'Force encoding on read:'
       ParentColor = False
     end
     object comboEncoding: TComboBox
       Left = 144
-      Height = 23
+      Height = 20
       Top = 126
       Width = 128
-      ItemHeight = 15
+      ItemHeight = 0
       ItemIndex = 0
       Items.Strings = (
         'Read from the file'
@@ -255,17 +255,17 @@ object frmFPVViewer: TfrmFPVViewer
     end
     object labelFileEncoding: TLabel
       Left = 278
-      Height = 15
+      Height = 16
       Top = 130
-      Width = 74
+      Width = 88
       Caption = 'File encoding:'
       ParentColor = False
     end
     object checkForceWhiteBackground: TCheckBox
       Left = 9
-      Height = 19
+      Height = 18
       Top = 152
-      Width = 153
+      Width = 177
       Caption = 'Force white background?'
       TabOrder = 11
     end
@@ -298,9 +298,9 @@ object frmFPVViewer: TfrmFPVViewer
     end
     object checkShowPage: TCheckBox
       Left = 216
-      Height = 19
+      Height = 18
       Top = 152
-      Width = 78
+      Width = 90
       Caption = 'Show Page'
       TabOrder = 15
     end

applications/fpvviewer/fpvv_mainform.pas

@@ -109,13 +109,16 @@ begin
 
   Vec := TvVectorialDocument.Create;
   try
+    // some formats like HTML need an input of control size to render themselves
+    Vec.Width := Drawer.Width;
+    Vec.Height := Drawer.Height;
+
     // If we desire, force a encoding for the read operation
     if comboEncoding.ItemIndex > 0 then
       Vec.ForcedEncodingOnRead := comboEncoding.Text
     else Vec.ForcedEncodingOnRead := '';
 
     Vec.ReadFromFile(editFileName.FileName);
-
     // Show document properties
     labelFileEncoding.Caption := 'File encoding: ' + Vec.Encoding;
 
@@ -157,6 +160,10 @@ begin
         spinScale.Value,
         -1 * spinScale.Value);
     Drawer.Invalidate;
+
+    // Show debug tokens
+    TokensTreeView.Items.Clear;
+    Vec.GenerateDebugTree(@FPVDebugAddItemProc);
   finally
     Vec.Free;
   end;
@@ -326,8 +333,13 @@ begin
 
   notebook.PageIndex := 1;
 
-  Vec := TvVectorialDocument.Create;
+  {Vec := TvVectorialDocument.Create;
   try
+    // some formats like HTML need an input of control size to render themselves
+    Vec.Width := Drawer.Width;
+    Vec.Height := Drawer.Height;
+
+    // read
     Vec.ReadFromFile(editFileName.FileName);
 
     // Generate the positioning info
@@ -341,7 +353,7 @@ begin
     Vec.GenerateDebugTree(@FPVDebugAddItemProc);
   finally
     Vec.Free;
-  end;
+  end; }
 end;
 
 procedure TfrmFPVViewer.buttonAdjustClick(Sender: TObject);

applications/fpvviewer/fpvviewer.lpi

@@ -14,7 +14,7 @@
     <VersionInfo>
       <StringTable ProductVersion=""/>
     </VersionInfo>
-    <BuildModes Count="3">
+    <BuildModes Count="4">
       <Item1 Name="default" Default="True"/>
       <Item2 Name="win32-console">
         <CompilerOptions>
@@ -26,12 +26,6 @@
             <IncludeFiles Value="$(ProjOutDir)"/>
             <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
-          <Other>
-            <CompilerMessages>
-              <UseMsgFile Value="True"/>
-            </CompilerMessages>
-            <CompilerPath Value="$(CompPath)"/>
-          </Other>
         </CompilerOptions>
       </Item2>
       <Item3 Name="qt">
@@ -55,16 +49,33 @@
               </Win32>
             </Options>
           </Linking>
-          <Other>
-            <CompilerMessages>
-              <UseMsgFile Value="True"/>
-            </CompilerMessages>
-            <CompilerPath Value="$(CompPath)"/>
-          </Other>
         </CompilerOptions>
       </Item3>
-      <SharedMatrixOptions Count="1">
+      <Item4 Name="cocoa">
+        <MacroValues Count="1">
+          <Macro2 Name="LCLWidgetType" Value="cocoa"/>
+        </MacroValues>
+        <CompilerOptions>
+          <Version Value="11"/>
+          <Target>
+            <Filename Value="fpvviewer"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <Linking>
+            <Options>
+              <Win32>
+                <GraphicApplication Value="True"/>
+              </Win32>
+            </Options>
+          </Linking>
+        </CompilerOptions>
+      </Item4>
+      <SharedMatrixOptions Count="2">
         <Item1 ID="669514139583" Modes="qt" Type="IDEMacro" MacroName="LCLWidgetType" Value="qt"/>
+        <Item2 ID="166328276776" Modes="cocoa" Type="IDEMacro" MacroName="LCLWidgetType" Value="cocoa"/>
       </SharedMatrixOptions>
     </BuildModes>
     <PublishOptions>
@@ -96,7 +107,6 @@
       <Unit0>
         <Filename Value="fpvviewer.lpr"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="fpvviewer"/>
       </Unit0>
       <Unit1>
         <Filename Value="fpvv_mainform.pas"/>
@@ -109,17 +119,14 @@
       <Unit2>
         <Filename Value="dxftokentotree.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="dxftokentotree"/>
       </Unit2>
       <Unit3>
         <Filename Value="fpvv_drawer.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="fpvv_drawer"/>
       </Unit3>
       <Unit4>
         <Filename Value="coreconrec.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="CoreConRec"/>
       </Unit4>
     </Units>
   </ProjectOptions>
@@ -139,12 +146,6 @@
         </Win32>
       </Options>
     </Linking>
-    <Other>
-      <CompilerMessages>
-        <UseMsgFile Value="True"/>
-      </CompilerMessages>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
   </CompilerOptions>
   <Debugging>
     <Exceptions Count="3">