fix #889

CodeCompletion/DomSyntaxTreeVisitor.cs

@@ -139,6 +139,14 @@ namespace CodeCompletion
                         return true;
                 }
             }
+            else if (node is PascalABCCompiler.SyntaxTree.question_colon_expression)
+            {
+                PascalABCCompiler.SyntaxTree.question_colon_expression expr = node as PascalABCCompiler.SyntaxTree.question_colon_expression;
+                if (has_lambdas(expr.ret_if_true))
+                    return true;
+                if (has_lambdas(expr.ret_if_false))
+                    return true;
+            }
             return false;
         }
 
@@ -4477,7 +4485,9 @@ namespace CodeCompletion
 
         public override void visit(PascalABCCompiler.SyntaxTree.question_colon_expression _question_colon_expression)
         {
-        	_question_colon_expression.ret_if_true.visit(this);
+            if (has_lambdas(_question_colon_expression.ret_if_false))
+                _question_colon_expression.ret_if_false.visit(this);
+            _question_colon_expression.ret_if_true.visit(this);
         }
 
         public override void visit(expression_as_statement _expression_as_statement)

TestSuite/intellisense_tests/lambdas5.pas

@@ -0,0 +1,14 @@
+type t1 = class
+    function test: sequence of integer;
+    begin
+      Result := true?
+        Seq(0).Where(m->begin
+        var temp:byte;
+        writeln(temp{@var temp: byte;@});
+        Result := true;
+        end):
+        Seq(0);
+    end;
+  end;
+
+begin end.