paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 06:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Makes the Items property public for TShellListView and TShellTreeView, fixes bug #15374

Browse Source 
git-svn-id: trunk@25096 -
This commit is contained in:
sekelsenmat 2010-05-01 12:37:06 +00:00
parent f82013575c
commit e307883ee0
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/shellctrls.pas
View File

@ -76,6 +76,9 @@ type
property ObjectTypes: TObjectTypes read FObjectTypes write FObjectTypes; property ObjectTypes: TObjectTypes read FObjectTypes write FObjectTypes;
property ShellListView: TCustomShellListView read FShellListView write SetShellListView; property ShellListView: TCustomShellListView read FShellListView write SetShellListView;
property FileSortType: TFileSortType read FFileSortType write FFileSortType; property FileSortType: TFileSortType read FFileSortType write FFileSortType;
{ Protected properties which users may want to access, see bug 15374 }
property Items;
end; end;
{ TShellTreeView } { TShellTreeView }
@ -166,6 +169,8 @@ type
property ObjectTypes: TObjectTypes read FObjectTypes write FObjectTypes; property ObjectTypes: TObjectTypes read FObjectTypes write FObjectTypes;
property Root: string read FRoot write SetRoot; property Root: string read FRoot write SetRoot;
property ShellTreeView: TCustomShellTreeView read FShellTreeView write SetShellTreeView; property ShellTreeView: TCustomShellTreeView read FShellTreeView write SetShellTreeView;
{ Protected properties which users may want to access, see bug 15374 }
property Items;
end; end;
{ TShellListView } { TShellListView }
@ -197,7 +202,6 @@ type
// property HotTrack; // property HotTrack;
// property HotTrackStyles; // property HotTrackStyles;
// property HoverTime; // property HoverTime;
// property Items;
property LargeImages; property LargeImages;
property MultiSelect; property MultiSelect;
// property OwnerData; // property OwnerData;