fix: crash in AnyGridPaintText with no query result

ansgarbecker · ansgarbecker · commit 59659f074113 · 2025-11-30T14:10:34.000+01:00
Found in recently uploaded crash reports
diff --git a/source/main.pas b/source/main.pas
@@ -10520,6 +10520,8 @@ procedure TMainForm.AnyGridPaintText(Sender: TBaseVirtualTree; const TargetCanva
   end;
 
   r := GridResult(Sender);
+  if not Assigned(r) then
+    Exit;
   RowNumber := Sender.GetNodeData(Node);
   r.RecNo := RowNumber^;
 
