From 830b879a242c7b4230072ce4fb16656e14e8e7ee Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Fri, 17 Aug 2007 22:31:04 +0000
Subject: [PATCH] Add missing event OnFreeNode and popupmenu property to
 ListVariables. OnFreeNode is new in rev 815 and popupHost was accidently not
 referenced in rev 807.

---
 source/childwin.dfm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/source/childwin.dfm b/source/childwin.dfm
index 1b19cd7d..7df8d8c3 100644
--- a/source/childwin.dfm
+++ b/source/childwin.dfm
@@ -130,11 +130,13 @@ object MDIChild: TMDIChild
                 Header.Style = hsXPStyle
                 Images = MainForm.ImageList1
                 IncrementalSearch = isInitializedOnly
+                PopupMenu = popupHost
                 TabOrder = 0
                 TreeOptions.MiscOptions = [toToggleOnDblClick]
                 TreeOptions.PaintOptions = [toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
                 TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
                 OnCompareNodes = vstCompareNodes
+                OnFreeNode = vstFreeNode
                 OnGetText = vstGetText
                 OnGetImageIndex = vstGetImageIndex
                 OnGetNodeDataSize = vstGetNodeDataSize