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

fpvviewer: Minor improvements

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4487 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat 2016-02-05 09:54:56 +00:00
parent 7097939605
commit 105632de29
2 changed files with 14 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
applications/fpvviewer/fpvv_mainform.lfm
View File

@ -141,13 +141,13 @@ object frmFPVViewer: TfrmFPVViewer
OnClick = buttonRenderingTestClick OnClick = buttonRenderingTestClick
TabOrder = 4 TabOrder = 4
end end
object Button1: TButton object buttonConvertToSVG: TButton
Left = 360 Left = 360
Height = 25 Height = 25
Top = 41 Top = 41
Width = 120 Width = 120
Caption = 'Convert to SVG' Caption = 'Convert to SVG'
OnClick = Button1Click OnClick = buttonConvertToSVGClick
TabOrder = 5 TabOrder = 5
end end
object btnContourLines: TButton object btnContourLines: TButton
@ -197,13 +197,13 @@ object frmFPVViewer: TfrmFPVViewer
Caption = 'X adjustment:' Caption = 'X adjustment:'
ParentColor = False ParentColor = False
end end
object Button2: TButton object buttonViewFPVTokens: TButton
Left = 312 Left = 312
Height = 25 Height = 25
Top = 70 Top = 70
Width = 168 Width = 168
Caption = 'View FPVectorial Tokens' Caption = 'View FPVectorial Tokens'
OnClick = Button2Click OnClick = buttonViewFPVTokensClick
TabOrder = 9 TabOrder = 9
end end
object Label4: TLabel object Label4: TLabel

45
applications/fpvviewer/fpvv_mainform.pas
View File

@ -21,8 +21,8 @@ type
btnSearchInTokens: TButton; btnSearchInTokens: TButton;
btnViewDXFTokens: TButton; btnViewDXFTokens: TButton;
btnVisualize: TButton; btnVisualize: TButton;
Button1: TButton; buttonConvertToSVG: TButton;
Button2: TButton; buttonViewFPVTokens: TButton;
buttonAutoFit: TButton; buttonAutoFit: TButton;
buttonPrint: TButton; buttonPrint: TButton;
buttonAdjust: TButton; buttonAdjust: TButton;
@ -52,8 +52,8 @@ type
procedure btnSearchInTokensClick(Sender: TObject); procedure btnSearchInTokensClick(Sender: TObject);
procedure btnVisualizeClick(Sender: TObject); procedure btnVisualizeClick(Sender: TObject);
procedure btnViewDXFTokensClick(Sender: TObject); procedure btnViewDXFTokensClick(Sender: TObject);
procedure Button1Click(Sender: TObject); procedure buttonConvertToSVGClick(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure buttonViewFPVTokensClick(Sender: TObject);
procedure buttonAdjustClick(Sender: TObject); procedure buttonAdjustClick(Sender: TObject);
procedure buttonAutoFitClick(Sender: TObject); procedure buttonAutoFitClick(Sender: TObject);
procedure buttonPrintClick(Sender: TObject); procedure buttonPrintClick(Sender: TObject);
@ -293,7 +293,7 @@ begin
end; end;
end; end;
procedure TfrmFPVViewer.Button1Click(Sender: TObject); procedure TfrmFPVViewer.buttonConvertToSVGClick(Sender: TObject);
var var
Vec: TvVectorialDocument; Vec: TvVectorialDocument;
begin begin
@ -306,38 +306,9 @@ begin
end; end;
end; end;
procedure TfrmFPVViewer.Button2Click(Sender: TObject); procedure TfrmFPVViewer.buttonViewFPVTokensClick(Sender: TObject);
var
Vec: TvVectorialDocument;
i: Integer;
lCurPage: TvVectorialPage;
begin begin
// First check the in input
//if not CheckInput() then Exit;
notebook.PageIndex := 1; notebook.PageIndex := 1;
{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
for i := 0 to Vec.GetPageCount()-1 do
begin
if Vec.GetPageAsVectorial(i) <> nil then
Vec.GetPageAsVectorial(i).PositionEntitySubparts(Canvas, 0, 0);
end;
TokensTreeView.Items.Clear;
Vec.GenerateDebugTree(@FPVDebugAddItemProc);
finally
Vec.Free;
end; }
end; end;
procedure TfrmFPVViewer.buttonAdjustClick(Sender: TObject); procedure TfrmFPVViewer.buttonAdjustClick(Sender: TObject);
@ -385,6 +356,10 @@ begin
spinAdjustX.Value := lDeltaX; spinAdjustX.Value := lDeltaX;
spinAdjustY.Value := lDeltaY; spinAdjustY.Value := lDeltaY;
spinScale.Value := lZoom; spinScale.Value := lZoom;
spinAdjustXChange(nil);
spinAdjustYChange(nil);
spinScaleChange(nil);
finally finally
Render_FreeFile(); Render_FreeFile();
end; end;