From d63d52fda2f218eebbf71ec37fa9e6dfa777512a Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 7 Jun 2018 10:01:49 +0000
Subject: [PATCH] tvplanit: Fix compilation with Laz 1.8.0

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6472 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpnavbar.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/tvplanit/source/vpnavbar.pas b/components/tvplanit/source/vpnavbar.pas
index f6acc155f..cfe14d697 100644
--- a/components/tvplanit/source/vpnavbar.pas
+++ b/components/tvplanit/source/vpnavbar.pas
@@ -3205,8 +3205,8 @@ end;
 procedure TVpCustomNavBar.ScaleFontsPPI(const AProportion: Double);
 begin
   inherited;
-  DoScaleFontPPI(FItemFont.Font, AProportion);
-  DoScaleFontPPI(FScaledItem.Font, AProportion);
+  DoScaleFontPPI(FItemFont, AProportion);
+  DoScaleFontPPI(FSelectedItemFont, AProportion);
 end;
 {$ENDIF}
 {$ENDIF}