paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +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;
function IsMultiSelection: boolean;
procedure Assign(Source: TPersistent); override;
procedure BeginUpdate;
procedure Clear;
procedure BeginUpdate; virtual;
procedure Clear; virtual;
procedure ClearMultiSelection(ClearSelected: boolean = false);
procedure ConsistencyCheck;
procedure Delete(Node: TTreeNode);
procedure EndUpdate;
procedure FreeAllNodeData;
procedure ConsistencyCheck; virtual;
procedure Delete(Node: TTreeNode); virtual;
procedure EndUpdate; virtual;
function IsUpdating: boolean; virtual;
procedure FreeAllNodeData; virtual;
procedure SelectionsChanged(ANode: TTreeNode; const AIsSelected: Boolean);
procedure SelectOnlyThis(Node: TTreeNode);
procedure MultiSelect(Node: TTreeNode; ClearWholeSelection: Boolean);
@ -3780,6 +3781,10 @@ type
{ TTreeView }
TTreeView = class(TCustomTreeView)
public
property PathDelimiter;
property ScrolledLeft;
property ScrolledTop;
published
property Align;
property Anchors;

5
lcl/include/treeview.inc
View File

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