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"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -17,9 +17,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>

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

@ -8,7 +8,7 @@ object Form1: TForm1
ClientHeight = 422 ClientHeight = 422
ClientWidth = 567 ClientWidth = 567
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.6.4.0' LCLVersion = '1.9.0.0'
object VpNavBar1: TVpNavBar object VpNavBar1: TVpNavBar
Left = 0 Left = 0
Height = 397 Height = 397
@ -24,34 +24,34 @@ object Form1: TForm1
DrawingStyle = dsEtchedButton DrawingStyle = dsEtchedButton
FolderCollection = < FolderCollection = <
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Folder 1' Caption = 'Folder 1'
Enabled = True Enabled = True
FolderType = ftDefault FolderType = ftDefault
ItemCollection = < ItemCollection = <
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Item 1 (Folder 1)' Caption = 'Item 1 (Folder 1)'
IconIndex = 0 IconIndex = 0
Name = 'Item0-0' Name = 'Item0-0'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Item 2 (Folder 1)' Caption = 'Item 2 (Folder 1)'
IconIndex = 1 IconIndex = 1
Name = 'Item0-1' Name = 'Item0-1'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Item 3 (Folder 1)' Caption = 'Item 3 (Folder 1)'
IconIndex = 2 IconIndex = 2
Name = 'Item0-2' Name = 'Item0-2'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Item 4 (Folder 1)' Caption = 'Item 4 (Folder 1)'
IconIndex = 3 IconIndex = 3
Name = 'Item0-3' Name = 'Item0-3'
@ -62,20 +62,20 @@ object Form1: TForm1
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Folder 2' Caption = 'Folder 2'
Enabled = True Enabled = True
FolderType = ftDefault FolderType = ftDefault
ItemCollection = < ItemCollection = <
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Item 1 (Folder 2)' Caption = 'Item 1 (Folder 2)'
IconIndex = 4 IconIndex = 4
Name = 'Item1-0' Name = 'Item1-0'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Item 2 (Folder 2)' Caption = 'Item 2 (Folder 2)'
IconIndex = 5 IconIndex = 5
Name = 'Item1-1' Name = 'Item1-1'
@ -86,27 +86,27 @@ object Form1: TForm1
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Folder 3' Caption = 'Folder 3'
Enabled = True Enabled = True
FolderType = ftDefault FolderType = ftDefault
ItemCollection = < ItemCollection = <
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Item 1 (Folder 3)' Caption = 'Item 1 (Folder 3)'
IconIndex = 6 IconIndex = 6
Name = 'Item2-0' Name = 'Item2-0'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Item 2 (Folder 3)' Caption = 'Item 2 (Folder 3)'
IconIndex = 7 IconIndex = 7
Name = 'Item2-1' Name = 'Item2-1'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Item 3 (Folder 3)' Caption = 'Item 3 (Folder 3)'
IconIndex = 8 IconIndex = 8
Name = 'Item2-2' Name = 'Item2-2'
@ -117,7 +117,7 @@ object Form1: TForm1
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.08'
Caption = 'Container' Caption = 'Container'
Enabled = True Enabled = True
FolderType = ftContainer FolderType = ftContainer

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

@ -234,7 +234,7 @@ var
begin begin
RgIconSize.OnClick := nil; RgIconSize.OnClick := nil;
folder := VpNavBar1.Folders[VpNavBar1.ActiveFolder]; folder := VpNavBar1.Folders[VpNavBar1.ActiveFolder];
folder.IconSize := TVpIconSize(RgDrawingStyle.ItemIndex); folder.IconSize := TVpIconSize(RgIconSize.ItemIndex);
RgIconSize.OnClick := @RgIconSizeClick; RgIconSize.OnClick := @RgIconSizeClick;
end; end;