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

renamed TreeNodes.Items to TTreeNode.Item - it is inconsisten, but for Delphi compatibility and it is hardly used

Browse Source 
git-svn-id: trunk@9232 -
This commit is contained in:
mattias 2006-05-02 21:49:41 +00:00
parent 3d19654952
commit df4cb19ad7
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/listviewpropedit.pp
View File

@ -261,7 +261,7 @@ begin
//Recreate new items or modify
for I := 0 to TreeView1.Items.Count - 1 do
begin
Node := TreeView1.Items.Items[I];
Node := TreeView1.Items[I];
if Node.Level = 0 then
begin
Item := FListView.Items.Add;

2
lcl/comctrls.pp
View File

@ -1895,7 +1895,7 @@ type
procedure ConsistencyCheck;
procedure WriteDebugReport(const Prefix: string; AllNodes: boolean);
property Count: Integer read GetCount;
property Items[Index: Integer]: TTreeNode read GetNodeFromIndex; default;
property Item[Index: Integer]: TTreeNode read GetNodeFromIndex; default;
property KeepCollapsedNodes: boolean
read FKeepCollapsedNodes write FKeepCollapsedNodes;
property Owner: TCustomTreeView read FOwner;

4
lcl/include/treeview.inc
View File

@ -2157,7 +2157,7 @@ procedure TTreeNodes.DefineProperties(Filer: TFiler);
Result := False;
for I := 0 to Count - 1 do
begin
Result := not Items[I].IsEqual(Nodes[I]);
Result := not Item[I].IsEqual(Nodes[I]);
if Result then Break;
end
end;
@ -3286,7 +3286,7 @@ begin
lNode := lNode.GetNextExpanded
else
if Items.Count > 0 then
lNode := FTreeNodes.Items[0];
lNode := FTreeNodes.GetFirstNode;
if lNode <> nil then
Key:=VK_UNKNOWN;
end;