paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:59:13 +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 //Recreate new items or modify
for I := 0 to TreeView1.Items.Count - 1 do for I := 0 to TreeView1.Items.Count - 1 do
begin begin
Node := TreeView1.Items.Items[I]; Node := TreeView1.Items[I];
if Node.Level = 0 then if Node.Level = 0 then
begin begin
Item := FListView.Items.Add; Item := FListView.Items.Add;

2
lcl/comctrls.pp
View File

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

4
lcl/include/treeview.inc
View File

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