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

lcl: TTreeView: public ScrolledLeft/Top, PathDelimiter

Browse Source
This commit is contained in:
mattias 2023-08-14 15:08:23 +02:00
parent 60befe6342
commit ee218d1fa0
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/comctrls.pp
View File

@ -3268,13 +3268,14 @@ type
Data: Pointer): TTreeNode; Data: Pointer): TTreeNode;
function IsMultiSelection: boolean; function IsMultiSelection: boolean;
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
procedure BeginUpdate; procedure BeginUpdate; virtual;
procedure Clear; procedure Clear; virtual;
procedure ClearMultiSelection(ClearSelected: boolean = false); procedure ClearMultiSelection(ClearSelected: boolean = false);
procedure ConsistencyCheck; procedure ConsistencyCheck; virtual;
procedure Delete(Node: TTreeNode); procedure Delete(Node: TTreeNode); virtual;
procedure EndUpdate; procedure EndUpdate; virtual;
procedure FreeAllNodeData; function IsUpdating: boolean; virtual;
procedure FreeAllNodeData; virtual;
procedure SelectionsChanged(ANode: TTreeNode; const AIsSelected: Boolean); procedure SelectionsChanged(ANode: TTreeNode; const AIsSelected: Boolean);
procedure SelectOnlyThis(Node: TTreeNode); procedure SelectOnlyThis(Node: TTreeNode);
procedure MultiSelect(Node: TTreeNode; ClearWholeSelection: Boolean); procedure MultiSelect(Node: TTreeNode; ClearWholeSelection: Boolean);
@ -3780,6 +3781,10 @@ type
{ TTreeView } { TTreeView }
TTreeView = class(TCustomTreeView) TTreeView = class(TCustomTreeView)
public
property PathDelimiter;
property ScrolledLeft;
property ScrolledTop;
published published
property Align; property Align;
property Anchors; property Anchors;

5
lcl/include/treeview.inc
View File

@ -2756,6 +2756,11 @@ begin
end; end;
end; end;
function TTreeNodes.IsUpdating: boolean;
begin
Result:=FUpdateCount>0;
end;
procedure TTreeNodes.FreeAllNodeData; procedure TTreeNodes.FreeAllNodeData;
var var
i: Integer; i: Integer;