fix: some trees have their own OnContextMenu logic set at design time, do not overwrite

Refs #2271

Author: ansgarbecker

source/apphelpers.pas

@@ -1520,7 +1520,9 @@ procedure FixVT(VT: TVirtualStringTree; IsResultGrid: Boolean=False);
   VT.OnStartOperation := Mainform.AnyGridStartOperation;
   VT.OnEndOperation := Mainform.AnyGridEndOperation;
   VT.BorderStyle := bsNone; // Cosmetic
-  VT.OnContextPopup := MainForm.AnyGridContextPopup;
+  // Some trees have their own OnContextMenu logic set at design time:
+  if not Assigned(VT.OnContextPopup) then
+    VT.OnContextPopup := MainForm.AnyGridContextPopup;
 end;
 
 

source/main.lfm

@@ -2136,7 +2136,6 @@ object MainForm: TMainForm
             OnBeforePaint = ListTablesBeforePaint
             OnChange = ListTablesChange
             OnCompareNodes = AnyGridCompareNodes
-            OnContextPopup = AnyGridContextPopup
             OnDblClick = ListTablesDblClick
             OnEditing = ListTablesEditing
             OnGetText = ListTablesGetText