From 0dd145f49a40dfb97b984e8eb902f334594587fe Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 2 May 2018 04:56:38 +0000
Subject: [PATCH] tvplanit: Fix changing of icon size in NavBar demo.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6369 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../tvplanit/examples/navbar/project1.lpi     |  9 +++---
 components/tvplanit/examples/navbar/unit1.lfm | 28 +++++++++----------
 components/tvplanit/examples/navbar/unit1.pas |  2 +-
 3 files changed, 20 insertions(+), 19 deletions(-)

diff --git a/components/tvplanit/examples/navbar/project1.lpi b/components/tvplanit/examples/navbar/project1.lpi
index 4f661d701..31e45ec8a 100644
--- a/components/tvplanit/examples/navbar/project1.lpi
+++ b/components/tvplanit/examples/navbar/project1.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="10"/>
+    <Version Value="11"/>
     <PathDelim Value="\"/>
     <General>
       <SessionStorage Value="InProjectDir"/>
@@ -17,9 +17,10 @@
       <Version Value="2"/>
     </PublishOptions>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <RequiredPackages Count="2">
       <Item1>
diff --git a/components/tvplanit/examples/navbar/unit1.lfm b/components/tvplanit/examples/navbar/unit1.lfm
index 9b62514cc..750fccf1c 100644
--- a/components/tvplanit/examples/navbar/unit1.lfm
+++ b/components/tvplanit/examples/navbar/unit1.lfm
@@ -8,7 +8,7 @@ object Form1: TForm1
   ClientHeight = 422
   ClientWidth = 567
   OnCreate = FormCreate
-  LCLVersion = '1.6.4.0'
+  LCLVersion = '1.9.0.0'
   object VpNavBar1: TVpNavBar
     Left = 0
     Height = 397
@@ -24,34 +24,34 @@ object Form1: TForm1
     DrawingStyle = dsEtchedButton
     FolderCollection = <    
       item
-        Version = 'v1.05'
+        Version = 'v1.08'
         Caption = 'Folder 1'
         Enabled = True
         FolderType = ftDefault
         ItemCollection = <        
           item
-            Version = 'v1.05'
+            Version = 'v1.08'
             Caption = 'Item 1 (Folder 1)'
             IconIndex = 0
             Name = 'Item0-0'
             Tag = 0
           end        
           item
-            Version = 'v1.05'
+            Version = 'v1.08'
             Caption = 'Item 2 (Folder 1)'
             IconIndex = 1
             Name = 'Item0-1'
             Tag = 0
           end        
           item
-            Version = 'v1.05'
+            Version = 'v1.08'
             Caption = 'Item 3 (Folder 1)'
             IconIndex = 2
             Name = 'Item0-2'
             Tag = 0
           end        
           item
-            Version = 'v1.05'
+            Version = 'v1.08'
             Caption = 'Item 4 (Folder 1)'
             IconIndex = 3
             Name = 'Item0-3'
@@ -62,20 +62,20 @@ object Form1: TForm1
         Tag = 0
       end    
       item
-        Version = 'v1.05'
+        Version = 'v1.08'
         Caption = 'Folder 2'
         Enabled = True
         FolderType = ftDefault
         ItemCollection = <        
           item
-            Version = 'v1.05'
+            Version = 'v1.08'
             Caption = 'Item 1 (Folder 2)'
             IconIndex = 4
             Name = 'Item1-0'
             Tag = 0
           end        
           item
-            Version = 'v1.05'
+            Version = 'v1.08'
             Caption = 'Item 2 (Folder 2)'
             IconIndex = 5
             Name = 'Item1-1'
@@ -86,27 +86,27 @@ object Form1: TForm1
         Tag = 0
       end    
       item
-        Version = 'v1.05'
+        Version = 'v1.08'
         Caption = 'Folder 3'
         Enabled = True
         FolderType = ftDefault
         ItemCollection = <        
           item
-            Version = 'v1.05'
+            Version = 'v1.08'
             Caption = 'Item 1 (Folder 3)'
             IconIndex = 6
             Name = 'Item2-0'
             Tag = 0
           end        
           item
-            Version = 'v1.05'
+            Version = 'v1.08'
             Caption = 'Item 2 (Folder 3)'
             IconIndex = 7
             Name = 'Item2-1'
             Tag = 0
           end        
           item
-            Version = 'v1.05'
+            Version = 'v1.08'
             Caption = 'Item 3 (Folder 3)'
             IconIndex = 8
             Name = 'Item2-2'
@@ -117,7 +117,7 @@ object Form1: TForm1
         Tag = 0
       end    
       item
-        Version = 'v1.05'
+        Version = 'v1.08'
         Caption = 'Container'
         Enabled = True
         FolderType = ftContainer
diff --git a/components/tvplanit/examples/navbar/unit1.pas b/components/tvplanit/examples/navbar/unit1.pas
index e2d5e1e6a..8727b2ace 100644
--- a/components/tvplanit/examples/navbar/unit1.pas
+++ b/components/tvplanit/examples/navbar/unit1.pas
@@ -234,7 +234,7 @@ var
 begin
   RgIconSize.OnClick := nil;
   folder := VpNavBar1.Folders[VpNavBar1.ActiveFolder];
-  folder.IconSize := TVpIconSize(RgDrawingStyle.ItemIndex);
+  folder.IconSize := TVpIconSize(RgIconSize.ItemIndex);
   RgIconSize.OnClick := @RgIconSizeClick;
 end;