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

tvplanit: Fix changing of icon size in NavBar demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6369 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-02 04:56:38 +00:00
parent 44ec7c690b
commit 0dd145f49a
3 changed files with 20 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/tvplanit/examples/navbar/project1.lpi
View File

@ -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>

28
components/tvplanit/examples/navbar/unit1.lfm
View File

@ -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

2
components/tvplanit/examples/navbar/unit1.pas
View File

@ -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;