From f1ca1318cf135192acac2ab28dfb48d6dbebecf3 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 21 Nov 2018 19:36:39 +0000
Subject: [PATCH] Debugger-Tests: fix test selector

git-svn-id: trunk@59616 -
---
 .../lazdebuggers/lazdebugtestbase/testdbgcontrolform.pas      | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/lazdebuggers/lazdebugtestbase/testdbgcontrolform.pas b/components/lazdebuggers/lazdebugtestbase/testdbgcontrolform.pas
index 02a98cfc53..b1f0361494 100644
--- a/components/lazdebuggers/lazdebugtestbase/testdbgcontrolform.pas
+++ b/components/lazdebuggers/lazdebugtestbase/testdbgcontrolform.pas
@@ -122,9 +122,9 @@ end;
 function CanTest(id: Pointer): Boolean;
 begin
   Result := TTreeNode(id).StateIndex = ord(tsChecked);
-  while TTreeNode(id).Parent <> nil do begin
+  while Result and (TTreeNode(id).Parent <> nil) do begin
     id := TTreeNode(id).Parent;
-    Result := TTreeNode(id).StateIndex = ord(tsChecked);
+    Result := Result and TTreeNode(id).StateIndex = ord(tsChecked);
   end;
 end;