paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 00:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: make TCustomTreeview.Items property public. Allows to solve issue #21160

Browse Source 
git-svn-id: trunk@34945 -
This commit is contained in:
juha 2012-01-26 09:57:58 +00:00
parent 556d7e3d7e
commit 5b04ea78a9
2 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazcontrols/treefilteredit.pas
View File

@ -48,7 +48,7 @@ type
TTreeFilterEdit = class(TCustomControlFilterEdit)
private
fFilteredTreeview: TTreeview; // A control showing the (filtered) data.
fFilteredTreeview: TCustomTreeview; // A control showing the (filtered) data.
fImageIndexDirectory: integer; // Needed if directory structure is shown.
fSelectionList: TStringList; // Store/restore the old selections here.
fShowDirHierarchy: Boolean; // Show direcories / files as a tree structure.
@ -332,7 +332,7 @@ end;
procedure TTreeFilterEdit.SetFilteredTreeview(const AValue: TCustomTreeview);
begin
if fFilteredTreeview = AValue then Exit;
fFilteredTreeview := TTreeview(AValue);
fFilteredTreeview := AValue;
if AValue = nil then Exit;
end;

14
lcl/comctrls.pp
View File

@ -2863,7 +2863,6 @@ type
property HotTrack: Boolean read GetHotTrack write SetHotTrack default False;
property Images: TCustomImageList read FImages write SetImages;
property Indent: Integer read FIndent write SetIndent default 15;
property Items: TTreeNodes read FTreeNodes write SetTreeNodes;
property MultiSelect: Boolean read GetMultiSelect write SetMultiSelect default False;
property OnAddition: TTVExpandedEvent read FOnAddition write FOnAddition;
property OnAdvancedCustomDraw: TTVAdvancedCustomDrawEvent
@ -2941,24 +2940,21 @@ type
procedure MoveToNextNode;
procedure MoveToPrevNode;
public
property BackgroundColor: TColor
read FBackgroundColor write SetBackgroundColor default clWindow;
property BackgroundColor: TColor read FBackgroundColor write SetBackgroundColor default clWindow;
property BorderWidth default 0;
property BottomItem: TTreeNode read GetBottomItem write SetBottomItem;
property DefaultItemHeight: integer
read FDefItemHeight write SetDefaultItemHeight default 20;
property DefaultItemHeight: integer read FDefItemHeight write SetDefaultItemHeight default 20;
property DropTarget: TTreeNode read GetDropTarget write SetDropTarget;
property ExpandSignType: TTreeViewExpandSignType
read FExpandSignType write SetExpandSignType default tvestTheme;
property InsertMarkNode: TTreeNode read FInsertMarkNode write SetInsertMarkNode;
property InsertMarkType: TTreeViewInsertMarkType read FInsertMarkType write SetInsertMarkType;
property KeepCollapsedNodes: boolean
read GetKeepCollapsedNodes write SetKeepCollapsedNodes;
property Items: TTreeNodes read FTreeNodes write SetTreeNodes;
property KeepCollapsedNodes: boolean read GetKeepCollapsedNodes write SetKeepCollapsedNodes;
property MultiSelectStyle: TMultiSelectStyle read FMultiSelectStyle
write SetMultiSelectStyle default DefaultMultiSelectStyle;
property Options: TTreeViewOptions read FOptions write SetOptions default DefaultTreeViewOptions;
property ScrollBars: TScrollStyle
read FScrollBars write SetScrollBars default ssBoth;
property ScrollBars: TScrollStyle read FScrollBars write SetScrollBars default ssBoth;
property Selected: TTreeNode read GetSelection write SetSelection;
property SelectionColor: TColor read FSelectedColor write SetSelectedColor default clHighlight;
property SelectionCount: Cardinal read GetSelectionCount;