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;