pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpvviewer: Compilation fix

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2615 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2013-01-02 11:05:14 +00:00
parent 46324aceaf
commit 6fa5fafa9b
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
applications/fpvviewer/fpvv_mainform.pas
View File

@ -288,6 +288,7 @@ end;
procedure TfrmFPVViewer.Button2Click(Sender: TObject); procedure TfrmFPVViewer.Button2Click(Sender: TObject);
var var
Vec: TvVectorialDocument; Vec: TvVectorialDocument;
i: Integer;
begin begin
// First check the in input // First check the in input
//if not CheckInput() then Exit; //if not CheckInput() then Exit;
@ -299,7 +300,8 @@ begin
Vec.ReadFromFile(editFileName.FileName); Vec.ReadFromFile(editFileName.FileName);
// Generate the positioning info // Generate the positioning info
TvFormula(Vec.GetPage(0).GetEntity(0)).PositionElements(Canvas, 0, 0); for i := 0 to Vec.GetPageCount()-1 do
Vec.GetPage(i).PositionEntitySubparts(Canvas, 0, 0);
TokensTreeView.Items.Clear; TokensTreeView.Items.Clear;
Vec.GenerateDebugTree(@FPVDebugAddItemProc); Vec.GenerateDebugTree(@FPVDebugAddItemProc);