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

TreeFilterEdit: change visibility of FreeNodeData and remove a hack-accessor class.

Browse Source 
git-svn-id: trunk@43345 -
This commit is contained in:
juha 2013-10-31 00:16:45 +00:00
parent 95fe4e6ff1
commit 51b74b6f56
2 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazcontrols/treefilteredit.pas
View File

@ -45,14 +45,12 @@ type
procedure ApplyFilter;
procedure TVDeleteUnneededNodes(p: integer);
procedure TVClearUnneededAndCreateHierachy(Filename: string);
protected
procedure FreeNodeData(ANode : TTreeNode);
private
procedure RemoveChildrenData(ARootNode : TTreeNode);
public
constructor Create(AOwner: TTreeFilterEdit; ARootNode: TTreeNode);
destructor Destroy; override;
procedure AddNodeData(ANodeText: string; AData: TObject; AFullFilename: string = '');
procedure FreeNodeData(ANode: TTreeNode);
function GetData(AIndex: integer): TObject;
procedure Clear;
end;
@ -106,8 +104,8 @@ type
TTFENodeData = class
public
Node,
Branch : TObject;
Node: TTreeNode;
Branch: TTreeFilterBranch;
end;
{ TFileNameItem }

9
packager/packageeditor.pas
View File

@ -1083,9 +1083,6 @@ begin
PackageEditors.ViewPkgToDos(LazPackage);
end;
Type
TTreeFilterBranchAccess = class(TTreeFilterBranch);
procedure TPackageEditorForm.FreeNodeData(Typ: TPENodeType);
var
NodeData: TPENodeData;
@ -1096,7 +1093,7 @@ begin
n:=NodeData;
NodeData:=NodeData.Next;
if Assigned(n.Branch) Then
TTreeFilterBranchAccess(n.Branch).FreeNodeData(TTreeNode(n.Node));
n.Branch.FreeNodeData(n.Node);
n.Free;
end;
FFirstNodeData[Typ]:=nil;
@ -2052,9 +2049,9 @@ begin
Result:=nil;
if (TVNode=nil) then exit;
o:=TObject(TVNode.Data);
if Assigned(o) and (o is TFileNameItem) then
if o is TFileNameItem then
o:=TObject(TFileNameItem(o).Data);
if Assigned(o) and (o is TPENodeData) then
if o is TPENodeData then
Result:=TPENodeData(o);
end;