From e5467e55fab4aea96d85d0d98e1ac1cdf3e494d6 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 17 Jun 2011 09:44:25 +0000
Subject: [PATCH] Adds a new test in fpvviewer

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1688 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/fpvviewer/fpvv_mainform.lfm | 19 ++++++++++++++-----
 applications/fpvviewer/fpvv_mainform.pas | 15 +++++++++++++++
 2 files changed, 29 insertions(+), 5 deletions(-)

diff --git a/applications/fpvviewer/fpvv_mainform.lfm b/applications/fpvviewer/fpvv_mainform.lfm
index b86318469..0702988fe 100644
--- a/applications/fpvviewer/fpvv_mainform.lfm
+++ b/applications/fpvviewer/fpvv_mainform.lfm
@@ -2,10 +2,10 @@ object frmFPVViewer: TfrmFPVViewer
   Left = 318
   Height = 473
   Top = 299
-  Width = 375
+  Width = 485
   Caption = 'Free Pascal Vectorial Viewer'
   ClientHeight = 473
-  ClientWidth = 375
+  ClientWidth = 485
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   LCLVersion = '0.9.31'
@@ -68,7 +68,7 @@ object frmFPVViewer: TfrmFPVViewer
     Left = 0
     Height = 369
     Top = 104
-    Width = 375
+    Width = 485
     PageIndex = 0
     Anchors = [akTop, akLeft, akRight, akBottom]
     TabOrder = 4
@@ -76,8 +76,8 @@ object frmFPVViewer: TfrmFPVViewer
     object pageViewer: TPage
     end
     object Page2: TPage
-      ClientWidth = 33792
-      ClientHeight = 39936
+      ClientWidth = 67584
+      ClientHeight = 79872
       object DXFTreeView: TTreeView
         Left = 8
         Height = 313
@@ -97,4 +97,13 @@ object frmFPVViewer: TfrmFPVViewer
     OnClick = buttonRenderingTestClick
     TabOrder = 5
   end
+  object Button1: TButton
+    Left = 360
+    Height = 25
+    Top = 41
+    Width = 120
+    Caption = 'Convert to SVG'
+    OnClick = Button1Click
+    TabOrder = 6
+  end
 end
diff --git a/applications/fpvviewer/fpvv_mainform.pas b/applications/fpvviewer/fpvv_mainform.pas
index 007d31de4..498e5051d 100644
--- a/applications/fpvviewer/fpvv_mainform.pas
+++ b/applications/fpvviewer/fpvv_mainform.pas
@@ -16,6 +16,7 @@ type
   TfrmFPVViewer = class(TForm)
     btnVisualize: TButton;
     btnViewDXFTokens: TButton;
+    Button1: TButton;
     buttonRenderingTest: TButton;
     editFileName: TFileNameEdit;
     notebook: TNotebook;
@@ -26,6 +27,7 @@ type
     DXFTreeView: TTreeView;
     procedure btnVisualizeClick(Sender: TObject);
     procedure btnViewDXFTokensClick(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
     procedure buttonRenderingTestClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -123,6 +125,19 @@ begin
   end;
 end;
 
+procedure TfrmFPVViewer.Button1Click(Sender: TObject);
+var
+  Vec: TvVectorialDocument;
+begin
+  Vec := TvVectorialDocument.Create;
+  try
+    Vec.ReadFromFile(editFileName.FileName);
+    Vec.WriteToFile(ChangeFileExt(editFileName.FileName, '.svg'));
+  finally
+    Vec.Free;
+  end;
+end;
+
 procedure TfrmFPVViewer.buttonRenderingTestClick(Sender: TObject);
 var
   Vec: TvVectorialDocument;