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

fpvviewer: Fixes token debug for sequential pages

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3592 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2014-09-22 12:09:57 +00:00
parent a69f0fbdbc
commit fae7941b10
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
applications/fpvviewer/fpvv_mainform.pas
View File

@ -332,7 +332,10 @@ begin
// Generate the positioning info // Generate the positioning info
for i := 0 to Vec.GetPageCount()-1 do for i := 0 to Vec.GetPageCount()-1 do
Vec.GetPageAsVectorial(i).PositionEntitySubparts(Canvas, 0, 0); begin
if Vec.GetPageAsVectorial(i) <> nil then
Vec.GetPageAsVectorial(i).PositionEntitySubparts(Canvas, 0, 0);
end;
TokensTreeView.Items.Clear; TokensTreeView.Items.Clear;
Vec.GenerateDebugTree(@FPVDebugAddItemProc); Vec.GenerateDebugTree(@FPVDebugAddItemProc);