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

lcl: less with-blocks for FPC 3.1.1

Browse Source 
git-svn-id: trunk@50285 -
This commit is contained in:
mattias 2015-11-11 12:55:46 +00:00
parent 00b0e7df39
commit fe6ab707ee
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/treeview.inc
View File

@ -2516,19 +2516,6 @@ begin
Result := Cardinal(FSelection.Count); Result := Cardinal(FSelection.Count);
end; end;
{function TTreeNodes.GetNode(ItemId: HTreeItem): TTreeNode;
var
Item: TTVItem;
begin
with Item do
begin
hItem := ItemId;
mask := TVIF_PARAM;
end;
if TreeView_GetItem(Handle, Item) then Result := TTreeNode(Item.lParam)
else Result := nil;
end;}
procedure TTreeNodes.SetItem(Index: Integer; AValue: TTreeNode); procedure TTreeNodes.SetItem(Index: Integer; AValue: TTreeNode);
begin begin
GetNodeFromIndex(Index).Assign(AValue); GetNodeFromIndex(Index).Assign(AValue);