paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adds a new test in fpvviewer

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1688 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat 2011-06-17 09:44:25 +00:00
parent e2aa553c6c
commit e5467e55fa
2 changed files with 29 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
applications/fpvviewer/fpvv_mainform.lfm
View File

@ -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

15
applications/fpvviewer/fpvv_mainform.pas
View File

@ -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;