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

fpvviewer: Adds more debug info for formula tokens

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2473 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2012-07-05 11:07:48 +00:00
parent 87daaf8466
commit 63b0a8c17e
3 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/fpvviewer/fpvv_mainform.lfm
View File

@ -70,7 +70,7 @@ object frmFPVViewer: TfrmFPVViewer
Height = 410 Height = 410
Top = 128 Top = 128
Width = 485 Width = 485
PageIndex = 1 PageIndex = 0
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 4 TabOrder = 4
TabStop = True TabStop = True

3
applications/fpvviewer/fpvv_mainform.pas
View File

@ -240,6 +240,9 @@ begin
try try
Vec.ReadFromFile(editFileName.FileName); Vec.ReadFromFile(editFileName.FileName);
// Generate the positioning info
TvFormula(Vec.GetPage(0).GetEntity(0)).PositionElements(Canvas, 0, 0);
DXFTreeView.Items.Clear; DXFTreeView.Items.Clear;
Vec.GenerateDebugTree(@FPVDebugAddItemProc); Vec.GenerateDebugTree(@FPVDebugAddItemProc);
finally finally

1
applications/fpvviewer/fpvviewer.lpi
View File

@ -43,6 +43,7 @@
</CompilerMessages> </CompilerMessages>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
<LCLWidgetType Value="qt"/>
</CompilerOptions> </CompilerOptions>
</Item2> </Item2>
</BuildModes> </BuildModes>